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

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
d.breimaier
2024-06-07 13:38:26 +02:00
parent 61362a90d9 325fabf993
commit 342de0ef37
27 changed files with 3525 additions and 258 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/App.config
View File

@@ -69,7 +69,7 @@
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.4.1" newVersion="4.0.4.1" />
<bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>

59
Aviso/Aviso.vbproj
View File

@@ -150,6 +150,9 @@
<Reference Include="DocumentFormat.OpenXml, Version=2.7.2.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<HintPath>..\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
</Reference>
<Reference Include="EAGetMail, Version=5.3.5.0, Culture=neutral, PublicKeyToken=e10a0812eb29cf94, processorArchitecture=MSIL">
<HintPath>..\packages\EAGetMail.5.3.5\lib\net461\EAGetMail.dll</HintPath>
</Reference>
<Reference Include="Gemeinsames">
<HintPath>..\Gemeinsames\bin\Debug\Gemeinsames.dll</HintPath>
</Reference>
@@ -292,8 +295,8 @@
<HintPath>..\..\..\dll\Spire.PDF\2023\Spire.PdfViewer.Forms.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Buffers, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Buffers.4.4.0\lib\netstandard2.0\System.Buffers.dll</HintPath>
<Reference Include="System.Buffers, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Buffers.4.5.1\lib\net461\System.Buffers.dll</HintPath>
</Reference>
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
@@ -311,18 +314,24 @@
<HintPath>..\packages\System.IO.Packaging.4.0.0\lib\net46\System.IO.Packaging.dll</HintPath>
</Reference>
<Reference Include="System.Management" />
<Reference Include="System.Memory, Version=4.0.1.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Memory.4.5.0\lib\netstandard2.0\System.Memory.dll</HintPath>
<Reference Include="System.Memory, Version=4.0.1.2, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Memory.4.5.5\lib\net461\System.Memory.dll</HintPath>
</Reference>
<Reference Include="System.Numerics" />
<Reference Include="System.Numerics.Vectors, Version=4.1.3.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Numerics.Vectors.4.4.0\lib\net46\System.Numerics.Vectors.dll</HintPath>
<Reference Include="System.Numerics.Vectors, Version=4.1.4.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Numerics.Vectors.4.5.0\lib\net46\System.Numerics.Vectors.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=4.0.4.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.4.5.2\lib\netstandard2.0\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.0.0\lib\net461\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Security" />
<Reference Include="System.Security.Cryptography.Pkcs, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Security.Cryptography.Pkcs.8.0.0\lib\net462\System.Security.Cryptography.Pkcs.dll</HintPath>
</Reference>
<Reference Include="System.Text.Encoding.CodePages, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Text.Encoding.CodePages.8.0.0\lib\net462\System.Text.Encoding.CodePages.dll</HintPath>
</Reference>
<Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.2\lib\netstandard2.0\System.Threading.Tasks.Extensions.dll</HintPath>
</Reference>
@@ -555,12 +564,24 @@
<Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmATZollEingereichtSetzenEV.Designer.vb">
<DependentUpon>frmATZollEingereichtSetzenEV.vb</DependentUpon>
</Compile>
<Compile Include="frmATZollEingereichtSetzenEV.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAvisoAnhangsarten.Designer.vb">
<DependentUpon>frmAvisoAnhangsarten.vb</DependentUpon>
</Compile>
<Compile Include="frmAvisoAnhangsarten.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAvisoBirthday.Designer.vb">
<DependentUpon>frmAvisoBirthday.vb</DependentUpon>
</Compile>
<Compile Include="frmAvisoBirthday.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmDigicust.Designer.vb">
<DependentUpon>frmDigicust.vb</DependentUpon>
</Compile>
@@ -943,6 +964,12 @@
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="rCntrlVermerke.Designer.vb">
<DependentUpon>rCntrlVermerke.vb</DependentUpon>
</Compile>
<Compile Include="rCntrlVermerke.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="rptAuswertung.designer.vb">
<DependentUpon>rptAuswertung.vb</DependentUpon>
</Compile>
@@ -1149,9 +1176,15 @@
<EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
<DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmATZollEingereichtSetzenEV.resx">
<DependentUpon>frmATZollEingereichtSetzenEV.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAvisoAnhangsarten.resx">
<DependentUpon>frmAvisoAnhangsarten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAvisoBirthday.resx">
<DependentUpon>frmAvisoBirthday.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmDigicust.resx">
<DependentUpon>frmDigicust.vb</DependentUpon>
</EmbeddedResource>
@@ -1345,6 +1378,9 @@
<SubType>Designer</SubType>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="rCntrlVermerke.resx">
<DependentUpon>rCntrlVermerke.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="rptAuswertung.resx">
<DependentUpon>rptAuswertung.vb</DependentUpon>
</EmbeddedResource>
@@ -1567,6 +1603,7 @@
<None Include="Resources\atr.png" />
<None Include="Resources\atr_s.png" />
<Content Include="Resources\ambar_boarder.png" />
<None Include="Resources\birthday_4.jpg" />
<Content Include="Resources\FO.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
@@ -1578,6 +1615,12 @@
<None Include="Resources\vorauszahlung_bg.jpg" />
<None Include="Resources\handy2.png" />
<None Include="Resources\wiki.png" />
<None Include="Resources\memories0.png" />
<None Include="Resources\memories1.png" />
<None Include="Resources\memories2.png" />
<None Include="Resources\memories3.png" />
<None Include="Resources\memories4.png" />
<None Include="Resources\memories5.png" />
<Content Include="Resources\WLAN\RunNHide.exe">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

70
Aviso/My Project/Resources.Designer.vb generated
View File

@@ -428,6 +428,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property birthday_4() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("birthday_4", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -968,6 +978,66 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property memories0() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("memories0", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property memories1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("memories1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property memories2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("memories2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property memories3() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("memories3", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property memories4() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("memories4", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property memories5() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("memories5", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

93
Aviso/My Project/Resources.resx
View File

@@ -190,9 +190,6 @@
<data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -238,6 +235,9 @@
<data name="mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="parkplatz" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\parkplatz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -250,6 +250,9 @@
<data name="arrow_left_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="wiki" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wiki.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="urgent" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\urgent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -280,9 +283,6 @@
<data name="auftrag3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\auftrag3.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_down_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_down_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="NKD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NKD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -295,9 +295,6 @@
<data name="vorauszahlung11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -328,9 +325,6 @@
<data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -358,9 +352,6 @@
<data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ge_transport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ge_transport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -388,9 +379,6 @@
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="weiterleiten_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -409,6 +397,12 @@
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -433,6 +427,9 @@
<data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -487,12 +484,18 @@
<data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -505,6 +508,9 @@
<data name="ok" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -550,8 +556,8 @@
<data name="zeus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zeus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -589,8 +595,8 @@
<data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -613,14 +619,14 @@
<data name="word" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="atr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\atr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="arrow_down_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_down_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -628,8 +634,8 @@
<data name="image_443x282" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -646,11 +652,11 @@
<data name="abklaerungTR_Inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abklaerungTR_Inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="atr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\atr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asdas2d1a" xml:space="preserve">
<value />
@@ -664,10 +670,25 @@
<data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="wiki" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wiki.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="birthday_4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\birthday_4.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\bin\Debug\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="memories0" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories0.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
Aviso/Resources/birthday_4.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 92 KiB

BIN
Aviso/Resources/memories0.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 36 KiB

BIN
Aviso/Resources/memories1.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 30 KiB

BIN
Aviso/Resources/memories2.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 384 KiB

BIN
Aviso/Resources/memories3.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 31 KiB

BIN
Aviso/Resources/memories4.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 62 KiB

BIN
Aviso/Resources/memories5.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 69 KiB

354
Aviso/frmATZollEingereichtSetzenEV.Designer.vb generated Normal file
View File

@@ -0,0 +1,354 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmATZollEingereichtSetzenEV
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATZollEingereichtSetzenEV))
Me.pnl = New System.Windows.Forms.Panel()
Me.Label7 = New System.Windows.Forms.Label()
Me.lblAbfNr = New System.Windows.Forms.Label()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.cbxRG2 = New System.Windows.Forms.CheckBox()
Me.cbxRG1 = New System.Windows.Forms.CheckBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.lblWare = New System.Windows.Forms.Label()
Me.lblAbs = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblNr = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cbxEmpf = New System.Windows.Forms.CheckBox()
Me.lblAuftr = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Label8)
Me.pnl.Controls.Add(Me.GroupBox1)
Me.pnl.Controls.Add(Me.Label7)
Me.pnl.Controls.Add(Me.lblAbfNr)
Me.pnl.Controls.Add(Me.GroupBox3)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.lblWare)
Me.pnl.Controls.Add(Me.lblAbs)
Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.Label5)
Me.pnl.Controls.Add(Me.btn)
Me.pnl.Controls.Add(Me.Label3)
Me.pnl.Controls.Add(Me.Panel3)
Me.pnl.Controls.Add(Me.lblAuftr)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(621, 409)
Me.pnl.TabIndex = 0
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(451, 125)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(108, 13)
Me.Label7.TabIndex = 78
Me.Label7.Text = "Filiale/AbfertigungsNr"
'
'lblAbfNr
'
Me.lblAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblAbfNr.Location = New System.Drawing.Point(450, 138)
Me.lblAbfNr.Name = "lblAbfNr"
Me.lblAbfNr.Size = New System.Drawing.Size(158, 26)
Me.lblAbfNr.TabIndex = 77
Me.lblAbfNr.Text = "4803/23999999"
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.cbxRG2)
Me.GroupBox3.Controls.Add(Me.cbxRG1)
Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox3.Location = New System.Drawing.Point(14, 249)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(336, 86)
Me.GroupBox3.TabIndex = 58
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Auf Rechnung"
'
'cbxRG2
'
Me.cbxRG2.AutoSize = True
Me.cbxRG2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxRG2.Location = New System.Drawing.Point(6, 45)
Me.cbxRG2.Name = "cbxRG2"
Me.cbxRG2.Size = New System.Drawing.Size(314, 30)
Me.cbxRG2.TabIndex = 1
Me.cbxRG2.Text = "Der Text zur steuerlichen Vertretung in AT/DE durch VERAG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ist auf der Rechnung a" &
"ufgedruckt."
Me.cbxRG2.UseVisualStyleBackColor = True
'
'cbxRG1
'
Me.cbxRG1.AutoSize = True
Me.cbxRG1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxRG1.Location = New System.Drawing.Point(6, 22)
Me.cbxRG1.Name = "cbxRG1"
Me.cbxRG1.Size = New System.Drawing.Size(248, 17)
Me.cbxRG1.TabIndex = 0
Me.cbxRG1.Text = "AT-UID Nummer des Absenders auf Rechnung"
Me.cbxRG1.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(619, 41)
Me.Panel1.TabIndex = 53
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Panel2.Location = New System.Drawing.Point(535, 41)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(85, 63)
Me.Panel2.TabIndex = 76
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.Red
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(534, -1)
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(85, 33)
Me.Button1.TabIndex = 1
Me.Button1.Text = "x"
Me.Button1.UseVisualStyleBackColor = False
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label6.ForeColor = System.Drawing.Color.White
Me.Label6.Location = New System.Drawing.Point(13, 6)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(467, 26)
Me.Label6.TabIndex = 51
Me.Label6.Text = "Checkliste"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'lblWare
'
Me.lblWare.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblWare.Location = New System.Drawing.Point(10, 217)
Me.lblWare.Name = "lblWare"
Me.lblWare.Size = New System.Drawing.Size(587, 26)
Me.lblWare.TabIndex = 51
Me.lblWare.Text = "PCK"
'
'lblAbs
'
Me.lblAbs.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblAbs.Location = New System.Drawing.Point(10, 138)
Me.lblAbs.Name = "lblAbs"
Me.lblAbs.Size = New System.Drawing.Size(435, 26)
Me.lblAbs.TabIndex = 50
Me.lblAbs.Text = "Absender:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(11, 125)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(50, 13)
Me.Label4.TabIndex = 48
Me.Label4.Text = "Abender:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(11, 204)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(36, 13)
Me.Label5.TabIndex = 49
Me.Label5.Text = "Ware:"
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(402, 334)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(206, 62)
Me.btn.TabIndex = 0
Me.btn.Text = "Weiter >>" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Bestätigen)"
Me.btn.UseVisualStyleBackColor = False
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label3.Location = New System.Drawing.Point(6, 54)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(469, 57)
Me.Label3.TabIndex = 52
Me.Label3.Text = "Veranlagungskunde!"
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.AntiqueWhite
Me.Panel3.Controls.Add(Me.Label2)
Me.Panel3.Controls.Add(Me.lblNr)
Me.Panel3.Location = New System.Drawing.Point(533, 41)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(87, 57)
Me.Panel3.TabIndex = 76
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(20, 3)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(49, 13)
Me.Label2.TabIndex = 77
Me.Label2.Text = "Send.Nr."
'
'lblNr
'
Me.lblNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold)
Me.lblNr.Location = New System.Drawing.Point(5, 18)
Me.lblNr.Name = "lblNr"
Me.lblNr.Size = New System.Drawing.Size(78, 34)
Me.lblNr.TabIndex = 75
Me.lblNr.Text = "99"
Me.lblNr.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cbxEmpf)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(356, 249)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(250, 57)
Me.GroupBox1.TabIndex = 59
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "ODER:"
'
'cbxEmpf
'
Me.cbxEmpf.AutoSize = True
Me.cbxEmpf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxEmpf.Location = New System.Drawing.Point(6, 22)
Me.cbxEmpf.Name = "cbxEmpf"
Me.cbxEmpf.Size = New System.Drawing.Size(192, 17)
Me.cbxEmpf.TabIndex = 0
Me.cbxEmpf.Text = "Es wird auf den Empfänger verzollt!"
Me.cbxEmpf.UseVisualStyleBackColor = True
'
'lblAuftr
'
Me.lblAuftr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
Me.lblAuftr.Location = New System.Drawing.Point(10, 177)
Me.lblAuftr.Name = "lblAuftr"
Me.lblAuftr.Size = New System.Drawing.Size(435, 26)
Me.lblAuftr.TabIndex = 80
Me.lblAuftr.Text = "Absender:"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(11, 164)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(71, 13)
Me.Label8.TabIndex = 79
Me.Label8.Text = "Auftraggeber:"
'
'frmATZollEingereichtSetzenEV
'
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(621, 409)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmATZollEingereichtSetzenEV"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "AT Zoll Einreichen Fiskal - Checkliste"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents Button1 As Button
Friend WithEvents btn As Button
Friend WithEvents Panel1 As Panel
Friend WithEvents Label6 As Label
Friend WithEvents Label3 As Label
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents cbxRG2 As CheckBox
Friend WithEvents cbxRG1 As CheckBox
Friend WithEvents lblWare As Label
Friend WithEvents lblAbs As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Panel3 As Panel
Friend WithEvents lblNr As Label
Friend WithEvents Panel2 As Panel
Friend WithEvents Label2 As Label
Friend WithEvents Label7 As Label
Friend WithEvents lblAbfNr As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents cbxEmpf As CheckBox
Friend WithEvents Label8 As Label
Friend WithEvents lblAuftr As Label
End Class

