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

201020

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-10-20 09:03:00 +02:00
parent 75b12f314d
commit 00cd158bf0
54 changed files with 11763 additions and 323 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb
View File

@@ -54,12 +54,13 @@ Public Class usrCntlSDLLeistungPLOSE
scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
If txtPLOSEKdNr.Text = "" Then
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
End If
boud = True
' If txtMSEKdNr.Text = "" Then
' getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr

1
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_CZ.vb
View File

@@ -53,6 +53,7 @@ Public Class usrCntlSDLLeistungenPLOSE_CZ
initDataBinding()
boud = True
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)
End If

2
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb
View File

@@ -47,13 +47,13 @@ Public Class usrCntlSDLLeistungenPLOSE_IT
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
If txtPLOSEKdNr.Text = "" Then
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
End If
boud = True
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)

4
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenUTA.vb
View File

@@ -47,12 +47,12 @@ Public Class usrCntlSDLLeistungenUTA
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True
If txtClientNr.Text = "" Then
getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr
txtClientNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr
End If
boud = True
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
cProgramFunctions.setControlReadOnly(Me)