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

ustv, kunenblatt

Browse Source
This commit is contained in:
d.breimaier
2026-11-13 10:28:32 +01:00
parent c9cabf4d0a
commit 654ac29424
2 changed files with 59 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.9.4")>
<Assembly: AssemblyFileVersion("1.5.9.4")>
<Assembly: AssemblyVersion("1.5.9.5")>
<Assembly: AssemblyFileVersion("1.5.9.5")>

103
SDL/kunden/frmKundenblatt.vb
View File

@@ -359,47 +359,56 @@ Public Class frmKundenblatt
Sub initTABSDL_Firmendaten()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", Me) = 0 Then
tbcntrMain.TabPages(7).Enabled = True
UsrcntlKundeBearbeitenFull1.Enabled = True
UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
End If
Else
tbcntrMain.TabPages(7).Enabled = False
End If
tbcntrMain.TabPages(7).Enabled = True
UsrcntlKundeBearbeitenFull1.Enabled = True
UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360)
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr)
End If
'End If
End Sub
Sub initTABSDL_FirmendatenSDL()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kundendaten_bearbeiten", Me) = 0 Then
tbcntrMain.TabPages(7).Enabled = True
UsrcntlKundeBearbeitenFull_SDL1.Enabled = True
UsrcntlKundeBearbeitenFull_SDL1.init(kdNr, isVerag360)
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull_SDL1.cboFiliale.changeItem(FilialeNr)
End If
Else
tbcntrMain.TabPages(7).Enabled = False
End If
tbcntrMain.TabPages(7).Enabled = True
UsrcntlKundeBearbeitenFull_SDL1.Enabled = True
UsrcntlKundeBearbeitenFull_SDL1.init(kdNr, isVerag360)
If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull_SDL1.cboFiliale.changeItem(FilialeNr)
End If
End Sub
Sub initTABVERAGCard()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_VERAG_Card", Me) = 0 Then
tbcntrMain.TabPages(4).Enabled = False
' cProgramFunctions.setAllReadOnly(Panel4)
Dim usrcntlTMP As New usrCntlVERAGCard
usrcntlTMP.displayFilter = False
usrcntlTMP.onlyKdNr = True
usrcntlTMP.Dock = DockStyle.Fill
usrcntlTMP.kdnr = kdNr
tbVERAGCard.Controls.Clear()
tbVERAGCard.Controls.Add(usrcntlTMP)
End If
Dim usrcntlTMP As New usrCntlVERAGCard
usrcntlTMP.displayFilter = False
usrcntlTMP.onlyKdNr = True
usrcntlTMP.Dock = DockStyle.Fill
usrcntlTMP.kdnr = kdNr
tbVERAGCard.Controls.Clear()
tbVERAGCard.Controls.Add(usrcntlTMP)
End Sub
Sub initTABBesuchsberichte()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Besuchsberichte", Me) = 0 Then
@@ -500,32 +509,34 @@ Public Class frmKundenblatt
End If
End Sub
Sub initTABLKW(Optional kz As String = "")
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_LKW_bearbeiten", Me) = 0 Then
'tbcntrMain.TabPages(2).Enabled = False
' cProgramFunctions.setAllReadOnly(tabLKW)
Me.dgvLKW.DataSource = Me.bindingLKW
initLKWBinding()
initDgvLKW()
btnUpdateLKW.Enabled = False
If kz <> "" Then
For Each r As DataGridViewRow In dgvLKW.Rows
If r.Cells("KfzKennzeichen").Value = kz Then
dgvLKW.ClearSelection()
r.Selected = True
dgvLKW_SelectionChanged(dgvLKW, New EventArgs)
dgvLKW.FirstDisplayedScrollingRowIndex = r.Index
dgvLKW.PerformLayout()
Exit For
End If
Next
End If
dgvLKW_SelectionChanged(Me, New EventArgs)
End If
Me.dgvLKW.DataSource = Me.bindingLKW
initLKWBinding()
initDgvLKW()
btnUpdateLKW.Enabled = False
If kz <> "" Then
For Each r As DataGridViewRow In dgvLKW.Rows
If r.Cells("KfzKennzeichen").Value = kz Then
dgvLKW.ClearSelection()
r.Selected = True
dgvLKW_SelectionChanged(dgvLKW, New EventArgs)
dgvLKW.FirstDisplayedScrollingRowIndex = r.Index
dgvLKW.PerformLayout()
Exit For
End If
Next
End If
dgvLKW_SelectionChanged(Me, New EventArgs)
End Sub
Sub initTABSDL_Leistungen()