edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

AddIn

Browse Source
This commit is contained in:
d.breimaier
2023-04-12 16:58:16 +02:00
parent 2dab8149c3
commit 79c4e4e37c
6 changed files with 547 additions and 272 deletions
Download Patch File Download Diff File Expand all files Collapse all files

279
VERAGAddIn/frmAvisoFormularAnfügen.Designer.vb generated
View File

@@ -26,88 +26,77 @@ Partial Class frmAvisoFormularAnfuegen
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAvisoFormularAnfuegen)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAvisoFormularAnfuegen))
Me.lblVMId = New System.Windows.Forms.Label()
Me.cbVMTypen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.panelKunden = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.lblWarning = New System.Windows.Forms.Label()
Me.lblKunden = New System.Windows.Forms.Label()
Me.KdSearchBox = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.pnlDetails = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.pnlBottom = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.pbAnhaenge = New System.Windows.Forms.PictureBox()
Me.lblMultiAttachements = New System.Windows.Forms.Label() Me.lblMultiAttachements = New System.Windows.Forms.Label()
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.UsrCntlKundenZollVollmachten1 = New SDL.usrCntlKundenZollVollmachten()
Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.lblWarning = New System.Windows.Forms.Label()
Me.lblVMId = New System.Windows.Forms.Label()
Me.lblKunden = New System.Windows.Forms.Label()
Me.KdSearchBox = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.cbVMTypen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.pbAnhaenge = New System.Windows.Forms.PictureBox()
Me.btnOK = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button() Me.btnCancel = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label() Me.panelKunden.SuspendLayout()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlBottom.SuspendLayout()
Me.MyPanel2.SuspendLayout()
Me.MyPanel1.SuspendLayout()
CType(Me.pbAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pbAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'lblMultiAttachements 'lblVMId
' '
Me.lblMultiAttachements.AutoSize = True Me.lblVMId.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblMultiAttachements.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblVMId.AutoSize = True
Me.lblMultiAttachements.ForeColor = System.Drawing.Color.Red Me.lblVMId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMultiAttachements.Location = New System.Drawing.Point(9, 465) Me.lblVMId.Location = New System.Drawing.Point(12, 53)
Me.lblMultiAttachements.Name = "lblMultiAttachements" Me.lblVMId.Name = "lblVMId"
Me.lblMultiAttachements.Size = New System.Drawing.Size(342, 13) Me.lblVMId.Size = New System.Drawing.Size(69, 13)
Me.lblMultiAttachements.TabIndex = 38 Me.lblVMId.TabIndex = 36
Me.lblMultiAttachements.Text = "Anhang markieren, der explizit als PDF-Anhang gespeichert werden soll" Me.lblVMId.Text = "Vollmacht-Art"
' '
'dgvAnhaenge 'cbVMTypen
' '
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 Me.cbVMTypen._allowedValuesFreiText = Nothing
Me.dgvAnhaenge.AllowUserToAddRows = False Me.cbVMTypen._allowFreiText = False
Me.dgvAnhaenge.AllowUserToDeleteRows = False Me.cbVMTypen._value = ""
Me.dgvAnhaenge.AllowUserToResizeColumns = False Me.cbVMTypen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.dgvAnhaenge.AllowUserToResizeRows = False Me.cbVMTypen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvAnhaenge.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.cbVMTypen.FormattingEnabled = True
Or System.Windows.Forms.AnchorStyles.Left) _ Me.cbVMTypen.Location = New System.Drawing.Point(12, 73)
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cbVMTypen.Name = "cbVMTypen"
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White Me.cbVMTypen.Size = New System.Drawing.Size(492, 24)
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.cbVMTypen.TabIndex = 35
Me.dgvAnhaenge.ColumnHeadersVisible = False
Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
Me.dgvAnhaenge.Location = New System.Drawing.Point(0, 483)
Me.dgvAnhaenge.Name = "dgvAnhaenge"
Me.dgvAnhaenge.ReadOnly = True
Me.dgvAnhaenge.RowHeadersVisible = False
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhaenge.Size = New System.Drawing.Size(514, 36)
Me.dgvAnhaenge.TabIndex = 39
Me.dgvAnhaenge.Visible = False
' '
'columnName 'panelKunden
' '
Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill Me.panelKunden.Controls.Add(Me.lblVMId)
Me.columnName.HeaderText = "Name" Me.panelKunden.Controls.Add(Me.cbVMTypen)
Me.columnName.Name = "columnName" Me.panelKunden.Controls.Add(Me.Label1)
Me.columnName.ReadOnly = True Me.panelKunden.Controls.Add(Me.lblWarning)
Me.panelKunden.Controls.Add(Me.lblKunden)
Me.panelKunden.Controls.Add(Me.KdSearchBox)
Me.panelKunden.Dock = System.Windows.Forms.DockStyle.Top
Me.panelKunden.Location = New System.Drawing.Point(0, 0)
Me.panelKunden.Name = "panelKunden"
Me.panelKunden.Size = New System.Drawing.Size(519, 105)
Me.panelKunden.TabIndex = 37
' '
'UsrCntlKundenZollVollmachten1 'Label1
' '
Me.UsrCntlKundenZollVollmachten1.Location = New System.Drawing.Point(0, 120) Me.Label1.AutoSize = True
Me.UsrCntlKundenZollVollmachten1.Name = "UsrCntlKundenZollVollmachten1" Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.UsrCntlKundenZollVollmachten1.Size = New System.Drawing.Size(514, 342) Me.Label1.ForeColor = System.Drawing.Color.Red
Me.UsrCntlKundenZollVollmachten1.TabIndex = 38 Me.Label1.Location = New System.Drawing.Point(407, 4)
' Me.Label1.Name = "Label1"
'MyPanel2 Me.Label1.Size = New System.Drawing.Size(100, 20)
' Me.Label1.TabIndex = 38
Me.MyPanel2.Controls.Add(Me.Label1) Me.Label1.Text = "Testsystem"
Me.MyPanel2.Controls.Add(Me.lblWarning)
Me.MyPanel2.Controls.Add(Me.lblVMId)
Me.MyPanel2.Controls.Add(Me.lblKunden)
Me.MyPanel2.Controls.Add(Me.KdSearchBox)
Me.MyPanel2.Controls.Add(Me.cbVMTypen)
Me.MyPanel2.Dock = System.Windows.Forms.DockStyle.Top
Me.MyPanel2.Location = New System.Drawing.Point(0, 0)
Me.MyPanel2.Name = "MyPanel2"
Me.MyPanel2.Size = New System.Drawing.Size(521, 114)
Me.MyPanel2.TabIndex = 37
' '
'lblWarning 'lblWarning
' '
@@ -118,23 +107,12 @@ Partial Class frmAvisoFormularAnfuegen
Me.lblWarning.Size = New System.Drawing.Size(0, 13) Me.lblWarning.Size = New System.Drawing.Size(0, 13)
Me.lblWarning.TabIndex = 37 Me.lblWarning.TabIndex = 37
' '
'lblVMId
'
Me.lblVMId.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblVMId.AutoSize = True
Me.lblVMId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVMId.Location = New System.Drawing.Point(12, 61)
Me.lblVMId.Name = "lblVMId"
Me.lblVMId.Size = New System.Drawing.Size(69, 13)
Me.lblVMId.TabIndex = 36
Me.lblVMId.Text = "Vollmacht-Art"
'
'lblKunden 'lblKunden
' '
Me.lblKunden.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.lblKunden.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lblKunden.AutoSize = True Me.lblKunden.AutoSize = True
Me.lblKunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblKunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblKunden.Location = New System.Drawing.Point(12, 9) Me.lblKunden.Location = New System.Drawing.Point(12, 4)
Me.lblKunden.Name = "lblKunden" Me.lblKunden.Name = "lblKunden"
Me.lblKunden.Size = New System.Drawing.Size(44, 13) Me.lblKunden.Size = New System.Drawing.Size(44, 13)
Me.lblKunden.TabIndex = 2 Me.lblKunden.TabIndex = 2
@@ -162,7 +140,7 @@ Partial Class frmAvisoFormularAnfuegen
Me.KdSearchBox.KdNr = "-1" Me.KdSearchBox.KdNr = "-1"
Me.KdSearchBox.kdNrField = Nothing Me.KdSearchBox.kdNrField = Nothing
Me.KdSearchBox.KdNrNullInt = Nothing Me.KdSearchBox.KdNrNullInt = Nothing
Me.KdSearchBox.Location = New System.Drawing.Point(12, 32) Me.KdSearchBox.Location = New System.Drawing.Point(12, 27)
Me.KdSearchBox.Name = "KdSearchBox" Me.KdSearchBox.Name = "KdSearchBox"
Me.KdSearchBox.nurAktive = True Me.KdSearchBox.nurAktive = True
Me.KdSearchBox.searchActive = True Me.KdSearchBox.searchActive = True
@@ -171,46 +149,91 @@ Partial Class frmAvisoFormularAnfuegen
Me.KdSearchBox.TIMER_SEARCH = True Me.KdSearchBox.TIMER_SEARCH = True
Me.KdSearchBox.usrcntl = Nothing Me.KdSearchBox.usrcntl = Nothing
' '
'cbVMTypen 'pnlDetails
' '
Me.cbVMTypen._allowedValuesFreiText = Nothing Me.pnlDetails.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.cbVMTypen._allowFreiText = False Me.pnlDetails.Location = New System.Drawing.Point(0, 103)
Me.cbVMTypen._value = "" Me.pnlDetails.Name = "pnlDetails"
Me.cbVMTypen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.pnlDetails.Size = New System.Drawing.Size(518, 426)
Me.cbVMTypen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.pnlDetails.TabIndex = 38
Me.cbVMTypen.FormattingEnabled = True
Me.cbVMTypen.Location = New System.Drawing.Point(12, 81)
Me.cbVMTypen.Name = "cbVMTypen"
Me.cbVMTypen.Size = New System.Drawing.Size(492, 24)
Me.cbVMTypen.TabIndex = 35
' '
'MyPanel1 'pnlBottom
' '
Me.MyPanel1.Controls.Add(Me.pbAnhaenge) Me.pnlBottom.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.MyPanel1.Controls.Add(Me.btnOK) Me.pnlBottom.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.MyPanel1.Controls.Add(Me.btnCancel) Me.pnlBottom.Controls.Add(Me.pbAnhaenge)
Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom Me.pnlBottom.Controls.Add(Me.lblMultiAttachements)
Me.MyPanel1.Location = New System.Drawing.Point(0, 523) Me.pnlBottom.Controls.Add(Me.dgvAnhaenge)
Me.MyPanel1.Name = "MyPanel1" Me.pnlBottom.Location = New System.Drawing.Point(0, 530)
Me.MyPanel1.Size = New System.Drawing.Size(521, 108) Me.pnlBottom.Name = "pnlBottom"
Me.MyPanel1.TabIndex = 36 Me.pnlBottom.Size = New System.Drawing.Size(519, 158)
Me.pnlBottom.TabIndex = 39
' '
'pbAnhaenge 'pbAnhaenge
' '
Me.pbAnhaenge.Anchor = System.Windows.Forms.AnchorStyles.Bottom
Me.pbAnhaenge.Enabled = False Me.pbAnhaenge.Enabled = False
Me.pbAnhaenge.Image = Global.VERAGAddIn.My.Resources.Resources.pdf_gray Me.pbAnhaenge.Image = Global.VERAGAddIn.My.Resources.Resources.pdf_gray
Me.pbAnhaenge.Location = New System.Drawing.Point(15, 11) Me.pbAnhaenge.Location = New System.Drawing.Point(12, 106)
Me.pbAnhaenge.Name = "pbAnhaenge" Me.pbAnhaenge.Name = "pbAnhaenge"
Me.pbAnhaenge.Size = New System.Drawing.Size(65, 50) Me.pbAnhaenge.Size = New System.Drawing.Size(63, 52)
Me.pbAnhaenge.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.pbAnhaenge.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.pbAnhaenge.TabIndex = 32 Me.pbAnhaenge.TabIndex = 32
Me.pbAnhaenge.TabStop = False Me.pbAnhaenge.TabStop = False
' '
'lblMultiAttachements
'
Me.lblMultiAttachements.AutoSize = True
Me.lblMultiAttachements.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblMultiAttachements.ForeColor = System.Drawing.Color.Red
Me.lblMultiAttachements.Location = New System.Drawing.Point(15, 2)
Me.lblMultiAttachements.Name = "lblMultiAttachements"
Me.lblMultiAttachements.Size = New System.Drawing.Size(342, 13)
Me.lblMultiAttachements.TabIndex = 38
Me.lblMultiAttachements.Text = "Anhang markieren, der explizit als PDF-Anhang gespeichert werden soll"
'
'dgvAnhaenge
'
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAnhaenge.AllowUserToAddRows = False
Me.dgvAnhaenge.AllowUserToDeleteRows = False
Me.dgvAnhaenge.AllowUserToResizeColumns = False
Me.dgvAnhaenge.AllowUserToResizeRows = False
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAnhaenge.ColumnHeadersVisible = False
Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
Me.dgvAnhaenge.Location = New System.Drawing.Point(12, 19)
Me.dgvAnhaenge.Name = "dgvAnhaenge"
Me.dgvAnhaenge.ReadOnly = True
Me.dgvAnhaenge.RowHeadersVisible = False
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhaenge.Size = New System.Drawing.Size(492, 30)
Me.dgvAnhaenge.TabIndex = 39
Me.dgvAnhaenge.Visible = False
'
'columnName
'
Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.columnName.HeaderText = "Name"
Me.columnName.Name = "columnName"
Me.columnName.ReadOnly = True
'
'MyPanel1
'
Me.MyPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.MyPanel1.Controls.Add(Me.btnOK)
Me.MyPanel1.Controls.Add(Me.btnCancel)
Me.MyPanel1.Location = New System.Drawing.Point(0, 689)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(518, 50)
Me.MyPanel1.TabIndex = 40
'
'btnOK 'btnOK
' '
Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.Location = New System.Drawing.Point(409, 65) Me.btnOK.Location = New System.Drawing.Point(409, 7)
Me.btnOK.Name = "btnOK" Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(105, 40) Me.btnOK.Size = New System.Drawing.Size(105, 40)
Me.btnOK.TabIndex = 3 Me.btnOK.TabIndex = 3
@@ -221,61 +244,51 @@ Partial Class frmAvisoFormularAnfuegen
' '
Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Location = New System.Drawing.Point(3, 67) Me.btnCancel.Location = New System.Drawing.Point(3, 9)
Me.btnCancel.Name = "btnCancel" Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(116, 40) Me.btnCancel.Size = New System.Drawing.Size(116, 40)
Me.btnCancel.TabIndex = 31 Me.btnCancel.TabIndex = 31
Me.btnCancel.Text = "Abbrechen" Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.UseVisualStyleBackColor = True Me.btnCancel.UseVisualStyleBackColor = True
' '
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Red
Me.Label1.Location = New System.Drawing.Point(407, 4)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(100, 20)
Me.Label1.TabIndex = 38
Me.Label1.Text = "Testsystem"
'
'frmAvisoFormularAnfuegen 'frmAvisoFormularAnfuegen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(521, 631) Me.ClientSize = New System.Drawing.Size(519, 741)
Me.Controls.Add(Me.lblMultiAttachements)
Me.Controls.Add(Me.dgvAnhaenge)
Me.Controls.Add(Me.UsrCntlKundenZollVollmachten1)
Me.Controls.Add(Me.MyPanel2)
Me.Controls.Add(Me.MyPanel1) Me.Controls.Add(Me.MyPanel1)
Me.Controls.Add(Me.pnlBottom)
Me.Controls.Add(Me.pnlDetails)
Me.Controls.Add(Me.panelKunden)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAvisoFormularAnfuegen" Me.Name = "frmAvisoFormularAnfuegen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Vollmacht anfügen" Me.Text = "Vollmacht anfügen"
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() Me.panelKunden.ResumeLayout(False)
Me.MyPanel2.ResumeLayout(False) Me.panelKunden.PerformLayout()
Me.MyPanel2.PerformLayout() Me.pnlBottom.ResumeLayout(False)
Me.MyPanel1.ResumeLayout(False) Me.pnlBottom.PerformLayout()
CType(Me.pbAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pbAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout()
End Sub End Sub
Friend WithEvents lblKunden As Windows.Forms.Label Friend WithEvents lblKunden As Windows.Forms.Label
Friend WithEvents btnOK As Windows.Forms.Button
Friend WithEvents KdSearchBox As VERAG_PROG_ALLGEMEIN.KdSearchBox Friend WithEvents KdSearchBox As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents btnCancel As Windows.Forms.Button
Friend WithEvents cbVMTypen As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbVMTypen As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel Friend WithEvents panelKunden As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents pbAnhaenge As Windows.Forms.PictureBox
Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents lblVMId As Windows.Forms.Label Friend WithEvents lblVMId As Windows.Forms.Label
Friend WithEvents UsrCntlKundenZollVollmachten1 As SDL.usrCntlKundenZollVollmachten
Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents columnName As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents lblWarning As Windows.Forms.Label Friend WithEvents lblWarning As Windows.Forms.Label
Friend WithEvents lblMultiAttachements As Windows.Forms.Label
Friend WithEvents Label1 As Windows.Forms.Label Friend WithEvents Label1 As Windows.Forms.Label
Friend WithEvents pnlDetails As MyPanel
Friend WithEvents pnlBottom As MyPanel
Friend WithEvents pbAnhaenge As Windows.Forms.PictureBox
Friend WithEvents lblMultiAttachements As Windows.Forms.Label
Friend WithEvents dgvAnhaenge As MyDatagridview
Friend WithEvents columnName As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents MyPanel1 As MyPanel
Friend WithEvents btnOK As Windows.Forms.Button
Friend WithEvents btnCancel As Windows.Forms.Button
End Class End Class

291
VERAGAddIn/frmAvisoFormularAnfügen.vb
View File

@@ -1,8 +1,11 @@
Imports System.Collections Imports System.Collections
Imports System.Data Imports System.Data
Imports System.Diagnostics.Tracing
Imports System.Drawing Imports System.Drawing
Imports System.Net
Imports System.Windows.Forms Imports System.Windows.Forms
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button
Imports Microsoft.Office.Tools.Ribbon
Imports SDL Imports SDL
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -10,7 +13,7 @@ Imports VERAG_PROG_ALLGEMEIN
Public Class frmAvisoFormularAnfuegen Public Class frmAvisoFormularAnfuegen
Public KdNr As Integer = -1 Public KdNr As Integer = -1
Public vollmachtId As Integer = -1 Public AvisoId As Integer = -1
Dim vollmachtartId As Integer = -1 Dim vollmachtartId As Integer = -1
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public SendungsId = -1 Public SendungsId = -1
@@ -18,6 +21,13 @@ Public Class frmAvisoFormularAnfuegen
Public PDF_MAIL = "" Public PDF_MAIL = ""
Public ATT As List(Of String) Public ATT As List(Of String)
Public hasAnhaenge As Boolean = False Public hasAnhaenge As Boolean = False
Public button As RibbonButton
Dim UsrCntlKundenZollVollmachten1 As usrCntlKundenZollVollmachten
Dim UsrCntlVertraege1 As usrcntlVertraege
Dim UsrCntlGestellungsgarantien1 As usrcntlGestellungsgarantien
Dim frmDefaultSize As Size = New Size(535, 750)
Dim dgvAnhaengeSize As Size = New Size(495, 30)
Sub New() Sub New()
@@ -26,23 +36,62 @@ Public Class frmAvisoFormularAnfuegen
End Sub End Sub
Sub New(Bezeichnung) Sub New(Bezeichnung, sender)
InitializeComponent() InitializeComponent()
Me.Bezeichnung = Bezeichnung Me.Bezeichnung = Bezeichnung
button = sender
initForm()
End Sub
Sub initForm()
Me.pnlDetails.AutoSizeMode = AutoSizeMode.GrowAndShrink
Me.pnlDetails.AutoSize = True
Select Case button.Name
Case "btnVollmachten"
UsrCntlKundenZollVollmachten1 = New usrCntlKundenZollVollmachten()
UsrCntlKundenZollVollmachten1.AutoSize = False
Me.pnlDetails.Controls.Add(UsrCntlKundenZollVollmachten1)
Me.Text = "Vollmachten einfügen"
Case "btnVertraege"
UsrCntlVertraege1 = New usrcntlVertraege()
AddHandler UsrCntlVertraege1.clickOK, AddressOf btnOK_Click
Me.pnlDetails.Controls.Add(UsrCntlVertraege1)
Me.Text = "Verträge einfügen"
Case "btnGestellungsgarantien"
UsrCntlGestellungsgarantien1 = New usrcntlGestellungsgarantien()
AddHandler UsrCntlGestellungsgarantien1.clickOK, AddressOf btnOK_Click
Me.Text = "Gestellungsgarantien einfügen"
'UsrCntlGestellungsgarantien1.AutoSize = False
Me.pnlDetails.Controls.Add(UsrCntlGestellungsgarantien1)
Case Else
MsgBox("Funktion nicht unterstützt!")
Me.DialogResult = DialogResult.Cancel
Me.Close()
End Select
End Sub End Sub
Private Sub frmAvisoFormularAnfuegen_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmAvisoFormularAnfuegen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
KdSearchBox.initKdBox(Me)
initAttachment() initAttachment()
KdSearchBox.initKdBox(Me)
If hasAnhaenge Then pbAnhaenge.Image = My.Resources.pdf If hasAnhaenge Then pbAnhaenge.Image = My.Resources.pdf
End Sub End Sub
@@ -59,7 +108,22 @@ Public Class frmAvisoFormularAnfuegen
Sub init() Sub init()
If KdNr > 0 Then If KdNr > 0 Then
initVollmachtarten(KdNr) Select Case button.Name
Case "btnVollmachten"
initVollmachtarten(KdNr)
Case "btnVertraege"
UsrCntlVertraege1.initDGVVertraege(KdNr)
Case "btnGestellungsgarantien"
UsrCntlGestellungsgarantien1.initDGVGestGarantie(KdNr)
End Select
End If End If
End Sub End Sub
@@ -92,17 +156,15 @@ Public Class frmAvisoFormularAnfuegen
End If End If
End Sub End Sub
Dim test As usrcntlGestellungsgarantien.clickOKEventHandler()
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
If Not checkMandatoryFields() Then
DialogResult = DialogResult.None
Exit Sub
End If
If Not hasAnhaenge Then If Not hasAnhaenge Then
If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email denoch gespeichert werden?", vbYesNoCancel) Then If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email denoch als Anhang gespeichert werden?", vbYesNoCancel) Then
Close() Close()
DialogResult = DialogResult.None DialogResult = DialogResult.None
Exit Sub Exit Sub
@@ -110,22 +172,101 @@ Public Class frmAvisoFormularAnfuegen
End If End If
Dim i = dgvAnhaenge.SelectedCells.Item(0).RowIndex Dim i = 0
If dgvAnhaenge.SelectedCells.Count > 0 Then i = dgvAnhaenge.SelectedCells.Item(0).RowIndex
If i > 0 Then If i > 0 Then
AddAttachmentOnLastIndex(ATT, i) AddAttachmentOnLastIndex(ATT, i)
End If End If
If Not checkMandatoryFields() Then
DialogResult = DialogResult.None
Exit Sub
End If
UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e) Select Case button.Name
vollmachtId = UsrCntlKundenZollVollmachten1.vmId
Close() Case "btnVollmachten"
UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
AvisoId = UsrCntlKundenZollVollmachten1.vmId
Close()
Case "btnVertraege"
If sender.Text = "Hinzufügen" Then
setAvisoIdForVertrage()
Me.DialogResult = DialogResult.OK
ElseIf UsrCntlVertraege1.dgvVertraege.SelectedRows.Count = 1 Then
For Each row As DataGridViewRow In UsrCntlVertraege1.dgvVertraege.SelectedRows
If row.Cells("kv_datenarchivId").Value IsNot DBNull.Value Then
setAvisoIdForVertrage()
End If
Next
Me.DialogResult = DialogResult.OK
Close()
Else
Close()
End If
Close()
Case "btnGestellungsgarantien"
If sender.Text = "Hinzufügen" Then
setAvisoIdForGestellungen()
Me.DialogResult = DialogResult.OK
ElseIf UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows.Count = 1 Then
For Each row As DataGridViewRow In UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows
If row.Cells("gg_datenarchivId").Value Is DBNull.Value Then
'Or CInt(row.Cells("gg_datenarchivId").Value) < 0
setAvisoIdForGestellungen()
End If
Next
Me.DialogResult = DialogResult.OK
Close()
Else
Close()
End If
End Select
End Sub End Sub
Private Sub setAvisoIdForGestellungen()
If UsrCntlGestellungsgarantien1.Gid > 0 Then
AvisoId = UsrCntlGestellungsgarantien1.Gid
ElseIf UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows.Count = 1 Then
AvisoId = UsrCntlGestellungsgarantien1.dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value
End If
End Sub
Private Sub setAvisoIdForVertrage()
If UsrCntlVertraege1.Vid > 0 Then
AvisoId = UsrCntlVertraege1.Vid
ElseIf UsrCntlVertraege1.dgvVertraege.SelectedRows.Count = 1 Then
AvisoId = UsrCntlVertraege1.dgvVertraege.SelectedRows(0).Cells("kv_id").Value
End If
End Sub
Private Sub AddAttachmentOnLastIndex(ByRef a As List(Of String), tmpIndex As Integer) Private Sub AddAttachmentOnLastIndex(ByRef a As List(Of String), tmpIndex As Integer)
If (a IsNot Nothing) AndAlso (a.Count > 1) Then If (a IsNot Nothing) AndAlso (a.Count > 1) Then
Dim list As New List(Of String) Dim list As New List(Of String)
@@ -144,37 +285,85 @@ Public Class frmAvisoFormularAnfuegen
Sub initAttachment() Sub initAttachment()
dgvAnhaenge.Rows.Clear() dgvAnhaenge.Rows.Clear()
If ATT Is Nothing Then
Exit Sub
End If
If ATT.Count = 0 Then If ATT.Count = 0 Then
hasAnhaenge = False hasAnhaenge = False
PDF_MAIL = "ONLYMAIL_DATENSERVER" PDF_MAIL = "ONLYMAIL_DATENSERVER"
Else Else
hasAnhaenge = True hasAnhaenge = True
PDF_MAIL = "PDF_DATENSERVER" If button.Name = "btnVollmachten" Then
PDF_MAIL = "PDF_DATENSERVER"
Else
PDF_MAIL = "ONLYPDF_DATENSERVER"
End If
For Each a In ATT For Each a In ATT
Dim display = a Dim display = a
If a.Contains("\") Then If a.Contains("\") Then
Dim sp = a.Split("\") Dim sp = a.Split("\")
display = sp(sp.Count - 1) display = sp(sp.Count - 1)
End If End If
dgvAnhaenge.Rows.Add({display}) dgvAnhaenge.Rows.Add({display})
Next Next
End If End If
If dgvAnhaenge.Rows.Count >= 2 Then Dim addHeightfrm = 180
Dim addHeightdgv = 50
If dgvAnhaenge.Rows.Count > 1 Then
dgvAnhaenge.Visible = True dgvAnhaenge.Visible = True
lblMultiAttachements.Visible = True lblMultiAttachements.Visible = True
Me.Size = New Size(537, 720)
dgvAnhaenge.Size = New Size(514, 86)
Select Case button.Name
Case "btnVollmachten"
Me.Size = New Size(frmDefaultSize.Width, frmDefaultSize.Height + addHeightdgv)
pnlDetails.Size = New Size(pnlDetails.Width, pnlDetails.Height + addHeightdgv)
dgvAnhaenge.Size = New Size(dgvAnhaengeSize.Width, dgvAnhaengeSize.Height + addHeightdgv)
Case "btnVertraege"
Me.Size = New Size(frmDefaultSize.Width, frmDefaultSize.Height - addHeightfrm)
pnlDetails.Size = New Size(pnlDetails.Width, pnlDetails.Height - addHeightfrm)
dgvAnhaenge.Size = New Size(dgvAnhaengeSize.Width, dgvAnhaengeSize.Height + addHeightdgv)
Case "btnGestellungsgarantien"
Me.Size = New Size(frmDefaultSize.Width, frmDefaultSize.Height - addHeightfrm)
pnlDetails.Size = New Size(pnlDetails.Width, pnlDetails.Height - addHeightfrm)
dgvAnhaenge.Size = New Size(dgvAnhaengeSize.Width, dgvAnhaengeSize.Height + addHeightdgv)
End Select
Else Else
dgvAnhaenge.Visible = False dgvAnhaenge.Visible = False
lblMultiAttachements.Visible = False lblMultiAttachements.Visible = False
dgvAnhaenge.Size = New Size(514, 36) Select Case button.Name
Me.Size = New Size(537, 670)
Case "btnVollmachten"
Me.Size = frmDefaultSize
dgvAnhaenge.Size = dgvAnhaengeSize
Case "btnVertraege"
pnlDetails.Size = New Size(pnlDetails.Width, pnlDetails.Height - addHeightfrm - addHeightdgv)
Me.Size = New Size(frmDefaultSize.Width, frmDefaultSize.Height - addHeightfrm)
dgvAnhaenge.Size = dgvAnhaengeSize
Case "btnGestellungsgarantien"
pnlDetails.Size = New Size(pnlDetails.Width, pnlDetails.Height - addHeightfrm - addHeightdgv)
Me.Size = New Size(frmDefaultSize.Width, frmDefaultSize.Height - addHeightfrm)
dgvAnhaenge.Size = dgvAnhaengeSize
End Select
End If End If
dgvAnhaenge.ClearSelection() dgvAnhaenge.ClearSelection()
End Sub End Sub
Private Function checkMandatoryFields() As Boolean Private Function checkMandatoryFields() As Boolean
@@ -188,15 +377,24 @@ Public Class frmAvisoFormularAnfuegen
Return valid Return valid
End If End If
If cbVMTypen._value = "" Then
lblWarning.Text = "Vollmachttyp auswählen"
Return valid
End If
If UsrCntlKundenZollVollmachten1.txtGueltigVon.Text = "" Then Select Case button.Name
lblWarning.Text = "Gültig von-Datum hinterlegen!"
Return valid Case "btnVollmachten"
End If
If cbVMTypen._value = "" Then
lblWarning.Text = "Vollmachttyp auswählen"
Return valid
End If
If UsrCntlKundenZollVollmachten1.txtGueltigVon.Text = "" Then
lblWarning.Text = "Gültig von-Datum hinterlegen!"
Return valid
End If
Case Else
End Select
lblWarning.Text = "" lblWarning.Text = ""
@@ -208,5 +406,20 @@ Public Class frmAvisoFormularAnfuegen
Private Sub frmAvisoFormularAnfuegen_Shown(sender As Object, e As EventArgs) Handles Me.Shown Private Sub frmAvisoFormularAnfuegen_Shown(sender As Object, e As EventArgs) Handles Me.Shown
KdSearchBox.Focus() KdSearchBox.Focus()
Label1.Visible = cAllgemein.TESTSYSTEM Label1.Visible = cAllgemein.TESTSYSTEM
If button.Name = "btnVollmachten" Then
lblVMId.Visible = True
cbVMTypen.Visible = True
Else
lblVMId.Visible = False
cbVMTypen.Visible = False
End If
End Sub End Sub
Private Sub pnlDetails_ControlAdded(sender As Object, e As ControlEventArgs)
For Each control As Control In Controls
pnlDetails.Size = control.Size
Next
End Sub
End Class End Class

30
VERAGAddIn/rbnMailItem.Designer.vb generated
View File

@@ -44,11 +44,11 @@
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Me.Tab1 = Me.Factory.CreateRibbonTab Me.Tab1 = Me.Factory.CreateRibbonTab
Me.Group1 = Me.Factory.CreateRibbonGroup Me.Group1 = Me.Factory.CreateRibbonGroup
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.Button1 = Me.Factory.CreateRibbonButton Me.Button1 = Me.Factory.CreateRibbonButton
Me.Button2 = Me.Factory.CreateRibbonButton Me.btnAvisoMail2 = Me.Factory.CreateRibbonButton
Me.btnInfo = Me.Factory.CreateRibbonButton Me.btnInfo = Me.Factory.CreateRibbonButton
Me.btnUnsichtbar = Me.Factory.CreateRibbonButton Me.btnUnsichtbar = Me.Factory.CreateRibbonButton
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.Tab1.SuspendLayout() Me.Tab1.SuspendLayout()
Me.Group1.SuspendLayout() Me.Group1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
@@ -63,12 +63,17 @@
'Group1 'Group1
' '
Me.Group1.Items.Add(Me.Button1) Me.Group1.Items.Add(Me.Button1)
Me.Group1.Items.Add(Me.Button2) Me.Group1.Items.Add(Me.btnAvisoMail2)
Me.Group1.Items.Add(Me.btnInfo) Me.Group1.Items.Add(Me.btnInfo)
Me.Group1.Items.Add(Me.btnUnsichtbar) Me.Group1.Items.Add(Me.btnUnsichtbar)
Me.Group1.Label = "AVISO" Me.Group1.Label = "AVISO"
Me.Group1.Name = "Group1" Me.Group1.Name = "Group1"
' '
'NotifyIcon1
'
Me.NotifyIcon1.Text = "NotifyIcon1"
Me.NotifyIcon1.Visible = True
'
'Button1 'Button1
' '
Me.Button1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.Button1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
@@ -77,13 +82,13 @@
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.ShowImage = True Me.Button1.ShowImage = True
' '
'Button2 'btnAvisoMail2
' '
Me.Button2.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.btnAvisoMail2.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
Me.Button2.Image = Global.VERAGAddIn.My.Resources.Resources._665209_email_512x512 Me.btnAvisoMail2.Image = Global.VERAGAddIn.My.Resources.Resources._665209_email_512x512
Me.Button2.Label = "Mail an Aviso anfügen" Me.btnAvisoMail2.Label = "Mail an Aviso anfügen"
Me.Button2.Name = "Button2" Me.btnAvisoMail2.Name = "btnAvisoMail2"
Me.Button2.ShowImage = True Me.btnAvisoMail2.ShowImage = True
' '
'btnInfo 'btnInfo
' '
@@ -96,11 +101,6 @@
Me.btnUnsichtbar.Name = "btnUnsichtbar" Me.btnUnsichtbar.Name = "btnUnsichtbar"
Me.btnUnsichtbar.Visible = False Me.btnUnsichtbar.Visible = False
' '
'NotifyIcon1
'
Me.NotifyIcon1.Text = "NotifyIcon1"
Me.NotifyIcon1.Visible = True
'
'rbnMailItem 'rbnMailItem
' '
Me.Name = "rbnMailItem" Me.Name = "rbnMailItem"
@@ -119,7 +119,7 @@
Friend WithEvents Tab1 As Microsoft.Office.Tools.Ribbon.RibbonTab Friend WithEvents Tab1 As Microsoft.Office.Tools.Ribbon.RibbonTab
Friend WithEvents Group1 As Microsoft.Office.Tools.Ribbon.RibbonGroup Friend WithEvents Group1 As Microsoft.Office.Tools.Ribbon.RibbonGroup
Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton
Friend WithEvents Button2 As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnAvisoMail2 As Microsoft.Office.Tools.Ribbon.RibbonButton
Friend WithEvents btnInfo As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnInfo As Microsoft.Office.Tools.Ribbon.RibbonButton
Friend WithEvents NotifyIcon1 As Windows.Forms.NotifyIcon Friend WithEvents NotifyIcon1 As Windows.Forms.NotifyIcon
Friend WithEvents btnUnsichtbar As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnUnsichtbar As Microsoft.Office.Tools.Ribbon.RibbonButton

4
VERAGAddIn/rbnMailItem.vb
View File

@@ -41,11 +41,11 @@ Public Class rbnMailItem
End If End If
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As RibbonControlEventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As RibbonControlEventArgs) Handles btnAvisoMail2.Click
If LOGIN_OK Then If LOGIN_OK Then
Try Try
Dim INSPECTOR As Outlook.Inspector = e.Control.Context Dim INSPECTOR As Outlook.Inspector = e.Control.Context
AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem) AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem, sender)
'Me.Context 'Me.Context
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) MsgBox(ex.Message & ex.StackTrace)

