104 lines
3.7 KiB
VB.net
104 lines
3.7 KiB
VB.net
|
|
Imports DocumentFormat.OpenXml.Spreadsheet
|
|
|
|
Public Class usrCntlKundenKontakte
|
|
|
|
'Dim KD_KONTAKT As VERAG_PROG_ALLGEMEIN.cKundenKontakt = Nothing
|
|
Public kdNr As Integer
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
|
|
Sub New()
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
End Sub
|
|
|
|
Sub New(kdNr)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
Me.kdNr = kdNr
|
|
End Sub
|
|
|
|
|
|
Sub init(kdNr)
|
|
dgvAufschub.Rows.Clear()
|
|
Me.kdNr = kdNr
|
|
initDGV()
|
|
End Sub
|
|
|
|
Private Sub usrCntlKundenKontakte_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
init(kdNr)
|
|
End Sub
|
|
|
|
Sub initDGV()
|
|
dgvAufschub.Rows.Clear()
|
|
If dgvAufschub.Columns.Count >= 5 Then
|
|
If kdNr > 0 Then
|
|
Dim dt = SQL.loadDgvBySql("SELECT * FROM [tblKundenKontakt] where [kkd_KundenNr]=" & kdNr, "FMZOLL")
|
|
If dt IsNot Nothing Then
|
|
For Each r In dt.Rows
|
|
Dim anspr = (If(r("kkd_AnsprechpartnerAnrede"), "") & " " & If(r("kkd_AnsprechpartnerVorname"), "") & " " & If(r("kkd_AnsprechpartnerNachname"), "")).trim
|
|
dgvAufschub.Rows.Add(r("kkd_id"), r("kkd_kkaBez"), r("kkd_Tel"), r("kkd_Email"), anspr, r("kkd_Fax"))
|
|
Next
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub dgvAufschub_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAufschub.CellDoubleClick, dgvAufschub.CellContentDoubleClick
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
|
|
|
|
If dgvAufschub.SelectedRows.Count > 0 Then
|
|
Dim f As New frmKundenKontakteDetails(kdNr, dgvAufschub.SelectedRows(0).Cells("KdKontaktId").Value)
|
|
f.ShowDialog(Me)
|
|
initDGV()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
Dim f As New frmKundenKontakteDetails(kdNr)
|
|
f.ShowDialog(Me)
|
|
initDGV()
|
|
End Sub
|
|
|
|
|
|
Private Sub dgvAufschub_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAufschub.KeyDown
|
|
If e.KeyCode = Keys.Delete Then
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then
|
|
If dgvAufschub.SelectedRows.Count > 0 Then
|
|
If vbYes = MsgBox("Möchten Sie den Kontakt wirklich löschen?", vbYesNoCancel) Then
|
|
Dim kd_k As New VERAG_PROG_ALLGEMEIN.cKundenKontakte(dgvAufschub.SelectedRows(0).Cells("KdKontaktId").Value)
|
|
kd_k.DELETE()
|
|
initDGV()
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub dgvAufschub_CellClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvAufschub.CellMouseClick
|
|
If e.RowIndex < 0 Then Exit Sub
|
|
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
|
If e.Button = Windows.Forms.MouseButtons.Right Then
|
|
If dgvAufschub.SelectedRows.Count > 0 Then
|
|
ContextMenuStrip1.Show(Cursor.Position)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
|
|
|
|
Dim delKey As New KeyEventArgs(Keys.Delete)
|
|
dgvAufschub_KeyDown(sender, delKey)
|
|
End Sub
|
|
End Class
|