This commit is contained in:
2023-04-12 16:58:16 +02:00
parent 2dab8149c3
commit 79c4e4e37c
6 changed files with 547 additions and 272 deletions

View File

@@ -26,88 +26,77 @@ Partial Class frmAvisoFormularAnfuegen
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
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.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
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.pbAnhaenge = New System.Windows.Forms.PictureBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel2.SuspendLayout()
Me.MyPanel1.SuspendLayout()
Me.panelKunden.SuspendLayout()
Me.pnlBottom.SuspendLayout()
CType(Me.pbAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MyPanel1.SuspendLayout()
Me.SuspendLayout()
'
'lblMultiAttachements
'lblVMId
'
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(9, 465)
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"
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, 53)
Me.lblVMId.Name = "lblVMId"
Me.lblVMId.Size = New System.Drawing.Size(69, 13)
Me.lblVMId.TabIndex = 36
Me.lblVMId.Text = "Vollmacht-Art"
'
'dgvAnhaenge
'cbVMTypen
'
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAnhaenge.AllowUserToAddRows = False
Me.dgvAnhaenge.AllowUserToDeleteRows = False
Me.dgvAnhaenge.AllowUserToResizeColumns = False
Me.dgvAnhaenge.AllowUserToResizeRows = False
Me.dgvAnhaenge.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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(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
Me.cbVMTypen._allowedValuesFreiText = Nothing
Me.cbVMTypen._allowFreiText = False
Me.cbVMTypen._value = ""
Me.cbVMTypen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbVMTypen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbVMTypen.FormattingEnabled = True
Me.cbVMTypen.Location = New System.Drawing.Point(12, 73)
Me.cbVMTypen.Name = "cbVMTypen"
Me.cbVMTypen.Size = New System.Drawing.Size(492, 24)
Me.cbVMTypen.TabIndex = 35
'
'columnName
'panelKunden
'
Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.columnName.HeaderText = "Name"
Me.columnName.Name = "columnName"
Me.columnName.ReadOnly = True
Me.panelKunden.Controls.Add(Me.lblVMId)
Me.panelKunden.Controls.Add(Me.cbVMTypen)
Me.panelKunden.Controls.Add(Me.Label1)
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.UsrCntlKundenZollVollmachten1.Name = "UsrCntlKundenZollVollmachten1"
Me.UsrCntlKundenZollVollmachten1.Size = New System.Drawing.Size(514, 342)
Me.UsrCntlKundenZollVollmachten1.TabIndex = 38
'
'MyPanel2
'
Me.MyPanel2.Controls.Add(Me.Label1)
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
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"
'
'lblWarning
'
@@ -118,23 +107,12 @@ Partial Class frmAvisoFormularAnfuegen
Me.lblWarning.Size = New System.Drawing.Size(0, 13)
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
'
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.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.Size = New System.Drawing.Size(44, 13)
Me.lblKunden.TabIndex = 2
@@ -162,7 +140,7 @@ Partial Class frmAvisoFormularAnfuegen
Me.KdSearchBox.KdNr = "-1"
Me.KdSearchBox.kdNrField = 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.nurAktive = True
Me.KdSearchBox.searchActive = True
@@ -171,46 +149,91 @@ Partial Class frmAvisoFormularAnfuegen
Me.KdSearchBox.TIMER_SEARCH = True
Me.KdSearchBox.usrcntl = Nothing
'
'cbVMTypen
'pnlDetails
'
Me.cbVMTypen._allowedValuesFreiText = Nothing
Me.cbVMTypen._allowFreiText = False
Me.cbVMTypen._value = ""
Me.cbVMTypen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbVMTypen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
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
Me.pnlDetails.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pnlDetails.Location = New System.Drawing.Point(0, 103)
Me.pnlDetails.Name = "pnlDetails"
Me.pnlDetails.Size = New System.Drawing.Size(518, 426)
Me.pnlDetails.TabIndex = 38
'
'MyPanel1
'pnlBottom
'
Me.MyPanel1.Controls.Add(Me.pbAnhaenge)
Me.MyPanel1.Controls.Add(Me.btnOK)
Me.MyPanel1.Controls.Add(Me.btnCancel)
Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.MyPanel1.Location = New System.Drawing.Point(0, 523)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(521, 108)
Me.MyPanel1.TabIndex = 36
Me.pnlBottom.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.pnlBottom.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pnlBottom.Controls.Add(Me.pbAnhaenge)
Me.pnlBottom.Controls.Add(Me.lblMultiAttachements)
Me.pnlBottom.Controls.Add(Me.dgvAnhaenge)
Me.pnlBottom.Location = New System.Drawing.Point(0, 530)
Me.pnlBottom.Name = "pnlBottom"
Me.pnlBottom.Size = New System.Drawing.Size(519, 158)
Me.pnlBottom.TabIndex = 39
'
'pbAnhaenge
'
Me.pbAnhaenge.Anchor = System.Windows.Forms.AnchorStyles.Bottom
Me.pbAnhaenge.Enabled = False
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.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.TabIndex = 32
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
'
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.Location = New System.Drawing.Point(409, 65)
Me.btnOK.Location = New System.Drawing.Point(409, 7)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(105, 40)
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.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.Size = New System.Drawing.Size(116, 40)
Me.btnCancel.TabIndex = 31
Me.btnCancel.Text = "Abbrechen"
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(521, 631)
Me.Controls.Add(Me.lblMultiAttachements)
Me.Controls.Add(Me.dgvAnhaenge)
Me.Controls.Add(Me.UsrCntlKundenZollVollmachten1)
Me.Controls.Add(Me.MyPanel2)
Me.ClientSize = New System.Drawing.Size(519, 741)
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.Name = "frmAvisoFormularAnfuegen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Vollmacht anfügen"
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel2.ResumeLayout(False)
Me.MyPanel2.PerformLayout()
Me.MyPanel1.ResumeLayout(False)
Me.panelKunden.ResumeLayout(False)
Me.panelKunden.PerformLayout()
Me.pnlBottom.ResumeLayout(False)
Me.pnlBottom.PerformLayout()
CType(Me.pbAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.MyPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblKunden As Windows.Forms.Label
Friend WithEvents btnOK As Windows.Forms.Button
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 MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents pbAnhaenge As Windows.Forms.PictureBox
Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents panelKunden As VERAG_PROG_ALLGEMEIN.MyPanel
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 lblMultiAttachements 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