50
VERAGAddIn/rbnVERAG.Designer.vb generated
View File

@@ -45,9 +45,11 @@
Me.VERAG = Me.Factory.CreateRibbonGroup Me.VERAG = Me.Factory.CreateRibbonGroup
Me.Button2 = Me.Factory.CreateRibbonButton Me.Button2 = Me.Factory.CreateRibbonButton
Me.btnPdfPrint = Me.Factory.CreateRibbonButton Me.btnPdfPrint = Me.Factory.CreateRibbonButton
Me.Button3 = Me.Factory.CreateRibbonButton Me.btnAvisoMail = Me.Factory.CreateRibbonButton
Me.btnAttachFormular = Me.Factory.CreateRibbonSplitButton Me.btnAttachFormular = Me.Factory.CreateRibbonSplitButton
Me.btnVM = Me.Factory.CreateRibbonButton Me.btnVollmachten = Me.Factory.CreateRibbonButton
Me.btnVertraege = Me.Factory.CreateRibbonButton
Me.btnGestellungsgarantien = Me.Factory.CreateRibbonButton
Me.SplitButton1 = Me.Factory.CreateRibbonSplitButton Me.SplitButton1 = Me.Factory.CreateRibbonSplitButton
Me.Button1 = Me.Factory.CreateRibbonButton Me.Button1 = Me.Factory.CreateRibbonButton
Me.Button4 = Me.Factory.CreateRibbonButton Me.Button4 = Me.Factory.CreateRibbonButton
@@ -66,7 +68,7 @@
' '
Me.VERAG.Items.Add(Me.Button2) Me.VERAG.Items.Add(Me.Button2)
Me.VERAG.Items.Add(Me.btnPdfPrint) Me.VERAG.Items.Add(Me.btnPdfPrint)
Me.VERAG.Items.Add(Me.Button3) Me.VERAG.Items.Add(Me.btnAvisoMail)
Me.VERAG.Items.Add(Me.btnAttachFormular) Me.VERAG.Items.Add(Me.btnAttachFormular)
Me.VERAG.Items.Add(Me.SplitButton1) Me.VERAG.Items.Add(Me.SplitButton1)
Me.VERAG.Label = "AVISO" Me.VERAG.Label = "AVISO"
@@ -88,27 +90,41 @@
Me.btnPdfPrint.Name = "btnPdfPrint" Me.btnPdfPrint.Name = "btnPdfPrint"
Me.btnPdfPrint.ShowImage = True Me.btnPdfPrint.ShowImage = True
' '
'Button3 'btnAvisoMail
' '
Me.Button3.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.btnAvisoMail.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
Me.Button3.Image = Global.VERAGAddIn.My.Resources.Resources._665209_email_512x512 Me.btnAvisoMail.Image = Global.VERAGAddIn.My.Resources.Resources._665209_email_512x512
Me.Button3.Label = "Mail an Aviso anfügen" Me.btnAvisoMail.Label = "Mail an Aviso anfügen"
Me.Button3.Name = "Button3" Me.btnAvisoMail.Name = "btnAvisoMail"
Me.Button3.ShowImage = True Me.btnAvisoMail.ShowImage = True
' '
'btnAttachFormular 'btnAttachFormular
' '
Me.btnAttachFormular.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.btnAttachFormular.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
Me.btnAttachFormular.Image = Global.VERAGAddIn.My.Resources.Resources.pdf Me.btnAttachFormular.Image = Global.VERAGAddIn.My.Resources.Resources.pdf
Me.btnAttachFormular.Items.Add(Me.btnVM) Me.btnAttachFormular.Items.Add(Me.btnVollmachten)
Me.btnAttachFormular.Items.Add(Me.btnVertraege)
Me.btnAttachFormular.Items.Add(Me.btnGestellungsgarantien)
Me.btnAttachFormular.Label = "Formulare anhängen" Me.btnAttachFormular.Label = "Formulare anhängen"
Me.btnAttachFormular.Name = "btnAttachFormular" Me.btnAttachFormular.Name = "btnAttachFormular"
' '
'btnVM 'btnVollmachten
' '
Me.btnVM.Label = "Vollmacht anhängen" Me.btnVollmachten.Label = "Vollmachten"
Me.btnVM.Name = "btnVM" Me.btnVollmachten.Name = "btnVollmachten"
Me.btnVM.ShowImage = True Me.btnVollmachten.ShowImage = True
'
'btnVertraege
'
Me.btnVertraege.Label = "Verträge/Unterlagen"
Me.btnVertraege.Name = "btnVertraege"
Me.btnVertraege.ShowImage = True
'
'btnGestellungsgarantien
'
Me.btnGestellungsgarantien.Label = "Gestellungsgarantien"
Me.btnGestellungsgarantien.Name = "btnGestellungsgarantien"
Me.btnGestellungsgarantien.ShowImage = True
' '
'SplitButton1 'SplitButton1
' '
@@ -151,10 +167,12 @@
Friend WithEvents btnPdfPrint As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnPdfPrint As Microsoft.Office.Tools.Ribbon.RibbonButton
Friend WithEvents SplitButton1 As Microsoft.Office.Tools.Ribbon.RibbonSplitButton Friend WithEvents SplitButton1 As Microsoft.Office.Tools.Ribbon.RibbonSplitButton
Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton
Friend WithEvents Button3 As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnAvisoMail As Microsoft.Office.Tools.Ribbon.RibbonButton
Friend WithEvents Button4 As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents Button4 As Microsoft.Office.Tools.Ribbon.RibbonButton
Friend WithEvents btnAttachFormular As Microsoft.Office.Tools.Ribbon.RibbonSplitButton Friend WithEvents btnAttachFormular As Microsoft.Office.Tools.Ribbon.RibbonSplitButton
Friend WithEvents btnVM As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnVollmachten As Microsoft.Office.Tools.Ribbon.RibbonButton
Friend WithEvents btnVertraege As Microsoft.Office.Tools.Ribbon.RibbonButton
Friend WithEvents btnGestellungsgarantien As Microsoft.Office.Tools.Ribbon.RibbonButton
End Class End Class
Partial Class ThisRibbonCollection Partial Class ThisRibbonCollection

