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

offert

Browse Source
This commit is contained in:
d.breimaier
2025-12-16 10:09:22 +01:00
parent d92eb90b64
commit e3055daed5
1 changed files with 20 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
SDL/kunden/usrCntlOfferte.vb
View File

@@ -133,7 +133,7 @@ Public Class usrCntlOfferte
.Columns("BGebMinBetrag").Width = 60 .Columns("BGebMinBetrag").Width = 60
.Columns("BGebMinBetrag").HeaderText = "BGebMinBetr." .Columns("BGebMinBetrag").HeaderText = "BGebMinBetr."
.Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight .Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
.Columns("Eingegeben am").Visible = False .Columns("Eingegeben am").Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_DATIEREN", "SDL")
' .Columns("Sachbearbeiter").Visible = False ' .Columns("Sachbearbeiter").Visible = False
' .Columns("Geändert am").Visible = False ' .Columns("Geändert am").Visible = False
.Columns("PreisänderungProzent").Width = 70 .Columns("PreisänderungProzent").Width = 70
@@ -361,7 +361,7 @@ Public Class usrCntlOfferte
If loaded = True Then If loaded = True Then
dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_DATIEREN", "SDL") Then dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now
DGVHasChaged = True DGVHasChaged = True
'saveCurrentOffert() 'saveCurrentOffert()
If isNew Then If isNew Then
@@ -613,8 +613,26 @@ Public Class usrCntlOfferte
c.ReadOnly = True c.ReadOnly = True
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_DATIEREN", "SDL") Then
If (c.Name = "Eingegeben am") Then
If edit Then
c.ReadOnly = False
handleEditMode(edit)
Else
c.ReadOnly = True
handleEditMode(edit)
End If
Else
c.ReadOnly = True
End If
End If
End If End If
Next Next
dgvOfferteDetails.AllowUserToDeleteRows = edit dgvOfferteDetails.AllowUserToDeleteRows = edit
End If End If