1253
Aviso/frmATZollEingereichtSetzenEV.resx Normal file
View File

File diff suppressed because it is too large Load Diff

92
Aviso/frmATZollEingereichtSetzenEV.vb Normal file
View File

@@ -0,0 +1,92 @@
Imports SDL
Imports SDL.EORI
Imports VERAG_PROG_ALLGEMEIN
Public Class frmATZollEingereichtSetzenEV
Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
Public SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
Sub New(AVISO, SND)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AVISO = AVISO
Me.SND = SND
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load
If AVISO IsNot Nothing Then
lblAbs.Text = If(SND.tblSnd_Absender, "")
lblAuftr.Text = If(SND.tblSnd_Auftraggeber, "")
lblAbfNr.Text = SND.FilialenNr & "/" & SND.AbfertigungsNr
lblWare.Text = If(SND.tblSnd_Gewicht, "") & " kg, " & If(SND.tblSnd_Colli, "") & " Pk. " & If(SND.tblSnd_Warenbezeichnung, "")
End If
If SND IsNot Nothing Then
If SND.tblSnd_EmpfaengerKdNr > 0 Then
lblNr.Text = SND.tblSnd_PosUnterNr
'Dim ADRESSEN As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr)
'Dim KUNDEN As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr)
'If ADRESSEN IsNot Nothing Then
' txtUid.Text = If(ADRESSEN.UstIdKz, "") & If(ADRESSEN.UstIdNr, "")
' Dim UID_Pruef = VERAG_PROG_ALLGEMEIN.cUIDPruefung.LOADByKdNrNewestDate(SND.tblSnd_EmpfaengerKdNr)
' If UID_Pruef IsNot Nothing Then
' lblUIDPruefdatum.Text = UID_Pruef.uid_Datum.ToShortDateString
' If UID_Pruef.uid_Datum.ToShortDateString = Now.ToShortDateString Then
' cbxUID.Checked = True
' picUIDAbfrage.Image = My.Resources.ok
' Else
' check_UID_AD(ADRESSEN)
' End If
' End If
'Else
' check_UID(txtUid.Text)
'End If
'If KUNDEN IsNot Nothing Then
' txtEori.Text = If(KUNDEN.EORITIN, "")
' check_EORI(KUNDEN)
'End If
End If
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
If cbxEmpf.Checked Then
Me.DialogResult = DialogResult.OK
Else
If Not cbxRG1.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
If Not cbxRG2.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
' AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "UID Prüfung Begründung: " & Txt, 47)
Me.DialogResult = DialogResult.OK
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DialogResult = DialogResult.Cancel
End Sub
Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs)
If e.KeyCode = Keys.Return Then
btn.PerformClick()
End If
End Sub
End Class

103
Aviso/frmAddAktenvermerkShort.vb
View File

