Outlook AddIn: Formulare einfügen für Vollmachten.
This commit is contained in:
175
VERAGAddIn/frmAvisoFormularAnfügen.vb
Normal file
175
VERAGAddIn/frmAvisoFormularAnfügen.vb
Normal file
@@ -0,0 +1,175 @@
|
||||
Imports System.Data
|
||||
Imports System.Drawing
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button
|
||||
Imports SDL
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
Public Class frmAvisoFormularAnfuegen
|
||||
|
||||
Public KdNr As Integer = -1
|
||||
Dim vollmachtartId As Integer = -1
|
||||
Dim vollmachtId As Integer = -1
|
||||
Dim SQL As New SQL
|
||||
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
|
||||
Public SendungsId = -1
|
||||
Public Bezeichnung = ""
|
||||
Public PDF_MAIL = ""
|
||||
|
||||
|
||||
Sub New(Bezeichnung)
|
||||
|
||||
InitializeComponent()
|
||||
Me.Bezeichnung = Bezeichnung
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub frmAvisoFormularAnfuegen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
KdSearchBox.initKdBox(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub KdSearchBox_TextChanged(sender As Object, e As EventArgs) Handles KdSearchBox.TextChanged
|
||||
|
||||
If KdSearchBox.KdNr_value > 0 AndAlso KdSearchBox.KdNr IsNot Nothing Then
|
||||
KdNr = KdSearchBox.KdNr_value
|
||||
Dim AD = KdSearchBox.KdData_ADRESSEN
|
||||
Dim KD = KdSearchBox.KdData_KUNDE
|
||||
|
||||
End If
|
||||
|
||||
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)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initDGVKundenvollmachten(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
|
||||
|
||||
Private Sub KdSearchBox_PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles KdSearchBox.PropertyChanged
|
||||
If KdSearchBox.KdNr_value > 0 AndAlso KdSearchBox.KdData_KUNDE IsNot Nothing AndAlso KdSearchBox.KdData_ADRESSEN IsNot Nothing Then
|
||||
KdNr = KdSearchBox.KdNr
|
||||
Dim AD = KdSearchBox.KdData_ADRESSEN
|
||||
Dim KD = KdSearchBox.KdData_KUNDE
|
||||
init()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cbVMTypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbVMTypen.SelectedIndexChanged
|
||||
|
||||
vollmachtartId = cbVMTypen._value
|
||||
|
||||
initDGVKundenvollmachten(vollmachtartId)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvKundenvollmachten_RowValidated(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenvollmachten.RowValidated
|
||||
|
||||
End Sub
|
||||
|
||||
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
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dgvKundenvollmachten_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenvollmachten.CellContentClick
|
||||
dgvKundenvollmachten_SelectionChanged(sender, e)
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user