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

Outlook AddIn: Formulare einfügen für Vollmachten.

Browse Source
This commit is contained in:
d.breimaier
2022-09-23 16:01:26 +02:00
parent 19aff8dd13
commit 60cfcc2d05
7 changed files with 1780 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
VERAGAddIn/VERAGAddIn.vbproj
View File

@@ -158,6 +158,12 @@
-->
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="AVISO">
<HintPath>..\..\..\Aviso\AVISO\Aviso\bin\Debug\AVISO.exe</HintPath>
</Reference>
<Reference Include="Gemeinsames">
<HintPath>..\..\..\Aviso\AVISO\Gemeinsames\bin\x64\Debug\Gemeinsames.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Office.Tools.Outlook.v4.0.Utilities, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
@@ -167,9 +173,6 @@
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="VERAG_PROG_ALLGEMEIN">
<HintPath>..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
</Reference>
</ItemGroup>
<ItemGroup>
<Reference Include="Microsoft.Office.Tools.v4.0.Framework, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
@@ -226,6 +229,12 @@
<Compile Include="frmAvisoAnfügen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAvisoFormularAnfügen.Designer.vb">
<DependentUpon>frmAvisoFormularAnfügen.vb</DependentUpon>
</Compile>
<Compile Include="frmAvisoFormularAnfügen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="rbnMailItem.Designer.vb">
<DependentUpon>rbnMailItem.vb</DependentUpon>
</Compile>
@@ -244,6 +253,9 @@
<EmbeddedResource Include="frmAvisoAnfügen.resx">
<DependentUpon>frmAvisoAnfügen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAvisoFormularAnfügen.resx">
<DependentUpon>frmAvisoFormularAnfügen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="rbnMailItem.resx">
<DependentUpon>rbnMailItem.vb</DependentUpon>
</EmbeddedResource>
@@ -285,15 +297,6 @@
<None Include="VERAGAddIn_TemporaryKey.pfx" />
</ItemGroup>
<ItemGroup>
<COMReference Include="Microsoft.Vbe.Interop.Forms">
<Guid>{AC2DE821-36A2-11CF-8053-00AA006009FA}</Guid>
<VersionMajor>2</VersionMajor>
<VersionMinor>0</VersionMinor>
<Lcid>0</Lcid>
<WrapperTool>tlbimp</WrapperTool>
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
<COMReference Include="stdole1">
<Guid>{00020430-0000-0000-C000-000000000046}</Guid>
<VersionMajor>2</VersionMajor>
@@ -303,15 +306,6 @@
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
<COMReference Include="stdole2">
<Guid>{00020430-0000-0000-C000-000000000046}</Guid>
<VersionMajor>2</VersionMajor>
<VersionMinor>0</VersionMinor>
<Lcid>0</Lcid>
<WrapperTool>primary</WrapperTool>
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
<COMReference Include="VBIDE">
<Guid>{0002E157-0000-0000-C000-000000000046}</Guid>
<VersionMajor>5</VersionMajor>
@@ -322,16 +316,6 @@
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\AVISO\Aviso\Aviso\Aviso.vbproj">
<Project>{7bdd8c2f-2c9e-49f1-a365-3b1da1c84991}</Project>
<Name>Aviso</Name>
</ProjectReference>
<ProjectReference Include="..\..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj">
<Project>{110c923b-cb02-4fd0-af24-95e0f0eeeff5}</Project>
<Name>Gemeinsames</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<None Include="Resources\Aviso.png" />
</ItemGroup>
@@ -356,6 +340,12 @@
<None Include="Resources\wheel.png" />
<None Include="Resources\pdfprint.png" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
</ItemGroup>
<PropertyGroup>
<VisualStudioVersion Condition="'$(VisualStudioVersion)' == ''">10.0</VisualStudioVersion>
<VSToolsPath Condition="'$(VSToolsPath)' == ''">$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)</VSToolsPath>
@@ -377,7 +367,7 @@
</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>443CA3745EE904EED98572A89099259301BA06D1</ManifestCertificateThumbprint>
<ManifestCertificateThumbprint>34D75D5089806BE69485715D014CE0611D10E677</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<SignAssembly>false</SignAssembly>

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