@@ -169,6 +169,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End If
Dim tmpSndId = -1
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
'Plausibilität prüfen
@@ -183,13 +184,13 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
Else
'--------------------------------------------------------------------------------------------------------------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST IsNot Nothing Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST IsNot Nothing Then
For Each SND In SENDUNG_LIST
For Each SND In SENDUNG_LIST
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
Select Case SND.tblSnd_Abfertigungsart_ID
Case 28 ' --> DE FISKAL
@@ -202,8 +203,25 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End If
End Select
Next
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
'VERANLAGUNGSKUNDE
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
If f.ShowDialog() = DialogResult.OK Then
If f.cbxEmpf.Checked Then
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
Else
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
End If
Else
Exit Sub ' --> YOU'RE OUT!
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
Next
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -218,7 +236,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
'End If
End If
ElseIf sender Is btnDEZollDIGITAL Then
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If sender.tag = "SWITCH" Then
insertVermerk("DE Zoll (DIGITAL) fertig", 83)
If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
@@ -229,14 +247,14 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
Else
'--------------------------------------------------------------------------------------------------------------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST IsNot Nothing Then
For Each SND In SENDUNG_LIST
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
Select Case SND.tblSnd_Abfertigungsart_ID
Case 28 ' --> DE FISKAL
@@ -249,9 +267,26 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
End If
End Select
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
'VERANLAGUNGSKUNDE
If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
If f.ShowDialog() = DialogResult.OK Then
If f.cbxEmpf.Checked Then
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
Else
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
End If
Else
Exit Sub ' --> YOU'RE OUT!
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
Next
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
insertVermerk("DE Zoll DIGITAL eingereicht", 82)
@@ -266,14 +301,15 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
'--------------------------------------------------------------------------------------------------------------------------------------------------------
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST IsNot Nothing Then
For Each SND In SENDUNG_LIST
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
Select Case SND.tblSnd_Abfertigungsart_ID
Case 26 ' --> AT FISKAL
@@ -285,13 +321,36 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
Exit Sub ' --> YOU'RE OUT!
End If
End Select
Next
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
End Select
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
'VERANLAGUNGSKUNDE
If sql.getValueTxtBySql("SELECT COUNT(*) FROM [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
If f.ShowDialog() = DialogResult.OK Then
If f.cbxEmpf.Checked Then
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
Else
AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
End If
Else
Exit Sub ' --> YOU'RE OUT!
End If
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
Next
End If
'--------------------------------------------------------------------------------------------------------------------------------------------------------
insertVermerk("AT Zoll eingereicht", 19)
'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then

215
Aviso/frmAvisoBirthday.Designer.vb generated Normal file
View File

@@ -0,0 +1,215 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAvisoBirthday
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAvisoBirthday))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.MyTextBox1)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.MyTextBox2)
Me.Panel1.Controls.Add(Me.RichTextBox1)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.PictureBox2)
Me.Panel1.Controls.Add(Me.MyTextBox3)
Me.Panel1.Controls.Add(Me.PictureBox1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(800, 982)
Me.Panel1.TabIndex = 0
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(586, 908)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(182, 61)
Me.Button2.TabIndex = 6
Me.Button2.Text = "OK"
Me.Button2.UseVisualStyleBackColor = True
'
'MyTextBox2
'
Me.MyTextBox2._DateTimeOnly = False
Me.MyTextBox2._numbersOnly = False
Me.MyTextBox2._numbersOnlyKommastellen = ""
Me.MyTextBox2._numbersOnlyTrennzeichen = True
Me.MyTextBox2._Prozent = False
Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._TimeOnly_Seconds = False
Me.MyTextBox2._value = "Glückwünsche senden:"
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(22, 887)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
Me.MyTextBox2.Name = "MyTextBox2"
Me.MyTextBox2.Size = New System.Drawing.Size(224, 19)
Me.MyTextBox2.TabIndex = 5
Me.MyTextBox2.Text = "Glückwünsche senden:"
'
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = False
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._numbersOnlyTrennzeichen = True
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._TimeOnly_Seconds = False
Me.MyTextBox1._value = "Erinnerungen..."
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyTextBox1.ForeColor = System.Drawing.Color.DarkBlue
Me.MyTextBox1.Location = New System.Drawing.Point(22, 340)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(158, 23)
Me.MyTextBox1.TabIndex = 4
Me.MyTextBox1.Text = "Erinnerungen..."
'
'RichTextBox1
'
Me.RichTextBox1.Location = New System.Drawing.Point(22, 908)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(295, 61)
Me.RichTextBox1.TabIndex = 3
Me.RichTextBox1.Text = ""
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(323, 908)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(100, 61)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Senden"
Me.Button1.UseVisualStyleBackColor = True
'
'PictureBox2
'
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox2.Location = New System.Drawing.Point(22, 369)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(746, 513)
Me.PictureBox2.TabIndex = 1
Me.PictureBox2.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.White
Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.birthday_4
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(22, -1)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(746, 278)
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'MyTextBox3
'
Me.MyTextBox3._DateTimeOnly = False
Me.MyTextBox3._numbersOnly = False
Me.MyTextBox3._numbersOnlyKommastellen = ""
Me.MyTextBox3._numbersOnlyTrennzeichen = True
Me.MyTextBox3._Prozent = False
Me.MyTextBox3._ShortDateNew = False
Me.MyTextBox3._ShortDateOnly = False
Me.MyTextBox3._TimeOnly = False
Me.MyTextBox3._TimeOnly_Seconds = False
Me.MyTextBox3._value = resources.GetString("MyTextBox3._value")
Me.MyTextBox3._Waehrung = False
Me.MyTextBox3._WaehrungZeichen = True
Me.MyTextBox3.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyTextBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.MyTextBox3.ForeColor = System.Drawing.Color.Black
Me.MyTextBox3.Location = New System.Drawing.Point(23, 268)
Me.MyTextBox3.MaxLineLength = -1
Me.MyTextBox3.MaxLines_Warning = ""
Me.MyTextBox3.MaxLines_Warning_Label = Nothing
Me.MyTextBox3.Multiline = True
Me.MyTextBox3.Name = "MyTextBox3"
Me.MyTextBox3.Size = New System.Drawing.Size(773, 86)
Me.MyTextBox3.TabIndex = 7
Me.MyTextBox3.Text = resources.GetString("MyTextBox3.Text")
Me.MyTextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'frmAvisoBirthday
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 982)
Me.Controls.Add(Me.Panel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "frmAvisoBirthday"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmAvisoBirthday"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As Panel
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents RichTextBox1 As RichTextBox
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

132
Aviso/frmAvisoBirthday.resx Normal file
View File

@@ -0,0 +1,132 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="MyTextBox3._value" xml:space="preserve">
<value>Das Avsio Programm wird seit 2013 entwickelt und steuert immer mehr Prozesse in unserer Zoll- und Buchhaltungsabteilung.
Aktuell ist die Versionsnummer 4.0.0.0 erreicht!
In Version 2.x und 3.x gab es noch Versionssprünge, seit 3.0.0.0 (ca. 2017) wurden durchgängig 1.000 Updates (Erweiterungen/Verbesserungen) durchgeführt.</value>
</data>
<data name="MyTextBox3.Text" xml:space="preserve">
<value>Das Avsio Programm wird seit 2013 entwickelt und steuert immer mehr Prozesse in unserer Zoll- und Buchhaltungsabteilung.
Aktuell ist die Versionsnummer 4.0.0.0 erreicht!
In Version 2.x und 3.x gab es noch Versionssprünge, seit 3.0.0.0 (ca. 2017) wurden durchgängig 1.000 Updates (Erweiterungen/Verbesserungen) durchgeführt.</value>
</data>
</root>

27
Aviso/frmAvisoBirthday.vb Normal file
View File

@@ -0,0 +1,27 @@
Public Class frmAvisoBirthday
Dim cnt As Integer = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag;d.breimaier@verag.ag", "AVISO Congrats - " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, RichTextBox1.Text)
'
Button1.Visible = False
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub frmAvisoBirthday_Load(sender As Object, e As EventArgs) Handles Me.Load
PictureBox2.BackgroundImage = My.Resources.memories0
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
If cnt = 0 Then : PictureBox2.BackgroundImage = My.Resources.memories1 : cnt += 1
ElseIf cnt = 1 Then : PictureBox2.BackgroundImage = My.Resources.memories2 : cnt += 1
ElseIf cnt = 2 Then : PictureBox2.BackgroundImage = My.Resources.memories3 : cnt += 1
ElseIf cnt = 3 Then : PictureBox2.BackgroundImage = My.Resources.memories4 : cnt += 1
ElseIf cnt = 4 Then : PictureBox2.BackgroundImage = My.Resources.memories5 : cnt += 1
ElseIf cnt = 5 Then : PictureBox2.BackgroundImage = My.Resources.memories0 : cnt = 0
End If
End Sub
End Class

10
Aviso/frmHauptfenster.vb
View File

@@ -2838,6 +2838,16 @@ Public Class frmHauptfenster
BürgschaftenExcelToolStripMenuItem.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA IsNot "VERIMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG = False Then
If CInt(Application.ProductVersion.Replace(".", "")) = 4000 Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmAvisoBirthday
f.ShowDialog(frmGrayOut)
frmGrayOut.Close()
End If
End If
End Sub
WithEvents timerStart As New Timer

365
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -34,6 +34,15 @@ Partial Class frmSendungsdetailsNEU
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -127,6 +136,15 @@ Partial Class frmSendungsdetailsNEU
Me.dgvDigicust = New System.Windows.Forms.DataGridView()
Me.Panel24 = New System.Windows.Forms.Panel()
Me.Button19 = New System.Windows.Forms.Button()
Me.tbMail = New System.Windows.Forms.TabPage()
Me.dgvMail = New System.Windows.Forms.DataGridView()
Me.clmnSender = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnRec = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnSbj = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnAtt = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnUIDL = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Panel25 = New System.Windows.Forms.Panel()
Me.Button23 = New System.Windows.Forms.Button()
Me.Panel14 = New System.Windows.Forms.Panel()
Me.pnlDetails = New System.Windows.Forms.Panel()
Me.tbcntr = New System.Windows.Forms.TabControl()
@@ -292,6 +310,9 @@ Partial Class frmSendungsdetailsNEU
Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.LinkLabel4 = New System.Windows.Forms.LinkLabel()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.pnlValidation = New System.Windows.Forms.Panel()
Me.rtbValidierung = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.cboAbfertigungsLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label()
Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox()
@@ -441,6 +462,8 @@ Partial Class frmSendungsdetailsNEU
Me.StatusAbrufenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.XXXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.timerValidation = New System.Windows.Forms.Timer(Me.components)
Me.RCntrlVermerke1 = New AVISO.rCntrlVermerke()
Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout()
@@ -468,6 +491,9 @@ Partial Class frmSendungsdetailsNEU
Me.tbDigicust.SuspendLayout()
CType(Me.dgvDigicust, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel24.SuspendLayout()
Me.tbMail.SuspendLayout()
CType(Me.dgvMail, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel25.SuspendLayout()
Me.pnlDetails.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage4.SuspendLayout()
@@ -491,6 +517,7 @@ Partial Class frmSendungsdetailsNEU
Me.cntxt.SuspendLayout()
Me.pnlT1.SuspendLayout()
Me.Panel5.SuspendLayout()
Me.pnlValidation.SuspendLayout()
CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.pnlFremd.SuspendLayout()
@@ -544,6 +571,7 @@ Partial Class frmSendungsdetailsNEU
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.tbATEZ)
Me.TabControl1.Controls.Add(Me.tbDigicust)
Me.TabControl1.Controls.Add(Me.tbMail)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.TabControl1.Location = New System.Drawing.Point(0, 3)
@@ -593,7 +621,7 @@ Partial Class frmSendungsdetailsNEU
Me.tbAnhang.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.tbAnhang.Location = New System.Drawing.Point(4, 29)
Me.tbAnhang.Name = "tbAnhang"
Me.tbAnhang.Size = New System.Drawing.Size(1206, 288)
Me.tbAnhang.Size = New System.Drawing.Size(1206, 289)
Me.tbAnhang.TabIndex = 4
Me.tbAnhang.Text = "Anhang"
Me.tbAnhang.UseVisualStyleBackColor = True
@@ -611,9 +639,10 @@ Partial Class frmSendungsdetailsNEU
Me.dgvAnhang.Name = "dgvAnhang"
Me.dgvAnhang.ReadOnly = True
Me.dgvAnhang.RowHeadersVisible = False
Me.dgvAnhang.RowHeadersWidth = 51
Me.dgvAnhang.RowTemplate.Height = 40
Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhang.Size = New System.Drawing.Size(1206, 243)
Me.dgvAnhang.Size = New System.Drawing.Size(1206, 244)
Me.dgvAnhang.TabIndex = 1
'
'btnDirektAnfuegen
@@ -857,7 +886,7 @@ Partial Class frmSendungsdetailsNEU
Me.tbZollabfertigung.Controls.Add(Me.Panel16)
Me.tbZollabfertigung.Location = New System.Drawing.Point(4, 29)
Me.tbZollabfertigung.Name = "tbZollabfertigung"
Me.tbZollabfertigung.Size = New System.Drawing.Size(1206, 288)
Me.tbZollabfertigung.Size = New System.Drawing.Size(1206, 289)
Me.tbZollabfertigung.TabIndex = 2
Me.tbZollabfertigung.Text = "Zollabfertigung"
Me.tbZollabfertigung.UseVisualStyleBackColor = True
@@ -871,7 +900,7 @@ Partial Class frmSendungsdetailsNEU
Me.Panel16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.Panel16.Location = New System.Drawing.Point(0, 0)
Me.Panel16.Name = "Panel16"
Me.Panel16.Size = New System.Drawing.Size(1206, 288)
Me.Panel16.Size = New System.Drawing.Size(1206, 289)
Me.Panel16.TabIndex = 0
'
'dgvZollAnmeldungen
@@ -886,9 +915,10 @@ Partial Class frmSendungsdetailsNEU
Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 32)
Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen"
Me.dgvZollAnmeldungen.ReadOnly = True
Me.dgvZollAnmeldungen.RowHeadersWidth = 51
Me.dgvZollAnmeldungen.RowTemplate.Height = 30
Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 218)
Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 219)
Me.dgvZollAnmeldungen.TabIndex = 1
'
'Panel17
@@ -897,7 +927,7 @@ Partial Class frmSendungsdetailsNEU
Me.Panel17.Controls.Add(Me.Button6)
Me.Panel17.Controls.Add(Me.Button5)
Me.Panel17.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel17.Location = New System.Drawing.Point(0, 250)
Me.Panel17.Location = New System.Drawing.Point(0, 251)
Me.Panel17.Name = "Panel17"
Me.Panel17.Size = New System.Drawing.Size(1206, 38)
Me.Panel17.TabIndex = 2
@@ -934,6 +964,7 @@ Partial Class frmSendungsdetailsNEU
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem13, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.ToolStripMenuItem11, Me.ToolStripMenuItem17, Me.ToolStripMenuItem21, Me.ToolStripMenuItem31, Me.ToolStripMenuItem12, Me.ToolStripMenuItem32})
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip.Name = "MenuStrip"
Me.MenuStrip.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
Me.MenuStrip.Size = New System.Drawing.Size(1206, 32)
Me.MenuStrip.TabIndex = 0
'
@@ -961,7 +992,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem8.Text = "T1"
'
'ToolStripMenuItem9
@@ -969,7 +1000,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem9.Text = "T2"
'
'ToolStripMenuItem10
@@ -977,7 +1008,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem10.Enabled = False
Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem10.Text = "Ü-T"
Me.ToolStripMenuItem10.Visible = False
'
@@ -1102,8 +1133,8 @@ Partial Class frmSendungsdetailsNEU
Me.TabPage1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.TabPage1.Location = New System.Drawing.Point(4, 29)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(1206, 288)
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.TabPage1.Size = New System.Drawing.Size(1206, 289)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Kunden - Zolltarif"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -1119,7 +1150,7 @@ Partial Class frmSendungsdetailsNEU
Me.pnlKundenZolltarif.Location = New System.Drawing.Point(3, 36)
Me.pnlKundenZolltarif.MinimumSize = New System.Drawing.Size(2, 103)
Me.pnlKundenZolltarif.Name = "pnlKundenZolltarif"
Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1200, 249)
Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1200, 250)
Me.pnlKundenZolltarif.TabIndex = 1
Me.pnlKundenZolltarif.TabStop = True
'
@@ -1128,7 +1159,7 @@ Partial Class frmSendungsdetailsNEU
Me.Label22.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label22.AutoSize = True
Me.Label22.Location = New System.Drawing.Point(4, 208)
Me.Label22.Location = New System.Drawing.Point(4, 209)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(209, 13)
Me.Label22.TabIndex = 0
@@ -1140,7 +1171,7 @@ Partial Class frmSendungsdetailsNEU
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.AutoSize = True
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 222)
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 224)
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Name = "lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden"
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Size = New System.Drawing.Size(338, 13)
Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.TabIndex = 1
@@ -1185,8 +1216,8 @@ Partial Class frmSendungsdetailsNEU
Me.TabPage2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.TabPage2.Location = New System.Drawing.Point(4, 29)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(1206, 288)
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.TabPage2.Size = New System.Drawing.Size(1206, 289)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Speditionsbuch"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -1203,7 +1234,8 @@ Partial Class frmSendungsdetailsNEU
Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView.Location = New System.Drawing.Point(3, 94)
Me.DataGridView.Name = "DataGridView"
Me.DataGridView.Size = New System.Drawing.Size(1200, 191)
Me.DataGridView.RowHeadersWidth = 51
Me.DataGridView.Size = New System.Drawing.Size(1200, 192)
Me.DataGridView.TabIndex = 1
'
'pnlSpedBuchNacherfassung
@@ -1513,6 +1545,7 @@ Partial Class frmSendungsdetailsNEU
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.RCntrlVermerke1)
Me.TabPage3.Controls.Add(Me.gridVermerke)
Me.TabPage3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.TabPage3.Location = New System.Drawing.Point(4, 29)
@@ -1539,6 +1572,7 @@ Partial Class frmSendungsdetailsNEU
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.gridVermerke.ColumnHeadersHeight = 29
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
@@ -1546,6 +1580,7 @@ Partial Class frmSendungsdetailsNEU
Me.gridVermerke.Name = "gridVermerke"
Me.gridVermerke.ReadOnly = True
Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidth = 51
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3
@@ -1565,8 +1600,8 @@ Partial Class frmSendungsdetailsNEU
Me.tbATEZ.Controls.Add(Me.Panel23)
Me.tbATEZ.Location = New System.Drawing.Point(4, 29)
Me.tbATEZ.Name = "tbATEZ"
Me.tbATEZ.Padding = New System.Windows.Forms.Padding(3)
Me.tbATEZ.Size = New System.Drawing.Size(1206, 288)
Me.tbATEZ.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.tbATEZ.Size = New System.Drawing.Size(1206, 289)
Me.tbATEZ.TabIndex = 6
Me.tbATEZ.Text = "ATEZ"
Me.tbATEZ.UseVisualStyleBackColor = True
@@ -1588,6 +1623,7 @@ Partial Class frmSendungsdetailsNEU
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.dgvATEZNCTS.ColumnHeadersHeight = 29
Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvATEZNCTS.Location = New System.Drawing.Point(3, 48)
@@ -1595,6 +1631,7 @@ Partial Class frmSendungsdetailsNEU
Me.dgvATEZNCTS.Name = "dgvATEZNCTS"
Me.dgvATEZNCTS.ReadOnly = True
Me.dgvATEZNCTS.RowHeadersVisible = False
Me.dgvATEZNCTS.RowHeadersWidth = 51
Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle6
@@ -1604,7 +1641,7 @@ Partial Class frmSendungsdetailsNEU
Me.dgvATEZNCTS.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvATEZNCTS.ShowCellErrors = False
Me.dgvATEZNCTS.ShowRowErrors = False
Me.dgvATEZNCTS.Size = New System.Drawing.Size(1200, 237)
Me.dgvATEZNCTS.Size = New System.Drawing.Size(1200, 238)
Me.dgvATEZNCTS.TabIndex = 105
Me.dgvATEZNCTS.TabStop = False
'
@@ -1638,7 +1675,7 @@ Partial Class frmSendungsdetailsNEU
Me.tbDigicust.Controls.Add(Me.Panel24)
Me.tbDigicust.Location = New System.Drawing.Point(4, 29)
Me.tbDigicust.Name = "tbDigicust"
Me.tbDigicust.Size = New System.Drawing.Size(1206, 288)
Me.tbDigicust.Size = New System.Drawing.Size(1206, 289)
Me.tbDigicust.TabIndex = 7
Me.tbDigicust.Text = "Digicust"
Me.tbDigicust.UseVisualStyleBackColor = True
@@ -1660,6 +1697,7 @@ Partial Class frmSendungsdetailsNEU
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
Me.dgvDigicust.ColumnHeadersHeight = 29
Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvDigicust.Location = New System.Drawing.Point(0, 45)
@@ -1667,6 +1705,7 @@ Partial Class frmSendungsdetailsNEU
Me.dgvDigicust.Name = "dgvDigicust"
Me.dgvDigicust.ReadOnly = True
Me.dgvDigicust.RowHeadersVisible = False
Me.dgvDigicust.RowHeadersWidth = 51
Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle9
@@ -1676,7 +1715,7 @@ Partial Class frmSendungsdetailsNEU
Me.dgvDigicust.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvDigicust.ShowCellErrors = False
Me.dgvDigicust.ShowRowErrors = False
Me.dgvDigicust.Size = New System.Drawing.Size(1206, 243)
Me.dgvDigicust.Size = New System.Drawing.Size(1206, 244)
Me.dgvDigicust.TabIndex = 107
Me.dgvDigicust.TabStop = False
'
@@ -1695,7 +1734,7 @@ Partial Class frmSendungsdetailsNEU
Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button19.Image = Global.AVISO.My.Resources.Resources.plus
Me.Button19.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button19.Location = New System.Drawing.Point(5, 8)
Me.Button19.Location = New System.Drawing.Point(4, 8)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(104, 34)
Me.Button19.TabIndex = 9
@@ -1704,6 +1743,122 @@ Partial Class frmSendungsdetailsNEU
Me.Button19.UseVisualStyleBackColor = True
Me.Button19.Visible = False
'
'tbMail
'
Me.tbMail.Controls.Add(Me.dgvMail)
Me.tbMail.Controls.Add(Me.Panel25)
Me.tbMail.Location = New System.Drawing.Point(4, 29)
Me.tbMail.Name = "tbMail"
Me.tbMail.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.tbMail.Size = New System.Drawing.Size(1206, 289)
Me.tbMail.TabIndex = 8
Me.tbMail.Text = "Mail"
Me.tbMail.UseVisualStyleBackColor = True
'
'dgvMail
'
Me.dgvMail.AllowUserToAddRows = False
Me.dgvMail.AllowUserToDeleteRows = False
Me.dgvMail.AllowUserToResizeRows = False
DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
Me.dgvMail.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
Me.dgvMail.ColumnHeadersHeight = 29
Me.dgvMail.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvMail.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnSender, Me.clmnRec, Me.clmnSbj, Me.clmnAtt, Me.clmnUIDL})
Me.dgvMail.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvMail.Location = New System.Drawing.Point(3, 48)
Me.dgvMail.MultiSelect = False
Me.dgvMail.Name = "dgvMail"
Me.dgvMail.ReadOnly = True
Me.dgvMail.RowHeadersVisible = False
Me.dgvMail.RowHeadersWidth = 51
Me.dgvMail.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle12
Me.dgvMail.RowTemplate.Height = 20
Me.dgvMail.RowTemplate.ReadOnly = True
Me.dgvMail.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvMail.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvMail.ShowCellErrors = False
Me.dgvMail.ShowRowErrors = False
Me.dgvMail.Size = New System.Drawing.Size(1200, 238)
Me.dgvMail.TabIndex = 109
Me.dgvMail.TabStop = False
'
'clmnSender
'
Me.clmnSender.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnSender.HeaderText = "Absender"
Me.clmnSender.MinimumWidth = 6
Me.clmnSender.Name = "clmnSender"
Me.clmnSender.ReadOnly = True
'
'clmnRec
'
Me.clmnRec.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnRec.HeaderText = "Empfänger"
Me.clmnRec.MinimumWidth = 6
Me.clmnRec.Name = "clmnRec"
Me.clmnRec.ReadOnly = True
'
'clmnSbj
'
Me.clmnSbj.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.clmnSbj.HeaderText = "Betreff"
Me.clmnSbj.MinimumWidth = 6
Me.clmnSbj.Name = "clmnSbj"
Me.clmnSbj.ReadOnly = True
'
'clmnAtt
'
Me.clmnAtt.HeaderText = "Anhänge"
Me.clmnAtt.MinimumWidth = 6
Me.clmnAtt.Name = "clmnAtt"
Me.clmnAtt.ReadOnly = True
Me.clmnAtt.Width = 70
'
'clmnUIDL
'
Me.clmnUIDL.HeaderText = "UIDL"
Me.clmnUIDL.MinimumWidth = 6
Me.clmnUIDL.Name = "clmnUIDL"
Me.clmnUIDL.ReadOnly = True
Me.clmnUIDL.Width = 200
'
'Panel25
'
Me.Panel25.Controls.Add(Me.Button23)
Me.Panel25.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel25.Location = New System.Drawing.Point(3, 3)
Me.Panel25.Name = "Panel25"
Me.Panel25.Size = New System.Drawing.Size(1200, 45)
Me.Panel25.TabIndex = 110
'
'Button23
'
Me.Button23.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button23.Image = Global.AVISO.My.Resources.Resources.plus
Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button23.Location = New System.Drawing.Point(1, 8)
Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(104, 34)
Me.Button23.TabIndex = 9
Me.Button23.Text = "Load"
Me.Button23.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button23.UseVisualStyleBackColor = True
Me.Button23.Visible = False
'
'Panel14
'
Me.Panel14.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
@@ -1779,7 +1934,7 @@ Partial Class frmSendungsdetailsNEU
Me.TabPage4.Controls.Add(Me.Button14)
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.TabPage4.Size = New System.Drawing.Size(433, 299)
Me.TabPage4.TabIndex = 0
Me.TabPage4.Text = "Aktendeckel"
@@ -2400,13 +2555,38 @@ Partial Class frmSendungsdetailsNEU
Me.dgvVorkosten.AllowUserToResizeColumns = False
Me.dgvVorkosten.AllowUserToResizeRows = False
Me.dgvVorkosten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.dgvVorkosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVorkosten.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnVK_id, Me.clmnFirma, Me.clmnLeistung, Me.clmnPreis})
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle15
Me.dgvVorkosten.Location = New System.Drawing.Point(3, 4)
Me.dgvVorkosten.MultiSelect = False
Me.dgvVorkosten.Name = "dgvVorkosten"
Me.dgvVorkosten.ReadOnly = True
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16
Me.dgvVorkosten.RowHeadersVisible = False
Me.dgvVorkosten.RowHeadersWidth = 51
Me.dgvVorkosten.RowTemplate.Height = 18
Me.dgvVorkosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvVorkosten.Size = New System.Drawing.Size(360, 194)
@@ -2415,14 +2595,17 @@ Partial Class frmSendungsdetailsNEU
'clmnVK_id
'
Me.clmnVK_id.HeaderText = "ID"
Me.clmnVK_id.MinimumWidth = 6
Me.clmnVK_id.Name = "clmnVK_id"
Me.clmnVK_id.ReadOnly = True
Me.clmnVK_id.Visible = False
Me.clmnVK_id.Width = 125
'
'clmnFirma
'
Me.clmnFirma.HeaderText = "Firma"
Me.clmnFirma.MaxInputLength = 200
Me.clmnFirma.MinimumWidth = 6
Me.clmnFirma.Name = "clmnFirma"
Me.clmnFirma.ReadOnly = True
Me.clmnFirma.Width = 127
@@ -2431,6 +2614,7 @@ Partial Class frmSendungsdetailsNEU
'
Me.clmnLeistung.HeaderText = "Leistung"
Me.clmnLeistung.MaxInputLength = 30
Me.clmnLeistung.MinimumWidth = 6
Me.clmnLeistung.Name = "clmnLeistung"
Me.clmnLeistung.ReadOnly = True
Me.clmnLeistung.Width = 129
@@ -2438,10 +2622,11 @@ Partial Class frmSendungsdetailsNEU
'clmnPreis
'
Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle10.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle10
DataGridViewCellStyle14.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle14
Me.clmnPreis.HeaderText = "Preis"
Me.clmnPreis.MaxInputLength = 15
Me.clmnPreis.MinimumWidth = 6
Me.clmnPreis.Name = "clmnPreis"
Me.clmnPreis.ReadOnly = True
'
@@ -2453,7 +2638,7 @@ Partial Class frmSendungsdetailsNEU
Me.tbBAR.Controls.Add(Me.btnLeihgeld)
Me.tbBAR.Location = New System.Drawing.Point(4, 22)
Me.tbBAR.Name = "tbBAR"
Me.tbBAR.Padding = New System.Windows.Forms.Padding(3)
Me.tbBAR.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
Me.tbBAR.Size = New System.Drawing.Size(433, 299)
Me.tbBAR.TabIndex = 1
Me.tbBAR.Text = "Abrechnung/BAR-Belege"
@@ -2467,12 +2652,37 @@ Partial Class frmSendungsdetailsNEU
Me.dgvBelege.AllowUserToResizeColumns = False
Me.dgvBelege.AllowUserToResizeRows = False
Me.dgvBelege.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
Me.dgvBelege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle18
Me.dgvBelege.Location = New System.Drawing.Point(6, 40)
Me.dgvBelege.MultiSelect = False
Me.dgvBelege.Name = "dgvBelege"
Me.dgvBelege.ReadOnly = True
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
Me.dgvBelege.RowHeadersVisible = False
Me.dgvBelege.RowHeadersWidth = 51
Me.dgvBelege.RowTemplate.Height = 18
Me.dgvBelege.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvBelege.Size = New System.Drawing.Size(360, 165)
@@ -4160,6 +4370,7 @@ Partial Class frmSendungsdetailsNEU
'
Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel5.Controls.Add(Me.pnlValidation)
Me.Panel5.Controls.Add(Me.cboAbfertigungsLand)
Me.Panel5.Controls.Add(Me.lblSNDChat_MsgCnt)
Me.Panel5.Controls.Add(Me.picAVISOMessengerSNDChat)
@@ -4187,6 +4398,47 @@ Partial Class frmSendungsdetailsNEU
Me.Panel5.Size = New System.Drawing.Size(1214, 69)
Me.Panel5.TabIndex = 0
'
'pnlValidation
'
Me.pnlValidation.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlValidation.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnlValidation.Controls.Add(Me.rtbValidierung)
Me.pnlValidation.Controls.Add(Me.Label15)
Me.pnlValidation.Location = New System.Drawing.Point(884, 0)
Me.pnlValidation.Name = "pnlValidation"
Me.pnlValidation.Size = New System.Drawing.Size(217, 68)
Me.pnlValidation.TabIndex = 16
Me.pnlValidation.TabStop = True
Me.pnlValidation.Visible = False
'
'rtbValidierung
'
Me.rtbValidierung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.rtbValidierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
Me.rtbValidierung.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.rtbValidierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.rtbValidierung.Location = New System.Drawing.Point(0, 14)
Me.rtbValidierung.MaxLineLength = -1
Me.rtbValidierung.MaxLines_Warning = ""
Me.rtbValidierung.MaxLines_Warning_Label = Nothing
Me.rtbValidierung.Name = "rtbValidierung"
Me.rtbValidierung.Size = New System.Drawing.Size(217, 51)
Me.rtbValidierung.TabIndex = 3
Me.rtbValidierung.Text = ""
'
'Label15
'
Me.Label15.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.Location = New System.Drawing.Point(0, 0)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(217, 26)
Me.Label15.TabIndex = 2
Me.Label15.Text = "Validierungsfehler:"
'
'cboAbfertigungsLand
'
Me.cboAbfertigungsLand._allowedValuesFreiText = Nothing
@@ -4208,7 +4460,7 @@ Partial Class frmSendungsdetailsNEU
Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(1073, 41)
Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(856, 43)
Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt"
Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 13)
Me.lblSNDChat_MsgCnt.TabIndex = 113
@@ -4222,7 +4474,7 @@ Partial Class frmSendungsdetailsNEU
Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(1040, 7)
Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(823, 9)
Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat"
Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(42, 44)
Me.picAVISOMessengerSNDChat.TabIndex = 112
@@ -4244,7 +4496,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAnzahlPos._Waehrung = False
Me.txtAnzahlPos._WaehrungZeichen = True
Me.txtAnzahlPos.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAnzahlPos.Location = New System.Drawing.Point(802, 27)
Me.txtAnzahlPos.Location = New System.Drawing.Point(756, 27)
Me.txtAnzahlPos.MaxLength = 3
Me.txtAnzahlPos.MaxLineLength = -1
Me.txtAnzahlPos.MaxLines_Warning = ""
@@ -4259,7 +4511,7 @@ Partial Class frmSendungsdetailsNEU
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(799, 6)
Me.Label4.Location = New System.Drawing.Point(753, 6)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(64, 17)
Me.Label4.TabIndex = 5
@@ -4283,7 +4535,7 @@ Partial Class frmSendungsdetailsNEU
Me.cbxFremdspedition.AutoSize = True
Me.cbxFremdspedition.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.cbxFremdspedition.ForeColor = System.Drawing.Color.White
Me.cbxFremdspedition.Location = New System.Drawing.Point(639, 7)
Me.cbxFremdspedition.Location = New System.Drawing.Point(593, 7)
Me.cbxFremdspedition.Name = "cbxFremdspedition"
Me.cbxFremdspedition.Size = New System.Drawing.Size(97, 17)
Me.cbxFremdspedition.TabIndex = 7
@@ -4309,9 +4561,9 @@ Partial Class frmSendungsdetailsNEU
Me.Panel1.Controls.Add(Me.Button13)
Me.Panel1.Controls.Add(Me.lblSendungen)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Location = New System.Drawing.Point(1102, 0)
Me.Panel1.Location = New System.Drawing.Point(1102, -1)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(105, 63)
Me.Panel1.Size = New System.Drawing.Size(105, 68)
Me.Panel1.TabIndex = 15
Me.Panel1.TabStop = True
'
@@ -4340,7 +4592,7 @@ Partial Class frmSendungsdetailsNEU
Me.lblSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSendungen.Location = New System.Drawing.Point(0, 6)
Me.lblSendungen.Name = "lblSendungen"
Me.lblSendungen.Size = New System.Drawing.Size(105, 39)
Me.lblSendungen.Size = New System.Drawing.Size(105, 44)
Me.lblSendungen.TabIndex = 1
Me.lblSendungen.Text = "1/10"
Me.lblSendungen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -4350,9 +4602,9 @@ Partial Class frmSendungsdetailsNEU
Me.Label3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.Location = New System.Drawing.Point(0, 44)
Me.Label3.Location = New System.Drawing.Point(0, 50)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(105, 21)
Me.Label3.Size = New System.Drawing.Size(105, 26)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Sendung Pos."
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter
@@ -4368,7 +4620,7 @@ Partial Class frmSendungsdetailsNEU
Me.cboAbfertigungsart.FormattingEnabled = True
Me.cboAbfertigungsart.Location = New System.Drawing.Point(477, 27)
Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
Me.cboAbfertigungsart.Size = New System.Drawing.Size(256, 24)
Me.cboAbfertigungsart.Size = New System.Drawing.Size(213, 24)
Me.cboAbfertigungsart.TabIndex = 12
'
'lblAbfertigungsart
@@ -4503,7 +4755,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAnzahl._Waehrung = False
Me.txtAnzahl._WaehrungZeichen = True
Me.txtAnzahl.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAnzahl.Location = New System.Drawing.Point(741, 27)
Me.txtAnzahl.Location = New System.Drawing.Point(695, 27)
Me.txtAnzahl.MaxLength = 3
Me.txtAnzahl.MaxLineLength = -1
Me.txtAnzahl.MaxLines_Warning = ""
@@ -4518,7 +4770,7 @@ Partial Class frmSendungsdetailsNEU
Me.lblAnzahl.AutoSize = True
Me.lblAnzahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAnzahl.ForeColor = System.Drawing.Color.White
Me.lblAnzahl.Location = New System.Drawing.Point(738, 6)
Me.lblAnzahl.Location = New System.Drawing.Point(692, 6)
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Size = New System.Drawing.Size(55, 17)
Me.lblAnzahl.TabIndex = 4
@@ -5206,7 +5458,6 @@ Partial Class frmSendungsdetailsNEU
'
Me.BindingNavigatorPositionItem.AccessibleName = "Position"
Me.BindingNavigatorPositionItem.AutoSize = False
Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
Me.BindingNavigatorPositionItem.Text = "0"
@@ -5609,6 +5860,7 @@ Partial Class frmSendungsdetailsNEU
'
'cntDigicust
'
Me.cntDigicust.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.cntDigicust.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StatusAbrufenToolStripMenuItem})
Me.cntDigicust.Name = "cntDigicust"
Me.cntDigicust.Size = New System.Drawing.Size(151, 26)
@@ -5621,6 +5873,7 @@ Partial Class frmSendungsdetailsNEU
'
'ContextMenuStrip3
'
Me.ContextMenuStrip3.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.XXXToolStripMenuItem})
Me.ContextMenuStrip3.Name = "cntxt"
Me.ContextMenuStrip3.Size = New System.Drawing.Size(96, 26)
@@ -5631,6 +5884,18 @@ Partial Class frmSendungsdetailsNEU
Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
Me.XXXToolStripMenuItem.Text = "XXX"
'
'timerValidation
'
Me.timerValidation.Enabled = True
Me.timerValidation.Interval = 2000
'
'RCntrlVermerke1
'
Me.RCntrlVermerke1.Location = New System.Drawing.Point(251, 18)
Me.RCntrlVermerke1.Name = "RCntrlVermerke1"
Me.RCntrlVermerke1.Size = New System.Drawing.Size(575, 208)
Me.RCntrlVermerke1.TabIndex = 1
'
'frmSendungsdetailsNEU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5681,6 +5946,9 @@ Partial Class frmSendungsdetailsNEU
Me.tbDigicust.ResumeLayout(False)
CType(Me.dgvDigicust, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel24.ResumeLayout(False)
Me.tbMail.ResumeLayout(False)
CType(Me.dgvMail, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel25.ResumeLayout(False)
Me.pnlDetails.ResumeLayout(False)
Me.tbcntr.ResumeLayout(False)
Me.TabPage4.ResumeLayout(False)
@@ -5710,6 +5978,7 @@ Partial Class frmSendungsdetailsNEU
Me.pnlT1.ResumeLayout(False)
Me.Panel5.ResumeLayout(False)
Me.Panel5.PerformLayout()
Me.pnlValidation.ResumeLayout(False)
CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False)
Me.pnlFremd.ResumeLayout(False)
@@ -6144,4 +6413,18 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents Label13 As Label
Friend WithEvents txtATANr As TextBox
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents pnlValidation As Panel
Friend WithEvents rtbValidierung As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Friend WithEvents Label15 As Label
Friend WithEvents timerValidation As Timer
Friend WithEvents tbMail As TabPage
Friend WithEvents dgvMail As DataGridView
Friend WithEvents Panel25 As Panel
Friend WithEvents Button23 As Button
Friend WithEvents clmnSender As DataGridViewTextBoxColumn
Friend WithEvents clmnRec As DataGridViewTextBoxColumn
Friend WithEvents clmnSbj As DataGridViewTextBoxColumn
Friend WithEvents clmnAtt As DataGridViewTextBoxColumn
Friend WithEvents clmnUIDL As DataGridViewTextBoxColumn
Friend WithEvents RCntrlVermerke1 As rCntrlVermerke
End Class

18
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -1542,6 +1542,21 @@
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<metadata name="clmnSender.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnRec.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnSbj.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnAtt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="clmnUIDL.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
@@ -2514,6 +2529,9 @@
<metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>129, 56</value>
</metadata>
<metadata name="timerValidation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 56</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

312
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -8,6 +8,9 @@ Imports iTextSharp.text.pdf
Imports Microsoft.Office.Interop
Imports DocumentFormat.OpenXml.Presentation
Imports SDL
Imports System.IO
Imports EAGetMail
Imports System.Globalization
Public Class frmSendungsdetailsNEU
Public AvisoId As Integer
@@ -36,6 +39,7 @@ Public Class frmSendungsdetailsNEU
Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr
Dim listOfTextconserven
Dim cntVeranlagungsRg = 0
Sub New()
InitializeComponent()
@@ -119,7 +123,7 @@ Public Class frmSendungsdetailsNEU
loadDataInLIST()
doVeranlagungsValidation()
If VALIDATE_ME() Then
SAVE_ME = True
@@ -143,20 +147,45 @@ Public Class frmSendungsdetailsNEU
End If
End Function
Function VALIDATE_ME() As Boolean
Sub doVeranlagungsValidation()
cntVeranlagungsRg = SQL.DLookup("count(*)", "tblAvisoAnhaenge", "anh_SendungsId='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' AND anh_art='VERANLANGUNG_RG' ", "AVISO", "0")
End Sub
Function VALIDATE_ME(Optional showErr = True) As Boolean
pnlValidation.Visible = False
rtbValidierung.Text = ""
'Dim returnValue = True
Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
lblErr_AvisiererKdNr.Visible = False
lblErr_EmpfKdNr.Visible = False
lblErr_FraechterKdNr.Visible = False
'--------------------------------------------------
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
Return True
End If
'--------------------------------------------------
If (txtAbsender.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) Or (txtAuftraggeber.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then
If cntVeranlagungsRg = 0 Then rtbValidierung.Text &= "- Keine Veranlagungs-Rechnung bei Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True
End If
If (txtAbsender.KdData_KUNDE_ERW Is Nothing OrElse Not txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) And (txtAuftraggeber.KdData_KUNDE_ERW Is Nothing OrElse Not txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then
If cntVeranlagungsRg > 0 Then rtbValidierung.Text &= "- Veranlagungs-Rechnung aber kein Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True
End If
'--------------------------------------------------
'Aktuell noch nicht!
'Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
' Case <= 0, 10
' Case Else
' If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then lblErr_AvisiererKdNr.Visible = True : Return False
' If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then lblErr_EmpfKdNr.Visible = True : Return False
' If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then lblErr_FraechterKdNr.Visible = True : Return False
'End Select
Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
Case <= 0, 10
Case Else
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Aviserer KdNr fehlt" & vbNewLine : pnlValidation.Visible = True ' lblErr_AvisiererKdNr.Visible = True : Return False
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then rtbValidierung.Text &= "- Empfänger KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False
If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Frächter KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_FraechterKdNr.Visible = True : Return False
End Select
If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then
@@ -164,11 +193,32 @@ Public Class frmSendungsdetailsNEU
Else
If FilialeAktFirma <> "" Then
If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung!
If Not txtAvisierer.checkFirma(FilialeAktFirma) Then MsgBox("Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then MsgBox("Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then MsgBox("Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then MsgBox("Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtAbsender.checkFirma(FilialeAktFirma) Then MsgBox("Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
If Not txtAvisierer.checkFirma(FilialeAktFirma) Then
Dim err = "- Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then
Dim err = "- Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then
Dim err = "- Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then
Dim err = "- Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
If Not txtAbsender.checkFirma(FilialeAktFirma) Then
Dim err = "- Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
End If
End If
End If
@@ -187,7 +237,9 @@ Public Class frmSendungsdetailsNEU
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then
MsgBox("ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte.") : Return False
Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
If showErr Then MsgBox(err) : Return False
End If
@@ -200,12 +252,13 @@ Public Class frmSendungsdetailsNEU
If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or
(cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or
(cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then
If MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then
If showErr AndAlso MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then
Return False
End If
End If
End If
' pnlValidation.Visible = rtbValidierung.Text <> ""
Return True
End Function
@@ -325,6 +378,7 @@ Public Class frmSendungsdetailsNEU
Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
Button23.Visible = True
Try
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
@@ -462,6 +516,7 @@ Public Class frmSendungsdetailsNEU
frmGrayOut.Close()
AVISO = AvisoDAL.LesenAviso(AvisoId, "")
Else
SAVE_ME()
AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
End If
Me.initDataBinding()
@@ -1344,6 +1399,7 @@ Public Class frmSendungsdetailsNEU
setVorpapiere()
doVeranlagungsValidation()
initFraechterAvisererFromAkt()
''Übergangsphase Aviso/Sendung
@@ -3189,7 +3245,8 @@ Public Class frmSendungsdetailsNEU
End Sub
Private Sub initVermerke()
RCntrlVermerke1.init(AVISO, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
Exit Sub
' If setAkive_AuswahlID() = -1 Then Exit Sub
If AvisoId <= 0 Then Exit Sub
@@ -3258,9 +3315,9 @@ Public Class frmSendungsdetailsNEU
End Sub
Sub initAnhang()
Dim hSQL As String = " SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert
Dim hSQL As String = " SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND isnull(aa_name,'')='' THEN '***' ELSE [aa_name] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert
FROM [tblAvisoAnhaenge]
left join tblAvisoAnhangsArten on aa_name = anh_Art
left join tblAvisoAnhangsArten on aa_bezeichnung = anh_Art
WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
ORDER BY anh_SendungsId desc, case when aa_sort = NULL THEN 15 else aa_sort END, [anh_Reihenfolge],[anh_id]"
@@ -6617,6 +6674,7 @@ Public Class frmSendungsdetailsNEU
End Sub
Private Sub btnLKWUmmelden_Click(sender As Object, e As EventArgs) Handles btnLKWUmmelden.Click
ContextMenuStrip3.Show(Cursor.Position)
End Sub
@@ -6858,4 +6916,220 @@ Public Class frmSendungsdetailsNEU
End Sub
Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick
VALIDATE_ME(False)
End Sub
Private Sub Button23_Click_1(sender As Object, e As EventArgs) Handles Button23.Click
With dgvMail
.Rows.Clear()
Try
' Create a folder named "inbox" under current directory
' to save the email retrieved.
'Dim localInbox As String = String.Format("{0}\inbox", Directory.GetCurrentDirectory())
' MsgBox(localInbox)
' If the folder is not existed, create it.
' If Not Directory.Exists(localInbox) Then
' Directory.CreateDirectory(localInbox)
'End If
Dim oServer As New MailServer("owa.verag.ag",
"al@verag.ag",
"verag#2",
ServerProtocol.Imap4)
' Enable SSL/TLS connection, most modern email server require SSL/TLS connection by default.
oServer.SSLConnection = True
oServer.Port = 993
' If your server doesn't support SSL/TLS connection, please use the following codes
' oServer.SSLConnection = False
' oServer.Port = 110
Console.WriteLine("Connecting server ...")
Dim oClient As New MailClient("EG-D1710817841-00027-8F73639A7EE1E54E-7E5AA3751E31F532")
oClient.Connect(oServer)
'Dim folders() As Imap4Folder = oClient.Imap4Folders
'' enumerates all folders on IMAP4/Exchange server.
'EnumerateFolder(folders)
Dim options As GetMailInfosOptionType = GetMailInfosOptionType.All
options = options Or GetMailInfosOptionType.DateRange
options = options Or GetMailInfosOptionType.OrderByDateTime
options = options Or GetMailInfosOptionType.IncludeAllFolders
oClient.GetMailInfosParam.Reset()
oClient.GetMailInfosParam.GetMailInfosOptions = options
oClient.GetMailInfosParam.SubjectContains = "EAGetMail Component"
' oClient.GetMailInfosParam.UIDRange = "167355-167355"
'oClient.GetMailInfosParam.BodyContains = "24DE770176692626M6"
'oClient.GetMailInfosParam.SenderContains = "support"
oClient.GetMailInfosParam.DateRange.SINCE = System.DateTime.Now.AddMonths(-12)
oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1)
oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1)
Dim infos As MailInfo() = oClient.GetMailInfos()
Console.WriteLine("Total {0} email(s)", infos.Length)
For i As Integer = 0 To infos.Length - 1
Dim info As MailInfo = infos(i)
Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}",
info.Index, info.Size, info.UIDL)
' Retrieve email from IMAP server
Dim oMail As Mail = oClient.GetMail(info)
Console.WriteLine("From: {0}", oMail.From.ToString())
Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject)
'?? oMail.MAPIConversationId.ToString
.Rows.Add({oMail.From.ToString(), oMail.To.ToString(), oMail.Subject, oMail.Attachments.Count, info.UIDL})
' Generate an unqiue email file name based on date time.
' Dim fileName As String = _generateFileName(i + 1)
' Dim fullPath As String = String.Format("{0}\{1}", localInbox, fileName)
' Save email to local disk
'oMail.SaveAs(fullPath, True)
' Mark email as deleted from POP3 server.
'''''' oClient.Delete(info)
Next
' Quit and expunge emails marked as deleted from POP3 server.
oClient.Quit()
Console.WriteLine("Completed!")
Catch ep As Exception
Console.WriteLine(ep.Message)
Console.WriteLine(ep.StackTrace)
MsgBox(ep.Message & " - " & ep.StackTrace)
End Try
End With
End Sub
'Private Sub openMial(UIDL As String)
' Try
' ' Create a folder named "inbox" under current directory
' ' to save the email retrieved.
' 'Dim localInbox As String = String.Format("{0}\inbox", Directory.GetCurrentDirectory())
' ' MsgBox(localInbox)
' ' If the folder is not existed, create it.
' ' If Not Directory.Exists(localInbox) Then
' ' Directory.CreateDirectory(localInbox)
' 'End If
' Dim oServer As New MailServer("owa.verag.ag",
' "al@verag.ag",
' "verag#2",
' ServerProtocol.Imap4)
' ' Enable SSL/TLS connection, most modern email server require SSL/TLS connection by default.
' oServer.SSLConnection = True
' oServer.Port = 993
' ' If your server doesn't support SSL/TLS connection, please use the following codes
' ' oServer.SSLConnection = False
' ' oServer.Port = 110
' Console.WriteLine("Connecting server ...")
' Dim oClient As New MailClient("EG-D1710817841-00027-8F73639A7EE1E54E-7E5AA3751E31F532")
' oClient.Connect(oServer)
' Dim oUIDLManager As UIDLManager = New UIDLManager()
' oUIDLManager.FindUIDL(oServer, UIDL)
' Dim fileName As String = _generateFileName(i + 1)
' Dim fullPath As String = String.Format("{0}\{1}", localInbox, fileName)
' Console.WriteLine("Downloading {0}/{1} ...", i + 1, infos.Length)
' Dim oMail As Mail = oClient.GetMail(info)
' oClient.GetImap4FolderUID(,) = "UIDL"
' 'oClient.GetMailInfosParam.BodyContains = "24DE770176692626M6"
' 'oClient.GetMailInfosParam.SenderContains = "support"
' oClient.GetMailInfosParam.DateRange.SINCE = System.DateTime.Now.AddMonths(-12)
' oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1)
' oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1)
' Dim infos As MailInfo() = oClient.GetMailInfos(s)
' Console.WriteLine("Total {0} email(s)", infos.Length)
' For i As Integer = 0 To infos.Length - 1
' Dim info As MailInfo = infos(i)
' Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}",
' info.Index, info.Size, info.UIDL)
' ' Retrieve email from IMAP server
' Dim oMail As Mail = oClient.GetMail(info)
' Console.WriteLine("From: {0}", oMail.From.ToString())
' Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject)
' '?? oMail.MAPIConversationId.ToString
' .Rows.Add({oMail.From.ToString(), oMail.To.ToString(), oMail.Subject, oMail.Attachments.Count, info.UIDL})
' ' Generate an unqiue email file name based on date time.
' ' Dim fileName As String = _generateFileName(i + 1)
' ' Dim fullPath As String = String.Format("{0}\{1}", localInbox, fileName)
' ' Save email to local disk
' 'oMail.SaveAs(fullPath, True)
' ' Mark email as deleted from POP3 server.
' '''''' oClient.Delete(info)
' Next
' ' Quit and expunge emails marked as deleted from POP3 server.
' oClient.Quit()
' Console.WriteLine("Completed!")
' Catch ep As Exception
' Console.WriteLine(ep.Message)
' Console.WriteLine(ep.StackTrace)
' MsgBox(ep.Message & " - " & ep.StackTrace)
' End Try
'End Sub
Public Sub EnumerateFolder(ByVal folders() As Imap4Folder)
For i As Integer = 0 To folders.Length - 1
Dim folder As Imap4Folder = folders(i)
Console.WriteLine("Name: {0}", folder.Name)
Console.WriteLine("FullPath: {0}", folder.FullPath)
Console.WriteLine("LocalPath: {0}", folder.LocalPath)
Console.WriteLine("Flags: {0}", folder.IMAP4FolderFlags)
Console.WriteLine("Subscribed: {0}" & vbCrLf, folder.Subscribed)
EnumerateFolder(folder.SubFolders)
Next
End Sub
Function _generateFileName(ByVal sequence As Integer) As String
Dim currentDateTime As DateTime = DateTime.Now
Return String.Format("{0}-{1:000}-{2:000}.eml",
currentDateTime.ToString("yyyyMMddHHmmss", New CultureInfo("en-US")),
currentDateTime.Millisecond,
sequence)
End Function
End Class

11
Aviso/packages.config
View File

@@ -7,6 +7,7 @@
<package id="Common.Logging" version="3.4.1" targetFramework="net47" />
<package id="Common.Logging.Core" version="3.4.1" targetFramework="net47" />
<package id="DocumentFormat.OpenXml" version="2.7.2" targetFramework="net47" />
<package id="EAGetMail" version="5.3.5" targetFramework="net47" />
<package id="esendex-dotnet-sdk" version="3.8.0" targetFramework="net47" />
<package id="GrapeCity.Documents.Common" version="2.2.0.315" targetFramework="net461" />
<package id="GrapeCity.Documents.Imaging" version="2.2.0.315" targetFramework="net461" />
@@ -18,12 +19,14 @@
<package id="Newtonsoft.Json" version="13.0.3" targetFramework="net47" />
<package id="Portable.BouncyCastle" version="1.8.5" targetFramework="net47" />
<package id="Spire.PDFViewer" version="4.9.5" targetFramework="net47" />
<package id="System.Buffers" version="4.4.0" targetFramework="net461" />
<package id="System.Buffers" version="4.5.1" targetFramework="net47" />
<package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net47" />
<package id="System.IO.Packaging" version="4.0.0" targetFramework="net47" />
<package id="System.Memory" version="4.5.0" targetFramework="net461" />
<package id="System.Numerics.Vectors" version="4.4.0" targetFramework="net461" />
<package id="System.Runtime.CompilerServices.Unsafe" version="4.5.2" targetFramework="net47" />
<package id="System.Memory" version="4.5.5" targetFramework="net47" />
<package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net47" />
<package id="System.Runtime.CompilerServices.Unsafe" version="6.0.0" targetFramework="net47" />
<package id="System.Security.Cryptography.Pkcs" version="8.0.0" targetFramework="net47" />
<package id="System.Text.Encoding.CodePages" version="8.0.0" targetFramework="net47" />
<package id="System.Threading.Tasks.Extensions" version="4.5.2" targetFramework="net47" />
<package id="System.ValueTuple" version="4.5.0" targetFramework="net461" />
</packages>

102
Aviso/rCntrlVermerke.Designer.vb generated Normal file
View File

@@ -0,0 +1,102 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class rCntrlVermerke
Inherits System.Windows.Forms.UserControl
'UserControl ü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()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.gridVermerke = New System.Windows.Forms.DataGridView()
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'gridVermerke
'
Me.gridVermerke.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.gridVermerke.ColumnHeadersHeight = 34
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle3
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
Me.gridVermerke.MultiSelect = False
Me.gridVermerke.Name = "gridVermerke"
Me.gridVermerke.ReadOnly = True
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidth = 62
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle5
Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridVermerke.ShowCellErrors = False
Me.gridVermerke.ShowRowErrors = False
Me.gridVermerke.Size = New System.Drawing.Size(575, 208)
Me.gridVermerke.TabIndex = 71
Me.gridVermerke.TabStop = False
'
'rCntrlVermerke
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.gridVermerke)
Me.Name = "rCntrlVermerke"
Me.Size = New System.Drawing.Size(575, 208)
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents gridVermerke As DataGridView
End Class

120
Aviso/rCntrlVermerke.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

177
Aviso/rCntrlVermerke.vb Normal file
View File

@@ -0,0 +1,177 @@
Imports VERAG_PROG_ALLGEMEIN
Public Class rCntrlVermerke
Dim VermerkArt = 2
Dim tblSnd_SendungID As Integer = -1
Dim AVISO As New VERAG_PROG_ALLGEMEIN.cAviso
Dim VermerkeDAL As New cVermerkeDAL
Private AvisoDAL As New cAvisoDAL
Dim painted As Boolean = False
Sub init(AVISO, tblSnd_SendungID)
Me.AVISO = AVISO
Me.tblSnd_SendungID = tblSnd_SendungID
Vermerke_anzeigen2()
End Sub
Public Sub Vermerke_anzeigen2(Optional rowindex As Integer = -1)
aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)
gridVermerke.Columns.Clear()
' lblInfoAviso.Visible = False
infotxt = ""
' MsgBox("SO")
' If setAkive_AuswahlID() = -1 Then Exit Sub
If AVISO Is Nothing Then Exit Sub
If AVISO.AvisoID <= 0 Then Exit Sub
'Hier werden die passenden Vermerke zum Aviso angezeigt
Dim sendwhere = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = False
Select Case VermerkArt
Case 0
' dgvSendungen.ClearSelection()
Case 1
' If dgvSendungen.SelectedRows.Count > 0 Then
sendwhere = " AND VermerkArt='A' "
' End If
Case 2
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If tblSnd_SendungID > 0 Then
sendwhere = " AND VermerkArt='S' AND SendungID=" & tblSnd_SendungID
Else
sendwhere = " AND 1=0 " ' 1=0, damit keine Zeile angezeigt wird, wenn keine Sendung ausgewählt
End If
If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = True
End Select
End If
' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC"
Dim hSQL = usrcntlAktDetails.vermerkehSQL
hSQL = hSQL.Replace("[[AvisoId]]", AVISO.AvisoID)
hSQL = hSQL.Replace("[[sendwhere]]", sendwhere)
' MsgBox(hSQL)
infotxt = AvisoDAL.getAvisoInfo(AVISO.AvisoID)
If infotxt <> "" Then
'lblInfoAviso.Visible = True
End If
gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)
If gridVermerke.Columns("VermerkeOptions") Is Nothing Then
Dim dgvlc As New DataGridViewLinkColumn
dgvlc.Name = "VermerkeOptions"
gridVermerke.Columns.Insert(gridVermerke.ColumnCount - 1, dgvlc)
End If
'Grid neu designen
'GridZeichnenBilanz()
usrcntlAktDetails.gridVermerke_SpaltenFestlegen(gridVermerke)
'If tbcntlVermerke.SelectedIndex = 2 And rowindex > 0 Then
If rowindex > 0 Then
'dgvSendungen.ClearSelection()
'dgvSendungen.Rows(rowindex).Selected = True
Else
gridVermerke.ClearSelection()
End If
' timer.Enabled = True
' initDGVSendungenRows()
End Sub
Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick
Dim tmpIndex = -1
If (tblSnd_SendungID > 0) Then
tmpIndex = tblSnd_SendungID
End If
usrcntlAktDetails.gridVermerkeMouseClick(gridVermerke, e.ColumnIndex, e.RowIndex, AVISO, tmpIndex)
Vermerke_anzeigen2(tmpIndex)
End Sub
Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
If painted Then Exit Sub
painted = False
' If dgvSendungen.RowCount = 0 Then Exit Sub
usrcntlAktDetails.gridVermerke_Paint(gridVermerke)
painted = True
End Sub
'Sub ArrowDown_ShowHide()
' picArrowDown.Visible = False
' If dgvSendungen.RowCount = 0 Then Exit Sub
' Select Case tbcntlVermerke.SelectedIndex
' Case 0, 1, 2
' Try
' Dim showFirst = False
' For Each r As DataGridViewRow In gridVermerke.Rows
' If r.Displayed Then showFirst = True
' If showFirst Then
' If (r.Cells("Hervorheben").Value = "1" Or r.Cells("VermerkeOptions").Value <> "") AndAlso Not r.Displayed Then
' picArrowDown.Visible = True
' End If
' End If
' Next
' Catch ex As Exception
' MsgBox("ERR")
' End Try
' End Select
'End Sub
'Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVermerkLöschenNew.Click, conVermerkEntgLöschen.Click
' If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
' If sender Is conVermerkEntgLöschen Then
' If vbNo = MsgBox("Wollen Sie den ausgewählten entgültig Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then
' Exit Sub
' End If
' If gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value.ToString.EndsWith("wurde gelöscht.") Then 'Vermerk, dass Sendung gelöscht wurde.
' Exit Sub
' End If
' Dim index As Integer = -1
' If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
' VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
' Vermerke_anzeigen(index)
' ElseIf sender Is conVermerkLöschenNew Then
' If vbNo = MsgBox("Wollen Sie den ausgewählten Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then
' Exit Sub
' End If
' Dim index As Integer = -1
' If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
' VermerkeDAL.togglegeloescht(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
' Vermerke_anzeigen(index)
' End If
'End Sub
End Class

268
Aviso/usrcntlAktDetails.vb
View File

@@ -414,7 +414,7 @@ Public Class usrcntlAktDetails
Return ""
End Function
Private Sub gridVermerke_SpaltenFestlegen()
Shared Sub gridVermerke_SpaltenFestlegen(gridVermerke As DataGridView)
If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() : Exit Sub
With gridVermerke
@@ -860,7 +860,12 @@ Public Class usrcntlAktDetails
End Sub
Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,101,102) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben" &
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
" WHERE AvisoID = [[AvisoId]] [[sendwhere]] " &
" order by /*VermerkArt ASC,tblSnd_PosUnterNr,*/Datum DESC "
Private Sub Vermerke_anzeigen2(Optional rowindex As Integer = -1)
If Not loaded Then Exit Sub
aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)
@@ -994,12 +999,9 @@ Public Class usrcntlAktDetails
' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC"
Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
" CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,101,102) THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben" &
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
" WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
" order by /*VermerkArt ASC,tblSnd_PosUnterNr,*/Datum DESC "
Dim hSQL = usrcntlAktDetails.vermerkehSQL
hSQL = hSQL.Replace("[[AvisoId]]", AvisoID)
hSQL = hSQL.Replace("[[sendwhere]]", sendwhere)
infotxt = AvisoDAL.getAvisoInfo(AvisoID)
@@ -1019,7 +1021,7 @@ Public Class usrcntlAktDetails
'Grid neu designen
'GridZeichnenBilanz()
gridVermerke_SpaltenFestlegen()
usrcntlAktDetails.gridVermerke_SpaltenFestlegen(gridVermerke)
'If tbcntlVermerke.SelectedIndex = 2 And rowindex > 0 Then
If rowindex > 0 Then
@@ -1034,269 +1036,281 @@ Public Class usrcntlAktDetails
Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick
Dim tmpIndex = -1
If (dgvSendungen.SelectedRows.Count > 0) Then
tmpIndex = dgvSendungen.SelectedRows(0).Index
End If
gridVermerkeMouseClick(gridVermerke, e.ColumnIndex, e.RowIndex, AVISO, tmpIndex)
loaded = False
' Dim tmpIndex = -1
If init Then
' If (dgvSendungen.SelectedRows.Count > 0) Then
' tmpIndex = dgvSendungen.SelectedRows(0).Index
'End If
sendAktiv = False
initDgvSendungen()
sendAktiv = True
'dgvSendungen.ClearSelection()
'If tmpIndex > 0 And dgvSendungen.RowCount > tmpIndex Then
' dgvSendungen.Rows(tmpIndex).Selected = True
'End If
End If
loaded = True
Vermerke_anzeigen(tmpIndex)
End Sub
Shared Sub gridVermerkeMouseClick(gridVermerke, ColumnIndex, RowIndex, AVISO, sendungsId)
If gridVermerke.RowCount = 0 Then Exit Sub
Dim AvisoStatusFunctions As New AvisoStatusFunctions
If gridVermerke.Columns(ColumnIndex).Name = "VermerkeOptions" Then
If gridVermerke.Columns(e.ColumnIndex).Name = "VermerkeOptions" Then
Dim tmpIndex = -1
If (dgvSendungen.SelectedRows.Count > 0) Then
tmpIndex = dgvSendungen.SelectedRows(0).Index
End If
Dim VermekId = gridVermerke.Rows(e.RowIndex).Cells("VermerkID").Value
Dim VermekId = gridVermerke.Rows(RowIndex).Cells("VermerkID").Value
Dim VermerkeDAL As New cVermerkeDAL
Dim myVermerk As cVermerk = VermerkeDAL.LesenVermerk(VermekId, "")
myVermerk.VermerkID = 0
'myVermerk.AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells(1).Value)
'myVermerk.AvisoID = CInt(gridVermerke.Rows(RowIndex).Cells(1).Value)
myVermerk.Datum = Now
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
Dim init As Boolean = False
Select Case CStr(gridVermerke.Rows(e.RowIndex).Cells("VermerkeCode").Value)
Select Case CStr(gridVermerke.Rows(RowIndex).Cells("VermerkeCode").Value)
Case "1"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 2
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)
init = True 'Vermerke_anzeigen(RowIndex)
' initDgvSendungen()
Case "3"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 4
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "5"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 6
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "7"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 8
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "9"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 10
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "11"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 12
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "90"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 93
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "13"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" OrElse VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Vermerk_VKErhalten", "AVISO") Then
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 14
If gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then
myVermerk.VorauskasseId = gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value
If gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then
myVermerk.VorauskasseId = gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value
End If
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Else
MsgBox("Keine Berechtigung. Bitte wenden Sie sich an die Buchhaltung oder Abteilungsleitung.")
End If
Case "17"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
myVermerk.VermerkCodeId = 18
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
'Vermerke_aktualisieren()
init = True ' Vermerke_anzeigen(e.RowIndex)
init = True ' Vermerke_anzeigen(RowIndex)
Case "19"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
myVermerk.VermerkCodeId = 20
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "25"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 30
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "31"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.")
myVermerk.VermerkCodeId = 32
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "33"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 34
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "46"
MsgBox("SMS " & gridVermerke.Rows(e.RowIndex).Cells("VermerkeOptions").ToolTipText)
init = False 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
MsgBox("SMS " & gridVermerke.Rows(RowIndex).Cells("VermerkeOptions").ToolTipText)
init = False 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "36"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 37
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "53"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 54
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "55"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 56
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "57"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 58
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "74"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 75
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "76"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 77
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "80"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("folgt", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("folgt", "erhalten")
myVermerk.VermerkCodeId = 81
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
'Ankunft
If vbYes = MsgBox("Soll der LKW auf Status 'ANKUNFT' gesetzt werden?", vbYesNoCancel) Then
If FUNC.setAnkunft(AvisoID) Then
If AvisoStatusFunctions.setAnkunft(AVISO.AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
Case "82"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
myVermerk.VermerkCodeId = 83
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1 where avisoid=" & AvisoID, "AVISO")
sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1 where avisoid=" & AVISO.AvisoID, "AVISO")
AvisoStatusFunctions.printFinish(AVISO)
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
'Vermerke_aktualisieren()
init = True ' Vermerke_anzeigen(e.RowIndex)
init = True ' Vermerke_anzeigen(RowIndex)
Case "96"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 97
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "101"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("offen", "erledigt")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("offen", "erledigt")
myVermerk.VermerkCodeId = 102
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "103"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 104
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "105"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 106
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
Case "107"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 108
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
End Select
loaded = False
' Dim tmpIndex = -1
If init Then
' If (dgvSendungen.SelectedRows.Count > 0) Then
' tmpIndex = dgvSendungen.SelectedRows(0).Index
'End If
sendAktiv = False
initDgvSendungen()
sendAktiv = True
'dgvSendungen.ClearSelection()
'If tmpIndex > 0 And dgvSendungen.RowCount > tmpIndex Then
' dgvSendungen.Rows(tmpIndex).Selected = True
'End If
End If
loaded = True
Vermerke_anzeigen(tmpIndex)
End If
End Sub
Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
If painted Then Exit Sub
If dgvSendungen.RowCount = 0 Then Exit Sub
gridVermerke_Paint(gridVermerke)
painted = True
End Sub
Shared Sub gridVermerke_Paint(gridvermerke As DataGridView)
Try
If gridVermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub
For Each r As DataGridViewRow In gridVermerke.Rows
If gridvermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub
For Each r As DataGridViewRow In gridvermerke.Rows
' If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell)
If CBool(r.Cells("Hervorheben").Value) Then
@@ -1305,43 +1319,43 @@ Public Class usrcntlAktDetails
r.DefaultCellStyle.BackColor = Color.Yellow
End If
If CBool(r.Cells("Geloescht").Value) Then
r.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Strikeout)
r.DefaultCellStyle.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Strikeout)
End If
If (r.Cells("VermerkeCode").Value) IsNot DBNull.Value Then
Select Case CInt(r.Cells("VermerkeCode").Value)
Case 1
If Not existCodeInGridVermerke(2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Auftrag erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Auftrag erhalten' einzutragen."
End If
Case 3
If Not existCodeInGridVermerke(4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Rechnung erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rechnung erhalten' einzutragen."
End If
Case 5
If Not existCodeInGridVermerke(6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "LS erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'LS erhalten' einzutragen."
End If
Case 7
If Not existCodeInGridVermerke(8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "ATR erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATR erhalten' einzutragen."
End If
Case 9
If Not existCodeInGridVermerke(10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Vollmacht erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vollmacht erhalten' einzutragen."
End If
Case 11
If Not existCodeInGridVermerke(12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "CMR erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen."
End If
Case 90
If Not existCodeInGridVermerke(93, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 93, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Packliste erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Packliste erhalten' einzutragen."
End If
@@ -1350,43 +1364,43 @@ Public Class usrcntlAktDetails
If r.Cells("VorauskasseId").Value IsNot DBNull.Value Then
If Not existCodeInGridVermerke_VK(r.Cells("VorauskasseId").Value) Then
If Not existCodeInGridVermerke_VK(gridvermerke, r.Cells("VorauskasseId").Value) Then
optionCell.Value = "Vorauskasse erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
End If
Else
If Not existCodeInGridVermerke_VK_OLD(r.Cells("SendungID").Value) Then
If Not existCodeInGridVermerke_VK_OLD(gridvermerke, r.Cells("SendungID").Value) Then
optionCell.Value = "Vorauskasse erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
End If
End If
Case 17
If Not existCodeInGridVermerke(18) Then
If Not existCodeInGridVermerke(gridvermerke, 18) Then
optionCell.Value = "DE-ZOLL fertig"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL fertig' einzutragen."
End If
Case 19
If Not existCodeInGridVermerke(20) Then
If Not existCodeInGridVermerke(gridvermerke, 20) Then
optionCell.Value = "AT-ZOLL fertig"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'AT-ZOLL fertig' einzutragen."
End If
Case 25
If Not existCodeInGridVermerke(30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Dokument erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dokument erhalten' einzutragen."
End If
Case 31
If Not existCodeInGridVermerke(32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Vorbereitung abgeschlossen"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorbereitung abgeschlossen' einzutragen."
End If
Case 33
If Not existCodeInGridVermerke(34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "ATA-Nr. erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATA-Nr. erhalten' einzutragen."
End If
Case 36
If Not existCodeInGridVermerke(37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Kontaktdaten erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kontaktdaten erhalten' einzutragen."
End If
@@ -1417,52 +1431,52 @@ Public Class usrcntlAktDetails
optionCell.ToolTipText = "Sendefehler: " & SMS.sms_Failure
optionCell.LinkColor = Color.Red
optionCell.Style.BackColor = Color.PapayaWhip
optionCell.Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
optionCell.Style.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Bold)
'optionCell.LinkColor = Color.White
'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
End Select
End If
Case 53
If Not existCodeInGridVermerke(54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Ü-Dok erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen."
End If
Case 55
If Not existCodeInGridVermerke(56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Rg-Best. erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen."
End If
Case 57
If Not existCodeInGridVermerke(58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Dispoliste erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen."
End If
Case 74
If Not existCodeInGridVermerke(75, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 75, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Frachtkosten erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Frachtkosten erhalten' einzutragen."
End If
Case 76
If Not existCodeInGridVermerke(77, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 77, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Absend.best. erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Absenderbestätigung erhalten' einzutragen."
End If
Case 96
If Not existCodeInGridVermerke(97, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 97, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "T1 Bestätigung erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'T1 Bestätigung erhalten' einzutragen."
End If
Case 80
If Not existCodeInGridVermerke(81, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 81, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "ATB-Nr. erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATB-Nr. erhalten' einzutragen."
End If
Case 82
If Not existCodeInGridVermerke(83) Then
If Not existCodeInGridVermerke(gridvermerke, 83) Then
optionCell.Value = "DE-ZOLL fertig"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL (DIGITAL) fertig' einzutragen."
End If
@@ -1470,22 +1484,22 @@ Public Class usrcntlAktDetails
Case 101
If r.Cells("VermerkIDAufgehoben").Value Is DBNull.Value Then
' If Not existCodeInGridVermerke(102, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
' If Not existCodeInGridVermerke(gridvermerke ,102, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Erledigt"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Sonstiger Grund erledigt' einzutragen."
End If
Case 103
If Not existCodeInGridVermerke(104, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 104, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Gewicht/Packstücke erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Gewicht/Packstücke erhalten' einzutragen."
End If
Case 105
If Not existCodeInGridVermerke(106, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 106, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Zolltarifnummer erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Zolltarifnummer erhalten' einzutragen."
End If
Case 107
If Not existCodeInGridVermerke(108, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
If Not existCodeInGridVermerke(gridvermerke, 108, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Kostenbestätigung erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kostenbestätigung erhalten' einzutragen."
End If
@@ -1494,7 +1508,7 @@ Public Class usrcntlAktDetails
Next
painted = True
' ArrowDown_ShowHide() 'Anzeigeproblem, wenn Aviso minimiert wird! --> Jetzt bei Timer!
Catch ex As Exception
@@ -1523,7 +1537,7 @@ Public Class usrcntlAktDetails
End Select
End Sub
Function existCodeInGridVermerke(code As Integer, Optional text As String = "") As Boolean
Shared Function existCodeInGridVermerke(gridVermerke As DataGridView, code As Integer, Optional text As String = "") As Boolean
For Each r As DataGridViewRow In gridVermerke.Rows
If r.Cells("Geloescht").Value = False Then
@@ -1549,7 +1563,7 @@ Public Class usrcntlAktDetails
End Function
Function existCodeInGridVermerke_VK(VorauskasseId As Object) As Boolean
Shared Function existCodeInGridVermerke_VK(gridVermerke As DataGridView, VorauskasseId As Object) As Boolean
For Each r As DataGridViewRow In gridVermerke.Rows
If r.Cells("Geloescht").Value = False Then
@@ -1565,7 +1579,7 @@ Public Class usrcntlAktDetails
End Function
Function existCodeInGridVermerke_VK_OLD(SendungID As Object) As Boolean
Shared Function existCodeInGridVermerke_VK_OLD(gridVermerke As DataGridView, SendungID As Object) As Boolean
For Each r As DataGridViewRow In gridVermerke.Rows
Select Case If(DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString, "")