You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
230 lines
8.1 KiB
230 lines
8.1 KiB
Imports C1.Win.C1TrueDBGrid
|
|
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
''' <summary>
|
|
''' Vertragspartnersuche
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
|
|
Public Class frmVertragspartnerSuche
|
|
#Region "Deklarationen"
|
|
|
|
Dim d As New DataTable
|
|
Dim m_Vertragspartnernr As Integer
|
|
Property Vertragspartnernr() As Integer
|
|
Get
|
|
Return m_Vertragspartnernr
|
|
End Get
|
|
Set(ByVal value As Integer)
|
|
m_Vertragspartnernr = value
|
|
End Set
|
|
End Property
|
|
#End Region
|
|
|
|
#Region "Formular"
|
|
|
|
Private Sub frmVertragspartnerSuche_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
|
|
d.Dispose()
|
|
components.Dispose()
|
|
MyBase.Dispose()
|
|
End Sub
|
|
''' <summary>
|
|
''' Load des Dialogs
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub FrmVertragspartnerSuche_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.Vertragspartnernr = -1
|
|
Me.BtnSelect.Enabled = False
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
''' Suche ausführen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub BtnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSuche.Click
|
|
Me.Partner_Suchen()
|
|
If Me.C1Partnerliste.Splits(0).Rows.Count > 0 Then
|
|
Me.C1Partnerliste.Bookmark = 0
|
|
Me.BtnSelect.Enabled = True
|
|
Me.VertragspartnerMenuStrip.Enabled = True
|
|
Else
|
|
Me.BtnSelect.Enabled = False
|
|
Me.VertragspartnerMenuStrip.Enabled = False
|
|
End If
|
|
End Sub
|
|
''' <summary>
|
|
''' BtnSelect gewählt
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub BtnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSelect.Click
|
|
Me.Vertragspartnernr = Me.C1Partnerliste.Columns("Vertragspartnernr").Value
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
|
|
|
|
''' <summary>
|
|
''' txtName_FirmaZ1 KeyDown
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub txtName_Firma1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtName_Firma1.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
Me.BtnSuche_Click(sender, e)
|
|
End If
|
|
End Sub
|
|
''' <summary>
|
|
''' txtOrt Keydown
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub txtOrt_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtOrt.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
Me.BtnSuche_Click(sender, e)
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Suchfunktion"
|
|
''' <summary>
|
|
''' Vertragspartner suchen
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Private Function Partner_Suchen()
|
|
If Me.txtName_Firma1.Text <> "" Then
|
|
d = Serach_data(Me.txtName_Firma1.Text, 0)
|
|
Else
|
|
If Me.txtOrt.Text <> "" Then
|
|
d = Serach_data(Me.txtOrt.Text, 1)
|
|
Else
|
|
d = Serach_data("", 2)
|
|
End If
|
|
End If
|
|
Me.C1Partnerliste.DataSource = d
|
|
Me.C1Partnerliste.DataMember = d.TableName
|
|
|
|
Dim SpaltenTitel As New TKB.VV.Utils.Tabellenspalte
|
|
SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Partnerliste, "Vertragspartner", d)
|
|
SpaltenTitel = Nothing
|
|
End Function
|
|
''' <summary>
|
|
''' Vertragspartner aus DB auslesen
|
|
''' </summary>
|
|
''' <param name="query"></param>
|
|
''' <param name="fnkt"></param>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Private Function Serach_data(ByVal query As String, ByVal fnkt As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_vertragspartner_search"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 1000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dttoreturn
|
|
Catch ex As Exception
|
|
Throw New Exception("clsVertragspartner::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
|
|
#Region "MenuStrip"
|
|
''' <summary>
|
|
''' Schliessen des Fensters
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
''' <summary>
|
|
''' Menu Beenden
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
TSBtnQuit_Click(sender, e)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Schliessen des Fensters
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub BtnSchliessen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSchliessen.Click
|
|
Me.TSBtnQuit_Click(sender, e)
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Partnerliste"
|
|
|
|
''' <summary>
|
|
''' Mousedown-Ereignis handeln, damit auch bei rechter Maustaste der Fokus auf den richtigen Datensatz gesetzt wird
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Partnerliste_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Partnerliste.MouseDown
|
|
Me.C1Partnerliste.Bookmark = Me.C1Partnerliste.RowContaining(e.Y)
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
''' Kontextmenu Übernehmen gewählt
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub ÜberrnehmenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜberrnehmenToolStripMenuItem.Click
|
|
Me.BtnSelect_Click(sender, e)
|
|
End Sub
|
|
''' <summary>
|
|
''' Kontextmenu Details anzeigen gewählt
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub DetailsAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DetailsAnzeigenToolStripMenuItem.Click
|
|
Dim f As New frmVertragspartner(Me.C1Partnerliste.Columns("Vertragspartnernr").Value, True)
|
|
f.ShowDialog()
|
|
End Sub
|
|
''' <summary>
|
|
''' Doubleklick in C1Partnerliste
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Partnerliste_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Partnerliste.DoubleClick
|
|
If Me.C1Partnerliste.Splits(0).Rows.Count > 0 Then
|
|
Me.BtnSelect_Click(sender, e)
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
End Class |