74 lines
2.6 KiB
VB.net
74 lines
2.6 KiB
VB.net
Imports System.Data.SqlClient
|
|
|
|
Public Class usrCntlBesuchsberichte
|
|
|
|
Public kdnr As Integer = -1
|
|
Dim SQL As New SQL
|
|
|
|
Private Sub usrCntlBesuchsberichte_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
initDGV()
|
|
End Sub
|
|
|
|
|
|
Sub initDGV()
|
|
|
|
With dgvBesuchsberichte
|
|
|
|
.SET_SQL("SELECT TOP (1000) [bb_Id],[bb_DatumBesuch],[bb_KundenNr],[bb_Kunde] ,[bb_Anpsprechpartner] ,[bb_Vermerk],[bb_Sachbearbeiter] FROM [VERAG].[dbo].[tblBesuchsberichte] WHERE bb_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " & If(kdnr > 0, " AND bb_KundenNr='" & kdnr & "'", ""), "FMZOLL")
|
|
|
|
.LOAD()
|
|
|
|
If .Columns.Count > 0 Then
|
|
.Columns("bb_DatumBesuch").Width = 150
|
|
.Columns("bb_DatumBesuch").HeaderText = "Datum"
|
|
|
|
.Columns("bb_Sachbearbeiter").Width = 150
|
|
.Columns("bb_Sachbearbeiter").HeaderText = "Sachbearbeiter"
|
|
|
|
.Columns("bb_Kunde").Width = 200
|
|
.Columns("bb_Kunde").HeaderText = "Firma"
|
|
|
|
.Columns("bb_KundenNr").Width = 50
|
|
.Columns("bb_KundenNr").HeaderText = "KdNr"
|
|
|
|
.Columns("bb_Anpsprechpartner").Width = 150
|
|
.Columns("bb_Anpsprechpartner").HeaderText = "Anpsprechpartner"
|
|
|
|
.Columns("bb_Vermerk").MinimumWidth = 150
|
|
.Columns("bb_Vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("bb_Vermerk").HeaderText = "Vermerk"
|
|
.Columns("bb_Id").Visible = False
|
|
|
|
End If
|
|
|
|
End With
|
|
End Sub
|
|
|
|
Private Sub dgvBesuchsberichteDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvBesuchsberichte.CellDoubleClick
|
|
Try
|
|
Dim f As New frmBesuchsberichte()
|
|
Dim bb_id = dgvBesuchsberichte.Rows(e.RowIndex).Cells("bb_id").Value
|
|
f.ShowDialog(Me)
|
|
initDGV()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
|
|
Dim f As New frmBesuchsberichte
|
|
f.ShowDialog(Me)
|
|
End Sub
|
|
|
|
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
|
|
If dgvBesuchsberichte.SelectedRows.Count > 0 Then
|
|
If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
|
|
If VERAG_PROG_ALLGEMEIN.cBesuchsbericht.DELETE(dgvBesuchsberichte.SelectedRows(0).Cells("bb_id").Value) Then
|
|
initDGV()
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
End Class
|