@@ -28,8 +28,6 @@ Partial Class frmAvisoAnfuegen
Me.Label14 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.bttnSaveMail = New System.Windows.Forms.Button()
Me.btnSaveAttachments = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblErr_Bezeichnung = New System.Windows.Forms.Label()
Me.lblErr_Aviso = New System.Windows.Forms.Label()
@@ -47,6 +45,8 @@ Partial Class frmAvisoAnfuegen
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtLKWNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.dgvAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.bttnSaveMail = New System.Windows.Forms.Button()
Me.btnSaveAttachments = New System.Windows.Forms.Button()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvSendungen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvAviso, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -93,34 +93,6 @@ Partial Class frmAvisoAnfuegen
Me.Button1.Text = "Suche"
Me.Button1.UseVisualStyleBackColor = True
'
'bttnSaveMail
'
Me.bttnSaveMail.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.bttnSaveMail.Image = Global.VERAGAddIn.My.Resources.Resources.email_big1
Me.bttnSaveMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.bttnSaveMail.Location = New System.Drawing.Point(451, 590)
Me.bttnSaveMail.Name = "bttnSaveMail"
Me.bttnSaveMail.Size = New System.Drawing.Size(179, 53)
Me.bttnSaveMail.TabIndex = 11
Me.bttnSaveMail.Text = "E-Mail speichern" & Global.Microsoft.VisualBasic.ChrW(13)
Me.bttnSaveMail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.bttnSaveMail.UseVisualStyleBackColor = True
'
'btnSaveAttachments
'
Me.btnSaveAttachments.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
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(239, 591)
Me.btnSaveAttachments.Name = "btnSaveAttachments"
Me.btnSaveAttachments.Size = New System.Drawing.Size(206, 69)
Me.btnSaveAttachments.TabIndex = 9
Me.btnSaveAttachments.Text = "Nur Anhänge speichern"
Me.btnSaveAttachments.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSaveAttachments.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -252,10 +224,12 @@ Partial Class frmAvisoAnfuegen
Me.txtSrchDat._DateTimeOnly = False
Me.txtSrchDat._numbersOnly = False
Me.txtSrchDat._numbersOnlyKommastellen = ""
Me.txtSrchDat._numbersOnlyTrennzeichen = True
Me.txtSrchDat._Prozent = False
Me.txtSrchDat._ShortDateNew = True
Me.txtSrchDat._ShortDateOnly = False
Me.txtSrchDat._TimeOnly = False
Me.txtSrchDat._TimeOnly_Seconds = False
Me.txtSrchDat._value = ""
Me.txtSrchDat._Waehrung = False
Me.txtSrchDat._WaehrungZeichen = True
@@ -295,10 +269,12 @@ Partial Class frmAvisoAnfuegen
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
@@ -318,10 +294,12 @@ Partial Class frmAvisoAnfuegen
Me.txtAbfertigungsnummer._DateTimeOnly = False
Me.txtAbfertigungsnummer._numbersOnly = False
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
Me.txtAbfertigungsnummer._Prozent = False
Me.txtAbfertigungsnummer._ShortDateNew = False
Me.txtAbfertigungsnummer._ShortDateOnly = False
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
Me.txtAbfertigungsnummer._value = Nothing
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
@@ -352,10 +330,12 @@ Partial Class frmAvisoAnfuegen
Me.txtLKWNr._DateTimeOnly = False
Me.txtLKWNr._numbersOnly = False
Me.txtLKWNr._numbersOnlyKommastellen = ""
Me.txtLKWNr._numbersOnlyTrennzeichen = True
Me.txtLKWNr._Prozent = False
Me.txtLKWNr._ShortDateNew = False
Me.txtLKWNr._ShortDateOnly = False
Me.txtLKWNr._TimeOnly = False
Me.txtLKWNr._TimeOnly_Seconds = False
Me.txtLKWNr._value = ""
Me.txtLKWNr._Waehrung = False
Me.txtLKWNr._WaehrungZeichen = True
@@ -389,6 +369,34 @@ Partial Class frmAvisoAnfuegen
Me.dgvAviso.Size = New System.Drawing.Size(615, 369)
Me.dgvAviso.TabIndex = 6
'
'bttnSaveMail
'
Me.bttnSaveMail.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.bttnSaveMail.Image = Global.VERAGAddIn.My.Resources.Resources.email_big1
Me.bttnSaveMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.bttnSaveMail.Location = New System.Drawing.Point(451, 590)
Me.bttnSaveMail.Name = "bttnSaveMail"
Me.bttnSaveMail.Size = New System.Drawing.Size(179, 53)
Me.bttnSaveMail.TabIndex = 11
Me.bttnSaveMail.Text = "E-Mail speichern" & Global.Microsoft.VisualBasic.ChrW(13)
Me.bttnSaveMail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.bttnSaveMail.UseVisualStyleBackColor = True
'
'btnSaveAttachments
'
Me.btnSaveAttachments.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
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(239, 591)
Me.btnSaveAttachments.Name = "btnSaveAttachments"
Me.btnSaveAttachments.Size = New System.Drawing.Size(206, 69)
Me.btnSaveAttachments.TabIndex = 9
Me.btnSaveAttachments.Text = "Nur Anhänge speichern"
Me.btnSaveAttachments.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSaveAttachments.UseVisualStyleBackColor = True
'
'frmAvisoAnfuegen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

