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

ATILLA Status 2 (VERIMEX, INDONESIEN), Login Warenort, Sprache div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-06 08:41:13 +01:00
parent 074e999003
commit eb090f8b37
24 changed files with 653 additions and 481 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Aviso/frmHauptfenster.vb
View File

@@ -390,11 +390,13 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
'MenuStrip1.Items.Clear()
'MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
' MenuStrip1.Items.Remove(StatistikToolStripMenuItem)
MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
MenuStrip1.Items.Remove(StatistikToolStripMenuItem)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem)
For Each i In FunktionenToolStripMenuItem.DropDownItems
If i IsNot ToolStripMenuItem3 Then
i.Visible = False
@@ -2541,7 +2543,7 @@ Public Class frmHauptfenster
Button6.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
tabVorbereitet.Text = "2. VERIMEX"
tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
' tbcntrAviso.TabPages.RemoveAt(2)
End If
@@ -3816,7 +3818,7 @@ Public Class frmHauptfenster
cboMy_QS.Visible = Not cbx_My_LKW.Checked
cboMy_VB.Visible = Not cbx_My_LKW.Checked
cboMyAvisoAnzeige.Visible = Not cbx_My_LKW.Checked
Label17.Visible = Not cbx_My_LKW.Checked
lblMySND_Anzeige.Visible = Not cbx_My_LKW.Checked
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
btnColor.Visible = Not cbx_My_LKW.Checked
@@ -5692,7 +5694,7 @@ Public Class AvisoStatusFunctions
Public Function AktUebernehmen_Zuruecksetzen(AvisoID As Integer, Optional WeiterleitungTextTV As String = "") As Boolean
Public Function AktUebernehmen_Zuruecksetzen(AvisoID As Integer, Optional WeiterleitungTextTV As String = "", Optional letzterMitarbeiter As String = "Weiterleitung") As Boolean
Try
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -5715,7 +5717,7 @@ Public Class AvisoStatusFunctions
Aviso.LetzterMitarbeiterId = -1
Aviso.letzterMitarbeiter = "Weiterleitung" ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.letzterMitarbeiter = letzterMitarbeiter ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.WeiterleitungTextTV = WeiterleitungTextTV ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = -1 'VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
@@ -6479,6 +6481,7 @@ Public Class AvisoStatusFunctions
Public Sub showKd(kdnr)
'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then