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

QR App

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-11-12 16:37:54 +01:00
parent 8f21788a8a
commit 6af89f9ac7
3 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/AvisoReports/rptQRSendung_VerwahrungApp.vb
View File

@@ -61,8 +61,8 @@ Public Class rptQRSendung_VerwahrungApp
'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"))) '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, "")) 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(token)
MsgBox(VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(token)) 'MsgBox(VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(token))
QR.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getQRCode("https://verwahrung.app.verag.ag/lkw-driver?token=" & 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) picQRAviso.Image = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getBARCODEAviso(AVISO.AvisoID)

4
Aviso/My Project/AssemblyInfo.vb
View File

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

5
Aviso/usrcntlAktDetails.vb
View File

@@ -350,7 +350,6 @@ Public Class usrcntlAktDetails
' btnLkwBeleg.Visible = False ' btnLkwBeleg.Visible = False
btnAktAbschliessen.Visible = False btnAktAbschliessen.Visible = False
btnAktAbschliessen.BackColor = Color.DarkGreen btnAktAbschliessen.BackColor = Color.DarkGreen
lblBarZuKassierenSumme.Visible = False lblBarZuKassierenSumme.Visible = False
Select Case AVISO.Status Select Case AVISO.Status
@@ -393,9 +392,12 @@ Public Class usrcntlAktDetails
pnlAbgeschlossen.Visible = True pnlAbgeschlossen.Visible = True
btnAktAbschliessen.Visible = False btnAktAbschliessen.Visible = False
' btnLkwBeleg.Visible = False ' btnLkwBeleg.Visible = False
btnQRVerwahrung.Visible = False
Else Else
pnlAbgeschlossen.Visible = False pnlAbgeschlossen.Visible = False
' btnAktAbschliessen.Visible = True ' btnAktAbschliessen.Visible = True
btnQRVerwahrung.Visible = True
End If End If
intiAktUebernehmenBtn() intiAktUebernehmenBtn()
@@ -3856,6 +3858,7 @@ Public Class usrcntlAktDetails
Dim rpt As New rptQRSendung_VerwahrungApp(AVISO, SND) Dim rpt As New rptQRSendung_VerwahrungApp(AVISO, SND)
Dim printer = VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON 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 printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)