From c32947ddda4e574d99ab4f139eb07bea15f322a8 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 20 Sep 2022 15:32:23 +0200 Subject: [PATCH] SDL Jara ausblenden --- SDL/mdm/frmNewData.Designer.vb | 1 + SDL/mdm/usrCntlKartenDaten.vb | 36 +++++++++++++++++++++++++++++++--- 2 files changed, 34 insertions(+), 3 deletions(-) diff --git a/SDL/mdm/frmNewData.Designer.vb b/SDL/mdm/frmNewData.Designer.vb index e5b5df5b..8902ff2c 100644 --- a/SDL/mdm/frmNewData.Designer.vb +++ b/SDL/mdm/frmNewData.Designer.vb @@ -333,6 +333,7 @@ Partial Class frmNewData Me.btnSDL_MautIT.Text = "MAUT IT" Me.btnSDL_MautIT.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnSDL_MautIT.UseVisualStyleBackColor = False + Me.btnSDL_MautIT.Visible = False ' 'btnSDL_MautSI ' diff --git a/SDL/mdm/usrCntlKartenDaten.vb b/SDL/mdm/usrCntlKartenDaten.vb index 640dba2e..ff41d48c 100644 --- a/SDL/mdm/usrCntlKartenDaten.vb +++ b/SDL/mdm/usrCntlKartenDaten.vb @@ -74,10 +74,12 @@ Public Class usrCntlKartenDaten dgvInitWait = True - ' MsgBox(kdNr) - + Dim kdNr_WHERE = "" 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 MsgBox("Es wurden noch keine Leistungen freigeschaltet.") Else @@ -107,6 +109,34 @@ Public Class usrCntlKartenDaten SplitContainer1.Panel2Collapsed = False 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 dgvSDL_SelectionChanged(dgvSDL, New System.EventArgs)