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

gesamtsicherheiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-05-04 11:47:10 +02:00
parent 7c9cc1007a
commit df05d16aa3
5 changed files with 130 additions and 111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -101,13 +101,13 @@ Public Class frmGesamtsicherheitenNEU
changeLabel()
Select Case Standort
Case "Verag GmbH" : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
Case "AMBAR GmbH" : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
Case "Atilla GmbH" : btnDAKOSY_AUTO.Enabled = False
Case "VERAG AG" : btnDAKOSY_AUTO.Enabled = False
Case "IMEX" : btnDAKOSY_AUTO.Enabled = False
Case "Verag CS" : btnDAKOSY_AUTO.Enabled = False
Case "Unisped GmbH" : btnDAKOSY_AUTO.Enabled = False
Case Sicherheiten_Standort.VERAG_GMBH : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
Case Sicherheiten_Standort.AMBAR : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
Case Sicherheiten_Standort.ATILLA : btnDAKOSY_AUTO.Enabled = False
Case Sicherheiten_Standort.VERAG_AG : btnDAKOSY_AUTO.Enabled = False
Case Sicherheiten_Standort.IMEX : btnDAKOSY_AUTO.Enabled = False
Case Sicherheiten_Standort.VERAG_CS : btnDAKOSY_AUTO.Enabled = False
Case Sicherheiten_Standort.UNISPED : btnDAKOSY_AUTO.Enabled = False
Case Else : btnDAKOSY_AUTO.Enabled = False
End Select
@@ -172,7 +172,7 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gs_ust").DefaultCellStyle.Format = "c2"
Case Else
If Standort = "Verag GmbH" Then
If Standort = Sicherheiten_Standort.VERAG_GMBH Then
.Columns("gs_ATBNr").HeaderText = "Reg-Nr."
Else
.Columns("gs_ATBNr").HeaderText = "T1 MRN"
@@ -561,9 +561,9 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
Select Case currentGesSichRef.brgakto_gs_ATR
Case True
If Standort = "Verag GmbH" Then
If Standort = Sicherheiten_Standort.VERAG_GMBH Then
.Columns("gsp_MRNNr").HeaderText = "ATC. / MRN"
ElseIf Standort = "VERAG AG" Then
ElseIf Standort = Sicherheiten_Standort.VERAG_AG Then
.Columns("gsp_MRNNr").HeaderText = "T1 CRN"
Else
.Columns("gsp_MRNNr").HeaderText = "EZA / T1 CRN"
@@ -2081,7 +2081,7 @@ Public Class frmGesamtsicherheitenNEU
Private Sub changeLabel(Optional isATR As Boolean = True)
If Standort = "Verag GmbH" Then
If Standort = Sicherheiten_Standort.VERAG_GMBH Then
'Label1.Text = "Reg-Nr."
If isATR Then
@@ -2092,7 +2092,7 @@ Public Class frmGesamtsicherheitenNEU
End If
ElseIf Standort = "VERAG AG" Then
ElseIf Standort = Sicherheiten_Standort.VERAG_AG Then
Label12.Text = "T1 CRN"
'Label1.Text = "T1 MRN"
Else
@@ -2325,7 +2325,7 @@ Public Class frmGesamtsicherheitenNEU
Dim whereWarenort As String = " WHERE [wo_aktiv] = 1 AND wo_ze = 1"
If Standort = "Atilla GmbH" Then
If Standort = Sicherheiten_Standort.ATILLA Then
'----'nicht unisped und cs und ambar aber alle anderen - laut j.Siener am 23.03.2026
@@ -2345,7 +2345,7 @@ Public Class frmGesamtsicherheitenNEU
If setDefaultValue AndAlso cboWarenort.Items.Count > 0 Then
If Standort = "AMBAR GmbH" Then
If Standort = Sicherheiten_Standort.AMBAR Then
For i As Integer = 0 To cboFiliale.Items.Count - 1
If cboFiliale.Items(i).ToString().Contains("5701") Then
cboFiliale.SelectedIndex = i