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

Gessamtsicherheiten, Gesamtsicherheiten, essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2023-01-04 16:52:24 +01:00
parent 31af690dc4
commit 48b12b78f5
20 changed files with 3646 additions and 731 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -79,7 +79,7 @@ Public Class frmGesamtsicherheitenNEU
cbx_offene.Checked = True
initPrevNextButtons()
changeLabel()
Me.Text = "Gesamtsicherheit " & Standort
frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
@@ -116,20 +116,33 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").DefaultCellStyle.Format = "c"
.Columns("gs_saldo").Visible = True
Select Case currentGesSichRef.brgakto_gs_ATR
Case True
.Columns("gs_ATBNr").HeaderText = "ATB"
If Standort = "Verag GmbH" Then
.Columns("gs_ATBNr").HeaderText = "ATB"
Else
.Columns("gs_ATBNr").HeaderText = "T1 MRN"
End If
.Columns("gs_ATBNr").Width = 130
.Columns("gs_atr").HeaderText = "ATR"
.Columns("gs_atr").Visible = True
.Columns("gs_atr").Width = 35
.Columns("gs_ust").Width = 70
.Columns("gs_ust").HeaderText = "Ust"
Case Else
.Columns("gs_ATBNr").HeaderText = "ATB"
If Standort = "Verag GmbH" Then
.Columns("gs_ATBNr").HeaderText = "ATB"
Else
.Columns("gs_ATBNr").HeaderText = "T1 MRN"
End If
.Columns("gs_ATBNr").Width = 150
End Select
changeLabel(currentGesSichRef.brgakto_gs_ATR)
.Columns("gs_posNr").Width = 35
.Columns("gs_posNr").HeaderText = "Pos#"
@@ -268,9 +281,23 @@ Public Class frmGesamtsicherheitenNEU
.Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
Select Case currentGesSichRef.brgakto_gs_ATR
Case True
.Columns("gsp_ATCNr").HeaderText = "ATC / MRN"
If Standort = "Verag GmbH" Then
.Columns("gsp_ATCNr").HeaderText = "ATC / MRN"
ElseIf Standort = "VERAG AG" Then
.Columns("gsp_ATCNr").HeaderText = "T1 CRN"
Else
.Columns("gsp_ATCNr").HeaderText = "EZA / T1 CRN"
End If
Case Else
.Columns("gsp_ATCNr").HeaderText = "CRN / MRN"
If Standort = "Verag GmbH" Then
.Columns("gsp_ATCNr").HeaderText = "CRN / MRN"
ElseIf Standort = "VERAG AG" Then
.Columns("gsp_ATCNr").HeaderText = "T1 CRN"
Else
.Columns("gsp_ATCNr").HeaderText = "EZA / T1 CRN"
End If
End Select
.Columns("gsp_ATCNr").Width = 140
.Columns("gsp_datum").Width = 100
@@ -1593,4 +1620,26 @@ Public Class frmGesamtsicherheitenNEU
End Sub
Private Sub changeLabel(Optional isATR As Boolean = True)
If Standort = "Verag GmbH" Then
Label1.Text = "ATB Nummer"
If isATR Then
Label12.Text = "ATC / MRN"
Else
Label12.Text = "CRN / MRN"
End If
ElseIf Standort = "VERAG AG" Then
Label12.Text = "T1 CRN"
Label1.Text = "T1 MRN"
Else
Label12.Text = "EZA / T1 CRN"
Label1.Text = "T1 MRN"
End If
End Sub
End Class