Erstellung UserCntrl KundenVollmachten, Implementierung des Ribbon Addin für Formularanhänge (Vollmachten).
This commit is contained in:
@@ -11,13 +11,20 @@ Public Class frmAvisoFormularAnfuegen
|
||||
Public KdNr As Integer = -1
|
||||
Dim vollmachtartId As Integer = -1
|
||||
Dim vollmachtId As Integer = -1
|
||||
Dim SQL As New SQL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
|
||||
Public SendungsId = -1
|
||||
Public Bezeichnung = ""
|
||||
Public PDF_MAIL = ""
|
||||
Public PDF_MAIL As Boolean = False
|
||||
Public ATT As List(Of String)
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
InitializeComponent()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(Bezeichnung)
|
||||
|
||||
InitializeComponent()
|
||||
@@ -30,6 +37,14 @@ Public Class frmAvisoFormularAnfuegen
|
||||
|
||||
KdSearchBox.initKdBox(Me)
|
||||
|
||||
If PDF_MAIL Then
|
||||
pbAnhaenge.Visible = True
|
||||
Else
|
||||
pbAnhaenge.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -44,98 +59,21 @@ Public Class frmAvisoFormularAnfuegen
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnSaveAttachments_Click(sender As Object, e As EventArgs) Handles btnSaveAttachments.Click
|
||||
MsgBox("Save Attachement " & KdNr)
|
||||
|
||||
|
||||
If dgvKundenvollmachten.SelectedRows.Count <> 1 Then Exit Sub
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vollmachtartId, "", "", Bezeichnung, KdNr)
|
||||
|
||||
'Dim path = DS.uploadDataToDATENSERVERFileDialog() 'Überarbeitung, damit das ausgewählte EMail angefügt wird.
|
||||
'Dim path = DS.uploadDataToDATENSERVER("")
|
||||
If txtBezeichnung.Text.Trim = "" Then
|
||||
Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
|
||||
End If
|
||||
|
||||
If sender Is btnSaveAttachments Then PDF_MAIL = "PDF"
|
||||
If sender Is btnSaveMail Then PDF_MAIL = "PDFMAIL"
|
||||
Bezeichnung = txtBezeichnung.Text
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnSaveMail_Click(sender As Object, e As EventArgs) Handles btnSaveMail.Click
|
||||
MsgBox("Save EMail " & KdNr)
|
||||
End Sub
|
||||
|
||||
Sub init()
|
||||
If KdNr > 0 Then
|
||||
|
||||
initVollmachtarten(KdNr)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub initVollmachtarten(kdNr As Integer)
|
||||
|
||||
cbVMTypen.fillWithSQL("SELECT DISTINCT(art.kdvma_Id), art.kdvma_Bezeichnung FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) 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 art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "FMZOLL", False)
|
||||
|
||||
cbVMTypen.fillWithSQL("SELECT DISTINCT(art.kdvma_Id), art.kdvma_Bezeichnung FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "FMZOLL", False)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initDGVKundenvollmachten(vollmachtartId)
|
||||
Sub initUsrCntrlKundenvollmachten(vollmachtartId)
|
||||
|
||||
UsrCntlKundenZollVollmachten1.init(KdNr, vollmachtartId)
|
||||
|
||||
With dgvKundenvollmachten
|
||||
.Columns.Clear()
|
||||
Dim where = " And art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
|
||||
where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) & "' "
|
||||
End If
|
||||
|
||||
.DataSource = SQL.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
|
||||
|
||||
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -152,24 +90,27 @@ Public Class frmAvisoFormularAnfuegen
|
||||
Private Sub cbVMTypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbVMTypen.SelectedIndexChanged
|
||||
|
||||
vollmachtartId = cbVMTypen._value
|
||||
|
||||
initDGVKundenvollmachten(vollmachtartId)
|
||||
initUsrCntrlKundenvollmachten(vollmachtartId)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvKundenvollmachten_RowValidated(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenvollmachten.RowValidated
|
||||
|
||||
End Sub
|
||||
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||
|
||||
Private Sub dgvKundenvollmachten_SelectionChanged(sender As Object, e As EventArgs) Handles dgvKundenvollmachten.SelectionChanged
|
||||
If KdNr > 0 And vollmachtartId > 0 AndAlso dgvKundenvollmachten.SelectedRows.Count > 0 Then
|
||||
btnSaveAttachments.Enabled = True
|
||||
btnSaveMail.Enabled = True
|
||||
btnOK.Enabled = True
|
||||
If Not PDF_MAIL Then
|
||||
'Sicherheitsabfrage: Mail besitzt keinen Anhang, soll VM gespeichert werden?
|
||||
End If
|
||||
|
||||
|
||||
UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & UsrCntlKundenZollVollmachten1.vollmachtartId, "", "", Bezeichnung, KdNr)
|
||||
Dim path = DS.uploadDataToDATENSERVER("")
|
||||
|
||||
Close()
|
||||
End Sub
|
||||
|
||||
Private Sub dgvKundenvollmachten_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenvollmachten.CellContentClick
|
||||
dgvKundenvollmachten_SelectionChanged(sender, e)
|
||||
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
|
||||
Close()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user