EDOKA_Client/EDOKA/EDEX/Dokumentpakete/frmBPPerson.vb

Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class frmBPPerson

    Dim m_nrpar00 As Integer
    Property nrpar00 As Integer
        Get
            Return m_nrpar00
        End Get
        Set(value As Integer)
            m_nrpar00 = value
        End Set
    End Property

    Dim m_partnernext As String
    Property Partnertext As String
        Get
            Return m_partnernext
        End Get
        Set(value As String)
            m_partnernext = value
        End Set
    End Property

    Dim data As New DataTable
    Dim PartnerDoktyp As Integer

    Private Sub frmBPPerson_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        data = Get_Data(Me.nrpar00, PartnerDoktyp)
        Me.PartnerList.DataSource = data
        Me.PartnerList.DataMember = data.TableName
        SpaltenTitel_Aktualisieren()
        Me.lblaktuell.Text = Me.nrpar00.ToString + " - " + Me.Partnertext

        Dim bmp0 As New Bitmap(Me.ImageList1.Images(0))
        Dim bmp1 As New Bitmap(Me.ImageList1.Images(1))

        Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
        Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()

        v0.DisplayValue = bmp0
        v0.Value = 0

        v1.DisplayValue = bmp1
        v1.Value = 1

        Me.PartnerList.Columns("Typ").ValueItems.Values.Add(v0)
        Me.PartnerList.Columns("Typ").ValueItems.Values.Add(v1)
        Me.PartnerList.Columns("Typ").ValueItems.Translate = True
    End Sub

    Public Function Check_Partner_Doktyp(ByVal Partnernr As Integer, Doktyp As Integer) As Integer

        PartnerDoktyp = DivFnkt.Check_Dokumentpaket_Erstellung(Partnernr, Doktyp)
        Select Case PartnerDoktyp
            Case 0 'Normale Weiterbearbeitung
            Case 1 'BP gewählt, Dokument für BP und Person
                Me.txtMeldung.Text = MyMsg.Get_Meldungstext(91002)
                Return 1
            Case 2 'Person gewählt, Dokument für BP und Persion
                Me.txtMeldung.Text = MyMsg.Get_Meldungstext(91003)
                Return 2
            Case 3 'BP gewählt, Dokument nur für Person
                Me.txtMeldung.Text = MyMsg.Get_Meldungstext(91000)
                Return 3
            Case 4 'Person gewählt, Dokument nur für BP
                Me.txtMeldung.Text = MyMsg.Get_Meldungstext(91001)
                Return 4
        End Select

    End Function


    Private Sub BUtton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUtton3.Click
        Me.DialogResult = DialogResult.Cancel
        Me.Close()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Me.nrpar00 = PartnerList.Columns("nrpar00").Value
            Me.Partnertext = PartnerList.Columns("bkpar00").Value
            Me.DialogResult = DialogResult.OK
            Me.Close()
        Catch
        End Try

    End Sub

    Private Sub PartnerList_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs)
        If Microsoft.VisualBasic.Left(Me.PartnerList.Columns(0).CellValue(e.Row), 1) = "9" Then
            e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
        End If
    End Sub

    Private Sub PartnerList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter Then
            If Me.PartnerList.Splits(0).Rows.Count > 0 Then
                Try
                    Button2_Click(sender, e)
                Catch
                End Try
            End If
        End If
    End Sub


    Public Function Get_Data(ByVal nr As Integer, Partnerdoktyp As Integer)
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "sp_partner_search_dp"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Parameters.Add(New SqlParameter("@nr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nr))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@PartnerDokTyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Partnerdoktyp))

        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            Throw New Exception("BPPerson::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

    Public Sub SpaltenTitel_Aktualisieren()
        'Spaltentitel setzen
        Dim titel As New EDOKA.MySpaltenTitel()
        Dim ts As New EDOKA.Tabellenspalte()
        Dim i As Integer
        Dim t As New DataTable()
        Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
        Dim s As String

        t = data
        ts.Tabelle = "Partner"
        For i = 0 To Me.PartnerList.Columns.Count - 1
            s = Me.PartnerList.Columns(i).DataField
            ts.Feld = s
            ts.getspalte()
            Me.PartnerList.Columns(i).Caption = ts.spaltenname
            If Me.PartnerList.Columns(i).Caption = "" Then
                Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
            Else
                Me.PartnerList.Splits(0).DisplayColumns(i).Width = ts.ColWith
            End If
            '            If Me.PartnerList.Columns(i).Caption = "" Then Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
            If ts.locked Then
                Me.PartnerList.Splits(0).DisplayColumns(i).Locked = True
            End If

            If ts.AlsHacken Then
                Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            End If

            'Präsentation von aktiv
            If Me.PartnerList.Columns(i).DataField = "aktiv" Then
                Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                Me.PartnerList.Columns(i).ValueItems.DefaultItem = True
                Me.PartnerList.Columns(i).DefaultValue = True
                Me.PartnerList.Columns(i).FilterText = True
            End If
            If Me.PartnerList.Columns(i).DataField = "erstellt_am" Then
                Me.PartnerList.Columns(i).DefaultValue = Now
            End If
        Next
    End Sub

    Private Sub MenuItem1_Click(sender As Object, e As EventArgs) Handles MenuItem1.Click
        Button2_Click(sender, e)
    End Sub

    Private Sub MenuItem2_Click(sender As Object, e As EventArgs) Handles MenuItem2.Click
        Try
            'Objperson
            If DivFnkt.PartnerTyp(Me.PartnerList.Columns(0).Value) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
                'If Me.PartnerList.Columns(0).Value > 91000000 Then
                Dim f As New frmInteressent()
                f.Partnernr = Me.PartnerList.Columns(0).Value
                f.Display = True
                f.ShowDialog()
                f.Dispose()
            Else
                Dim f As New frmPartnerDetails()
                f.Partnernr = Me.PartnerList.Columns(0).Value
                f.ShowDialog()
                f.Dispose()
            End If
        Catch
        Finally
        End Try

    End Sub

    Private Sub PartnerList_MouseDown(sender As Object, e As MouseEventArgs) Handles PartnerList.MouseDown
        Me.PartnerList.Bookmark = Me.PartnerList.RowContaining(e.Y)
    End Sub

    Private Sub PartnerList_DoubleClick(sender As Object, e As EventArgs) Handles PartnerList.DoubleClick
        Button2_Click(sender, e)
    End Sub
End Class