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

frmAnhaengeVormulare

Browse Source
This commit is contained in:
d.breimaier
2026-02-19 14:24:26 +01:00
parent aa7aacf5b2
commit 9f490ee188
6 changed files with 219 additions and 137 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAGAddIn/VERAGAddIn.vbproj
View File

@@ -36,7 +36,7 @@
<PublishUrl>\\ftps.verag.ag\g\FTP\Programme\VeragAddin\</PublishUrl> <PublishUrl>\\ftps.verag.ag\g\FTP\Programme\VeragAddin\</PublishUrl>
<InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl> <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
<TargetCulture>de</TargetCulture> <TargetCulture>de</TargetCulture>
<ApplicationVersion>1.0.1.136</ApplicationVersion> <ApplicationVersion>1.0.1.137</ApplicationVersion>
<AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision> <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
<UpdateEnabled>true</UpdateEnabled> <UpdateEnabled>true</UpdateEnabled>
<UpdateInterval>0</UpdateInterval> <UpdateInterval>0</UpdateInterval>

88
VERAGAddIn/frmAvisoAnfügen.Designer.vb generated
View File

@@ -33,12 +33,12 @@ Partial Class frmAvisoAnfuegen
Me.lblErr_Aviso = New System.Windows.Forms.Label() Me.lblErr_Aviso = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.cbx = New System.Windows.Forms.CheckBox() Me.cbxAnhaengeZusaetzlichSpeichern = New System.Windows.Forms.CheckBox()
Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.cbxAnhaengeSpeichern = New System.Windows.Forms.CheckBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.btnVermerke = New System.Windows.Forms.Button() Me.btnVermerke = New System.Windows.Forms.Button()
Me.bttnSaveMail = New System.Windows.Forms.Button() Me.btnSaveMail = New System.Windows.Forms.Button()
Me.btnSaveAttachments = New System.Windows.Forms.Button() Me.btnSaveAttachments = New System.Windows.Forms.Button()
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()
@@ -159,32 +159,32 @@ Partial Class frmAvisoAnfuegen
Me.Label3.TabIndex = 19 Me.Label3.TabIndex = 19
Me.Label3.Text = "Kategorie:" Me.Label3.Text = "Kategorie:"
' '
'cbx 'cbxAnhaengeZusaetzlichSpeichern
' '
Me.cbx.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.cbxAnhaengeZusaetzlichSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cbx.AutoSize = True Me.cbxAnhaengeZusaetzlichSpeichern.AutoSize = True
Me.cbx.Checked = True Me.cbxAnhaengeZusaetzlichSpeichern.Checked = True
Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxAnhaengeZusaetzlichSpeichern.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbx.Location = New System.Drawing.Point(535, 650) Me.cbxAnhaengeZusaetzlichSpeichern.Location = New System.Drawing.Point(535, 650)
Me.cbx.Name = "cbx" Me.cbxAnhaengeZusaetzlichSpeichern.Name = "cbxAnhaengeZusaetzlichSpeichern"
Me.cbx.Size = New System.Drawing.Size(179, 17) Me.cbxAnhaengeZusaetzlichSpeichern.Size = New System.Drawing.Size(179, 17)
Me.cbx.TabIndex = 22 Me.cbxAnhaengeZusaetzlichSpeichern.TabIndex = 22
Me.cbx.Text = "Anhänge zusätzlich abspeichern" Me.cbxAnhaengeZusaetzlichSpeichern.Text = "Anhänge zusätzlich abspeichern"
Me.cbx.UseVisualStyleBackColor = True Me.cbxAnhaengeZusaetzlichSpeichern.UseVisualStyleBackColor = True
' '
'CheckBox1 'cbxAnhaengeSpeichern
' '
Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.cbxAnhaengeSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.CheckBox1.AutoSize = True Me.cbxAnhaengeSpeichern.AutoSize = True
Me.CheckBox1.Checked = True Me.cbxAnhaengeSpeichern.Checked = True
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxAnhaengeSpeichern.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox1.Location = New System.Drawing.Point(15, 651) Me.cbxAnhaengeSpeichern.Location = New System.Drawing.Point(15, 651)
Me.CheckBox1.Name = "CheckBox1" Me.cbxAnhaengeSpeichern.Name = "cbxAnhaengeSpeichern"
Me.CheckBox1.Size = New System.Drawing.Size(118, 17) Me.cbxAnhaengeSpeichern.Size = New System.Drawing.Size(118, 17)
Me.CheckBox1.TabIndex = 23 Me.cbxAnhaengeSpeichern.TabIndex = 23
Me.CheckBox1.Text = "Anhänge speichern" Me.cbxAnhaengeSpeichern.Text = "Anhänge speichern"
Me.CheckBox1.UseVisualStyleBackColor = True Me.cbxAnhaengeSpeichern.UseVisualStyleBackColor = True
Me.CheckBox1.Visible = False Me.cbxAnhaengeSpeichern.Visible = False
' '
'Label4 'Label4
' '
@@ -224,19 +224,19 @@ Partial Class frmAvisoAnfuegen
Me.btnVermerke.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnVermerke.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnVermerke.UseVisualStyleBackColor = True Me.btnVermerke.UseVisualStyleBackColor = True
' '
'bttnSaveMail 'btnSaveMail
' '
Me.bttnSaveMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.btnSaveMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.bttnSaveMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSaveMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.bttnSaveMail.Image = Global.VERAGAddIn.My.Resources.Resources.email_big1 Me.btnSaveMail.Image = Global.VERAGAddIn.My.Resources.Resources.email_big1
Me.bttnSaveMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnSaveMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.bttnSaveMail.Location = New System.Drawing.Point(535, 596) Me.btnSaveMail.Location = New System.Drawing.Point(535, 596)
Me.bttnSaveMail.Name = "bttnSaveMail" Me.btnSaveMail.Name = "btnSaveMail"
Me.bttnSaveMail.Size = New System.Drawing.Size(179, 53) Me.btnSaveMail.Size = New System.Drawing.Size(179, 53)
Me.bttnSaveMail.TabIndex = 11 Me.btnSaveMail.TabIndex = 11
Me.bttnSaveMail.Text = "E-Mail speichern" & Global.Microsoft.VisualBasic.ChrW(13) Me.btnSaveMail.Text = "E-Mail speichern" & Global.Microsoft.VisualBasic.ChrW(13)
Me.bttnSaveMail.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnSaveMail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.bttnSaveMail.UseVisualStyleBackColor = True Me.btnSaveMail.UseVisualStyleBackColor = True
' '
'btnSaveAttachments 'btnSaveAttachments
' '
@@ -520,7 +520,7 @@ Partial Class frmAvisoAnfuegen
Me.Controls.Add(Me.lblErr_Bezeichnung) Me.Controls.Add(Me.lblErr_Bezeichnung)
Me.Controls.Add(Me.txtBezeichnung) Me.Controls.Add(Me.txtBezeichnung)
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.bttnSaveMail) Me.Controls.Add(Me.btnSaveMail)
Me.Controls.Add(Me.btnSaveAttachments) Me.Controls.Add(Me.btnSaveAttachments)
Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.txtAbfertigungsnummer) Me.Controls.Add(Me.txtAbfertigungsnummer)
@@ -530,8 +530,8 @@ Partial Class frmAvisoAnfuegen
Me.Controls.Add(Me.Label13) Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label14) Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.lbl) Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.cbx) Me.Controls.Add(Me.cbxAnhaengeZusaetzlichSpeichern)
Me.Controls.Add(Me.CheckBox1) Me.Controls.Add(Me.cbxAnhaengeSpeichern)
Me.ForeColor = System.Drawing.SystemColors.ControlText Me.ForeColor = System.Drawing.SystemColors.ControlText
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAvisoAnfuegen" Me.Name = "frmAvisoAnfuegen"
@@ -554,7 +554,7 @@ Partial Class frmAvisoAnfuegen
Friend WithEvents dgvAviso As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents dgvAviso As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Button1 As Windows.Forms.Button Friend WithEvents Button1 As Windows.Forms.Button
Friend WithEvents btnSaveAttachments As Windows.Forms.Button Friend WithEvents btnSaveAttachments As Windows.Forms.Button
Friend WithEvents bttnSaveMail As Windows.Forms.Button Friend WithEvents btnSaveMail As Windows.Forms.Button
Friend WithEvents Label2 As Windows.Forms.Label Friend WithEvents Label2 As Windows.Forms.Label
Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblErr_Bezeichnung As Windows.Forms.Label Friend WithEvents lblErr_Bezeichnung As Windows.Forms.Label
@@ -565,8 +565,8 @@ Partial Class frmAvisoAnfuegen
Friend WithEvents Label3 As Windows.Forms.Label Friend WithEvents Label3 As Windows.Forms.Label
Friend WithEvents cboArt As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents cbx As Windows.Forms.CheckBox Friend WithEvents cbxAnhaengeZusaetzlichSpeichern As Windows.Forms.CheckBox
Friend WithEvents CheckBox1 As Windows.Forms.CheckBox Friend WithEvents cbxAnhaengeSpeichern As Windows.Forms.CheckBox
Friend WithEvents Label4 As Windows.Forms.Label Friend WithEvents Label4 As Windows.Forms.Label
Friend WithEvents columnName As Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents columnName As Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Pfad As Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Pfad As Windows.Forms.DataGridViewTextBoxColumn

