SDL Jetzt erst recht!
This commit is contained in:
234
SDL/kunden/usrCntlKundeDetails.vb
Normal file
234
SDL/kunden/usrCntlKundeDetails.vb
Normal file
@@ -0,0 +1,234 @@
|
||||
Public Class usrCntlKundeDetails
|
||||
Public kdNr As Integer = -1
|
||||
Dim KUNDE As New cKunden
|
||||
Dim kundenSQL As New kundenSQL
|
||||
Dim SQL As New SQL
|
||||
Dim PF As New cProgramFunctions
|
||||
Private Sub Details_Click(sender As Object, e As EventArgs) Handles Details.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub usrCntlKundeDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
init()
|
||||
End Sub
|
||||
Sub init()
|
||||
|
||||
If kdNr >= 0 Then
|
||||
initDgvOfferte()
|
||||
initDgvSperrliste()
|
||||
initDgvSDLLeistungen()
|
||||
initDgvLKWs()
|
||||
lblKdNr.Text = "KdNr: " & kdNr
|
||||
KUNDE = kundenSQL.getKundeByKdNr(kdNr)
|
||||
If Not KUNDE Is Nothing Then
|
||||
lblFirma.Text = KUNDE.Name1
|
||||
lblStrasse.Text = KUNDE.Strasse
|
||||
lblLandPlzOrt.Text = KUNDE.LandKz & " " & KUNDE.PlzOrt & " - " & KUNDE.Ort
|
||||
End If
|
||||
Else
|
||||
pnl.Visible = False
|
||||
End If
|
||||
|
||||
Try
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("GRAFIK", "FIRMENLOGOS", "", "", "", kdNr, kdNr)
|
||||
|
||||
'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
|
||||
Dim path = DS.GET_TOP1_PATH 'cDATENSERVER.getTOP1Path("GRAFIK", "FIRMENLOGOS", kdNr)
|
||||
If path <> "" Then
|
||||
pic.ImageLocation = path
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initDgvSDLLeistungen()
|
||||
Exit Sub
|
||||
With New DataGridView
|
||||
|
||||
.DataSource = SQL.loadDgvBySql("SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez FROM KundenSDL,Speditionsdienstleistungen WHERE KundenSDL.KundenNr=" & kdNr & " AND Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr ")
|
||||
|
||||
.RowTemplate.Height = 20
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
|
||||
.AllowUserToOrderColumns = True
|
||||
|
||||
.Columns(0).Width = 50
|
||||
.Columns(0).HeaderText = "Nr"
|
||||
.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
|
||||
.Columns(1).Width = 180
|
||||
.Columns(1).HeaderText = "Bezeichnung"
|
||||
.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub initDgvLKWs()
|
||||
With DataGridView1
|
||||
|
||||
.DataSource = SQL.loadDgvBySql("SELECT KfzKennzeichen, Nationalität, Abgemeldet, Verkauft FROM LKW WHERE KundenNr=" & kdNr & " ORDER BY KfzKennzeichen ")
|
||||
|
||||
.RowTemplate.Height = 20
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
|
||||
.AllowUserToOrderColumns = True
|
||||
|
||||
.Columns(0).MinimumWidth = 60
|
||||
.Columns(0).HeaderText = "KfzKennzeichen"
|
||||
.Columns(0).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns(1).Width = 30
|
||||
.Columns(1).HeaderText = "Nat."
|
||||
|
||||
.Columns(2).Width = 30
|
||||
.Columns(2).HeaderText = "Abg."
|
||||
|
||||
.Columns(3).Width = 30
|
||||
.Columns(3).HeaderText = "Verk."
|
||||
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initDgvOfferte()
|
||||
With dgvOfferte
|
||||
.DataSource = SQL.loadDgvBySql("SELECT Offertenstamm.OffertenNr, Offertenstamm.OffertenBez FROM Kunden,Offerten,Offertenstamm WHERE Offerten.KundenNr=" & kdNr & " AND Kunden.KundenNr=Offerten.KundenNr AND Offertenstamm.OffertenNr=Offerten.OffertenNr ")
|
||||
.RowTemplate.Height = 20
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
|
||||
.AllowUserToOrderColumns = True
|
||||
|
||||
.Columns(0).Width = 50
|
||||
.Columns(0).HeaderText = "Nr"
|
||||
.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
|
||||
.Columns(1).Width = 180
|
||||
.Columns(1).HeaderText = "Bezeichnung"
|
||||
.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initDgvSperrliste()
|
||||
With dgvSperrliste
|
||||
'.DefaultCellStyle.ForeColor = Color.Red
|
||||
.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")
|
||||
' .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")
|
||||
|
||||
.RowTemplate.Height = 20
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = False
|
||||
.AllowUserToResizeRows = False
|
||||
.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
|
||||
.AllowUserToOrderColumns = True
|
||||
|
||||
.Columns(0).Width = 50
|
||||
.Columns(0).HeaderText = "SDL-Nr"
|
||||
.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
|
||||
.Columns(1).Width = 150
|
||||
.Columns(1).HeaderText = "SDL-Bezeichnung"
|
||||
|
||||
.Columns(2).Width = 50
|
||||
.Columns(2).HeaderText = "Sperr-Nr"
|
||||
.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
|
||||
.Columns(3).Width = 150
|
||||
.Columns(3).HeaderText = "Sperr-Bezeichnung"
|
||||
.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns(4).Width = 80
|
||||
.Columns(4).HeaderText = "Sperrdatum"
|
||||
.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
initSDLListeRed
|
||||
End With
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub initSDLListeRed()
|
||||
For Each r As DataGridViewRow In dgvSperrliste.Rows
|
||||
If r.Cells("SperrNr").Value > 0 Then
|
||||
r.DefaultCellStyle.ForeColor = Color.Red
|
||||
Else
|
||||
r.Cells("SperrBez").Value = ""
|
||||
End If
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnShowKd.Click
|
||||
|
||||
If kdNr < 0 Then
|
||||
frmMain.setInfo("info", "Bitte wählen Sie einen Kunden aus der Liste.", 3)
|
||||
Else
|
||||
Dim pf As New cProgramFunctions
|
||||
cProgramFunctions.openKundenblatt(kdNr, Me.FindForm, True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub dgvOfferte_SelectionChanged(sender As Object, e As EventArgs) Handles dgvOfferte.SelectionChanged, dgvSperrliste.SelectionChanged
|
||||
DirectCast(sender, DataGridView).ClearSelection()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
If kdNr < 0 Then
|
||||
frmMain.setInfo("info", "Bitte wählen Sie einen Kunden aus der Liste.", 3)
|
||||
Else
|
||||
Dim frmkd As New frmKundenblatt
|
||||
|
||||
frmkd.kdNr = kdNr
|
||||
frmkd.Show()
|
||||
frmkd.BringToFront()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
cProgramFunctions.newFrmData(Me.FindForm, kdNr, New Integer = -1, New String(""), New Integer = -1, True)
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Dim frmGrayOut = cProgramFunctions.grayoutForm(Me)
|
||||
Dim l As New frmLKWDetails(kdNr, "", True)
|
||||
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
|
||||
init()
|
||||
End If
|
||||
frmGrayOut.Close()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user