233
VERAGAddIn/frmAvisoFormularAnfügen.Designer.vb generated Normal file
View File

@@ -0,0 +1,233 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAvisoFormularAnfuegen
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAvisoFormularAnfuegen))
Me.lblKunden = New System.Windows.Forms.Label()
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.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.Name = "lblKunden"
Me.lblKunden.Size = New System.Drawing.Size(44, 13)
Me.lblKunden.TabIndex = 2
Me.lblKunden.Text = "Kunden"
'
'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.Enabled = False
Me.btnOK.Location = New System.Drawing.Point(317, 387)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(105, 40)
Me.btnOK.TabIndex = 3
Me.btnOK.Text = "Ok"
Me.btnOK.UseVisualStyleBackColor = True
'
'KdSearchBox
'
Me.KdSearchBox._AlleFirmenCLUSTER = False
Me.KdSearchBox._AllowSetValue = True
Me.KdSearchBox._autoSizeGross = False
Me.KdSearchBox._display_Name1 = False
Me.KdSearchBox._displayAVISO_Email = False
Me.KdSearchBox._displayFullName = False
Me.KdSearchBox._displayWoelflKd = False
Me.KdSearchBox._hideIfListEmpty = True
Me.KdSearchBox._loadKdData = True
Me.KdSearchBox._UseFIRMA = ""
Me.KdSearchBox._ValueKdAndName = True
Me.KdSearchBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.KdSearchBox.dgvpos = "LEFT"
Me.KdSearchBox.HideSelection = False
Me.KdSearchBox.KdName = ""
Me.KdSearchBox.KdNr = "-1"
Me.KdSearchBox.kdNrField = Nothing
Me.KdSearchBox.KdNrNullInt = Nothing
Me.KdSearchBox.Location = New System.Drawing.Point(8, 64)
Me.KdSearchBox.Name = "KdSearchBox"
Me.KdSearchBox.nurAktive = True
Me.KdSearchBox.searchActive = True
Me.KdSearchBox.Size = New System.Drawing.Size(412, 20)
Me.KdSearchBox.TabIndex = 4
Me.KdSearchBox.TIMER_SEARCH = True
Me.KdSearchBox.usrcntl = Nothing
'
'btnCancel
'
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.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
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.FormattingEnabled = True
Me.cbVMTypen.Location = New System.Drawing.Point(8, 89)
Me.cbVMTypen.Name = "cbVMTypen"
Me.cbVMTypen.Size = New System.Drawing.Size(406, 21)
Me.cbVMTypen.TabIndex = 35
'
'txtBezeichnung
'
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
'
'Label2
'
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:"
'
'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.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.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
End Class