31
VERAGAddIn/frmAvisoAnfügen.vb
View File

@@ -7,7 +7,7 @@ Public Class frmAvisoAnfuegen
Public AvisoId = -1 Public AvisoId = -1
Public SendungsId = -1 Public SendungsId = -1
Public Bezeichnung = "" Public Bezeichnung = ""
Public PDF_MAIL = "" Public PDF_MAIL As cANHANGSART_ADDIN
Public Art = "" Public Art = ""
Dim VSQL As New VERAG_PROG_ALLGEMEIN.SQL Dim VSQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -59,7 +59,7 @@ Public Class frmAvisoAnfuegen
If ATT.Count = 0 Then If ATT.Count = 0 Then
btnSaveAttachments.Enabled = False btnSaveAttachments.Enabled = False
Else Else
btnSaveAttachments.Enabled = CheckBox1.Checked btnSaveAttachments.Enabled = cbxAnhaengeSpeichern.Checked
For Each a In ATT For Each a In ATT
Dim display = a Dim display = a
If a.Contains("\") Then If a.Contains("\") Then
@@ -181,7 +181,7 @@ Public Class frmAvisoAnfuegen
End Sub End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSaveAttachments.Click, bttnSaveMail.Click Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSaveAttachments.Click, btnSaveMail.Click
lblErr_Bezeichnung.Visible = False lblErr_Bezeichnung.Visible = False
lblErr_Aviso.Visible = False lblErr_Aviso.Visible = False
If dgvAviso.SelectedRows.Count > 0 Then If dgvAviso.SelectedRows.Count > 0 Then
@@ -195,8 +195,21 @@ Public Class frmAvisoAnfuegen
Else Else
Me.SendungsId = -1 Me.SendungsId = -1
End If End If
If sender Is btnSaveAttachments Then PDF_MAIL = "PDF" If sender Is btnSaveAttachments Then
If sender Is bttnSaveMail Then PDF_MAIL = If(CheckBox1.Checked, If(cbx.Checked, "PDFMAIL", "MAIL"), "ONLYMAIL") PDF_MAIL = cANHANGSART_ADDIN.PDF
End If
If sender Is btnSaveMail Then
If cbxAnhaengeSpeichern.Checked Then
If cbxAnhaengeZusaetzlichSpeichern.Checked Then
PDF_MAIL = cANHANGSART_ADDIN.PDFANDMAIL
Else
PDF_MAIL = cANHANGSART_ADDIN.YMAIL
End If
Else
PDF_MAIL = cANHANGSART_ADDIN.YMAIL
End If
End If
Bezeichnung = txtBezeichnung.Text Bezeichnung = txtBezeichnung.Text
Me.DialogResult = Windows.Forms.DialogResult.OK Me.DialogResult = Windows.Forms.DialogResult.OK
Else Else
@@ -238,11 +251,11 @@ Public Class frmAvisoAnfuegen
End If End If
End Sub End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAnhaengeSpeichern.CheckedChanged
dgvAnhaenge.Enabled = CheckBox1.Checked dgvAnhaenge.Enabled = cbxAnhaengeSpeichern.Checked
cbx.Enabled = CheckBox1.Checked cbxAnhaengeZusaetzlichSpeichern.Enabled = cbxAnhaengeSpeichern.Checked
If CheckBox1.Checked Then If cbxAnhaengeSpeichern.Checked Then
btnSaveAttachments.Enabled = dgvAnhaenge.Rows.Count > 0 btnSaveAttachments.Enabled = dgvAnhaenge.Rows.Count > 0
Else Else
btnSaveAttachments.Enabled = False btnSaveAttachments.Enabled = False

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

@@ -38,11 +38,11 @@ Partial Class frmAvisoFormularAnfuegen
Me.pbAnhaenge = New System.Windows.Forms.PictureBox() 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.Pfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
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.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Pfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.panelKunden.SuspendLayout() Me.panelKunden.SuspendLayout()
Me.pnlBottom.SuspendLayout() Me.pnlBottom.SuspendLayout()
CType(Me.pbAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pbAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -153,9 +153,9 @@ Partial Class frmAvisoFormularAnfuegen
'pnlDetails 'pnlDetails
' '
Me.pnlDetails.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.pnlDetails.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pnlDetails.Location = New System.Drawing.Point(0, 103) Me.pnlDetails.Location = New System.Drawing.Point(12, 103)
Me.pnlDetails.Name = "pnlDetails" Me.pnlDetails.Name = "pnlDetails"
Me.pnlDetails.Size = New System.Drawing.Size(518, 426) Me.pnlDetails.Size = New System.Drawing.Size(492, 426)
Me.pnlDetails.TabIndex = 38 Me.pnlDetails.TabIndex = 38
' '
'pnlBottom 'pnlBottom
@@ -175,9 +175,9 @@ Partial Class frmAvisoFormularAnfuegen
Me.pbAnhaenge.Anchor = System.Windows.Forms.AnchorStyles.Bottom 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(12, 106) Me.pbAnhaenge.Location = New System.Drawing.Point(18, 112)
Me.pbAnhaenge.Name = "pbAnhaenge" Me.pbAnhaenge.Name = "pbAnhaenge"
Me.pbAnhaenge.Size = New System.Drawing.Size(63, 52) Me.pbAnhaenge.Size = New System.Drawing.Size(57, 41)
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
@@ -213,6 +213,20 @@ Partial Class frmAvisoFormularAnfuegen
Me.dgvAnhaenge.TabIndex = 39 Me.dgvAnhaenge.TabIndex = 39
Me.dgvAnhaenge.Visible = False 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
'
'Pfad
'
Me.Pfad.HeaderText = "Pfad"
Me.Pfad.Name = "Pfad"
Me.Pfad.ReadOnly = True
Me.Pfad.Visible = False
'
'MyPanel1 'MyPanel1
' '
Me.MyPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.MyPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -245,20 +259,6 @@ Partial Class frmAvisoFormularAnfuegen
Me.btnCancel.Text = "Abbrechen" Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.UseVisualStyleBackColor = True Me.btnCancel.UseVisualStyleBackColor = True
' '
'columnName
'
Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.columnName.HeaderText = "Name"
Me.columnName.Name = "columnName"
Me.columnName.ReadOnly = True
'
'Pfad
'
Me.Pfad.HeaderText = "Pfad"
Me.Pfad.Name = "Pfad"
Me.Pfad.ReadOnly = True
Me.Pfad.Visible = False
'
'frmAvisoFormularAnfuegen 'frmAvisoFormularAnfuegen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

108
VERAGAddIn/frmAvisoFormularAnfügen.vb
View File

@@ -1,11 +1,6 @@
Imports System.Collections Imports System.Diagnostics
Imports System.Data
Imports System.Diagnostics
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 Microsoft.Office.Tools.Ribbon Imports Microsoft.Office.Tools.Ribbon
Imports SDL Imports SDL
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -19,7 +14,7 @@ Public Class frmAvisoFormularAnfuegen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public SendungsId = -1 Public SendungsId = -1
Public Bezeichnung = "" Public Bezeichnung = ""
Public PDF_MAIL = "" Public PDF_MAIL As cANHANGSART_ADDIN
Public enableOverwritting As Boolean = False Public enableOverwritting As Boolean = False
Public ATTTemp As List(Of String) Public ATTTemp As List(Of String)
Public ATT As List(Of String) Public ATT As List(Of String)
@@ -174,14 +169,15 @@ Public Class frmAvisoFormularAnfuegen
Select Case button.Name Select Case button.Name
Case "btnVertraege" Case "btnVertraege"
UsrCntlVertraege1.dgvVertraegeNew.GetOrder()
UsrCntlVertraege1.initDGVVertraege(KdNr)
UsrCntlVertraege1.dgvVertraegeNew.SetOrder()
If UsrCntlVertraege1.dgvVertraegeNew.SelectedRows.Count < 1 Then If UsrCntlVertraege1.dgvVertraegeNew.SelectedRows.Count < 1 Then
MsgBox("Bitte einen Vertrag markieren") MsgBox("Bitte einen Vertrag markieren")
End If End If
UsrCntlVertraege1.dgvVertraegeNew.GetOrder()
UsrCntlVertraege1.initDGVVertraege(KdNr)
UsrCntlVertraege1.dgvVertraegeNew.SetOrder()
Case "btnGestellungsgarantien" Case "btnGestellungsgarantien"
UsrCntlGestellungsgarantien1.dgvGestGarantieNew.GetOrder() UsrCntlGestellungsgarantien1.dgvGestGarantieNew.GetOrder()
UsrCntlGestellungsgarantien1.initDGVGestGarantie(KdNr) UsrCntlGestellungsgarantien1.initDGVGestGarantie(KdNr)
@@ -195,33 +191,33 @@ Public Class frmAvisoFormularAnfuegen
If Not hasAnhaenge Then If Not hasAnhaenge Then
If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email als Anhang gespeichert werden?", vbYesNoCancel) Then 'If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email als Anhang gespeichert werden?", vbYesNoCancel) Then
Close() ' Close()
DialogResult = DialogResult.None ' DialogResult = DialogResult.None
Exit Sub Else
End If
End If
If ATT IsNot Nothing Then If ATT IsNot Nothing Then
If ATT.Count > 1 Then If ATT.Count > 1 Then
ATT = ATTTemp ATT = ATTTemp
If dgvAnhaenge.SelectedRows.Count = 0 Then If dgvAnhaenge.SelectedRows.Count = 0 Then
MsgBox("Bitte Anhang markieren!") MsgBox("Bitte Anhang markieren!")
DialogResult = DialogResult.None DialogResult = DialogResult.None
Exit Sub Exit Sub
Else Else
Dim listOfSelectedAttachmendIndex As New List(Of Integer) Dim listOfSelectedAttachmendIndex As New List(Of Integer)
For Each indexOfAttachment As DataGridViewRow In dgvAnhaenge.SelectedRows For Each indexOfAttachment As DataGridViewRow In dgvAnhaenge.SelectedRows
listOfSelectedAttachmendIndex.Add(indexOfAttachment.Index) listOfSelectedAttachmendIndex.Add(indexOfAttachment.Index)
Next Next
RemoveNotUsedAttachmentOnList(ATT, listOfSelectedAttachmendIndex) RemoveNotUsedAttachmentOnList(ATT, listOfSelectedAttachmendIndex)
End If
End If End If
End If End If
End If End If
Select Case button.Name Select Case button.Name
Case "btnVollmachten" Case "btnVollmachten"
@@ -239,13 +235,21 @@ Public Class frmAvisoFormularAnfuegen
ElseIf UsrCntlVertraege1.dgvVertraegeNew.SelectedRows.Count = 1 Then ElseIf UsrCntlVertraege1.dgvVertraegeNew.SelectedRows.Count = 1 Then
Dim hasExistingEmail As Boolean = False
Dim hasExistingAttachment As Boolean = False
For Each row As DataGridViewRow In UsrCntlVertraege1.dgvVertraegeNew.SelectedRows For Each row As DataGridViewRow In UsrCntlVertraege1.dgvVertraegeNew.SelectedRows
If row.Cells("kv_datenarchivId").Value Is DBNull.Value Or row.Cells("kv_datenarchivId").Value Is Nothing Then
setAvisoIdForVertrage() If (row.Cells("kv_datenarchivId_mail").Value IsNot Nothing AndAlso IsNumeric(row.Cells("kv_datenarchivId_mail").Value) AndAlso CInt(row.Cells("kv_datenarchivId_mail").Value) > 0) Then hasExistingEmail = True
Else
If (row.Cells("kv_datenarchivId").Value IsNot Nothing AndAlso IsNumeric(row.Cells("kv_datenarchivId").Value) AndAlso CInt(row.Cells("kv_datenarchivId").Value) > 0) Then hasExistingAttachment = True
setAvisoIdForVertrage()
If hasAnhaenge AndAlso hasExistingAttachment Then
Dim response = MsgBox("Der markierte Vertrag besitzt bereits einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel) Dim response = MsgBox("Der markierte Vertrag besitzt bereits einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)
If response = vbYes Then If response = vbYes Then
setAvisoIdForVertrage() 'setAvisoIdForVertrage()
enableOverwritting = True enableOverwritting = True
ElseIf response = vbCancel Then ElseIf response = vbCancel Then
DialogResult = DialogResult.None DialogResult = DialogResult.None
@@ -255,11 +259,37 @@ Public Class frmAvisoFormularAnfuegen
End If End If
End If End If
Next Next
Dim ASKMailSpeichern As String = ""
If hasAnhaenge Then
ASKMailSpeichern = "Soll die Mail auch gespeichert werden!" & IIf(hasExistingEmail, vbNewLine & "Die aktuell hinterlegte Mail wird dadurch überschrieben!", "")
Else
ASKMailSpeichern = "Soll die Mail als Anhang gepeichert werden!" & IIf(hasExistingEmail, vbNewLine & "Die aktuell hinterlegte Mail wird dadurch überschrieben!", "")
End If
If vbYes = MsgBox(ASKMailSpeichern, vbYesNoCancel) Then
If hasExistingEmail Then enableOverwritting = True
If ATT.Count = 0 Then
PDF_MAIL = cANHANGSART_ADDIN.MAIL_DATENSERVER '"ONLYMAIL_DATENSERVER"
Else
PDF_MAIL = cANHANGSART_ADDIN.PDFANDMAIL_DATENSERVER '"PDFMAIL_DATENSERVER"
End If
Else
If ATT.Count = 0 Then
DialogResult = DialogResult.None
Exit Sub
End If
End If
Me.DialogResult = DialogResult.OK Me.DialogResult = DialogResult.OK
Close() Close()
Else Else
Close() Close()
End If End If
@@ -352,13 +382,13 @@ Public Class frmAvisoFormularAnfuegen
If ATT.Count = 0 Then If ATT.Count = 0 Then
hasAnhaenge = False hasAnhaenge = False
PDF_MAIL = "ONLYMAIL_DATENSERVER" PDF_MAIL = cANHANGSART_ADDIN.MAIL_DATENSERVER '"ONLYMAIL_DATENSERVER"
Else Else
hasAnhaenge = True hasAnhaenge = True
If button.Name = "btnVollmachten" Then If button.Name = "btnVollmachten" Then
PDF_MAIL = "PDF_DATENSERVER" PDF_MAIL = cANHANGSART_ADDIN.PDFANDMAIL_DATENSERVER '"PDFANDMAIL_DATENSERVER"
Else Else
PDF_MAIL = "ONLYPDF_DATENSERVER" PDF_MAIL = cANHANGSART_ADDIN.PDF_DATENSERVER '"ONLYPDF_DATENSERVER"
End If End If

87
VERAGAddIn/rbnVERAG.vb
View File

@@ -14,6 +14,20 @@ Imports Microsoft.Office.Interop
Imports Microsoft.Office.Tools.Ribbon Imports Microsoft.Office.Tools.Ribbon
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Enum cANHANGSART_ADDIN
'Upload in Datenarchiv
PDF = 1
YMAIL = 2
PDFANDMAIL = 3
'Upload in Datenarchiv inkl. Zuweisung zu Objekt
PDFANDMAIL_DATENSERVER = 4
PDF_DATENSERVER = 5
MAIL_DATENSERVER = 6
End Enum
Public Class VERAGRibbon Public Class VERAGRibbon
Dim LOGIN_OK = False Dim LOGIN_OK = False
@@ -158,7 +172,7 @@ Public Class AVISO_Mail_Functions
strFileName &= ".msg" strFileName &= ".msg"
End If End If
'Dim strFileName As String = "Mail.msg" 'Dim strFileName As String = "Mail.msg"
Dim pdf_mail = "" Dim pdf_mail As cANHANGSART_ADDIN
Dim SendungsId = -1 Dim SendungsId = -1
Dim Art = "" Dim Art = ""
Dim kdNr = -1 Dim kdNr = -1
@@ -184,21 +198,33 @@ Public Class AVISO_Mail_Functions
Dim BezAnhang = If(Bezeichnung <> strFileName, Bezeichnung, "") 'Wenn die Bezeichnung geändert wurde --> und wenn nur 1 Anhang, dann wird die Bezeichnung für den Anhang verwendet. Dim BezAnhang = If(Bezeichnung <> strFileName, Bezeichnung, "") 'Wenn die Bezeichnung geändert wurde --> und wenn nur 1 Anhang, dann wird die Bezeichnung für den Anhang verwendet.
If pdf_mail = "PDF" Then
saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang) Select Case pdf_mail
ElseIf pdf_mail = "PDFMAIL" Then Case cANHANGSART_ADDIN.PDF : saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art) Case cANHANGSART_ADDIN.YMAIL : saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang) Case cANHANGSART_ADDIN.PDFANDMAIL : saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art) : saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
ElseIf pdf_mail = "PDF_DATENSERVER" Then Case cANHANGSART_ADDIN.PDF_DATENSERVER : saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr, enableOverwritting)
saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender,, kdNr) Case cANHANGSART_ADDIN.MAIL_DATENSERVER : saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr, enableOverwritting)
saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr) Case cANHANGSART_ADDIN.PDFANDMAIL_DATENSERVER : saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr) : saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr)
ElseIf pdf_mail = "ONLYPDF_DATENSERVER" Then Case Else
saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr, enableOverwritting) saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then End Select
saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr)
Else 'ONLYMAIL 'If pdf_mail = "PDF" Then
saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art) ' saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
End If 'ElseIf pdf_mail = "PDFANDMAIL" Then
' saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
' saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
'ElseIf pdf_mail = "PDFANDMAIL_DATENSERVER" Then
' saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender,, kdNr)
' saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr)
'ElseIf pdf_mail = "ONLYPDF_DATENSERVER" Then
' saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr, enableOverwritting)
'ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then
' saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr)
'Else 'ONLYMAIL
' saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
'End If
End If End If
Catch ex As Exception Catch ex As Exception
@@ -1057,7 +1083,7 @@ Public Class AVISO_Mail_Functions
Dim path = DS.uploadDataToDATENSERVER(strTmpPath) Dim path = DS.uploadDataToDATENSERVER(strTmpPath)
If path Then If path Then
Dim c As New cKundenVollmachten(AvisoId) Dim c As New cKundenVollmachten(AvisoId)
If bezeichnung.EndsWith(".pdf") Then If bezeichnung.ToLower.EndsWith(".pdf") Then
c.kdvm_datenarchivId = DS.da_id c.kdvm_datenarchivId = DS.da_id
Else Else
c.kdvm_emailId = DS.da_id c.kdvm_emailId = DS.da_id
@@ -1067,14 +1093,27 @@ Public Class AVISO_Mail_Functions
Case "btnVertraege" Case "btnVertraege"
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & AvisoId, kdNr, multifiles) 'Bei Verträge können PDF und MAIL angehängt werden!
Dim path = DS.uploadDataToDATENSERVER(strTmpPath,,,,,, enableOverweriting)
If path Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(AvisoId)
KV.kv_datenarchivId = DS.da_id
KV.SAVE()
End If
If bezeichnung.ToLower.EndsWith(".pdf") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & AvisoId, kdNr, multifiles)
Dim path = DS.uploadDataToDATENSERVER(strTmpPath,,,,,, enableOverweriting)
If path Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(AvisoId)
KV.kv_datenarchivId = DS.da_id
KV.SAVE()
End If
Else
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_Mail_" & AvisoId, kdNr, multifiles)
Dim path = DS.uploadDataToDATENSERVER(strTmpPath,,,,,, enableOverweriting)
If path Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(AvisoId)
KV.kv_datenarchivId_mail = DS.da_id
KV.SAVE()
End If
End If
Case "btnGestellungsgarantien" Case "btnGestellungsgarantien"