Erstellung UserCntrl KundenVollmachten, Implementierung des Ribbon Addin für Formularanhänge (Vollmachten).

2022-09-27 16:57:39 +02:00
parent 60cfcc2d05
commit 76518d49cf
5 changed files with 210 additions and 208 deletions
--- a/VERAGAddIn/frmAvisoFormularAnfügen.Designer.vb
+++ b/VERAGAddIn/frmAvisoFormularAnfügen.Designer.vb
@@ -28,20 +28,24 @@ Partial Class frmAvisoFormularAnfuegen
        Me.btnOK = New System.Windows.Forms.Button()
        Me.KdSearchBox = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
        Me.btnCancel = New System.Windows.Forms.Button()
-        Me.dgvKundenvollmachten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.btnSaveMail = New System.Windows.Forms.Button()
-        Me.btnSaveAttachments = New System.Windows.Forms.Button()
        Me.cbVMTypen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label2 = New System.Windows.Forms.Label()
-        CType(Me.dgvKundenvollmachten, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.pbMail = New System.Windows.Forms.PictureBox()
+        Me.pbAnhaenge = New System.Windows.Forms.PictureBox()
+        Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.lblVMId = New System.Windows.Forms.Label()
+        Me.UsrCntlKundenZollVollmachten1 = New SDL.usrCntlKundenZollVollmachten()
+        Me.MyPanel1.SuspendLayout()
+        CType(Me.pbMail, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.pbAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.MyPanel2.SuspendLayout()
        Me.SuspendLayout()
        '
        '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.Location = New System.Drawing.Point(5, 33)
+        Me.lblKunden.Location = New System.Drawing.Point(3, 9)
        Me.lblKunden.Name = "lblKunden"
        Me.lblKunden.Size = New System.Drawing.Size(44, 13)
        Me.lblKunden.TabIndex = 2
@@ -51,8 +55,7 @@ Partial Class frmAvisoFormularAnfuegen
        '
        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.Enabled = False
-        Me.btnOK.Location = New System.Drawing.Point(317, 387)
+        Me.btnOK.Location = New System.Drawing.Point(402, 65)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(105, 40)
        Me.btnOK.TabIndex = 3
@@ -79,11 +82,11 @@ Partial Class frmAvisoFormularAnfuegen
        Me.KdSearchBox.KdNr = "-1"
        Me.KdSearchBox.kdNrField = Nothing
        Me.KdSearchBox.KdNrNullInt = Nothing
-        Me.KdSearchBox.Location = New System.Drawing.Point(8, 64)
+        Me.KdSearchBox.Location = New System.Drawing.Point(6, 31)
        Me.KdSearchBox.Name = "KdSearchBox"
        Me.KdSearchBox.nurAktive = True
        Me.KdSearchBox.searchActive = True
-        Me.KdSearchBox.Size = New System.Drawing.Size(412, 20)
+        Me.KdSearchBox.Size = New System.Drawing.Size(501, 20)
        Me.KdSearchBox.TabIndex = 4
        Me.KdSearchBox.TIMER_SEARCH = True
        Me.KdSearchBox.usrcntl = Nothing
@@ -92,62 +95,13 @@ 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(8, 387)
+        Me.btnCancel.Location = New System.Drawing.Point(3, 67)
        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
        '
-        'dgvKundenvollmachten
-        '
-        Me.dgvKundenvollmachten.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvKundenvollmachten.AllowUserToAddRows = False
-        Me.dgvKundenvollmachten.AllowUserToDeleteRows = False
-        Me.dgvKundenvollmachten.AllowUserToResizeColumns = False
-        Me.dgvKundenvollmachten.AllowUserToResizeRows = False
-        Me.dgvKundenvollmachten.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.dgvKundenvollmachten.BackgroundColor = System.Drawing.Color.White
-        Me.dgvKundenvollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvKundenvollmachten.Location = New System.Drawing.Point(12, 116)
-        Me.dgvKundenvollmachten.MultiSelect = False
-        Me.dgvKundenvollmachten.Name = "dgvKundenvollmachten"
-        Me.dgvKundenvollmachten.ReadOnly = True
-        Me.dgvKundenvollmachten.RowHeadersVisible = False
-        Me.dgvKundenvollmachten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvKundenvollmachten.Size = New System.Drawing.Size(410, 116)
-        Me.dgvKundenvollmachten.TabIndex = 32
-        '
-        'btnSaveMail
-        '
-        Me.btnSaveMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.btnSaveMail.Enabled = False
-        Me.btnSaveMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnSaveMail.Image = Global.VERAGAddIn.My.Resources.Resources.email_big1
-        Me.btnSaveMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnSaveMail.Location = New System.Drawing.Point(228, 313)
-        Me.btnSaveMail.Name = "btnSaveMail"
-        Me.btnSaveMail.Size = New System.Drawing.Size(197, 53)
-        Me.btnSaveMail.TabIndex = 34
-        Me.btnSaveMail.Text = "E-Mail speichern" & Global.Microsoft.VisualBasic.ChrW(13)
-        Me.btnSaveMail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnSaveMail.UseVisualStyleBackColor = True
-        '
-        'btnSaveAttachments
-        '
-        Me.btnSaveAttachments.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.btnSaveAttachments.Enabled = False
-        Me.btnSaveAttachments.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnSaveAttachments.Image = Global.VERAGAddIn.My.Resources.Resources.pdf
-        Me.btnSaveAttachments.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnSaveAttachments.Location = New System.Drawing.Point(10, 308)
-        Me.btnSaveAttachments.Name = "btnSaveAttachments"
-        Me.btnSaveAttachments.Size = New System.Drawing.Size(197, 58)
-        Me.btnSaveAttachments.TabIndex = 33
-        Me.btnSaveAttachments.Text = "Nur Anhänge speichern"
-        Me.btnSaveAttachments.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnSaveAttachments.UseVisualStyleBackColor = True
-        '
        'cbVMTypen
        '
        Me.cbVMTypen._allowedValuesFreiText = Nothing
@@ -155,79 +109,104 @@ Partial Class frmAvisoFormularAnfuegen
        Me.cbVMTypen._value = ""
        Me.cbVMTypen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.cbVMTypen.FormattingEnabled = True
-        Me.cbVMTypen.Location = New System.Drawing.Point(8, 89)
+        Me.cbVMTypen.Location = New System.Drawing.Point(3, 80)
        Me.cbVMTypen.Name = "cbVMTypen"
-        Me.cbVMTypen.Size = New System.Drawing.Size(406, 21)
+        Me.cbVMTypen.Size = New System.Drawing.Size(501, 21)
        Me.cbVMTypen.TabIndex = 35
        '
-        'txtBezeichnung
+        'MyPanel1
        '
-        Me.txtBezeichnung._DateTimeOnly = False
-        Me.txtBezeichnung._numbersOnly = False
-        Me.txtBezeichnung._numbersOnlyKommastellen = ""
-        Me.txtBezeichnung._numbersOnlyTrennzeichen = True
-        Me.txtBezeichnung._Prozent = False
-        Me.txtBezeichnung._ShortDateNew = False
-        Me.txtBezeichnung._ShortDateOnly = False
-        Me.txtBezeichnung._TimeOnly = False
-        Me.txtBezeichnung._TimeOnly_Seconds = False
-        Me.txtBezeichnung._value = ""
-        Me.txtBezeichnung._Waehrung = False
-        Me.txtBezeichnung._WaehrungZeichen = True
-        Me.txtBezeichnung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.txtBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black
-        Me.txtBezeichnung.Location = New System.Drawing.Point(128, 279)
-        Me.txtBezeichnung.MaxLineLength = -1
-        Me.txtBezeichnung.MaxLines_Warning = ""
-        Me.txtBezeichnung.MaxLines_Warning_Label = Nothing
-        Me.txtBezeichnung.Name = "txtBezeichnung"
-        Me.txtBezeichnung.Size = New System.Drawing.Size(297, 23)
-        Me.txtBezeichnung.TabIndex = 37
+        Me.MyPanel1.Controls.Add(Me.pbMail)
+        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, 513)
+        Me.MyPanel1.Name = "MyPanel1"
+        Me.MyPanel1.Size = New System.Drawing.Size(514, 108)
+        Me.MyPanel1.TabIndex = 36
        '
-        'Label2
+        'pbMail
        '
-        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(7, 284)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(112, 13)
-        Me.Label2.TabIndex = 36
-        Me.Label2.Text = "Anhang-Bezeichnung:"
+        Me.pbMail.Enabled = False
+        Me.pbMail.Image = Global.VERAGAddIn.My.Resources.Resources.email_big1
+        Me.pbMail.Location = New System.Drawing.Point(98, 12)
+        Me.pbMail.Name = "pbMail"
+        Me.pbMail.Size = New System.Drawing.Size(55, 50)
+        Me.pbMail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.pbMail.TabIndex = 33
+        Me.pbMail.TabStop = False
+        '
+        'pbAnhaenge
+        '
+        Me.pbAnhaenge.Enabled = False
+        Me.pbAnhaenge.Image = Global.VERAGAddIn.My.Resources.Resources.pdf
+        Me.pbAnhaenge.Location = New System.Drawing.Point(12, 12)
+        Me.pbAnhaenge.Name = "pbAnhaenge"
+        Me.pbAnhaenge.Size = New System.Drawing.Size(65, 50)
+        Me.pbAnhaenge.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.pbAnhaenge.TabIndex = 32
+        Me.pbAnhaenge.TabStop = False
+        '
+        'MyPanel2
+        '
+        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(514, 114)
+        Me.MyPanel2.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.Location = New System.Drawing.Point(3, 63)
+        Me.lblVMId.Name = "lblVMId"
+        Me.lblVMId.Size = New System.Drawing.Size(69, 13)
+        Me.lblVMId.TabIndex = 36
+        Me.lblVMId.Text = "Vollmacht-Art"
+        '
+        'UsrCntlKundenZollVollmachten1
+        '
+        Me.UsrCntlKundenZollVollmachten1.Location = New System.Drawing.Point(0, 120)
+        Me.UsrCntlKundenZollVollmachten1.Name = "UsrCntlKundenZollVollmachten1"
+        Me.UsrCntlKundenZollVollmachten1.Size = New System.Drawing.Size(514, 387)
+        Me.UsrCntlKundenZollVollmachten1.TabIndex = 38
        '
        '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(465, 444)
-        Me.Controls.Add(Me.cbVMTypen)
-        Me.Controls.Add(Me.txtBezeichnung)
-        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.btnSaveMail)
-        Me.Controls.Add(Me.btnSaveAttachments)
-        Me.Controls.Add(Me.dgvKundenvollmachten)
-        Me.Controls.Add(Me.btnCancel)
-        Me.Controls.Add(Me.KdSearchBox)
-        Me.Controls.Add(Me.btnOK)
-        Me.Controls.Add(Me.lblKunden)
+        Me.ClientSize = New System.Drawing.Size(514, 621)
+        Me.Controls.Add(Me.UsrCntlKundenZollVollmachten1)
+        Me.Controls.Add(Me.MyPanel2)
+        Me.Controls.Add(Me.MyPanel1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmAvisoFormularAnfuegen"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Formular anfügen"
-        CType(Me.dgvKundenvollmachten, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.MyPanel1.ResumeLayout(False)
+        CType(Me.pbMail, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.pbAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.MyPanel2.ResumeLayout(False)
+        Me.MyPanel2.PerformLayout()
        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 dgvKundenvollmachten As VERAG_PROG_ALLGEMEIN.MyDatagridview
-    Friend WithEvents btnSaveMail As Windows.Forms.Button
-    Friend WithEvents btnSaveAttachments As Windows.Forms.Button
    Friend WithEvents cbVMTypen As VERAG_PROG_ALLGEMEIN.MyComboBox
-    Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents Label2 As Windows.Forms.Label
+    Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
+    Friend WithEvents pbMail As Windows.Forms.PictureBox
+    Friend WithEvents pbAnhaenge As Windows.Forms.PictureBox
+    Friend WithEvents MyPanel2 As VERAG_PROG_ALLGEMEIN.MyPanel
+    Friend WithEvents lblVMId As Windows.Forms.Label
+    Friend WithEvents UsrCntlKundenZollVollmachten1 As SDL.usrCntlKundenZollVollmachten
 End Class