Feature: UsrCntl_Kundenvollmachten, Besuchsbereicht, FrmKundenvollmachten
This commit is contained in:
599
SDL/kunden/frmKundenZOLLVollmachten.vb
Normal file
599
SDL/kunden/frmKundenZOLLVollmachten.vb
Normal file
@@ -0,0 +1,599 @@
|
||||
Imports System.Web.UI.WebControls.Expressions
|
||||
Imports System.Windows
|
||||
Imports System.Windows.Interop
|
||||
Imports com.sun.org.apache.xpath.internal.functions
|
||||
Imports DAKOSY_Worker.TR100
|
||||
Imports DocumentFormat.OpenXml.Drawing
|
||||
Imports DocumentFormat.OpenXml.Drawing.Charts
|
||||
'Imports DocumentFormat.OpenXml.Wordprocessing
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports GrapeCity.ActiveReports.Design.DdrDesigner.Services
|
||||
Imports GrapeCity.ActiveReports.Design.QueryDesignerImpl.SqlParser.Irony.Parsing
|
||||
Imports javax.validation.constraints
|
||||
Imports sun.misc
|
||||
Imports TAlex.WPF.Helpers
|
||||
Imports SDL.EORI
|
||||
Imports System.Drawing
|
||||
Imports System.Runtime.DesignerServices
|
||||
|
||||
Public Class frmKundenZOLLVollmachten
|
||||
Public kdnr As Integer = -1
|
||||
Public filePath As String
|
||||
Public erhalten As Boolean = False
|
||||
Public archiviert As Boolean = False
|
||||
Public geloescht As Boolean = False
|
||||
Dim id As Integer = -1
|
||||
'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
|
||||
Dim ksql As New kundenSQL
|
||||
Dim vollmachtartId As Integer
|
||||
Dim emailId As Integer
|
||||
Dim vermerk As String = ""
|
||||
Dim vmId As Integer = -1
|
||||
Dim currentVM As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
|
||||
|
||||
Sub New(kdnr, vollmachtartId)
|
||||
Me.InitializeComponent()
|
||||
Me.kdnr = kdnr
|
||||
Me.vollmachtartId = vollmachtartId
|
||||
End Sub
|
||||
|
||||
Sub New(kdnr, vmaNr, filePath)
|
||||
Me.InitializeComponent()
|
||||
Me.erhalten = True
|
||||
Me.kdnr = kdnr
|
||||
Me.filePath = filePath
|
||||
Me.vollmachtartId = vollmachtartId
|
||||
'UI-Elements
|
||||
MyComboBox1.Visible = True
|
||||
Me.txtGueltigVon.Text = Now.ToShortDateString
|
||||
Me.txtGueltigBis.Text = Nothing
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmKundenZOLLVollmachten_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
MyComboBox1.fillWithSQL("SELECT [kdvma_Id],[kdvma_Bezeichnung] FROM [tblKundenVollmachtenArt]", False, "FMZOLL", False)
|
||||
Me.MyComboBox1._value = vollmachtartId
|
||||
initDGVVollmachtenEmbedded(False)
|
||||
|
||||
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
|
||||
FirmaTmp = "VERAGIMEX"
|
||||
End If
|
||||
|
||||
Select Case FirmaTmp
|
||||
Case "UNISPED", "IMEX", "VERAGIMEX", "FRONTOFFICE"
|
||||
Panel1.Visible = True
|
||||
Case Else
|
||||
Panel1.Visible = True
|
||||
'Me.Height = Me.Height - Panel1.Height
|
||||
End Select
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Sub saveVM(VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
|
||||
|
||||
lblWarning.Visible = False
|
||||
If MyComboBox1._value = "" Then Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
|
||||
VM.kdvm_vermerk = txtVermerk.Text
|
||||
VM.kdvm_kdvmaId = vollmachtartId
|
||||
VM.kdvm_KundenNr = kdnr
|
||||
VM.kdvm_archiviert = cbxArchiviert.Checked
|
||||
|
||||
If txtGueltigVon.Text = "" Or Not IsDate(txtGueltigVon.Text) Then
|
||||
txtGueltigVon.ForeColor = Color.Red
|
||||
lblWarning.Visible = True
|
||||
Me.DialogResult = Windows.Forms.DialogResult.None
|
||||
Exit Sub
|
||||
Else
|
||||
VM.kdvm_erhalten_Datum = txtGueltigVon.Text
|
||||
VM.kdvm_gueltig_ab = txtGueltigVon.Text
|
||||
VM.kdvm_erhalten = True
|
||||
End If
|
||||
|
||||
If txtGueltigBis.Text IsNot "" And Not IsDate(txtGueltigBis.Text) Then
|
||||
txtGueltigBis.ForeColor = Color.Red
|
||||
Me.DialogResult = Windows.Forms.DialogResult.None
|
||||
Exit Sub
|
||||
|
||||
ElseIf txtGueltigBis.Text = "" Then
|
||||
VM.kdvm_gueltig_bis = Nothing
|
||||
Else
|
||||
VM.kdvm_gueltig_bis = txtGueltigBis.Text
|
||||
End If
|
||||
|
||||
vollmachtenArchivieren()
|
||||
|
||||
If Not VM.SAVE() Then
|
||||
Me.DialogResult = Windows.Forms.DialogResult.None
|
||||
End If
|
||||
|
||||
If dgvVollmachtenEmbedded.Enabled = False Then
|
||||
dgvVollmachtenEmbedded.Enabled = True
|
||||
End If
|
||||
|
||||
|
||||
dgvVollmachtenEmbedded.GetOrder()
|
||||
initDGVVollmachtenEmbedded(True)
|
||||
dgvVollmachtenEmbedded.SetOrder()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub lblNoPDFavailable_Click(sender As Object, e As EventArgs) Handles lblPDFavailable.Click
|
||||
If currentVM.kdvm_datenarchivId > 0 Then
|
||||
' cDATENSERVER.openDataTMPByDatenarchivId(id)
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
|
||||
DS.OPEN_SINGLE()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.CheckedChanged
|
||||
' ' MyTextBox1.Enabled = sender.checked
|
||||
'End Sub
|
||||
'Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.Click
|
||||
' 'wird nicht mehr verwendet
|
||||
' If Not sender.checked Then
|
||||
' txtGueltigVon.Text = ""
|
||||
' Else
|
||||
' txtGueltigVon.Text = Now.ToShortDateString
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtGueltigVon.TextChanged
|
||||
txtGueltigVon.ForeColor = Color.Black
|
||||
cbxErhaltenAm.Checked = (txtGueltigVon.Text <> "")
|
||||
End Sub
|
||||
|
||||
Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles txtGueltigVon.KeyDown
|
||||
If e.KeyCode = Keys.Return Then
|
||||
btnOK.PerformClick()
|
||||
End If
|
||||
If e.KeyCode = Keys.Escape Then
|
||||
Button1.PerformClick()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
|
||||
lbl.Text = MyComboBox1.Text
|
||||
End Sub
|
||||
|
||||
Private Sub frmKundenZOLLVollmachten_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
txtGueltigVon.Focus()
|
||||
If txtGueltigVon.Text <> "" Then
|
||||
cbxErhaltenAm.Checked = True
|
||||
txtGueltigVon.SelectAll()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initDGVVollmachtenEmbedded(enalblePanel As Boolean)
|
||||
|
||||
Dim where = " And art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'"
|
||||
|
||||
If dgvVollmachtenEmbedded.Enabled = False Then
|
||||
dgvVollmachtenEmbedded.Enabled = True
|
||||
End If
|
||||
|
||||
pnlDetails.Enabled = enalblePanel
|
||||
|
||||
With dgvVollmachtenEmbedded
|
||||
.Columns.Clear()
|
||||
|
||||
|
||||
.DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
|
||||
" FROM [tblKundenVollmachtenArt] as art " &
|
||||
" INNER JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
|
||||
" WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
|
||||
" ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc ", "FMZOLL")
|
||||
|
||||
' .RowTemplate.Height = 30
|
||||
.Columns("kdvm_Id").Visible = False
|
||||
.Columns("kdvma_Id").Visible = False
|
||||
.Columns("kdvm_KundenNr").Visible = False
|
||||
.Columns("kdvm_datenarchivId").Visible = False
|
||||
.Columns("kdvma_Bezeichnung").Visible = False
|
||||
.Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
|
||||
.Columns("kdvm_erhalten").Width = 50
|
||||
.Columns("kdvm_erhalten").HeaderText = "Erhalten"
|
||||
.Columns("kdvm_erhalten").Visible = False
|
||||
.Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("kdvm_erhalten_Datum").Width = 100
|
||||
.Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
|
||||
.Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("kdvm_Info").Width = 200
|
||||
.Columns("kdvm_Info").HeaderText = "Info"
|
||||
.Columns("kdvm_Info").Visible = False
|
||||
.Columns("kdvm_gueltig_bis").Visible = True
|
||||
.Columns("kdvm_gueltig_bis").Width = 100
|
||||
.Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
|
||||
.Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("kdvm_archiviert").Visible = True
|
||||
.Columns("kdvm_archiviert").Width = 60
|
||||
.Columns("kdvm_archiviert").HeaderText = "Archiviert"
|
||||
.Columns("kdvm_archiviert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("kdvm_vermerk").MinimumWidth = 100
|
||||
.Columns("kdvm_vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("kdvm_vermerk").HeaderText = "Vermerk"
|
||||
.Columns("kdvm_vermerk").Visible = True
|
||||
.Columns("kdvm_geloescht").Visible = False
|
||||
|
||||
|
||||
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)
|
||||
End If
|
||||
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "UNISPED", "IMEX"
|
||||
'.Columns("clmnTherefore").Visible = False
|
||||
.Columns("clmnPDF").Visible = True
|
||||
Case "FRONTOFFICE"
|
||||
'.Columns("clmnTherefore").Visible = True
|
||||
.Columns("clmnPDF").Visible = True
|
||||
Case Else
|
||||
'.Columns("clmnTherefore").Visible = True
|
||||
.Columns("clmnPDF").Visible = True
|
||||
End Select
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then
|
||||
r.DefaultCellStyle.ForeColor = Color.Gray
|
||||
ElseIf CBool(r.Cells("kdvm_erhalten").Value) = False Then
|
||||
r.DefaultCellStyle.ForeColor = Color.Gray
|
||||
ElseIf IsDate(r.Cells("kdvm_erhalten_Datum").Value) AndAlso CDate(r.Cells("kdvm_erhalten_Datum").Value) < Now.AddYears(-2) Then
|
||||
r.DefaultCellStyle.ForeColor = Color.Red
|
||||
End If
|
||||
|
||||
If True Then
|
||||
If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
|
||||
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVMarchivieren.CheckedChanged
|
||||
|
||||
|
||||
'If vbYes = MsgBox("Sollen die bestehenden Vollmachten archiviert werden?", vbYesNoCancel) Then
|
||||
' Dim succeeded = ksql.setVollmachtarchivieren(kdnr, MyComboBox1._value)
|
||||
' If succeeded = True Then
|
||||
' MsgBox("Bestehende Vollmachten wurden archiviert.")
|
||||
' cbxVMarchivieren.Enabled = False
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvvollmachtenembedded_cellmouseclick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVollmachtenEmbedded.CellMouseClick
|
||||
'für die Ermittlung des Contextmenüs -> VM löschen
|
||||
If e.Button = Windows.Forms.MouseButtons.Right Then
|
||||
If dgvVollmachtenEmbedded.SelectedRows.Count > 0 Then
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
||||
'Contextmenü -> Datensatz ändern -> wird nicht verwendet
|
||||
If dgvVollmachtenEmbedded.SelectedRows.Count = 1 Then
|
||||
|
||||
Dim VM As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
|
||||
loadChangedVMToPanel(True, VM)
|
||||
setSaveButton()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub loadChangedVMToPanel(enablePanel As Boolean, VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
|
||||
pnlDetails.Enabled = enablePanel
|
||||
|
||||
cbxArchiviert.Checked = VM.kdvm_archiviert
|
||||
txtVermerk.Text = VM.kdvm_vermerk
|
||||
txtGueltigVon.Text = VM.kdvm_erhalten_Datum
|
||||
txtGueltigBis.Text = VM.kdvm_gueltig_bis
|
||||
|
||||
checkEmailIsPresent()
|
||||
checkPDFisPresent()
|
||||
setOKButton()
|
||||
|
||||
'Listener für Änderungen im Detail-Panel
|
||||
For Each c As Control In pnlDetails.Controls
|
||||
If TypeOf (c) Is CheckBox Then
|
||||
AddHandler CType(c, CheckBox).CheckedChanged, AddressOf SomethingChanged
|
||||
ElseIf TypeOf (c) Is TextBox Then
|
||||
AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub SomethingChanged(sender As Object, e As EventArgs)
|
||||
setSaveButton()
|
||||
End Sub
|
||||
|
||||
Sub checkPDFisPresent()
|
||||
|
||||
If currentVM.kdvm_datenarchivId > 0 Then
|
||||
picDeletePDF.Visible = True
|
||||
picPDF.Visible = True
|
||||
picPDF.Image = My.Resources.pdf
|
||||
picPDF.Cursor = Cursors.Default
|
||||
Else
|
||||
picDeletePDF.Visible = False
|
||||
picPDF.Visible = True
|
||||
picPDF.Image = My.Resources.pdf_gray
|
||||
picPDF.Cursor = Cursors.Hand
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub checkEmailIsPresent()
|
||||
If currentVM.kdvm_emailId > 0 Then
|
||||
picDeleteEmail.Visible = True
|
||||
picEmail.Visible = True
|
||||
picEmail.Image = My.Resources.email_big1
|
||||
picEmail.Cursor = Cursors.Default
|
||||
Else
|
||||
picDeleteEmail.Visible = False
|
||||
picEmail.Visible = True
|
||||
picEmail.Image = My.Resources.email_big_gray
|
||||
picEmail.Cursor = Cursors.Hand
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub dgvVollmachtenEmbedded_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachtenEmbedded.CellDoubleClick
|
||||
|
||||
If dgvVollmachtenEmbedded.Columns(e.ColumnIndex).Name = "clmnPDF" Then
|
||||
|
||||
If dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
|
||||
DS.OPEN_SINGLE(True)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
|
||||
'Contextmenü -> Löschen der VM
|
||||
If dgvVollmachtenEmbedded.SelectedRows.Count = 1 Then
|
||||
|
||||
If vbYes = MsgBox("Soll diese Vollmacht gelöscht werden?", vbYesNoCancel) Then
|
||||
Dim vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
|
||||
vollmacht.kdvm_geloescht = True
|
||||
|
||||
If vollmacht.SAVE = True Then
|
||||
MsgBox("Bestehende Vollmacht wurde gelöscht.")
|
||||
initDGVVollmachtenEmbedded(False)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
|
||||
'Neuanlage einer VM
|
||||
dgvVollmachtenEmbedded.ClearSelection()
|
||||
|
||||
If dgvVollmachtenEmbedded.Rows.Count > 0 Then
|
||||
cbxVMarchivieren.Visible = True
|
||||
cbxVMarchivieren.Checked = True
|
||||
End If
|
||||
|
||||
dgvVollmachtenEmbedded.Enabled = False
|
||||
|
||||
currentVM = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten With {
|
||||
.kdvm_KundenNr = kdnr,
|
||||
.kdvm_kdvmaId = vollmachtartId,
|
||||
.kdvm_Info = "",
|
||||
.kdvm_erhalten = False,
|
||||
.kdvm_archiviert = False,
|
||||
.kdvm_datenarchivId = -1,
|
||||
.kdvm_erhalten_Datum = Now.ToShortDateString,
|
||||
.kdvm_emailId = -1
|
||||
}
|
||||
|
||||
loadChangedVMToPanel(True, currentVM)
|
||||
hideAttachementControl()
|
||||
setSaveButton()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub vollmachtenArchivieren()
|
||||
|
||||
If cbxVMarchivieren.Checked = False Then Exit Sub
|
||||
Dim count As Integer = 0
|
||||
With dgvVollmachtenEmbedded
|
||||
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
Dim VMindex = r.Cells("kdvm_Id").Value
|
||||
If r.Cells("kdvm_archiviert").Value <> True Then
|
||||
count += 1
|
||||
Dim currentVollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(VMindex)
|
||||
currentVollmacht.kdvm_archiviert = True
|
||||
currentVollmacht.SAVE()
|
||||
End If
|
||||
Next
|
||||
|
||||
If count > 0 Then
|
||||
MsgBox("Bestehende Vollmachten wurden archiviert.")
|
||||
End If
|
||||
End With
|
||||
|
||||
cbxVMarchivieren.Visible = False
|
||||
cbxVMarchivieren.Checked = False
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub setSaveButton()
|
||||
|
||||
btnOK.Visible = False
|
||||
btnSave.Visible = True
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvVollmachtenEmbedded_SelectionChanged(sender As Object, e As EventArgs) Handles dgvVollmachtenEmbedded.SelectionChanged
|
||||
|
||||
|
||||
If dgvVollmachtenEmbedded.SelectedRows.Count > 0 Then
|
||||
Dim rowindex = dgvVollmachtenEmbedded.SelectedRows(0).Index
|
||||
currentVM = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value)
|
||||
|
||||
loadChangedVMToPanel(True, currentVM)
|
||||
|
||||
If dgvVollmachtenEmbedded.Enabled = False Then Exit Sub
|
||||
vmId = dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
||||
saveVM(currentVM)
|
||||
setOKButton()
|
||||
End Sub
|
||||
|
||||
Private Sub setOKButton()
|
||||
btnOK.Visible = True
|
||||
btnSave.Visible = False
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click
|
||||
|
||||
If Me.MyComboBox1._value < 0 Then Exit Sub
|
||||
|
||||
Dim DS As Object
|
||||
|
||||
If currentVM.kdvm_datenarchivId > 0 Then
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
|
||||
DS.OPEN_SINGLE()
|
||||
'MsgBox("Open PDF")
|
||||
Else
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text, kdnr)
|
||||
Dim path = DS.uploadDataToDATENSERVERFileDialog()
|
||||
|
||||
If path <> "" Then
|
||||
currentVM.kdvm_datenarchivId = DS.da_id
|
||||
End If
|
||||
|
||||
picDeletePDF.Visible = True = (currentVM.kdvm_datenarchivId > 0)
|
||||
saveVM(currentVM)
|
||||
End If
|
||||
|
||||
dgvVollmachtenEmbedded.GetOrder()
|
||||
initDGVVollmachtenEmbedded(True)
|
||||
dgvVollmachtenEmbedded.SetOrder()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click
|
||||
|
||||
lblPDFavailable.Cursor = Cursors.WaitCursor
|
||||
If (currentVM.kdvm_datenarchivId > 0) Then
|
||||
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
|
||||
DS.DELETE_COMPLETE()
|
||||
|
||||
currentVM.kdvm_datenarchivId = -1
|
||||
If currentVM.SAVE Then
|
||||
currentVM.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False
|
||||
picPDF.Image = My.Resources.pdf_gray
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
lblPDFavailable.Cursor = Cursors.Default
|
||||
|
||||
dgvVollmachtenEmbedded.GetOrder()
|
||||
initDGVVollmachtenEmbedded(True)
|
||||
dgvVollmachtenEmbedded.SetOrder()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub picEmail_Click(sender As Object, e As EventArgs) Handles picEmail.Click
|
||||
If Me.MyComboBox1._value < 0 Then Exit Sub
|
||||
|
||||
Dim DS As Object
|
||||
|
||||
If currentVM.kdvm_emailId > 0 Then
|
||||
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_emailId)
|
||||
DS.OPEN_SINGLE()
|
||||
'MsgBox("Open EMail")
|
||||
|
||||
Else
|
||||
|
||||
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "Email_" & MyComboBox1.Text, kdnr)
|
||||
Dim path = DS.uploadDataToDATENSERVERFileDialog()
|
||||
|
||||
If path <> "" Then
|
||||
currentVM.kdvm_emailId = DS.da_id
|
||||
End If
|
||||
|
||||
picDeleteEmail.Visible = True = (currentVM.kdvm_emailId > 0)
|
||||
|
||||
saveVM(currentVM)
|
||||
End If
|
||||
|
||||
dgvVollmachtenEmbedded.GetOrder()
|
||||
initDGVVollmachtenEmbedded(True)
|
||||
dgvVollmachtenEmbedded.SetOrder()
|
||||
End Sub
|
||||
|
||||
Private Sub picDeleteEmail_Click(sender As Object, e As EventArgs) Handles picDeleteEmail.Click
|
||||
|
||||
lblPDFavailable.Cursor = Cursors.WaitCursor
|
||||
If (currentVM.kdvm_emailId > 0) Then
|
||||
If vbYes = MsgBox("Möchten Sie die Email wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_emailId)
|
||||
DS.DELETE_COMPLETE()
|
||||
|
||||
currentVM.kdvm_emailId = -1
|
||||
If currentVM.SAVE Then
|
||||
currentVM.kdvm_emailId = -1 : picDeleteEmail.Visible = False
|
||||
|
||||
picEmail.Image = My.Resources.email_big_gray
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
lblPDFavailable.Cursor = Cursors.Default
|
||||
|
||||
dgvVollmachtenEmbedded.GetOrder()
|
||||
initDGVVollmachtenEmbedded(True)
|
||||
dgvVollmachtenEmbedded.SetOrder()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub hideAttachementControl()
|
||||
|
||||
picDeletePDF.Visible = False
|
||||
picPDF.Visible = False
|
||||
picDeleteEmail.Visible = False
|
||||
picEmail.Visible = False
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user