ustv, etc.
This commit is contained in:
@@ -18,7 +18,8 @@ Public Class frmKundenblatt
|
||||
' Dim KUNDE As cKunde = Nothing
|
||||
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
|
||||
Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
|
||||
Dim KUNDE_K As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
|
||||
Dim KUNDE_K_RE As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
|
||||
Dim KUNDE_K_GF As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing
|
||||
|
||||
' Public BERECHTIGUNEN As List(Of cBerechtigungen) = Nothing
|
||||
|
||||
@@ -344,6 +345,7 @@ Public Class frmKundenblatt
|
||||
initDGVOffenePosten()
|
||||
initDGVUmsatz()
|
||||
initDGVUmsatzNachLeistungsNr()
|
||||
initStat()
|
||||
|
||||
' initDgvSDLLeistungen()
|
||||
'showDgvSDLLeistungen()
|
||||
@@ -639,27 +641,47 @@ Public Class frmKundenblatt
|
||||
End Sub
|
||||
|
||||
Sub initStat()
|
||||
lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert"
|
||||
lblStat_Lkws.Text = SQL.getSqlCount("SELECT Count(KfzKennzeichen) FROM LKW WHERE KundenNr=" & kdNr & " and isnull(Verkauft,0) <> 1 and isnull(Abgemeldet,0) <> 1 ") & " aktive LKWs registriert" 'OK
|
||||
|
||||
|
||||
lblStat_SdlLeistungen.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr) FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr ") & " aktive SDL Leistungen"
|
||||
|
||||
With dgvLeistungen
|
||||
.DataSource = SQL.loadDgvBySql(" SELECT Count(SDL.SDLNr) as Anzahl , SDLBez as Leistung FROM SDL, Speditionsdienstleistungen
|
||||
WHERE KundenNr=" & kdNr & " and ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1
|
||||
AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr group by SDLBez order by Count(SDL.SDLNr) desc ")
|
||||
.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.RowTemplate.Height = 20
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
|
||||
|
||||
End With
|
||||
|
||||
|
||||
Dim SQL_Diesel As String = " FROM SDL, Speditionsdienstleistungen WHERE KundenNr=" & kdNr & " AND ISNULL(Archiviert,0) <> 1 and ISNULL(LKWAbgemeldet,0) <> 1 and ISNULL(Gesperrt,0) <> 1 and ISNULL(Defekt,0) <> 1 and ISNULL(Verloren,0) <> 1 and ISNULL(Gestohlen,0) <> 1 AND SDL.SDLNr=Speditionsdienstleistungen.SDLNr AND SDL.SDLNr IN (100,101)"
|
||||
Dim dt_Diesel As DataTable = SQL.loadDgvBySql("SELECT SDL.SDLNr,Count(SDL.SDLNr) as Anzahl" & SQL_Diesel & " Group by SDL.SDLNr", "SDL")
|
||||
lblStat_SdlLeistungen_Diesel.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Diesel) & " aktive Tankkarten"
|
||||
|
||||
If dt_Diesel.Rows.Count > 0 Then
|
||||
lblStat_SdlLeistungen_Diesel.Text &= " ( "
|
||||
For Each r In dt_Diesel.Rows
|
||||
Dim Lieferant As String = ""
|
||||
Select Case r.Item("SDLNr")
|
||||
Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
|
||||
Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
|
||||
End Select
|
||||
'If dt_Diesel.Rows.Count > 0 Then
|
||||
' lblStat_SdlLeistungen_Diesel.Text &= " ( "
|
||||
' For Each r In dt_Diesel.Rows
|
||||
' Dim Lieferant As String = ""
|
||||
' Select Case r.Item("SDLNr")
|
||||
' Case "100" : Lieferant = r.Item("Anzahl") & "x IDS "
|
||||
' Case "101" : Lieferant = r.Item("Anzahl") & "x RMC "
|
||||
' End Select
|
||||
|
||||
lblStat_SdlLeistungen_Diesel.Text &= Lieferant
|
||||
Next
|
||||
lblStat_SdlLeistungen_Diesel.Text &= ")"
|
||||
End If
|
||||
' lblStat_SdlLeistungen_Diesel.Text &= Lieferant
|
||||
' Next
|
||||
' lblStat_SdlLeistungen_Diesel.Text &= ")"
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
@@ -668,35 +690,35 @@ Public Class frmKundenblatt
|
||||
lblStat_SdlLeistungen_Maut.Text = SQL.getSqlCount("SELECT Count(SDL.SDLNr)" & SQL_Maut) & " aktive Mautboxen/-karten"
|
||||
|
||||
|
||||
If dt_Maut.Rows.Count > 0 Then
|
||||
lblStat_SdlLeistungen_Maut.Text &= " ( "
|
||||
For Each r As DataRow In dt_Maut.Rows
|
||||
Dim Lieferant As String = ""
|
||||
Select Case r.Item("SDLNr")
|
||||
Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
|
||||
Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
|
||||
Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
|
||||
Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
|
||||
Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
|
||||
Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
|
||||
Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
|
||||
Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
|
||||
Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
|
||||
Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
|
||||
Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
|
||||
Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
|
||||
Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
|
||||
Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
|
||||
Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
|
||||
Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
|
||||
Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
|
||||
'If dt_Maut.Rows.Count > 0 Then
|
||||
' lblStat_SdlLeistungen_Maut.Text &= " ( "
|
||||
' For Each r As DataRow In dt_Maut.Rows
|
||||
' Dim Lieferant As String = ""
|
||||
' Select Case r.Item("SDLNr")
|
||||
' Case "200" : Lieferant = r.Item("Anzahl") & "x AT "
|
||||
' Case "201" : Lieferant = r.Item("Anzahl") & "x DE "
|
||||
' Case "202" : Lieferant = r.Item("Anzahl") & "x TELEPASS "
|
||||
' Case "203" : Lieferant = r.Item("Anzahl") & "x CZ "
|
||||
' Case "205" : Lieferant = r.Item("Anzahl") & "x MotorWay "
|
||||
' Case "206" : Lieferant = r.Item("Anzahl") & "x DouBox "
|
||||
' Case "208" : Lieferant = r.Item("Anzahl") & "x MSE "
|
||||
' Case "209" : Lieferant = r.Item("Anzahl") & "x PL "
|
||||
' Case "210" : Lieferant = r.Item("Anzahl") & "x SI "
|
||||
' Case "211" : Lieferant = r.Item("Anzahl") & "x MSE-MP "
|
||||
' Case "212" : Lieferant = r.Item("Anzahl") & "x UTA "
|
||||
' Case "213" : Lieferant = r.Item("Anzahl") & "x HUGO "
|
||||
' Case "214" : Lieferant = r.Item("Anzahl") & "x PLOSE-RM "
|
||||
' Case "215" : Lieferant = r.Item("Anzahl") & "x PLOSE-IT "
|
||||
' Case "216" : Lieferant = r.Item("Anzahl") & "x PLOSE-CZ "
|
||||
' Case "217" : Lieferant = r.Item("Anzahl") & "x PLOSE-MP "
|
||||
' Case "218" : Lieferant = r.Item("Anzahl") & "x PLOSE-TM "
|
||||
|
||||
End Select
|
||||
' End Select
|
||||
|
||||
lblStat_SdlLeistungen_Maut.Text &= Lieferant
|
||||
Next
|
||||
lblStat_SdlLeistungen_Maut.Text &= ")"
|
||||
End If
|
||||
' lblStat_SdlLeistungen_Maut.Text &= Lieferant
|
||||
' Next
|
||||
' lblStat_SdlLeistungen_Maut.Text &= ")"
|
||||
'End If
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -738,7 +760,8 @@ Public Class frmKundenblatt
|
||||
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
|
||||
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
|
||||
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
|
||||
KUNDE_K = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(8, kdNr)
|
||||
KUNDE_K_RE = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(8, kdNr) 'Rechnungen an!
|
||||
KUNDE_K_GF = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(13, kdNr) 'Rechnungen an!
|
||||
'Me.dataAdapterFirma = Nothing
|
||||
' Me.dataFirma.Clear()
|
||||
'SDL!
|
||||
@@ -752,16 +775,16 @@ Public Class frmKundenblatt
|
||||
'Me.dataFirma.AcceptChanges()
|
||||
' Me.dataFirma.Locale = System.Globalization.CultureInfo.InvariantCulture
|
||||
|
||||
|
||||
lblKurzname.Text = checkNullStr(ADRESSE.Ordnungsbegriff)
|
||||
lblFirmenname1.Text = checkNullStr(ADRESSE.Name_1)
|
||||
lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2)
|
||||
|
||||
lblStrasse.Text = checkNullStr(ADRESSE.Straße)
|
||||
lblAdressenzusatz.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
|
||||
lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort)
|
||||
|
||||
lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach)
|
||||
txtAnsprechp.Text = ""
|
||||
txtAnsprechp.Text = IIf(checkNullStr(ADRESSE.Anrede) <> "", ADRESSE.Anrede & " ", "")
|
||||
txtAnsprechp.Text &= IIf(checkNullStr(ADRESSE.Ansprechpartner) <> "", ADRESSE.Ansprechpartner, "")
|
||||
|
||||
|
||||
lblTel.Text = checkNullStr(ADRESSE.Telefon)
|
||||
@@ -772,9 +795,21 @@ Public Class frmKundenblatt
|
||||
|
||||
txtEmailRE.Text = "-"
|
||||
txtEmailRE2.Text = ""
|
||||
If KUNDE_K.hasEntry Then 'Rechnung an
|
||||
txtEmailRE.Text = KUNDE_K.kkd_Email
|
||||
txtEmailRE2.Text &= KUNDE_K.kkd_EmailCC
|
||||
If KUNDE_K_RE.hasEntry Then 'Rechnung an
|
||||
txtEmailRE.Text = KUNDE_K_RE.kkd_Email
|
||||
txtEmailRE2.Text &= KUNDE_K_RE.kkd_EmailCC
|
||||
End If
|
||||
|
||||
|
||||
If KUNDE_K_GF.hasEntry Then
|
||||
If txtAnsprechp.Text <> "" Then txtAnsprechp.Text &= " "
|
||||
|
||||
txtAnsprechp.Text &= "(GF:"
|
||||
txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerAnrede) <> "", KUNDE_K_GF.kkd_AnsprechpartnerAnrede & " ", "")
|
||||
txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerVorname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerVorname & " ", "")
|
||||
txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerNachname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerNachname.ToString.ToUpper, "")
|
||||
txtAnsprechp.Text &= ")"
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -1062,7 +1097,7 @@ Public Class frmKundenblatt
|
||||
' .DataSource = SQL.loadDgvBySql("SELECT Speditionsdienstleistungen.SDLNr,Speditionsdienstleistungen.SDLBez,Sperrnummernverzeichnis.SperrNr,Sperrnummernverzeichnis.SperrBez,KundenSDL.Sperrdatum FROM Speditionsdienstleistungen,KundenSDL,Sperrnummernverzeichnis WHERE KundenSDL.KundenNr=" & kdNr & " AND Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr AND Sperrnummernverzeichnis.SperrNr=KundenSDL.Sperre /*AND KundenSDL.Sperrdatum IS NOT NULL*/ ORDER BY SperrNr")
|
||||
.DataSource = SQL.loadDgvBySql(" SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez,Sperrnummernverzeichnis.SperrNr,Sperrnummernverzeichnis.SperrBez, [Sperrdatum] " &
|
||||
" FROM KundenSDL INNER JOIN Speditionsdienstleistungen ON Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr INNER JOIN Sperrnummernverzeichnis ON Sperrnummernverzeichnis.SperrNr=KundenSDL.Sperre " &
|
||||
" WHERE KundenSDL.KundenNr='" & kdNr & "' /*AND [SDLTypNr] <=2 */ ORDER BY Sperre,Speditionsdienstleistungen.SDLBez")
|
||||
" WHERE KundenSDL.KundenNr='" & kdNr & "' AND KundenSDL.SDLNr in (select distinct(SDL.SDLNr) from SDL where SDL.SDLNr=KundenSDL.SDLNr AND SDL.KundenNr = KundenSDL.KundenNr) and SDLTypNr IN (1,2) ORDER BY Sperre,Speditionsdienstleistungen.SDLBez")
|
||||
.RowTemplate.Height = 20
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
@@ -1317,12 +1352,10 @@ Public Class frmKundenblatt
|
||||
If GroupBox5.Visible Then 'Stat angezeigt
|
||||
GroupBox5.Visible = False
|
||||
sender.text = "Statistik anzeigen"
|
||||
picLogo.Visible = True
|
||||
Else
|
||||
GroupBox5.Visible = True
|
||||
initStat()
|
||||
sender.text = "Statistik ausblenden"
|
||||
picLogo.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user