62 lines
2.9 KiB
VB.net
62 lines
2.9 KiB
VB.net
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class cKundenSearchVertrag
|
|
|
|
|
|
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown, MyComboBox1.SelectedIndexChanged
|
|
If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Tab Then
|
|
initDGV()
|
|
End If
|
|
End Sub
|
|
Sub initDGV()
|
|
With MyDatagridview1
|
|
.Columns.Clear()
|
|
' .Rows.Clear()
|
|
Dim whereFirmen = ""
|
|
If MyComboBox1._value = 1 Then
|
|
whereFirmen = "" 'Bei NCTS-Vertrag dürfen alle alles sehen!
|
|
Else
|
|
whereFirmen = " and (Select Firma from Filialen where filialen.FilialenNr=Kunden.FilialenNr)='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
|
End If
|
|
|
|
.SET_SQL("SELECT TOP (1000) [kv_Id],[kv_KundenNr],Ordnungsbegriff,[kv_erhalten_Datum],[kv_Info],[kv_datenarchivId],[kv_gueltig]
|
|
FROM [tblKundenVertraege] inner join tblKundenVertraegeArten on kv_vertragArtId=kva_Id
|
|
inner join Adressen on AdressenNr=kv_KundenNr
|
|
inner join Kunden on KundenNr=kv_KundenNr
|
|
where [kva_Id]='" & MyComboBox1._value & "' and Ordnungsbegriff LIKE '" & TextBox1.Text & "%' " & whereFirmen, "FMZOLL")
|
|
.LOAD()
|
|
|
|
.Columns("kv_id").Visible = False
|
|
.Columns("kv_datenarchivId").Visible = False
|
|
.Columns("kv_KundenNr").HeaderText = "KundenNr"
|
|
.Columns("Ordnungsbegriff").HeaderText = "Kunde"
|
|
.Columns("Ordnungsbegriff").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("Ordnungsbegriff").MinimumWidth = 200
|
|
.Columns("kv_erhalten_Datum").HeaderText = "Erhalten Am"
|
|
.Columns("kv_Info").HeaderText = "Info"
|
|
.Columns("kv_gueltig").HeaderText = "gültig"
|
|
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
|
|
End With
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
initDGV()
|
|
End Sub
|
|
|
|
Private Sub MyDatagridview1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellDoubleClick
|
|
If e.RowIndex < 0 Then Exit Sub
|
|
Dim daId = MyDatagridview1.Rows(e.RowIndex).Cells("kv_datenarchivId").Value
|
|
Dim path = cDATENSERVER.GET_PDFPath_BY_DocID_onlyPATH(daId)
|
|
If path <> "" Then
|
|
If Not CBool(MyDatagridview1.Rows(e.RowIndex).Cells("kv_gueltig").Value) Then MsgBox("Achtung, Vertrag als 'nicht mehr gültig' eingetragen!")
|
|
Process.Start(path)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub cKundenSearchVertrag_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
MyComboBox1.Items.Clear()
|
|
MyComboBox1.fillWithSQL("SELECT kva_Id, kva_Bezeichnung FROM tblKundenVertraegeArten", False, "FMZOLL")
|
|
MyComboBox1.changeItem("1")
|
|
End Sub
|
|
End Class |