Revert "commit"
This commit is contained in:
217
SDL/kunden/usrcntlVertraege.vb
Normal file
217
SDL/kunden/usrcntlVertraege.vb
Normal file
@@ -0,0 +1,217 @@
|
||||
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
|
||||
Reference in New Issue
Block a user