Imports com.esendex.sdk.surveys.models Imports sun.swing Imports VERAG_PROG_ALLGEMEIN Public Class usrcntlVertraege Dim PDF_Attach_TMP = "" Dim kdnr Public Vid = -1 Public Shared Event clickOK(ByVal sender As System.Object, ByVal e As System.EventArgs) Private Sub dgvVertraege_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellContentDoubleClick If dgvVertraege.SelectedRows.Count = 1 Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value) DS.OPEN_SINGLE() End If End Sub Private Sub dgvVertraege_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVertraege.CellMouseClick If e.RowIndex < 0 Then Exit Sub DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True If e.Button = Windows.Forms.MouseButtons.Right Then If dgvVertraege.SelectedRows.Count > 0 Then 'ContextMenuStrip4.Show(Cursor.Position) End If End If End Sub Private Sub usrcntlVertraege_Load(sender As Object, e As EventArgs) Handles MyBase.Load cboVertrag.fillWithSQL("SELECT kva_id,kva_Bezeichnung FROM [tblKundenVertraegeArten] ORDER BY kva_Bezeichnung", False, "FMZOLL", True) initDGVVertraege(kdnr) End Sub Sub clearKV() cboVertrag.changeItem("") datVertrag.Text = "" txtVertragVermerk.Text = "" Button11.Text = "Hinzufügen" Button12.Visible = False If kdnr > 0 Then Button11.Enabled = True Else Button11.Enabled = False End If End Sub Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click Try If cboVertrag._value <> "" And datVertrag._value <> "" Then Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege If Button12.Visible Then If dgvVertraege.SelectedRows.Count = 1 Then KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value) Else Exit Sub End If End If KV.kv_KundenNr = kdnr KV.kv_erhalten_Datum = datVertrag._value KV.kv_vertragArtId = cboVertrag._value KV.kv_Info = txtVertragVermerk.Text If KV.SAVEOBJECT Then If PDF_Attach_TMP <> "" Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdnr) If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then KV.kv_datenarchivId = DS.da_id KV.SAVE() End If End If Vid = KV.kv_Id initDGVVertraege(KV.kv_KundenNr) markDGVVertraege(KV.kv_Id) initDGVVertraege(KV.kv_KundenNr) 'RaiseEvent clickOK(sender, e) 'setKD(kdNr) End If clearKV() End If clearKV() PDF_Attach_TMP = "" Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click If cboVertrag._value <> "" And datVertrag._value <> "" Then Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege If Button12.Visible Then If dgvVertraege.SelectedRows.Count = 1 Then KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value) Else Exit Sub End If End If KV.kv_KundenNr = kdnr KV.kv_erhalten_Datum = datVertrag._value KV.kv_vertragArtId = cboVertrag._value KV.kv_Info = txtVertragVermerk.Text If KV.SAVE Then Me.usrcntlVertraege_Load(sender, e) 'setKD(kdnr) End If clearKV() PDF_Attach_TMP = "" End If End Sub Sub initDGVVertraege(Optional _kdnr = -1) kdnr = _kdnr PictureBox1.Visible = PDF_Attach_TMP <> "" With dgvVertraege .Columns.Clear() If kdnr = -1 Or kdnr Is Nothing Then Exit Sub .DataSource = VERAG_PROG_ALLGEMEIN.cKundenVertraege.LOAD_LIST(kdnr) If .Columns.Count = 0 Then Exit Sub .Columns("kv_Id").Visible = False .Columns("kv_KundenNr").Visible = False .Columns("kv_vertragArtId").Visible = False .Columns("kv_datenarchivId").Visible = False .Columns("kv_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("kv_erhalten_Datum").Width = 70 .Columns("kv_erhalten_Datum").HeaderText = "Datum" .Columns("kva_Bezeichnung").Width = 120 .Columns("kva_Bezeichnung").HeaderText = "Art" .Columns("kv_Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("kv_Info").HeaderText = "Info" .Columns("kv_gueltig").Width = 35 .Columns("kv_gueltig").HeaderText = "gültig" If True Then Dim c As New DataGridViewImageColumn c.Name = "clmnPDF" : c.HeaderText = "PDF" c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White c.DefaultCellStyle.Tag = "PDF anzeigen" .Columns.Add(c) For Each r As DataGridViewRow In .Rows If r.Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId").Value) > 0 Then DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf End If Next End If End With clearKV() End Sub Private Sub insertAttachement(kv As cKundenVertraege) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & kv.kv_Id, kdnr) If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then kv.kv_datenarchivId = DS.da_id End If MsgBox("keine Berechtigung!") End If End Sub Private Sub markDGVVertraege(Optional vid As Integer = 0) dgvVertraege.ClearSelection() If vid > 0 Then For Each row As DataGridViewRow In dgvVertraege.Rows If row.Cells("kv_Id").Value = vid Then row.Selected = True End If Next End If End Sub Private Sub Panel1_DragDrop(sender As Object, e As DragEventArgs) Handles Panel1.DragDrop If e.Data.GetDataPresent(DataFormats.FileDrop) Then Dim files() As String = e.Data.GetData(DataFormats.FileDrop) For Each path In files ' addData_SendungAnhang(path) PDF_Attach_TMP = path Next ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e) If FilePath <> "" Then ' addData_SendungAnhang(FilePath) PDF_Attach_TMP = FilePath End If End If End Sub End Class