diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index f8decb2..25d4a6f 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index af477d7..8763393 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -1824,7 +1824,7 @@ Public Class frmHauptfenster ' MsgBox(ex.Message) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try - ' Grid_aktiv = True + ' Grid_aktiv = True End Sub @@ -5124,10 +5124,10 @@ Public Class AvisoStatusFunctions If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("BON", True) If printer = "" Then printer = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True) - If printer = "" Then - SDL.cProgramFunctions.printRpt(rpt, printer, True) - Return True - End If + 'If printer = "" Then + SDL.cProgramFunctions.printRpt(rpt, printer, True) + Return True + ' End If End Select Return False @@ -5202,7 +5202,7 @@ Public Class AvisoStatusFunctions 'Fahrer Handy-Nr. Dim frmAnkunftSetzen As New frmAnkunftSetzen(Aviso) If frmAnkunftSetzen.ShowDialog() = DialogResult.Cancel Then - Return -1 'Abbrechen + Return False 'Abbrechen End If 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 27ec220..c84ccbe 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -2015,6 +2015,7 @@ Public Class usrcntlAktDetails Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click If FUNC.setAnkunft(AvisoID) Then + ' MsgBox("H1") frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) End If