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

QR fix, Vers

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-11-18 08:32:38 +01:00
parent 9e6dd50485
commit 151b912afb
3 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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.7")> <Assembly: AssemblyVersion("4.0.5.9")>
<Assembly: AssemblyFileVersion("4.0.5.7")> <Assembly: AssemblyFileVersion("4.0.5.9")>

6
Aviso/frmHauptfenster.vb
View File

@@ -5124,10 +5124,10 @@ Public Class AvisoStatusFunctions
If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True) 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)
If printer = "" Then 'If printer = "" Then
SDL.cProgramFunctions.printRpt(rpt, printer, True) SDL.cProgramFunctions.printRpt(rpt, printer, True)
Return True Return True
End If ' End If
End Select End Select
Return False Return False
@@ -5202,7 +5202,7 @@ Public Class AvisoStatusFunctions
'Fahrer Handy-Nr. 'Fahrer Handy-Nr.
Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso) Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso)
If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then
Return -1 'Abbrechen Return False 'Abbrechen
End If End If
'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
' If Aviso.Grenzstelle.Replace("???", "") <> "" Then ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then

1
Aviso/usrcntlAktDetails.vb
View File

@@ -2015,6 +2015,7 @@ Public Class usrcntlAktDetails
Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click
If FUNC.setAnkunft(AvisoID) Then If FUNC.setAnkunft(AvisoID) Then
' MsgBox("H1")
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If End If