165
VERAGAddIn/rbnVERAG.vb
View File

@@ -35,7 +35,7 @@ Public Class VERAGRibbon
Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
cAllgemein.TESTSYSTEM = False cAllgemein.TESTSYSTEM = True
LOGIN_OK = AVISO_Mail_Functions.initFirmaUser() LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
End Sub End Sub
@@ -74,14 +74,8 @@ Public Class VERAGRibbon
End Sub End Sub
Sub Button3_Click(sender As Object, e As RibbonControlEventArgs) Handles Button3.Click Sub Button3_Click(sender As Object, e As RibbonControlEventArgs) Handles btnAvisoMail.Click, btnVollmachten.Click, btnGestellungsgarantien.Click, btnVertraege.Click
If LOGIN_OK Then AVISO_Mail_Functions.addMailToAviso_Hauptfenster() If LOGIN_OK Then AVISO_Mail_Functions.addMailToAviso_Hauptfenster(sender)
End Sub
Private Sub btnVM_Click(sender As Object, e As RibbonControlEventArgs) Handles btnVM.Click
If LOGIN_OK Then AVISO_Mail_Functions.addMailToAviso_Hauptfenster(True)
End Sub End Sub
Public Function testConnection() As Boolean Public Function testConnection() As Boolean
@@ -101,7 +95,7 @@ End Class
Public Class AVISO_Mail_Functions Public Class AVISO_Mail_Functions
Shared Sub addMailToAviso_Hauptfenster(Optional isFormular As Boolean = False) Shared Sub addMailToAviso_Hauptfenster(sender As Object)
Try Try
Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer
Dim selection As Outlook.Selection = explorer.Selection Dim selection As Outlook.Selection = explorer.Selection
@@ -115,9 +109,9 @@ Public Class AVISO_Mail_Functions
Dim mailItem As Outlook.MailItem = selectedItem Dim mailItem As Outlook.MailItem = selectedItem
mailItem = DirectCast(mailItem, Outlook.MailItem) mailItem = DirectCast(mailItem, Outlook.MailItem)
addMailToAviso(mailItem, isFormular) addMailToAviso(mailItem, sender)
Else Else
MsgBox("Die markierte Email kann nicht verarbeitet werden!" & vbNewLine & "Bitte andere Mail verwenden.") MsgBox("Die markierte Email kann nicht verarbeitet werden!" & vbNewLine & "Bitte andere Email verwenden.")
End If End If
End If End If
@@ -136,7 +130,7 @@ Public Class AVISO_Mail_Functions
Return att Return att
End Function End Function
Shared Sub addMailToAviso(mailItem As Outlook.MailItem, Optional isFormular As Boolean = False) Shared Sub addMailToAviso(mailItem As Outlook.MailItem, sender As Object)
Try Try
If mailItem IsNot Nothing Then If mailItem IsNot Nothing Then
' Remove special characters from the file name and make sure it is not longer than 100 characters ' Remove special characters from the file name and make sure it is not longer than 100 characters
@@ -160,11 +154,8 @@ Public Class AVISO_Mail_Functions
End If End If
Dim Bezeichnung = strFileName Dim Bezeichnung = strFileName
Dim AvisoId = Nothing Dim AvisoId = Nothing
If isFormular Then
AvisoId = getAvisoFormularId(Bezeichnung, pdf_mail, Art, ATTACHMENTS_LIST, kdNr) ')getAttachmentStringList(mailItem)) AvisoId = getAvisoId(Bezeichnung, pdf_mail, SendungsId, Art, ATTACHMENTS_LIST, kdNr, sender) '
Else
AvisoId = getAvisoId(Bezeichnung, pdf_mail, SendungsId, Art, ATTACHMENTS_LIST) ')getAttachmentStringList(mailItem))
End If
If AvisoId < 0 Then Exit Sub If AvisoId < 0 Then Exit Sub
@@ -176,10 +167,12 @@ Public Class AVISO_Mail_Functions
saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art) saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang) saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
ElseIf pdf_mail = "PDF_DATENSERVER" Then ElseIf pdf_mail = "PDF_DATENSERVER" Then
saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung,, kdNr) saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender,, kdNr)
saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, kdNr) saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr)
ElseIf pdf_mail = "ONLYPDF_DATENSERVER" Then
saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr)
ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then
saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung,, kdNr) saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr)
Else 'ONLYMAIL Else 'ONLYMAIL
saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art) saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
End If End If
@@ -425,7 +418,7 @@ Public Class AVISO_Mail_Functions
End Try End Try
End Sub End Sub
Shared Sub saveAttachmentOnDatenserver(ByRef ATTACHMENTS_LIST As List(Of String), AvisoId As Integer, BezeichnungAnh As String, Optional kdNr As Integer = -1) Shared Sub saveAttachmentOnDatenserver(ByRef ATTACHMENTS_LIST As List(Of String), AvisoId As Integer, BezeichnungAnh As String, Optional sender As Object = Nothing, Optional kdNr As Integer = -1)
Try Try
If AvisoId > 0 Then If AvisoId > 0 Then
If ATTACHMENTS_LIST.Count > 1 Then BezeichnungAnh = "" ' nur wenn 1 Anhang wird die Bezeichnung übernommen. If ATTACHMENTS_LIST.Count > 1 Then BezeichnungAnh = "" ' nur wenn 1 Anhang wird die Bezeichnung übernommen.
@@ -434,16 +427,7 @@ Public Class AVISO_Mail_Functions
Dim Bezeichnung = BezeichnungAnh Dim Bezeichnung = BezeichnungAnh
If Bezeichnung = "" Then Bezeichnung = fi.Name If Bezeichnung = "" Then Bezeichnung = fi.Name
uploadAttachments(sender, AvisoId, fi.FullName, Bezeichnung, kdNr)
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & AvisoId, "", "", Bezeichnung, kdNr)
Dim path = DS.uploadDataToDATENSERVER(fi.FullName)
If path Then
Dim c As New cKundenVollmachten(AvisoId)
c.kdvm_datenarchivId = DS.da_id
c.SAVE()
End If
Next Next
End If End If
@@ -647,7 +631,7 @@ Public Class AVISO_Mail_Functions
End Try End Try
End Sub End Sub
Shared Sub saveMailOnDatenserver(mailItem As Outlook.MailItem, AvisoId As Integer, Optional bezeichnung As String = "", Optional saveAttachments As Boolean = True, Optional kdNr As Integer = -1) Shared Sub saveMailOnDatenserver(mailItem As Outlook.MailItem, AvisoId As Integer, Optional bezeichnung As String = "", Optional sender As Object = Nothing, Optional saveAttachments As Boolean = True, Optional kdNr As Integer = -1)
Try Try
If AvisoId > 0 Then If AvisoId > 0 Then
@@ -657,14 +641,8 @@ Public Class AVISO_Mail_Functions
mailItem.SaveAs(strTmpPath, Outlook.OlSaveAsType.olMSG) mailItem.SaveAs(strTmpPath, Outlook.OlSaveAsType.olMSG)
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & AvisoId, "", "", bezeichnung, kdNr)
Dim path = DS.uploadDataToDATENSERVER(strTmpPath)
If path Then
Dim c As New cKundenVollmachten(AvisoId)
c.kdvm_emailId = DS.da_id
c.SAVE()
End If
uploadAttachments(sender, AvisoId, strTmpPath, bezeichnung, kdNr)
' Clean up the temporary .MSG file from the user's temporary folder ' Clean up the temporary .MSG file from the user's temporary folder
System.IO.File.Delete(strTmpPath) System.IO.File.Delete(strTmpPath)
@@ -679,45 +657,98 @@ Public Class AVISO_Mail_Functions
End Sub End Sub
Shared Function getAvisoId(ByRef Bezeichnung, ByRef pdf_mail, ByRef SendungsId, ByRef Art, ByRef Att) As Integer Shared Function getAvisoId(ByRef Bezeichnung, ByRef pdf_mail, ByRef SendungsId, ByRef Art, ByRef Att, ByRef kdNr, ByVal sender) As Integer
Dim frmAvisoAnfügen As New frmAvisoAnfuegen(Bezeichnung) Select Case sender.name
frmAvisoAnfügen.ATT = Att Case "btnAvisoMail", "btnAvisoMail2"
If frmAvisoAnfügen.ShowDialog = DialogResult.OK Then Dim frmAvisoAnfügen As New frmAvisoAnfuegen(Bezeichnung)
Dim AvisoId = frmAvisoAnfügen.AvisoId frmAvisoAnfügen.ATT = Att
SendungsId = frmAvisoAnfügen.SendungsId If frmAvisoAnfügen.ShowDialog = DialogResult.OK Then
Bezeichnung = frmAvisoAnfügen.Bezeichnung Dim AvisoId = frmAvisoAnfügen.AvisoId
pdf_mail = frmAvisoAnfügen.PDF_MAIL SendungsId = frmAvisoAnfügen.SendungsId
Art = frmAvisoAnfügen.cboArt._value Bezeichnung = frmAvisoAnfügen.Bezeichnung
Att = frmAvisoAnfügen.ATT pdf_mail = frmAvisoAnfügen.PDF_MAIL
Art = frmAvisoAnfügen.cboArt._value
Att = frmAvisoAnfügen.ATT
Return AvisoId
End If
Return -1
Case Else
Dim frmAvisoFormularAnfuegen As New frmAvisoFormularAnfuegen(Bezeichnung, sender)
frmAvisoFormularAnfuegen.ATT = Att
If frmAvisoFormularAnfuegen.ShowDialog = DialogResult.OK Then
Dim AvisoId = frmAvisoFormularAnfuegen.AvisoId
kdNr = frmAvisoFormularAnfuegen.KdNr
Bezeichnung = frmAvisoFormularAnfuegen.Bezeichnung
pdf_mail = frmAvisoFormularAnfuegen.PDF_MAIL
Att = frmAvisoFormularAnfuegen.ATT
Return AvisoId
End If
Return -1
End Select
Return AvisoId
End If
Return -1
End Function End Function
Shared Function getAvisoFormularId(ByRef Bezeichnung, ByRef pdf_mail, ByRef Art, ByRef Att, ByRef kdNr) As Integer Shared Sub uploadAttachments(sender As Object, AvisoId As Integer, strTmpPath As String, Optional bezeichnung As String = "", Optional kdNr As Integer = -1)
Dim frmAvisoFormularAnfuegen As New frmAvisoFormularAnfuegen(Bezeichnung)
frmAvisoFormularAnfuegen.ATT = Att
If frmAvisoFormularAnfuegen.ShowDialog = DialogResult.OK Then
Dim AvisoId = frmAvisoFormularAnfuegen.vollmachtId
kdNr = frmAvisoFormularAnfuegen.KdNr
Bezeichnung = frmAvisoFormularAnfuegen.Bezeichnung
pdf_mail = frmAvisoFormularAnfuegen.PDF_MAIL
Att = frmAvisoFormularAnfuegen.ATT
Return AvisoId
If sender Is Nothing Then
Exit Sub
End If End If
Return -1
End Function Dim button = sender
Select Case button.Name
Case "btnVollmachten"
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & AvisoId, "", "", bezeichnung, kdNr)
Dim path = DS.uploadDataToDATENSERVER(strTmpPath)
If path Then
Dim c As New cKundenVollmachten(AvisoId)
If bezeichnung.EndsWith(".pdf") Then
c.kdvm_datenarchivId = DS.da_id
Else
c.kdvm_emailId = DS.da_id
End If
c.SAVE()
End If
Case "btnVertraege"
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & AvisoId, kdNr)
Dim path = DS.uploadDataToDATENSERVER(strTmpPath)
If path Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(AvisoId)
KV.kv_datenarchivId = DS.da_id
KV.SAVE()
End If
Case "btnGestellungsgarantien"
Dim gg As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(AvisoId)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "GESTELLUNGS_GARANTIEN", "", "", "", "GG_" & gg.gg_Zollamt, kdNr)
Dim path = DS.uploadDataToDATENSERVER(strTmpPath)
If path Then
gg.gg_datenarchivId = DS.da_id
gg.SAVE()
End If
End Select
End Sub
End Class End Class