Outlook AddIn: Formulare einfügen für Vollmachten.
This commit is contained in:
@@ -158,6 +158,12 @@
|
|||||||
-->
|
-->
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<Reference Include="Accessibility" />
|
<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="Microsoft.Office.Tools.Outlook.v4.0.Utilities, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
|
||||||
<Reference Include="System" />
|
<Reference Include="System" />
|
||||||
<Reference Include="System.Data" />
|
<Reference Include="System.Data" />
|
||||||
@@ -167,9 +173,6 @@
|
|||||||
<Reference Include="System.Core" />
|
<Reference Include="System.Core" />
|
||||||
<Reference Include="System.Xml.Linq" />
|
<Reference Include="System.Xml.Linq" />
|
||||||
<Reference Include="System.Data.DataSetExtensions" />
|
<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>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<Reference Include="Microsoft.Office.Tools.v4.0.Framework, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
|
<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">
|
<Compile Include="frmAvisoAnfügen.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</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">
|
<Compile Include="rbnMailItem.Designer.vb">
|
||||||
<DependentUpon>rbnMailItem.vb</DependentUpon>
|
<DependentUpon>rbnMailItem.vb</DependentUpon>
|
||||||
</Compile>
|
</Compile>
|
||||||
@@ -244,6 +253,9 @@
|
|||||||
<EmbeddedResource Include="frmAvisoAnfügen.resx">
|
<EmbeddedResource Include="frmAvisoAnfügen.resx">
|
||||||
<DependentUpon>frmAvisoAnfügen.vb</DependentUpon>
|
<DependentUpon>frmAvisoAnfügen.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="frmAvisoFormularAnfügen.resx">
|
||||||
|
<DependentUpon>frmAvisoFormularAnfügen.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="rbnMailItem.resx">
|
<EmbeddedResource Include="rbnMailItem.resx">
|
||||||
<DependentUpon>rbnMailItem.vb</DependentUpon>
|
<DependentUpon>rbnMailItem.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
@@ -285,15 +297,6 @@
|
|||||||
<None Include="VERAGAddIn_TemporaryKey.pfx" />
|
<None Include="VERAGAddIn_TemporaryKey.pfx" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
<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">
|
<COMReference Include="stdole1">
|
||||||
<Guid>{00020430-0000-0000-C000-000000000046}</Guid>
|
<Guid>{00020430-0000-0000-C000-000000000046}</Guid>
|
||||||
<VersionMajor>2</VersionMajor>
|
<VersionMajor>2</VersionMajor>
|
||||||
@@ -303,15 +306,6 @@
|
|||||||
<Isolated>False</Isolated>
|
<Isolated>False</Isolated>
|
||||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||||
</COMReference>
|
</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">
|
<COMReference Include="VBIDE">
|
||||||
<Guid>{0002E157-0000-0000-C000-000000000046}</Guid>
|
<Guid>{0002E157-0000-0000-C000-000000000046}</Guid>
|
||||||
<VersionMajor>5</VersionMajor>
|
<VersionMajor>5</VersionMajor>
|
||||||
@@ -322,16 +316,6 @@
|
|||||||
<EmbedInteropTypes>True</EmbedInteropTypes>
|
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||||
</COMReference>
|
</COMReference>
|
||||||
</ItemGroup>
|
</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>
|
<ItemGroup>
|
||||||
<None Include="Resources\Aviso.png" />
|
<None Include="Resources\Aviso.png" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
@@ -356,6 +340,12 @@
|
|||||||
<None Include="Resources\wheel.png" />
|
<None Include="Resources\wheel.png" />
|
||||||
<None Include="Resources\pdfprint.png" />
|
<None Include="Resources\pdfprint.png" />
|
||||||
</ItemGroup>
|
</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>
|
<PropertyGroup>
|
||||||
<VisualStudioVersion Condition="'$(VisualStudioVersion)' == ''">10.0</VisualStudioVersion>
|
<VisualStudioVersion Condition="'$(VisualStudioVersion)' == ''">10.0</VisualStudioVersion>
|
||||||
<VSToolsPath Condition="'$(VSToolsPath)' == ''">$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)</VSToolsPath>
|
<VSToolsPath Condition="'$(VSToolsPath)' == ''">$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)</VSToolsPath>
|
||||||
@@ -377,7 +367,7 @@
|
|||||||
</ManifestKeyFile>
|
</ManifestKeyFile>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ManifestCertificateThumbprint>443CA3745EE904EED98572A89099259301BA06D1</ManifestCertificateThumbprint>
|
<ManifestCertificateThumbprint>34D75D5089806BE69485715D014CE0611D10E677</ManifestCertificateThumbprint>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<SignAssembly>false</SignAssembly>
|
<SignAssembly>false</SignAssembly>
|
||||||
|
|||||||
68
VERAGAddIn/frmAvisoAnfügen.Designer.vb
generated
68
VERAGAddIn/frmAvisoAnfügen.Designer.vb
generated
@@ -28,8 +28,6 @@ Partial Class frmAvisoAnfuegen
|
|||||||
Me.Label14 = New System.Windows.Forms.Label()
|
Me.Label14 = New System.Windows.Forms.Label()
|
||||||
Me.Label13 = New System.Windows.Forms.Label()
|
Me.Label13 = New System.Windows.Forms.Label()
|
||||||
Me.Button1 = New System.Windows.Forms.Button()
|
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.Label2 = New System.Windows.Forms.Label()
|
||||||
Me.lblErr_Bezeichnung = New System.Windows.Forms.Label()
|
Me.lblErr_Bezeichnung = New System.Windows.Forms.Label()
|
||||||
Me.lblErr_Aviso = 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.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
Me.txtLKWNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
Me.txtLKWNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
Me.dgvAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
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.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.dgvSendungen, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.dgvSendungen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.dgvAviso, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.dgvAviso, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
@@ -93,34 +93,6 @@ Partial Class frmAvisoAnfuegen
|
|||||||
Me.Button1.Text = "Suche"
|
Me.Button1.Text = "Suche"
|
||||||
Me.Button1.UseVisualStyleBackColor = True
|
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
|
'Label2
|
||||||
'
|
'
|
||||||
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
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._DateTimeOnly = False
|
||||||
Me.txtSrchDat._numbersOnly = False
|
Me.txtSrchDat._numbersOnly = False
|
||||||
Me.txtSrchDat._numbersOnlyKommastellen = ""
|
Me.txtSrchDat._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtSrchDat._numbersOnlyTrennzeichen = True
|
||||||
Me.txtSrchDat._Prozent = False
|
Me.txtSrchDat._Prozent = False
|
||||||
Me.txtSrchDat._ShortDateNew = True
|
Me.txtSrchDat._ShortDateNew = True
|
||||||
Me.txtSrchDat._ShortDateOnly = False
|
Me.txtSrchDat._ShortDateOnly = False
|
||||||
Me.txtSrchDat._TimeOnly = False
|
Me.txtSrchDat._TimeOnly = False
|
||||||
|
Me.txtSrchDat._TimeOnly_Seconds = False
|
||||||
Me.txtSrchDat._value = ""
|
Me.txtSrchDat._value = ""
|
||||||
Me.txtSrchDat._Waehrung = False
|
Me.txtSrchDat._Waehrung = False
|
||||||
Me.txtSrchDat._WaehrungZeichen = True
|
Me.txtSrchDat._WaehrungZeichen = True
|
||||||
@@ -295,10 +269,12 @@ Partial Class frmAvisoAnfuegen
|
|||||||
Me.txtBezeichnung._DateTimeOnly = False
|
Me.txtBezeichnung._DateTimeOnly = False
|
||||||
Me.txtBezeichnung._numbersOnly = False
|
Me.txtBezeichnung._numbersOnly = False
|
||||||
Me.txtBezeichnung._numbersOnlyKommastellen = ""
|
Me.txtBezeichnung._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtBezeichnung._numbersOnlyTrennzeichen = True
|
||||||
Me.txtBezeichnung._Prozent = False
|
Me.txtBezeichnung._Prozent = False
|
||||||
Me.txtBezeichnung._ShortDateNew = False
|
Me.txtBezeichnung._ShortDateNew = False
|
||||||
Me.txtBezeichnung._ShortDateOnly = False
|
Me.txtBezeichnung._ShortDateOnly = False
|
||||||
Me.txtBezeichnung._TimeOnly = False
|
Me.txtBezeichnung._TimeOnly = False
|
||||||
|
Me.txtBezeichnung._TimeOnly_Seconds = False
|
||||||
Me.txtBezeichnung._value = ""
|
Me.txtBezeichnung._value = ""
|
||||||
Me.txtBezeichnung._Waehrung = False
|
Me.txtBezeichnung._Waehrung = False
|
||||||
Me.txtBezeichnung._WaehrungZeichen = True
|
Me.txtBezeichnung._WaehrungZeichen = True
|
||||||
@@ -318,10 +294,12 @@ Partial Class frmAvisoAnfuegen
|
|||||||
Me.txtAbfertigungsnummer._DateTimeOnly = False
|
Me.txtAbfertigungsnummer._DateTimeOnly = False
|
||||||
Me.txtAbfertigungsnummer._numbersOnly = False
|
Me.txtAbfertigungsnummer._numbersOnly = False
|
||||||
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
|
Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True
|
||||||
Me.txtAbfertigungsnummer._Prozent = False
|
Me.txtAbfertigungsnummer._Prozent = False
|
||||||
Me.txtAbfertigungsnummer._ShortDateNew = False
|
Me.txtAbfertigungsnummer._ShortDateNew = False
|
||||||
Me.txtAbfertigungsnummer._ShortDateOnly = False
|
Me.txtAbfertigungsnummer._ShortDateOnly = False
|
||||||
Me.txtAbfertigungsnummer._TimeOnly = False
|
Me.txtAbfertigungsnummer._TimeOnly = False
|
||||||
|
Me.txtAbfertigungsnummer._TimeOnly_Seconds = False
|
||||||
Me.txtAbfertigungsnummer._value = Nothing
|
Me.txtAbfertigungsnummer._value = Nothing
|
||||||
Me.txtAbfertigungsnummer._Waehrung = False
|
Me.txtAbfertigungsnummer._Waehrung = False
|
||||||
Me.txtAbfertigungsnummer._WaehrungZeichen = True
|
Me.txtAbfertigungsnummer._WaehrungZeichen = True
|
||||||
@@ -352,10 +330,12 @@ Partial Class frmAvisoAnfuegen
|
|||||||
Me.txtLKWNr._DateTimeOnly = False
|
Me.txtLKWNr._DateTimeOnly = False
|
||||||
Me.txtLKWNr._numbersOnly = False
|
Me.txtLKWNr._numbersOnly = False
|
||||||
Me.txtLKWNr._numbersOnlyKommastellen = ""
|
Me.txtLKWNr._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtLKWNr._numbersOnlyTrennzeichen = True
|
||||||
Me.txtLKWNr._Prozent = False
|
Me.txtLKWNr._Prozent = False
|
||||||
Me.txtLKWNr._ShortDateNew = False
|
Me.txtLKWNr._ShortDateNew = False
|
||||||
Me.txtLKWNr._ShortDateOnly = False
|
Me.txtLKWNr._ShortDateOnly = False
|
||||||
Me.txtLKWNr._TimeOnly = False
|
Me.txtLKWNr._TimeOnly = False
|
||||||
|
Me.txtLKWNr._TimeOnly_Seconds = False
|
||||||
Me.txtLKWNr._value = ""
|
Me.txtLKWNr._value = ""
|
||||||
Me.txtLKWNr._Waehrung = False
|
Me.txtLKWNr._Waehrung = False
|
||||||
Me.txtLKWNr._WaehrungZeichen = True
|
Me.txtLKWNr._WaehrungZeichen = True
|
||||||
@@ -389,6 +369,34 @@ Partial Class frmAvisoAnfuegen
|
|||||||
Me.dgvAviso.Size = New System.Drawing.Size(615, 369)
|
Me.dgvAviso.Size = New System.Drawing.Size(615, 369)
|
||||||
Me.dgvAviso.TabIndex = 6
|
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
|
'frmAvisoAnfuegen
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
|||||||
233
VERAGAddIn/frmAvisoFormularAnfügen.Designer.vb
generated
Normal file
233
VERAGAddIn/frmAvisoFormularAnfügen.Designer.vb
generated
Normal 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
1253
VERAGAddIn/frmAvisoFormularAnfügen.resx
Normal file
File diff suppressed because it is too large
Load Diff
175
VERAGAddIn/frmAvisoFormularAnfügen.vb
Normal file
175
VERAGAddIn/frmAvisoFormularAnfügen.vb
Normal 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
19
VERAGAddIn/rbnVERAG.Designer.vb
generated
@@ -46,6 +46,8 @@
|
|||||||
Me.Button2 = Me.Factory.CreateRibbonButton
|
Me.Button2 = Me.Factory.CreateRibbonButton
|
||||||
Me.btnPdfPrint = Me.Factory.CreateRibbonButton
|
Me.btnPdfPrint = Me.Factory.CreateRibbonButton
|
||||||
Me.Button3 = Me.Factory.CreateRibbonButton
|
Me.Button3 = Me.Factory.CreateRibbonButton
|
||||||
|
Me.btnAttachFormular = Me.Factory.CreateRibbonSplitButton
|
||||||
|
Me.btnVM = Me.Factory.CreateRibbonButton
|
||||||
Me.SplitButton1 = Me.Factory.CreateRibbonSplitButton
|
Me.SplitButton1 = Me.Factory.CreateRibbonSplitButton
|
||||||
Me.Button1 = Me.Factory.CreateRibbonButton
|
Me.Button1 = Me.Factory.CreateRibbonButton
|
||||||
Me.Button4 = Me.Factory.CreateRibbonButton
|
Me.Button4 = Me.Factory.CreateRibbonButton
|
||||||
@@ -65,6 +67,7 @@
|
|||||||
Me.VERAG.Items.Add(Me.Button2)
|
Me.VERAG.Items.Add(Me.Button2)
|
||||||
Me.VERAG.Items.Add(Me.btnPdfPrint)
|
Me.VERAG.Items.Add(Me.btnPdfPrint)
|
||||||
Me.VERAG.Items.Add(Me.Button3)
|
Me.VERAG.Items.Add(Me.Button3)
|
||||||
|
Me.VERAG.Items.Add(Me.btnAttachFormular)
|
||||||
Me.VERAG.Items.Add(Me.SplitButton1)
|
Me.VERAG.Items.Add(Me.SplitButton1)
|
||||||
Me.VERAG.Label = "AVISO"
|
Me.VERAG.Label = "AVISO"
|
||||||
Me.VERAG.Name = "VERAG"
|
Me.VERAG.Name = "VERAG"
|
||||||
@@ -93,6 +96,20 @@
|
|||||||
Me.Button3.Name = "Button3"
|
Me.Button3.Name = "Button3"
|
||||||
Me.Button3.ShowImage = True
|
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
|
'SplitButton1
|
||||||
'
|
'
|
||||||
Me.SplitButton1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
|
Me.SplitButton1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
|
||||||
@@ -136,6 +153,8 @@
|
|||||||
Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton
|
Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton
|
||||||
Friend WithEvents Button3 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 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
|
End Class
|
||||||
|
|
||||||
Partial Class ThisRibbonCollection
|
Partial Class ThisRibbonCollection
|
||||||
|
|||||||
@@ -32,7 +32,8 @@ Public Class VERAGRibbon
|
|||||||
|
|
||||||
Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
|
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()
|
LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -74,7 +75,12 @@ Public Class VERAGRibbon
|
|||||||
If LOGIN_OK Then AVISO_Mail_Functions.addMailToAviso_Hauptfenster()
|
If LOGIN_OK Then AVISO_Mail_Functions.addMailToAviso_Hauptfenster()
|
||||||
End Sub
|
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
|
End Class
|
||||||
|
|
||||||
Public Class AVISO_Mail_Functions
|
Public Class AVISO_Mail_Functions
|
||||||
@@ -105,7 +111,7 @@ Public Class AVISO_Mail_Functions
|
|||||||
Return att
|
Return att
|
||||||
|
|
||||||
End Function
|
End Function
|
||||||
Shared Sub addMailToAviso(mailItem As Outlook.MailItem)
|
Shared Sub addMailToAviso(mailItem As Outlook.MailItem, Optional isFormular As Boolean = False)
|
||||||
Try
|
Try
|
||||||
If mailItem IsNot Nothing Then
|
If mailItem IsNot Nothing Then
|
||||||
' Remove special characters from the file name and make sure it is not longer than 100 characters
|
' 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
|
||||||
End If
|
End If
|
||||||
Dim Bezeichnung = strFileName
|
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
|
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.
|
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
|
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)
|
Dim frmAvisoAnfügen As New frmAvisoAnfuegen(Bezeichnung)
|
||||||
frmAvisoAnfügen.ATT = Att
|
frmAvisoAnfügen.ATT = Att
|
||||||
If frmAvisoAnfügen.ShowDialog = DialogResult.OK Then
|
If frmAvisoAnfügen.ShowDialog = DialogResult.OK Then
|
||||||
@@ -583,11 +601,29 @@ Public Class AVISO_Mail_Functions
|
|||||||
Art = frmAvisoAnfügen.cboArt._value
|
Art = frmAvisoAnfügen.cboArt._value
|
||||||
Att = frmAvisoAnfügen.ATT
|
Att = frmAvisoAnfügen.ATT
|
||||||
|
|
||||||
|
|
||||||
Return AvisoId
|
Return AvisoId
|
||||||
End If
|
End If
|
||||||
Return -1
|
Return -1
|
||||||
End Function
|
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
|
End Class
|
||||||
|
|||||||
Reference in New Issue
Block a user