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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-11-26 14:39:09 +01:00
parent 490ef4a702
commit ca1cc4f8fa
52 changed files with 8152 additions and 4542 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb
View File

@@ -236,7 +236,10 @@ Public Class frmSDLAbholungEintrag
" WHEN '210' THEN 'SI' " &
" WHEN '212' THEN 'UTA' " &
" WHEN '213' THEN 'HUGO' " &
" WHEN '203' THEN 'CZ' " &
" WHEN '214' THEN 'PLOSE' " &
" WHEN '215' THEN 'PLOSE IT' " &
" WHEN '216' THEN 'PLOSE CZ' " &
" WHEN '203' THEN 'CZ' " &
" WHEN '209' THEN 'PL' " &
" WHEN '500' THEN 'ABGASPLAKETTE' " &
" WHEN '501' THEN 'VERAG-CARD' " &
@@ -252,6 +255,9 @@ Public Class frmSDLAbholungEintrag
" WHEN '210' THEN cast([SERIE-Nr] as VARCHAR(200)) " &
" WHEN '212' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '213' THEN cast(OBUID as VARCHAR(200)) " &
" WHEN '214' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '215' THEN cast([TELEPASS-Nr] as VARCHAR(200)) " &
" WHEN '216' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '203' THEN cast(KartenNr as VARCHAR(200)) " &
" WHEN '209' THEN cast(KartenNr/*[MSE-Kd-Nr]*/ as VARCHAR(200)) " &
" WHEN '500' THEN '-' " &
@@ -262,7 +268,7 @@ Public Class frmSDLAbholungEintrag
" FROM [SDL] " &
" WHERE KundenNr = " & KdFirma.KdNr_value
If sdlnr > 0 Then : sqlStr &= " AND SDLNr=" & sdlnr
Else : sqlStr &= " AND SDLNr IN (100,101,202,207,208,210,211,212,213,500,501)"
Else : sqlStr &= " AND SDLNr IN (100,101,202,207,208,210,211,212,213,214,215,216,500,501)"
End If
sqlStr &= " AND Lieferdatum between '" & datVon.Value.ToShortDateString & "' and '" & datBis.Value.ToShortDateString & "' "

11
SDL/mdm/usrCntlKartenDaten.vb
View File

@@ -116,6 +116,8 @@ Public Class usrCntlKartenDaten
End If
SET_SDL(-1)
' pnlFilter.Height = 0
' Me.dgvSDL.DataSource = Me.bindingSDL
@@ -467,9 +469,9 @@ Public Class usrCntlKartenDaten
Case 202 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [TELEPASS-Kd-Nr], VIACARD,[TELEPASS-Nr], Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert,TelepassErsatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=202"
Case 203 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=203"
Case 213 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=213"
Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=214"
Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=215"
Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=216"
Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=214"
Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=215"
Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=216"
Case 209 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=209"
Case 210 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, OBUID, [SERIE-Nr],Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=210"
Case 208 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, GültigBis,Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=208"
@@ -690,6 +692,9 @@ Public Class usrCntlKartenDaten
If sdlNr = 210 Then btnBenachrichtigungKartenboxen.Enabled = True
If sdlNr = 211 Then btnBenachrichtigungKartenboxen.Enabled = True
If sdlNr = 213 Then btnBenachrichtigungKartenboxen.Enabled = True
If sdlNr = 214 Then btnBenachrichtigungKartenboxen.Enabled = True
If sdlNr = 215 Then btnBenachrichtigungKartenboxen.Enabled = True
If sdlNr = 216 Then btnBenachrichtigungKartenboxen.Enabled = True
If sdlNr = 208 Then btnBenachrichtigungKartenboxen.Enabled = True
If sdlNr = 207 Then btnBenachrichtigungKartenboxen.Enabled = True
If sdlNr = 101 Then btnBenachrichtigungKartenboxen.Enabled = True