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

SDL Jara ausblenden

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-20 15:32:23 +02:00
parent 8e98815f0e
commit c32947ddda
2 changed files with 34 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/mdm/frmNewData.Designer.vb generated
View File

@@ -333,6 +333,7 @@ Partial Class frmNewData
Me.btnSDL_MautIT.Text = "MAUT IT" Me.btnSDL_MautIT.Text = "MAUT IT"
Me.btnSDL_MautIT.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnSDL_MautIT.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_MautIT.UseVisualStyleBackColor = False Me.btnSDL_MautIT.UseVisualStyleBackColor = False
Me.btnSDL_MautIT.Visible = False
' '
'btnSDL_MautSI 'btnSDL_MautSI
' '

36
SDL/mdm/usrCntlKartenDaten.vb
View File

@@ -74,10 +74,12 @@ Public Class usrCntlKartenDaten
dgvInitWait = True dgvInitWait = True
' MsgBox(kdNr) Dim kdNr_WHERE = ""
If kdNr_filter Then If kdNr_filter Then
Dim dt As DataTable = SQL.loadDgvBySql("SELECT KundenSDL.SDLNr FROM KundenSDL INNER JOIN [Speditionsdienstleistungen] as S ON s.SDLNr=KundenSDL.sdlnr WHERE s.SDLTypNr IN (1,2) AND KundenSDL.KundenNr=" & kdNr & " ") kdNr_WHERE = ""
End If
If kdNr_filter Then
Dim dt As DataTable = SQL.loadDgvBySql("SELECT KundenSDL.SDLNr FROM KundenSDL INNER JOIN [Speditionsdienstleistungen] as S ON s.SDLNr=KundenSDL.sdlnr WHERE s.SDLTypNr IN (1,2) AND KundenSDL.KundenNr " & kdNr & " group by KundenSDL.SDLNr ")
If dt Is Nothing Then If dt Is Nothing Then
MsgBox("Es wurden noch keine Leistungen freigeschaltet.") MsgBox("Es wurden noch keine Leistungen freigeschaltet.")
Else Else
@@ -107,6 +109,34 @@ Public Class usrCntlKartenDaten
SplitContainer1.Panel2Collapsed = False SplitContainer1.Panel2Collapsed = False
Else Else
Dim dt As DataTable = SQL.loadDgvBySql("SELECT SDLNr FROM [Speditionsdienstleistungen] WHERE SDLTypNr IN (1,2) ")
If dt IsNot Nothing Then
btnSDL_IDS.Visible = dt.Select("SDLNr=100").Count > 0
btnSDL_Woelfl.Visible = dt.Select("SDLNr=101").Count > 0
btnSDL_UTA.Visible = dt.Select("SDLNr=212").Count > 0
btnSDL_MautAT.Visible = dt.Select("SDLNr=200").Count > 0
btnSDL_MautDE.Visible = dt.Select("SDLNr=201").Count > 0
btnSDL_MautIT.Visible = dt.Select("SDLNr=202").Count > 0
btnSDL_MautCZ.Visible = dt.Select("SDLNr=203").Count > 0
btnSDL_Hugo.Visible = dt.Select("SDLNr=213").Count > 0
btnSDL_PLOSE.Visible = dt.Select("SDLNr=214").Count > 0
btnSDL_PLOSE_IT.Visible = dt.Select("SDLNr=215").Count > 0
btnSDL_PLOSE_CZ.Visible = dt.Select("SDLNr=216").Count > 0
btnMANAbgasplakette.Visible = dt.Select("SDLNr=500").Count > 0
btnVERAGParkplatz.Visible = dt.Select("SDLNr=501").Count > 0
btnSDL_MautPL.Visible = dt.Select("SDLNr=209").Count > 0
btnSDL_MautSI.Visible = dt.Select("SDLNr=210").Count > 0
btnSDL_MautMSE.Visible = dt.Select("SDLNr=208").Count > 0
btnSDL_MotorWay.Visible = dt.Select("SDLNr=205").Count > 0
btnSDL_ECOTAX.Visible = dt.Select("SDLNr=211").Count > 0
btnSDL_FREJUS.Visible = dt.Select("SDLNr=207").Count > 0
btnSDL_DouBox.Visible = dt.Select("SDLNr=206").Count > 0
End If
SplitContainer1.Panel2Collapsed = False SplitContainer1.Panel2Collapsed = False
dgvSDL_SelectionChanged(dgvSDL, New System.EventArgs) dgvSDL_SelectionChanged(dgvSDL, New System.EventArgs)