From 83250af9615fcc9b05d9235bdfc0ba97af58445a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 2 Oct 2024 11:34:58 +0200 Subject: [PATCH 1/2] Updater, Login mit Standort.txt --- AVISOUPDATER/UPDATERfrm.vb | 4 ++++ Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmLogin.vb | 2 ++ Aviso/usrcntlAktDetails.vb | 8 ++++++-- Gemeinsames/Gemeinsames.vbproj | 2 +- 5 files changed, 15 insertions(+), 5 deletions(-) diff --git a/AVISOUPDATER/UPDATERfrm.vb b/AVISOUPDATER/UPDATERfrm.vb index e9cf396..276081f 100644 --- a/AVISOUPDATER/UPDATERfrm.vb +++ b/AVISOUPDATER/UPDATERfrm.vb @@ -35,6 +35,10 @@ Public Class UPDATERfrm CopyIncremental = False End If + If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" Then + MsgBox("Programm kann nicht im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical) + Exit Sub + End If Dim FIRMA = "VERAG" Dim pfadDatei As String = System.AppDomain.CurrentDomain.BaseDirectory & "\Standort.txt" diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index a962301..0747092 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/frmLogin.vb b/Aviso/frmLogin.vb index d7d5f64..3eae677 100644 --- a/Aviso/frmLogin.vb +++ b/Aviso/frmLogin.vb @@ -87,6 +87,8 @@ Public Class frmLogin If firma = "NKD" Then firma = "VERAG" If firma = "NEU" Then firma = "VERAG" If firma = "SUB" Then firma = "VERAG" + strmReader.Close() + Else ' FIRMA VON AD HOLEN, wenn keine StandortTxt diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index dd6bb1a..fc38aa8 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -839,9 +839,13 @@ Public Class usrcntlAktDetails .RowTemplate.MinimumHeight = 20 .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells + .Columns("anh_id").Visible = False 'VermerkID nicht anzeigen - .Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen - .Columns("anh_markiert").Visible = False 'AvisoID nicht anzeigen + .Columns("anh_docId").Visible = False + .Columns("anh_markiert").Visible = False + .Columns("anh_LaufzettelDruck").Visible = False + .Columns("anh_GestellungslisteAnfuegen").Visible = False + .Columns("anh_cmrId").Visible = False .Columns("anh_Name").MinimumWidth = 150 .Columns("anh_Name").HeaderText = "Name" diff --git a/Gemeinsames/Gemeinsames.vbproj b/Gemeinsames/Gemeinsames.vbproj index beb46fd..a26772e 100644 --- a/Gemeinsames/Gemeinsames.vbproj +++ b/Gemeinsames/Gemeinsames.vbproj @@ -35,7 +35,7 @@ true - x64 + AnyCPU true full true From 5dc935be432a98a2b71c56e58e674c5674dcb95e Mon Sep 17 00:00:00 2001 From: "m.ilhan" Date: Wed, 2 Oct 2024 11:38:42 +0200 Subject: [PATCH 2/2] =?UTF-8?q?route=20Meldung=20ge=C3=A4ndert?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Aviso/frmRoutendauerBerechnen.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Aviso/frmRoutendauerBerechnen.vb b/Aviso/frmRoutendauerBerechnen.vb index c410614..9b59c8a 100644 --- a/Aviso/frmRoutendauerBerechnen.vb +++ b/Aviso/frmRoutendauerBerechnen.vb @@ -54,7 +54,7 @@ Public Class frmRoutendauerBerechnen cbxVon.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cbxVon.changeItem("") If cbxVon._value = "" Then - MsgBox("Es wurde für die Bestimmungszollstelle " & txtNach.Text & " keine Route definiert." & vbCrLf & "Bitte voraus. Datum des Eintreffens manuell eingeben!") + MsgBox("Es wurde für die Bestimmungszollstelle " & txtNach.Text & " keine Route definiert." & vbCrLf & "Bitte voraus. Datum des Eintreffens manuell eingeben") End If