Initial commit
This commit is contained in:
205
EDOKA/EDEX/Dokumentpakete/frmBPPerson.vb
Normal file
205
EDOKA/EDEX/Dokumentpakete/frmBPPerson.vb
Normal file
@@ -0,0 +1,205 @@
|
||||
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
|
||||
Reference in New Issue
Block a user