1253
VERAGAddIn/frmAvisoFormularAnfügen.resx Normal file
View File

File diff suppressed because it is too large Load Diff

175
VERAGAddIn/frmAvisoFormularAnfügen.vb Normal file
View File

@@ -0,0 +1,175 @@
Imports System.Data
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button
Imports SDL
Imports VERAG_PROG_ALLGEMEIN
Public Class frmAvisoFormularAnfuegen
Public KdNr As Integer = -1
Dim vollmachtartId As Integer = -1
Dim vollmachtId As Integer = -1
Dim SQL As New SQL
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Public SendungsId = -1
Public Bezeichnung = ""
Public PDF_MAIL = ""
Sub New(Bezeichnung)
InitializeComponent()
Me.Bezeichnung = Bezeichnung
End Sub
Private Sub frmAvisoFormularAnfuegen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
KdSearchBox.initKdBox(Me)
End Sub
Private Sub KdSearchBox_TextChanged(sender As Object, e As EventArgs) Handles KdSearchBox.TextChanged
If KdSearchBox.KdNr_value > 0 AndAlso KdSearchBox.KdNr IsNot Nothing Then
KdNr = KdSearchBox.KdNr_value
Dim AD = KdSearchBox.KdData_ADRESSEN
Dim KD = KdSearchBox.KdData_KUNDE
End If
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)
End Sub
Sub initDGVKundenvollmachten(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
Private Sub KdSearchBox_PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles KdSearchBox.PropertyChanged
If KdSearchBox.KdNr_value > 0 AndAlso KdSearchBox.KdData_KUNDE IsNot Nothing AndAlso KdSearchBox.KdData_ADRESSEN IsNot Nothing Then
KdNr = KdSearchBox.KdNr
Dim AD = KdSearchBox.KdData_ADRESSEN
Dim KD = KdSearchBox.KdData_KUNDE
init()
End If
End Sub
Private Sub cbVMTypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbVMTypen.SelectedIndexChanged
vollmachtartId = cbVMTypen._value
initDGVKundenvollmachten(vollmachtartId)
End Sub
Private Sub dgvKundenvollmachten_RowValidated(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenvollmachten.RowValidated
End Sub
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
End If
End Sub
Private Sub dgvKundenvollmachten_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKundenvollmachten.CellContentClick
dgvKundenvollmachten_SelectionChanged(sender, e)
End Sub
End Class

19
VERAGAddIn/rbnVERAG.Designer.vb generated
View File

@@ -46,6 +46,8 @@
Me.Button2 = Me.Factory.CreateRibbonButton
Me.btnPdfPrint = Me.Factory.CreateRibbonButton
Me.Button3 = Me.Factory.CreateRibbonButton
Me.btnAttachFormular = Me.Factory.CreateRibbonSplitButton
Me.btnVM = Me.Factory.CreateRibbonButton
Me.SplitButton1 = Me.Factory.CreateRibbonSplitButton
Me.Button1 = Me.Factory.CreateRibbonButton
Me.Button4 = Me.Factory.CreateRibbonButton
@@ -65,6 +67,7 @@
Me.VERAG.Items.Add(Me.Button2)
Me.VERAG.Items.Add(Me.btnPdfPrint)
Me.VERAG.Items.Add(Me.Button3)
Me.VERAG.Items.Add(Me.btnAttachFormular)
Me.VERAG.Items.Add(Me.SplitButton1)
Me.VERAG.Label = "AVISO"
Me.VERAG.Name = "VERAG"
@@ -93,6 +96,20 @@
Me.Button3.Name = "Button3"
Me.Button3.ShowImage = True
'
'btnAttachFormular
'
Me.btnAttachFormular.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
Me.btnAttachFormular.Image = Global.VERAGAddIn.My.Resources.Resources.pdf
Me.btnAttachFormular.Items.Add(Me.btnVM)
Me.btnAttachFormular.Label = "Formulare anhängen"
Me.btnAttachFormular.Name = "btnAttachFormular"
'
'btnVM
'
Me.btnVM.Label = "Vollmacht anhängen"
Me.btnVM.Name = "btnVM"
Me.btnVM.ShowImage = True
'
'SplitButton1
'
Me.SplitButton1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
@@ -136,6 +153,8 @@
Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton
Friend WithEvents Button3 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 btnVM As Microsoft.Office.Tools.Ribbon.RibbonButton
End Class
Partial Class ThisRibbonCollection

44
VERAGAddIn/rbnVERAG.vb
View File

@@ -32,7 +32,8 @@ Public Class VERAGRibbon
Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
End Sub
@@ -74,7 +75,12 @@ Public Class VERAGRibbon
If LOGIN_OK Then AVISO_Mail_Functions.addMailToAviso_Hauptfenster()
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.
If LOGIN_OK Then AVISO_Mail_Functions.addMailToAviso_Vollmachten()
End Sub
End Class
Public Class AVISO_Mail_Functions
@@ -105,7 +111,7 @@ Public Class AVISO_Mail_Functions
Return att
End Function
Shared Sub addMailToAviso(mailItem As Outlook.MailItem)
Shared Sub addMailToAviso(mailItem As Outlook.MailItem, Optional isFormular As Boolean = False)
Try
If mailItem IsNot Nothing Then
' Remove special characters from the file name and make sure it is not longer than 100 characters
@@ -127,7 +133,7 @@ Public Class AVISO_Mail_Functions
End If
End If
Dim Bezeichnung = strFileName
Dim AvisoId = getAvisoId(Bezeichnung, pdf_mail, SendungsId, Art, ATTACHMENTS_LIST) ')getAttachmentStringList(mailItem))
Dim AvisoId = getAvisoId(Bezeichnung, pdf_mail, SendungsId, Art, ATTACHMENTS_LIST, isFormular) ')getAttachmentStringList(mailItem))
If AvisoId < 0 Then Exit Sub
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.
@@ -572,7 +578,19 @@ Public Class AVISO_Mail_Functions
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, ByVal isFormular) As Integer
If (isFormular = True) Then
Dim frmAvisoFormularAnfuegen As New frmAvisoFormularAnfuegen(Bezeichnung)
If frmAvisoFormularAnfuegen.ShowDialog = DialogResult.OK Then
SendungsId = frmAvisoFormularAnfuegen.SendungsId
Bezeichnung = frmAvisoFormularAnfuegen.Bezeichnung
pdf_mail = frmAvisoFormularAnfuegen.PDF_MAIL
Return 1
End If
End If
Dim frmAvisoAnfügen As New frmAvisoAnfuegen(Bezeichnung)
frmAvisoAnfügen.ATT = Att
If frmAvisoAnfügen.ShowDialog = DialogResult.OK Then
@@ -583,11 +601,29 @@ Public Class AVISO_Mail_Functions
Art = frmAvisoAnfügen.cboArt._value
Att = frmAvisoAnfügen.ATT
Return AvisoId
End If
Return -1
End Function
Shared Sub addMailToAviso_Vollmachten()
Try
Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer
Dim selection As Outlook.Selection = explorer.Selection
If selection.Count > 0 Then
Dim selectedItem = selection(1)
Dim mailItem As Outlook.MailItem = selectedItem
mailItem = DirectCast(mailItem, Outlook.MailItem)
addMailToAviso(mailItem, True)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
End Class