Erstellung UserCntrl KundenVollmachten, Implementierung des Ribbon Addin für Formularanhänge (Vollmachten).
This commit is contained in:
@@ -161,6 +161,10 @@
|
||||
<Reference Include="AVISO">
|
||||
<HintPath>..\..\..\Aviso\AVISO\Aviso\bin\Debug\AVISO.exe</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DAKOSY_Worker, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\ADMIN\ADMIN\DAKOSY_Worker\bin\Debug\DAKOSY_Worker.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Gemeinsames">
|
||||
<HintPath>..\..\..\Aviso\AVISO\Gemeinsames\bin\x64\Debug\Gemeinsames.dll</HintPath>
|
||||
</Reference>
|
||||
@@ -341,6 +345,10 @@
|
||||
<None Include="Resources\pdfprint.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<ProjectReference Include="..\..\..\SDL\SDL\SDL\SDL.vbproj">
|
||||
<Project>{289bcd77-bc00-4ba1-95ed-a79176d99525}</Project>
|
||||
<Name>SDL</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
|
||||
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
|
||||
<Name>VERAG_PROG_ALLGEMEIN</Name>
|
||||
|
||||
203
VERAGAddIn/frmAvisoFormularAnfügen.Designer.vb
generated
203
VERAGAddIn/frmAvisoFormularAnfügen.Designer.vb
generated
@@ -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
|
||||
|
||||
@@ -11,13 +11,20 @@ Public Class frmAvisoFormularAnfuegen
|
||||
Public KdNr As Integer = -1
|
||||
Dim vollmachtartId As Integer = -1
|
||||
Dim vollmachtId As Integer = -1
|
||||
Dim SQL As New SQL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
|
||||
Public SendungsId = -1
|
||||
Public Bezeichnung = ""
|
||||
Public PDF_MAIL = ""
|
||||
Public PDF_MAIL As Boolean = False
|
||||
Public ATT As List(Of String)
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
InitializeComponent()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(Bezeichnung)
|
||||
|
||||
InitializeComponent()
|
||||
@@ -30,6 +37,14 @@ Public Class frmAvisoFormularAnfuegen
|
||||
|
||||
KdSearchBox.initKdBox(Me)
|
||||
|
||||
If PDF_MAIL Then
|
||||
pbAnhaenge.Visible = True
|
||||
Else
|
||||
pbAnhaenge.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -44,98 +59,21 @@ Public Class frmAvisoFormularAnfuegen
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnSaveAttachments_Click(sender As Object, e As EventArgs) Handles btnSaveAttachments.Click
|
||||
MsgBox("Save Attachement " & KdNr)
|
||||
|
||||
|
||||
If dgvKundenvollmachten.SelectedRows.Count <> 1 Then Exit Sub
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vollmachtartId, "", "", Bezeichnung, KdNr)
|
||||
|
||||
'Dim path = DS.uploadDataToDATENSERVERFileDialog() 'Überarbeitung, damit das ausgewählte EMail angefügt wird.
|
||||
'Dim path = DS.uploadDataToDATENSERVER("")
|
||||
If txtBezeichnung.Text.Trim = "" Then
|
||||
Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
|
||||
End If
|
||||
|
||||
If sender Is btnSaveAttachments Then PDF_MAIL = "PDF"
|
||||
If sender Is btnSaveMail Then PDF_MAIL = "PDFMAIL"
|
||||
Bezeichnung = txtBezeichnung.Text
|
||||
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnSaveMail_Click(sender As Object, e As EventArgs) Handles btnSaveMail.Click
|
||||
MsgBox("Save EMail " & KdNr)
|
||||
End Sub
|
||||
|
||||
Sub init()
|
||||
If KdNr > 0 Then
|
||||
|
||||
initVollmachtarten(KdNr)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub initVollmachtarten(kdNr As Integer)
|
||||
|
||||
cbVMTypen.fillWithSQL("SELECT DISTINCT(art.kdvma_Id), art.kdvma_Bezeichnung FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "FMZOLL", False)
|
||||
|
||||
cbVMTypen.fillWithSQL("SELECT DISTINCT(art.kdvma_Id), art.kdvma_Bezeichnung FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "FMZOLL", False)
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initDGVKundenvollmachten(vollmachtartId)
|
||||
Sub initUsrCntrlKundenvollmachten(vollmachtartId)
|
||||
|
||||
UsrCntlKundenZollVollmachten1.init(KdNr, vollmachtartId)
|
||||
|
||||
With dgvKundenvollmachten
|
||||
.Columns.Clear()
|
||||
Dim where = " And art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
|
||||
where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) & "' "
|
||||
End If
|
||||
|
||||
.DataSource = SQL.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
|
||||
" FROM [tblKundenVollmachtenArt] as art " &
|
||||
" INNER JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
|
||||
" WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & KdNr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
|
||||
" ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc ", "FMZOLL")
|
||||
|
||||
|
||||
' .RowTemplate.Height = 30
|
||||
.Columns("kdvm_Id").Visible = False
|
||||
.Columns("kdvma_Id").Visible = False
|
||||
.Columns("kdvm_KundenNr").Visible = False
|
||||
.Columns("kdvm_datenarchivId").Visible = False
|
||||
.Columns("kdvma_Bezeichnung").Visible = False
|
||||
.Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
|
||||
.Columns("kdvm_erhalten").Width = 50
|
||||
.Columns("kdvm_erhalten").HeaderText = "Erhalten"
|
||||
.Columns("kdvm_erhalten").Visible = False
|
||||
.Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("kdvm_erhalten_Datum").Width = 100
|
||||
.Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
|
||||
.Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("kdvm_Info").Width = 200
|
||||
.Columns("kdvm_Info").HeaderText = "Info"
|
||||
.Columns("kdvm_Info").Visible = False
|
||||
.Columns("kdvm_gueltig_bis").Visible = True
|
||||
.Columns("kdvm_gueltig_bis").Width = 100
|
||||
.Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
|
||||
.Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("kdvm_archiviert").Visible = True
|
||||
.Columns("kdvm_archiviert").Width = 60
|
||||
.Columns("kdvm_archiviert").HeaderText = "Archiviert"
|
||||
.Columns("kdvm_archiviert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
||||
.Columns("kdvm_vermerk").MinimumWidth = 100
|
||||
.Columns("kdvm_vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("kdvm_vermerk").HeaderText = "Vermerk"
|
||||
.Columns("kdvm_vermerk").Visible = True
|
||||
.Columns("kdvm_geloescht").Visible = False
|
||||
|
||||
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -152,24 +90,27 @@ Public Class frmAvisoFormularAnfuegen
|
||||
Private Sub cbVMTypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbVMTypen.SelectedIndexChanged
|
||||
|
||||
vollmachtartId = cbVMTypen._value
|
||||
|
||||
initDGVKundenvollmachten(vollmachtartId)
|
||||
initUsrCntrlKundenvollmachten(vollmachtartId)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvKundenvollmachten_RowValidated(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenvollmachten.RowValidated
|
||||
|
||||
End Sub
|
||||
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||
|
||||
Private Sub dgvKundenvollmachten_SelectionChanged(sender As Object, e As EventArgs) Handles dgvKundenvollmachten.SelectionChanged
|
||||
If KdNr > 0 And vollmachtartId > 0 AndAlso dgvKundenvollmachten.SelectedRows.Count > 0 Then
|
||||
btnSaveAttachments.Enabled = True
|
||||
btnSaveMail.Enabled = True
|
||||
btnOK.Enabled = True
|
||||
If Not PDF_MAIL Then
|
||||
'Sicherheitsabfrage: Mail besitzt keinen Anhang, soll VM gespeichert werden?
|
||||
End If
|
||||
|
||||
|
||||
UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & UsrCntlKundenZollVollmachten1.vollmachtartId, "", "", Bezeichnung, KdNr)
|
||||
Dim path = DS.uploadDataToDATENSERVER("")
|
||||
|
||||
Close()
|
||||
End Sub
|
||||
|
||||
Private Sub dgvKundenvollmachten_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenvollmachten.CellContentClick
|
||||
dgvKundenvollmachten_SelectionChanged(sender, e)
|
||||
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
|
||||
Close()
|
||||
End Sub
|
||||
End Class
|
||||
@@ -76,7 +76,7 @@ Public Class VERAGRibbon
|
||||
End Sub
|
||||
|
||||
Private Sub btnVM_Click(sender As Object, e As RibbonControlEventArgs) Handles btnVM.Click
|
||||
' ToDo -> Logif für das Einfügen eines PDFs aus einer Mail in eine Vollmacht im Aviso.
|
||||
' ToDo -> Logik für das Einfügen eines PDFs aus einer Mail in eine Vollmacht im Aviso.
|
||||
If LOGIN_OK Then AVISO_Mail_Functions.addMailToAviso_Vollmachten()
|
||||
|
||||
|
||||
@@ -586,8 +586,10 @@ Public Class AVISO_Mail_Functions
|
||||
SendungsId = frmAvisoFormularAnfuegen.SendungsId
|
||||
Bezeichnung = frmAvisoFormularAnfuegen.Bezeichnung
|
||||
pdf_mail = frmAvisoFormularAnfuegen.PDF_MAIL
|
||||
Att = frmAvisoFormularAnfuegen.ATT
|
||||
|
||||
Return 1
|
||||
Exit Function
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user