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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-09-10 14:15:44 +02:00
parent 189a2ac284
commit c7ff55bbae
29 changed files with 3557 additions and 220 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Aviso.sln
View File

@@ -13,8 +13,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISOUPDATER", "AVISOUPDATE
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "..\..\SDL\SDL\SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "UID", "..\..\UID\UID\UID\UID.vbproj", "{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAGAddIn", "..\..\OutlookAddIN\VERAGAddIn\VERAGAddIn\VERAGAddIn.vbproj", "{D579F7A6-7D29-4295-B382-DA5F7EFB4528}"
@@ -83,16 +81,6 @@ Global
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x86.ActiveCfg = Release|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.Build.0 = Debug|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|x86.ActiveCfg = Debug|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.ActiveCfg = Release|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.Build.0 = Release|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|x86.ActiveCfg = Release|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU

69
Aviso/Anhänge/usrCntlSendungAnhangElement.Designer.vb generated Normal file
View File

@@ -0,0 +1,69 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlSendungAnhangElement
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()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lbl = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pic
'
Me.pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.pdf
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(3, 0)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(174, 43)
Me.pic.TabIndex = 0
Me.pic.TabStop = False
'
'lbl
'
Me.lbl.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl.Location = New System.Drawing.Point(4, 46)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(173, 18)
Me.lbl.TabIndex = 1
Me.lbl.Text = "NAME"
Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'usrCntlSendungAnhangElement
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.pic)
Me.Name = "usrCntlSendungAnhangElement"
Me.Size = New System.Drawing.Size(180, 64)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pic As PictureBox
Friend WithEvents lbl As Label
End Class

120
Aviso/Anhänge/usrCntlSendungAnhangElement.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>

74
Aviso/Anhänge/usrCntlSendungAnhangElement.vb Normal file
View File

@@ -0,0 +1,74 @@
Imports System.ComponentModel
Public Class usrCntlSendungAnhangElement
' Implements INotifyPropertyChanged
' Property FILE_NAME = ""
Property FILE_PATH
Property FILE_TYPE
Property FILE_PAGES
Property FILE_DOCID
Property FILE_ANHID
Public Event ME_CLICK()
'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
'Private Sub NotifyPropertyChanged(ByVal info As String)
' RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
'End Sub
Private ACTIVE_Value As Boolean = False
Public Property ACTIVE As Boolean
Get
Return Me.ACTIVE_Value
End Get
Set(ByVal value As Boolean)
If Not (value = ACTIVE) Then
Me.ACTIVE_Value = value
' NotifyPropertyChanged("ACTIVE")
End If
If value Then
Me.BackColor = Color.FromArgb(0, 54, 128)
Me.lbl.ForeColor = Color.White
Else
Me.BackColor = Color.White
Me.lbl.ForeColor = Color.Black
End If
End Set
End Property
Private FILE_NAME_Value As String = False
Public Property FILE_NAME As String
Get
Return Me.FILE_NAME_Value
End Get
Set(ByVal value As String)
If Not (value = FILE_NAME) Then
Me.FILE_NAME_Value = value
Me.lbl.Text = value
' NotifyPropertyChanged("FILE_NAME")
End If
End Set
End Property
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click
RaiseEvent ME_CLICK()
End Sub
Public Sub CLICK_Me()
RaiseEvent ME_CLICK()
End Sub
Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick
Process.Start(Me.FILE_PATH)
End Sub
End Class

18
Aviso/App.config
View File

@@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
@@ -9,7 +9,7 @@
<add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient"/>
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
</startup>
<userSettings>
@@ -45,6 +45,20 @@
<assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Aspose.PDF" publicKeyToken="716fcc553a201e56" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-19.3.0.0" newVersion="19.3.0.0"/>
<publisherPolicy apply="no"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Aspose.Imaging" publicKeyToken="716fcc553a201e56" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-19.4.0.0" newVersion="19.4.0.0"/>
<publisherPolicy apply="no"/>
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration>

75
Aviso/Aviso.vbproj
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
@@ -13,7 +13,7 @@
<AssemblyName>AVISO</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper>
@@ -90,10 +90,17 @@
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="BouncyCastle.Crypto, Version=1.8.2.0, Culture=neutral, PublicKeyToken=0e99375e54769942, processorArchitecture=MSIL">
<HintPath>..\packages\Portable.BouncyCastle.1.8.2\lib\net40\BouncyCastle.Crypto.dll</HintPath>
</Reference>
<Reference Include="com.esendex.sdk, Version=3.4.0.0, Culture=neutral, PublicKeyToken=9dceac28a20578e2, processorArchitecture=MSIL">
<HintPath>..\packages\esendex-dotnet-sdk.3.4.0\lib\net35\com.esendex.sdk.dll</HintPath>
<Private>True</Private>
</Reference>
<Reference Include="ComponentPro.Pdf, Version=7.1.40.232, Culture=neutral, PublicKeyToken=0efede2d78b28dff, processorArchitecture=MSIL" />
<Reference Include="ComponentPro.PdfInspector, Version=7.1.40.232, Culture=neutral, PublicKeyToken=0efede2d78b28dff" />
<Reference Include="ComponentPro.PdfViewer, Version=7.1.40.232, Culture=neutral, PublicKeyToken=0efede2d78b28dff, processorArchitecture=MSIL" />
<Reference Include="ComponentPro.Windows.Common, Version=7.1.40.232, Culture=neutral, PublicKeyToken=0efede2d78b28dff" />
<Reference Include="DocumentFormat.OpenXml, Version=2.5.5631.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Open XML SDK\V2.5\lib\DocumentFormat.OpenXml.dll</HintPath>
@@ -113,9 +120,17 @@
<Reference Include="GrapeCity.ActiveReports.Extensibility.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="Hardcodet.Wpf.TaskbarNotification, Version=1.0.5.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\Hardcodet.NotifyIcon.Wpf.1.0.5\lib\net40-client\Hardcodet.Wpf.TaskbarNotification.dll</HintPath>
<Private>True</Private>
<Reference Include="GrapeCity.Documents.Common, Version=2.2.0.315, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\packages\GrapeCity.Documents.Common.2.2.0.315\lib\net461\GrapeCity.Documents.Common.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.Documents.Imaging, Version=2.2.0.315, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\packages\GrapeCity.Documents.Imaging.2.2.0.315\lib\net461\GrapeCity.Documents.Imaging.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.Documents.Pdf, Version=2.2.0.315, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\packages\GrapeCity.Documents.Pdf.2.2.0.315\lib\net461\GrapeCity.Documents.Pdf.dll</HintPath>
</Reference>
<Reference Include="GroupDocs.Viewer, Version=19.8.0.0, Culture=neutral, PublicKeyToken=716fcc553a201e56, processorArchitecture=MSIL">
<HintPath>..\packages\GroupDocs.Viewer.19.8.0\lib\GroupDocs.Viewer.dll</HintPath>
</Reference>
<Reference Include="itextsharp, Version=5.5.5.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
@@ -149,7 +164,16 @@
<Reference Include="NumericBox">
<HintPath>..\..\..\dll\NumericBox.dll</HintPath>
</Reference>
<Reference Include="Spire.Pdf">
<HintPath>..\..\..\dll\PDF Spire\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="Spire.PdfViewer.Forms">
<HintPath>..\..\..\dll\PDF Spire\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>
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
@@ -158,8 +182,21 @@
<Reference Include="System.Drawing" />
<Reference Include="System.Drawing.Design" />
<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>
<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>
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=4.0.4.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.4.5.0\lib\netstandard2.0\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Security" />
<Reference Include="System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll</HintPath>
</Reference>
<Reference Include="System.Web" />
<Reference Include="System.Web.Abstractions" />
<Reference Include="System.Web.Extensions" />
@@ -190,6 +227,12 @@
<Compile Include="ADMIN\frmZuordnungKd.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Anhänge\usrCntlSendungAnhangElement.Designer.vb">
<DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
</Compile>
<Compile Include="Anhänge\usrCntlSendungAnhangElement.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Auswertung\cStatFunctions.vb" />
<Compile Include="Auswertung\frmStatFrima.Designer.vb">
<DependentUpon>frmStatFrima.vb</DependentUpon>
@@ -549,6 +592,12 @@
<Compile Include="rptLKWBericht.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="frmSendungAnhangImport.Designer.vb">
<DependentUpon>frmSendungAnhangImport.vb</DependentUpon>
</Compile>
<Compile Include="frmSendungAnhangImport.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Settings.vb" />
<Compile Include="usrcntlAktDetailsATILLANeu.Designer.vb">
<DependentUpon>usrcntlAktDetailsATILLANeu.vb</DependentUpon>
@@ -568,6 +617,12 @@
<Compile Include="usrcntlAktDetails.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlAvisoAnhang.Designer.vb">
<DependentUpon>usrCntlAvisoAnhang.vb</DependentUpon>
</Compile>
<Compile Include="usrCntlAvisoAnhang.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlEintragAvisoAtilla.Designer.vb">
<DependentUpon>usrCntlEintragAvisoAtilla.vb</DependentUpon>
</Compile>
@@ -609,6 +664,9 @@
<EmbeddedResource Include="ADMIN\frmZuordnungKd.resx">
<DependentUpon>frmZuordnungKd.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Anhänge\usrCntlSendungAnhangElement.resx">
<DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Auswertung\frmStatFrima.resx">
<DependentUpon>frmStatFrima.vb</DependentUpon>
</EmbeddedResource>
@@ -776,6 +834,9 @@
<EmbeddedResource Include="rptLKWBericht.resx">
<DependentUpon>rptLKWBericht.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSendungAnhangImport.resx">
<DependentUpon>frmSendungAnhangImport.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrcntlAktDetailsATILLANeu.resx">
<DependentUpon>usrcntlAktDetailsATILLANeu.vb</DependentUpon>
</EmbeddedResource>
@@ -785,6 +846,9 @@
<EmbeddedResource Include="usrcntlAktDetails.resx">
<DependentUpon>usrcntlAktDetails.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlAvisoAnhang.resx">
<DependentUpon>usrCntlAvisoAnhang.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlEintragAvisoAtilla.resx">
<DependentUpon>usrCntlEintragAvisoAtilla.vb</DependentUpon>
</EmbeddedResource>
@@ -887,6 +951,7 @@
<ItemGroup>
<Content Include="aviso.ico" />
<Content Include="My Project\aktAlt.jpg" />
<None Include="Resources\scanner.png" />
<None Include="Resources\parkplatz.jpg" />
<None Include="Resources\igl.png" />
<None Include="Resources\els.png" />

4
Aviso/My Project/Application.Designer.vb generated
View File

@@ -14,8 +14,8 @@ Option Explicit On
Namespace My
'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.3.1.9")>
<Assembly: AssemblyFileVersion("3.3.1.9")>
<Assembly: AssemblyVersion("3.3.2.2")>
<Assembly: AssemblyFileVersion("3.3.2.2")>

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

@@ -789,6 +789,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property scanner() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("scanner", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1029,7 +1039,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 3.3.1.9 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 3.3.2.2 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

125
Aviso/My Project/Resources.resx
View File

@@ -121,15 +121,15 @@
<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="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="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>
</data>
<data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="belegEUR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\belegEUR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="QS" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\QS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -151,9 +151,6 @@
<data name="spedbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch.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="tan" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tan.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -178,6 +175,9 @@
<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="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>
</data>
<data name="abgeklaertAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -190,6 +190,9 @@
<data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android_note" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-note.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -214,14 +217,11 @@
<data name="noAviso_s1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\noAviso_s1.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="android_clock" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-clock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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 name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="personInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -229,14 +229,17 @@
<data name="beleg1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="evolog" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\evolog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="printer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\printer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh.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="android_clock_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-clock_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -247,9 +250,6 @@
<data name="del1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -259,17 +259,17 @@
<data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="rhenus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\rhenus.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla.png;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 name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fremdSped" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fremdSped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handy1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -277,6 +277,9 @@
<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>
<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>
<data name="bundesanzeiger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bundesanzeiger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -295,9 +298,15 @@
<data name="speditionsbuchInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\speditionsbuchInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sanduhr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sanduhr.png;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>
</data>
<data name="kasse_sw_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse_sw_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -317,10 +326,7 @@
<value>..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>3.3.1.9</value>
</data>
<data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<value>3.3.2.2</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>
@@ -328,12 +334,12 @@
<data name="kasse_sw" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1600.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="disconnect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\disconnect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LateAviso_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LateAviso_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -349,8 +355,8 @@
<data name="_SUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SUB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ADMIN_pwd" xml:space="preserve">
<value>aviso2015</value>
@@ -361,8 +367,8 @@
<data name="LEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="soenmez" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\soenmez.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -370,26 +376,23 @@
<data name="nellenquack" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\nellenquack.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>
<data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kita" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kita.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="tarife" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tarife.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="noAviso_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\noAviso_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="warning" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;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="pdf11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="disconnect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\disconnect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="UpdaterVersion" xml:space="preserve">
<value>4.0</value>
@@ -400,8 +403,8 @@
<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>
<data name="printer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\printer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="zoll_m" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll_mm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -409,17 +412,20 @@
<data name="belegEUR1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\belegEUR1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hp_versuchskaninchen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\hp-versuchskaninchen.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fremdSped" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fremdSped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="evolog" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\evolog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="belegEUR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\belegEUR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="hp_versuchskaninchen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\hp-versuchskaninchen.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="tarife" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tarife.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uid.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -430,8 +436,8 @@
<data name="del2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del2.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 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="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>
@@ -439,8 +445,8 @@
<data name="stift2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="vorauszahlung2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -451,10 +457,7 @@
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.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>
</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 name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

6
Aviso/My Project/Settings.Designer.vb generated
View File

@@ -15,21 +15,21 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 42 KiB

22
Aviso/frmEintragAviso.designer.vb generated
View File

@@ -190,7 +190,7 @@ Partial Class frmEintragAviso
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(6, 171)
Me.Label4.Location = New System.Drawing.Point(6, 169)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(46, 13)
Me.Label4.TabIndex = 24
@@ -199,7 +199,7 @@ Partial Class frmEintragAviso
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(6, 210)
Me.Label5.Location = New System.Drawing.Point(6, 208)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(47, 13)
Me.Label5.TabIndex = 29
@@ -690,6 +690,10 @@ Partial Class frmEintragAviso
'
'grpAviso
'
Me.grpAviso.Controls.Add(Me.kdAuftraggeber)
Me.grpAviso.Controls.Add(Me.kdAvisierer)
Me.grpAviso.Controls.Add(Me.kdFrächter)
Me.grpAviso.Controls.Add(Me.txtLKW_Nr)
Me.grpAviso.Controls.Add(Me.lblZA)
Me.grpAviso.Controls.Add(Me.txtBestimmungszollstelle)
Me.grpAviso.Controls.Add(Me.Button4)
@@ -701,7 +705,6 @@ Partial Class frmEintragAviso
Me.grpAviso.Controls.Add(Me.Label16)
Me.grpAviso.Controls.Add(Me.cbxFrächterUnbekannt)
Me.grpAviso.Controls.Add(Me.btnAuftraggeber)
Me.grpAviso.Controls.Add(Me.kdAuftraggeber)
Me.grpAviso.Controls.Add(Me.UsrCntlTestsystem1)
Me.grpAviso.Controls.Add(Me.btnAvisiererKd)
Me.grpAviso.Controls.Add(Me.btnFraechterKd)
@@ -713,8 +716,6 @@ Partial Class frmEintragAviso
Me.grpAviso.Controls.Add(Me.lblErr_Frächter)
Me.grpAviso.Controls.Add(Me.lblErr_LKW)
Me.grpAviso.Controls.Add(Me.lblErr_Grenzstelle)
Me.grpAviso.Controls.Add(Me.kdAvisierer)
Me.grpAviso.Controls.Add(Me.kdFrächter)
Me.grpAviso.Controls.Add(Me.lblErrFmZollKdNr)
Me.grpAviso.Controls.Add(Me.grp)
Me.grpAviso.Controls.Add(Me.Button1)
@@ -727,10 +728,8 @@ Partial Class frmEintragAviso
Me.grpAviso.Controls.Add(Me.Label12)
Me.grpAviso.Controls.Add(Me.optAvisoEingang)
Me.grpAviso.Controls.Add(Me.dtpAvisoEingangZeit)
Me.grpAviso.Controls.Add(Me.Label6)
Me.grpAviso.Controls.Add(Me.Label11)
Me.grpAviso.Controls.Add(Me.Label4)
Me.grpAviso.Controls.Add(Me.txtLKW_Nr)
Me.grpAviso.Controls.Add(Me.txtInfo)
Me.grpAviso.Controls.Add(Me.lblAtrAvis)
Me.grpAviso.Controls.Add(Me.lblAtr)
@@ -738,6 +737,7 @@ Partial Class frmEintragAviso
Me.grpAviso.Controls.Add(Me.Label3)
Me.grpAviso.Controls.Add(Me.Label5)
Me.grpAviso.Controls.Add(Me.cbxAuftraggeberfurAlleSendungen)
Me.grpAviso.Controls.Add(Me.Label6)
Me.grpAviso.Location = New System.Drawing.Point(12, 45)
Me.grpAviso.Name = "grpAviso"
Me.grpAviso.Size = New System.Drawing.Size(403, 439)
@@ -1176,7 +1176,7 @@ Partial Class frmEintragAviso
'lblAtr
'
Me.lblAtr.AutoSize = True
Me.lblAtr.Location = New System.Drawing.Point(6, 249)
Me.lblAtr.Location = New System.Drawing.Point(6, 248)
Me.lblAtr.Name = "lblAtr"
Me.lblAtr.Size = New System.Drawing.Size(71, 13)
Me.lblAtr.TabIndex = 32
@@ -1265,6 +1265,7 @@ Partial Class frmEintragAviso
Me.txtSendungen._TimeOnly = False
Me.txtSendungen._value = ""
Me.txtSendungen._Waehrung = False
Me.txtSendungen._WaehrungZeichen = True
Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSendungen.ForeColor = System.Drawing.Color.Black
Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
@@ -1314,6 +1315,7 @@ Partial Class frmEintragAviso
Me.txtSndFremd._TimeOnly = False
Me.txtSndFremd._value = ""
Me.txtSndFremd._Waehrung = False
Me.txtSndFremd._WaehrungZeichen = True
Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
Me.txtSndFremd.Location = New System.Drawing.Point(119, 5)
@@ -1375,6 +1377,7 @@ Partial Class frmEintragAviso
Me.txtSndFiskalDE._TimeOnly = False
Me.txtSndFiskalDE._value = ""
Me.txtSndFiskalDE._Waehrung = False
Me.txtSndFiskalDE._WaehrungZeichen = True
Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
@@ -1407,6 +1410,7 @@ Partial Class frmEintragAviso
Me.txtSndFiskalAT._TimeOnly = False
Me.txtSndFiskalAT._value = ""
Me.txtSndFiskalAT._Waehrung = False
Me.txtSndFiskalAT._WaehrungZeichen = True
Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
@@ -1598,7 +1602,6 @@ Partial Class frmEintragAviso
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents lblErrFmZollKdNr As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents kdAvisierer As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents kdFrächter As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents lblErr_Avisierer As System.Windows.Forms.Label
Friend WithEvents lblErr_Frächter As System.Windows.Forms.Label
@@ -1642,4 +1645,5 @@ Partial Class frmEintragAviso
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents lblZA As Label
Friend WithEvents txtBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Public WithEvents kdAvisierer As VERAG_PROG_ALLGEMEIN.KdSearchBox
End Class

131
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -24,12 +24,12 @@ Partial Class frmHauptfenster
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
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 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()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -62,12 +62,12 @@ Partial Class frmHauptfenster
Me.LeereRechnungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EMAILTESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FreigabeMailTestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SDLProgrammStartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.FirmaWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ATILLAToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IMEXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SDLProgrammStartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.NacherfassungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LogoutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -123,6 +123,7 @@ Partial Class frmHauptfenster
Me.toolVPCreditreform = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.VerzollungsunterlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.WAIDHAUSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem()
@@ -250,7 +251,6 @@ Partial Class frmHauptfenster
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.BundesanzeigerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.Top.SuspendLayout()
@@ -372,7 +372,7 @@ Partial Class frmHauptfenster
'mnuProgramm
'
Me.mnuProgramm.BackColor = System.Drawing.Color.Transparent
Me.mnuProgramm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFirmen, Me.NeuesPasswortToolStripMenuItem, Me.OptionenToolStripMenuItem, Me.StandorteToolStripMenuItem, Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator4, Me.NacherfassungToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.LogoutToolStripMenuItem})
Me.mnuProgramm.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuFirmen, Me.NeuesPasswortToolStripMenuItem, Me.OptionenToolStripMenuItem, Me.StandorteToolStripMenuItem, Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator4, Me.FirmaWechselnToolStripMenuItem, Me.NacherfassungToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.LogoutToolStripMenuItem})
Me.mnuProgramm.ForeColor = System.Drawing.Color.Black
Me.mnuProgramm.Name = "mnuProgramm"
Me.mnuProgramm.Size = New System.Drawing.Size(78, 20)
@@ -419,7 +419,7 @@ Partial Class frmHauptfenster
'
'AdministrationToolStripMenuItem
'
Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.FirmaWechselnToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem})
Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem})
Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem"
Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
Me.AdministrationToolStripMenuItem.Text = "Administration"
@@ -485,11 +485,22 @@ Partial Class frmHauptfenster
Me.FreigabeMailTestToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.FreigabeMailTestToolStripMenuItem.Text = "FreigabeMail test"
'
'SDLProgrammStartenToolStripMenuItem
'
Me.SDLProgrammStartenToolStripMenuItem.Name = "SDLProgrammStartenToolStripMenuItem"
Me.SDLProgrammStartenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.SDLProgrammStartenToolStripMenuItem.Text = "SDL Programm starten"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(154, 6)
'
'FirmaWechselnToolStripMenuItem
'
Me.FirmaWechselnToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VERAGToolStripMenuItem, Me.ATILLAToolStripMenuItem, Me.IMEXToolStripMenuItem})
Me.FirmaWechselnToolStripMenuItem.Name = "FirmaWechselnToolStripMenuItem"
Me.FirmaWechselnToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.FirmaWechselnToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
Me.FirmaWechselnToolStripMenuItem.Text = "Firma wechseln"
'
'VERAGToolStripMenuItem
@@ -510,17 +521,6 @@ Partial Class frmHauptfenster
Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(111, 22)
Me.IMEXToolStripMenuItem.Text = "IMEX"
'
'SDLProgrammStartenToolStripMenuItem
'
Me.SDLProgrammStartenToolStripMenuItem.Name = "SDLProgrammStartenToolStripMenuItem"
Me.SDLProgrammStartenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
Me.SDLProgrammStartenToolStripMenuItem.Text = "SDL Programm starten"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(154, 6)
'
'NacherfassungToolStripMenuItem
'
Me.NacherfassungToolStripMenuItem.Name = "NacherfassungToolStripMenuItem"
@@ -701,7 +701,7 @@ Partial Class frmHauptfenster
'
Me.StatistikADMINToolStripMenuItem.Name = "StatistikADMINToolStripMenuItem"
Me.StatistikADMINToolStripMenuItem.Size = New System.Drawing.Size(234, 22)
Me.StatistikADMINToolStripMenuItem.Text = "Statistik (ADMIN)"
Me.StatistikADMINToolStripMenuItem.Text = "Statistik (Aviso)"
'
'ToolStripSeparator8
'
@@ -852,6 +852,7 @@ Partial Class frmHauptfenster
Me.toolVPCreditreform.Name = "toolVPCreditreform"
Me.toolVPCreditreform.Size = New System.Drawing.Size(277, 22)
Me.toolVPCreditreform.Text = "Bonitätsauskunft (Creditreform)"
Me.toolVPCreditreform.Visible = False
'
'ToolStripSeparator9
'
@@ -864,6 +865,12 @@ Partial Class frmHauptfenster
Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
Me.VerzollungsunterlagenToolStripMenuItem.Text = "Verzollungsunterlagen"
'
'ToolStripMenuItem11
'
Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem11.Text = "Verzollungsunterlagen BAR"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
@@ -1576,8 +1583,8 @@ Partial Class frmHauptfenster
Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
@@ -1846,45 +1853,45 @@ Partial Class frmHauptfenster
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle8.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle10
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
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.ControlText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle4
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 208)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle12
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle6
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -2396,12 +2403,6 @@ Partial Class frmHauptfenster
Me.EUTaricToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
Me.EUTaricToolStripMenuItem.Text = "EU-Taric"
'
'ToolStripMenuItem11
'
Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(277, 22)
Me.ToolStripMenuItem11.Text = "Verzollungsunterlagen BAR"
'
'frmHauptfenster
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2650,10 +2651,6 @@ Partial Class frmHauptfenster
Friend WithEvents EMAILTESTToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FreigabeMailTestToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents KundenverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FirmaWechselnToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VERAGToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATILLAToolStripMenuItem As ToolStripMenuItem
Friend WithEvents IMEXToolStripMenuItem As ToolStripMenuItem
Friend WithEvents NeuesPasswortToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnFakturierung As Button
Friend WithEvents pic As PictureBox
@@ -2687,4 +2684,8 @@ Partial Class frmHauptfenster
Friend WithEvents Button5 As Button
Friend WithEvents ToolStripMenuItem10 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem11 As ToolStripMenuItem
Friend WithEvents FirmaWechselnToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VERAGToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATILLAToolStripMenuItem As ToolStripMenuItem
Friend WithEvents IMEXToolStripMenuItem As ToolStripMenuItem
End Class

3
Aviso/frmHauptfenster.resx
View File

@@ -225,9 +225,6 @@
pOTzPwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>598, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>697, 17</value>
</metadata>

25
Aviso/frmHauptfenster.vb
View File

@@ -35,6 +35,7 @@ Public Class frmHauptfenster
Private GridZeichnen As Integer = 0
Dim lkwbackcolor As Color = Color.FromArgb(220, 220, 220)
Dim lkwbackcolorSel As Color = Color.FromArgb(200, 200, 200)
Dim FIMRA_COLOR As Color = Color.FromArgb(0, 54, 128)
Dim VermerkeAktuelleAvisoId As Integer = -1
Private infotxt As String = ""
Dim gridFont As New Font(Me.Font.FontFamily, 8)
@@ -125,6 +126,19 @@ Public Class frmHauptfenster
Me.AutoScaleMode = Windows.Forms.AutoScaleMode.Dpi
hideErr.Interval = 3000
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "IMEX"
' FIMRA_COLOR = Color.FromArgb(250, 200, 0)
' Case "ATILLA"
' FIMRA_COLOR = Color.FromArgb(0, 54, 128)
' ' FIMRA_COLOR = Color.Red
' Case Else
' FIMRA_COLOR = Color.FromArgb(0, 54, 128)
'End Select
'Panel1.BackColor = FIMRA_COLOR
'Panel6.BackColor = FIMRA_COLOR
'pnlSearch.BackColor = FIMRA_COLOR
UpdateUpdater.Interval = 5000
UpdateUpdater.Enabled = True
@@ -1859,7 +1873,7 @@ Public Class frmHauptfenster
Private Sub StatistikADMINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StatistikADMINToolStripMenuItem.Click
'MsgBox(cGlobal.AktiverMitarbeiter.Mitarbeiter)
If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik", Me) Then
frmAuswertung.Show()
Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
End If
@@ -2440,18 +2454,24 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
Dim f As New SDL.frmKundenSucheUebersicht
f.Show(Me)
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub ATILLAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLAToolStripMenuItem.Click
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "ATILLA")) Then
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub IMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IMEXToolStripMenuItem.Click
If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "IMEX")) Then
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
@@ -2638,6 +2658,9 @@ Public Class frmHauptfenster
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerzollungsunterlagenBAR)
End Sub
End Class
Public Class AvisoStatusFunctions

16
Aviso/frmLogin.vb
View File

@@ -3,6 +3,7 @@ Imports System.Windows.Forms
Imports VERAG_PROG_ALLGEMEIN
Imports System.Reflection
Imports System.DirectoryServices
Public Class frmLogin
@@ -161,6 +162,19 @@ Public Class frmLogin
txtSachbear.Text = SystemInformation.UserName
txtSachbear.Focus()
Try
Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name
If WI.Contains("\") Then
Dim Split() = WI.Split("\")
Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1))
If UsernameTMP <> "" Then
txtSachbear.Text = UsernameTMP
End If
End If
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Sub
Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
@@ -272,7 +286,7 @@ Public Class frmLogin
End Sub
Private Sub AdminLoginOK()
Dim cMitarbeiter As New cMitarbeiteraviso
Dim cMitarbeiter As New cMitarbeiterAVISO
cMitarbeiter.MitarbeiterID = 0
' VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB"
cMitarbeiter.Mitarbeiter = "PROGRAMM_ADMIN"

477
Aviso/frmSendungAnhangImport.Designer.vb generated Normal file
View File

@@ -0,0 +1,477 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmSendungAnhangImport
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport))
Me.lbl = New System.Windows.Forms.Label()
Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel()
Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.pnlAnfuegen = New System.Windows.Forms.Panel()
Me.btnAnfuegenAll = New System.Windows.Forms.Button()
Me.txtDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnAnfuegen = New System.Windows.Forms.Button()
Me.txtSeiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.cbxDelPDF = New System.Windows.Forms.CheckBox()
Me.btn = New System.Windows.Forms.Button()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Button2 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.cboSendungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
Me.flpnlAviso.SuspendLayout()
Me.pnlAnfuegen.SuspendLayout()
Me.cntxt.SuspendLayout()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(12, 14)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(53, 13)
Me.lbl.TabIndex = 0
Me.lbl.Text = "Anhänge:"
'
'flpnlAviso
'
Me.flpnlAviso.AutoScroll = True
Me.flpnlAviso.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.flpnlAviso.Controls.Add(Me.UsrCntlSendungAnhangElement1)
Me.flpnlAviso.Controls.Add(Me.UsrCntlSendungAnhangElement2)
Me.flpnlAviso.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.flpnlAviso.Location = New System.Drawing.Point(15, 30)
Me.flpnlAviso.Name = "flpnlAviso"
Me.flpnlAviso.Size = New System.Drawing.Size(200, 661)
Me.flpnlAviso.TabIndex = 1
'
'UsrCntlSendungAnhangElement1
'
Me.UsrCntlSendungAnhangElement1.ACTIVE = False
Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement1.TabIndex = 0
'
'UsrCntlSendungAnhangElement2
'
Me.UsrCntlSendungAnhangElement2.ACTIVE = False
Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement2.TabIndex = 1
'
'WebBrowser1
'
Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser1.Location = New System.Drawing.Point(0, 0)
Me.WebBrowser1.Name = "WebBrowser1"
Me.WebBrowser1.Size = New System.Drawing.Size(736, 491)
Me.WebBrowser1.TabIndex = 2
'
'flpnlSendungen
'
Me.flpnlSendungen.AutoScroll = True
Me.flpnlSendungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.flpnlSendungen.Location = New System.Drawing.Point(965, 62)
Me.flpnlSendungen.Name = "flpnlSendungen"
Me.flpnlSendungen.Size = New System.Drawing.Size(200, 630)
Me.flpnlSendungen.TabIndex = 2
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(221, 182)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(55, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Vorschau:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(962, 14)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(65, 13)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Sendungen:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(221, 14)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Import:"
'
'pnlAnfuegen
'
Me.pnlAnfuegen.BackColor = System.Drawing.Color.FloralWhite
Me.pnlAnfuegen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlAnfuegen.Controls.Add(Me.btnAnfuegenAll)
Me.pnlAnfuegen.Controls.Add(Me.txtDateiname)
Me.pnlAnfuegen.Controls.Add(Me.Label7)
Me.pnlAnfuegen.Controls.Add(Me.MyTextBox2)
Me.pnlAnfuegen.Controls.Add(Me.Label6)
Me.pnlAnfuegen.Controls.Add(Me.Label5)
Me.pnlAnfuegen.Controls.Add(Me.cboArt)
Me.pnlAnfuegen.Controls.Add(Me.btnAnfuegen)
Me.pnlAnfuegen.Controls.Add(Me.txtSeiten)
Me.pnlAnfuegen.Controls.Add(Me.Label4)
Me.pnlAnfuegen.Controls.Add(Me.cbxDelPDF)
Me.pnlAnfuegen.Location = New System.Drawing.Point(221, 30)
Me.pnlAnfuegen.Name = "pnlAnfuegen"
Me.pnlAnfuegen.Size = New System.Drawing.Size(737, 142)
Me.pnlAnfuegen.TabIndex = 3
'
'btnAnfuegenAll
'
Me.btnAnfuegenAll.BackColor = System.Drawing.Color.Wheat
Me.btnAnfuegenAll.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnfuegenAll.Location = New System.Drawing.Point(524, 47)
Me.btnAnfuegenAll.Name = "btnAnfuegenAll"
Me.btnAnfuegenAll.Size = New System.Drawing.Size(200, 56)
Me.btnAnfuegenAll.TabIndex = 16
Me.btnAnfuegenAll.Text = ">> Ganzes Dokument anfügen >>"
Me.btnAnfuegenAll.UseVisualStyleBackColor = False
'
'txtDateiname
'
Me.txtDateiname._DateTimeOnly = False
Me.txtDateiname._numbersOnly = False
Me.txtDateiname._numbersOnlyKommastellen = ""
Me.txtDateiname._Prozent = False
Me.txtDateiname._ShortDateNew = False
Me.txtDateiname._ShortDateOnly = False
Me.txtDateiname._TimeOnly = False
Me.txtDateiname._value = ""
Me.txtDateiname._Waehrung = False
Me.txtDateiname._WaehrungZeichen = True
Me.txtDateiname.ForeColor = System.Drawing.Color.Black
Me.txtDateiname.Location = New System.Drawing.Point(62, 11)
Me.txtDateiname.MaxLineLength = -1
Me.txtDateiname.MaxLines_Warning = ""
Me.txtDateiname.MaxLines_Warning_Label = Nothing
Me.txtDateiname.Name = "txtDateiname"
Me.txtDateiname.ReadOnly = True
Me.txtDateiname.Size = New System.Drawing.Size(662, 20)
Me.txtDateiname.TabIndex = 14
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 14)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(35, 13)
Me.Label7.TabIndex = 13
Me.Label7.Text = "Datei:"
'
'MyTextBox2
'
Me.MyTextBox2._DateTimeOnly = False
Me.MyTextBox2._numbersOnly = False
Me.MyTextBox2._numbersOnlyKommastellen = ""
Me.MyTextBox2._Prozent = False
Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(62, 109)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
Me.MyTextBox2.Name = "MyTextBox2"
Me.MyTextBox2.ReadOnly = True
Me.MyTextBox2.Size = New System.Drawing.Size(662, 20)
Me.MyTextBox2.TabIndex = 12
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 112)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(53, 13)
Me.Label6.TabIndex = 11
Me.Label6.Text = "Sendung:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(3, 83)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(23, 13)
Me.Label5.TabIndex = 10
Me.Label5.Text = "Art:"
'
'cboArt
'
Me.cboArt._allowedValuesFreiText = Nothing
Me.cboArt._allowFreiText = False
Me.cboArt._value = ""
Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboArt.FormattingEnabled = True
Me.cboArt.Location = New System.Drawing.Point(62, 75)
Me.cboArt.Name = "cboArt"
Me.cboArt.Size = New System.Drawing.Size(248, 28)
Me.cboArt.TabIndex = 9
'
'btnAnfuegen
'
Me.btnAnfuegen.BackColor = System.Drawing.Color.Wheat
Me.btnAnfuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnfuegen.Location = New System.Drawing.Point(316, 47)
Me.btnAnfuegen.Name = "btnAnfuegen"
Me.btnAnfuegen.Size = New System.Drawing.Size(205, 56)
Me.btnAnfuegen.TabIndex = 8
Me.btnAnfuegen.Text = ">> Anfügen >>"
Me.btnAnfuegen.UseVisualStyleBackColor = False
'
'txtSeiten
'
Me.txtSeiten._DateTimeOnly = False
Me.txtSeiten._numbersOnly = False
Me.txtSeiten._numbersOnlyKommastellen = ""
Me.txtSeiten._Prozent = False
Me.txtSeiten._ShortDateNew = False
Me.txtSeiten._ShortDateOnly = False
Me.txtSeiten._TimeOnly = False
Me.txtSeiten._value = ""
Me.txtSeiten._Waehrung = False
Me.txtSeiten._WaehrungZeichen = True
Me.txtSeiten.BackColor = System.Drawing.Color.White
Me.txtSeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSeiten.ForeColor = System.Drawing.Color.Black
Me.txtSeiten.Location = New System.Drawing.Point(62, 47)
Me.txtSeiten.MaxLineLength = -1
Me.txtSeiten.MaxLines_Warning = ""
Me.txtSeiten.MaxLines_Warning_Label = Nothing
Me.txtSeiten.Name = "txtSeiten"
Me.txtSeiten.Size = New System.Drawing.Size(248, 26)
Me.txtSeiten.TabIndex = 7
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 55)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(40, 13)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Seiten:"
'
'cbxDelPDF
'
Me.cbxDelPDF.AutoSize = True
Me.cbxDelPDF.Checked = True
Me.cbxDelPDF.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDelPDF.Location = New System.Drawing.Point(316, 31)
Me.cbxDelPDF.Name = "cbxDelPDF"
Me.cbxDelPDF.Size = New System.Drawing.Size(244, 17)
Me.cbxDelPDF.TabIndex = 15
Me.cbxDelPDF.Text = "angefügte Dateien aus Original PDF entfernen"
Me.cbxDelPDF.UseVisualStyleBackColor = True
'
'btn
'
Me.btn.ContextMenuStrip = Me.cntxt
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(71, 3)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 25)
Me.btn.TabIndex = 6
Me.btn.Text = "Hinzufügen"
Me.btn.UseVisualStyleBackColor = True
'
'cntxt
'
Me.cntxt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem, Me.DateiScannenToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(170, 48)
'
'DateiHochladenToolStripMenuItem
'
Me.DateiHochladenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem"
Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.DateiHochladenToolStripMenuItem.Text = "Datei hochladen..."
'
'DateiScannenToolStripMenuItem
'
Me.DateiScannenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.scanner
Me.DateiScannenToolStripMenuItem.Name = "DateiScannenToolStripMenuItem"
Me.DateiScannenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.DateiScannenToolStripMenuItem.Text = "Datei scannen..."
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(152, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(63, 25)
Me.Button2.TabIndex = 7
Me.Button2.Text = "Löschen"
Me.Button2.UseVisualStyleBackColor = True
'
'pnl
'
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.WebBrowser1)
Me.pnl.Location = New System.Drawing.Point(221, 198)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(738, 493)
Me.pnl.TabIndex = 8
'
'Button3
'
Me.Button3.BackColor = System.Drawing.Color.Wheat
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(1171, 78)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(187, 56)
Me.Button3.TabIndex = 18
Me.Button3.Text = "<< zurück <<"
Me.Button3.UseVisualStyleBackColor = False
'
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Location = New System.Drawing.Point(1102, 2)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(63, 25)
Me.Button4.TabIndex = 19
Me.Button4.Text = "Löschen"
Me.Button4.UseVisualStyleBackColor = True
'
'cboSendungen
'
Me.cboSendungen._allowedValuesFreiText = Nothing
Me.cboSendungen._allowFreiText = False
Me.cboSendungen._value = ""
Me.cboSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboSendungen.FormattingEnabled = True
Me.cboSendungen.Location = New System.Drawing.Point(965, 30)
Me.cboSendungen.Name = "cboSendungen"
Me.cboSendungen.Size = New System.Drawing.Size(393, 28)
Me.cboSendungen.TabIndex = 16
'
'frmSendungAnhangImport
'
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(1370, 698)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.cboSendungen)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.pnlAnfuegen)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.flpnlSendungen)
Me.Controls.Add(Me.flpnlAviso)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.pnl)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Name = "frmSendungAnhangImport"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Anhang Import"
Me.flpnlAviso.ResumeLayout(False)
Me.pnlAnfuegen.ResumeLayout(False)
Me.pnlAnfuegen.PerformLayout()
Me.cntxt.ResumeLayout(False)
Me.pnl.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lbl As Label
Friend WithEvents flpnlAviso As FlowLayoutPanel
Friend WithEvents WebBrowser1 As WebBrowser
Friend WithEvents flpnlSendungen As FlowLayoutPanel
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents pnlAnfuegen As Panel
Friend WithEvents Label4 As Label
Friend WithEvents btn As Button
Friend WithEvents btnAnfuegen As Button
Friend WithEvents txtSeiten As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents UsrCntlSendungAnhangElement1 As usrCntlSendungAnhangElement
Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As Label
Friend WithEvents Label5 As Label
Friend WithEvents cboArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtDateiname As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As Label
Friend WithEvents UsrCntlSendungAnhangElement2 As usrCntlSendungAnhangElement
Friend WithEvents Button2 As Button
Friend WithEvents pnl As Panel
Friend WithEvents cbxDelPDF As CheckBox
Friend WithEvents cboSendungen As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnAnfuegenAll As Button
Friend WithEvents Button3 As Button
Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents DateiScannenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button4 As Button
Friend WithEvents PrintDocument1 As Printing.PrintDocument
End Class

1259
Aviso/frmSendungAnhangImport.resx Normal file
View File

File diff suppressed because it is too large Load Diff

761
Aviso/frmSendungAnhangImport.vb Normal file
View File

@@ -0,0 +1,761 @@

Imports iTextSharp.text.pdf
Imports iTextSharp.text
Imports System.IO
Imports GrapeCity.Documents.Pdf
Public Class frmSendungAnhangImport
Public AvisoId As Integer
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
Dim CURRENT_INDEX As Integer
Dim BrowserLoaded = True
Sub New(AvisoId)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AvisoId = AvisoId
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
'Dim f As New GroupDocs.Viewer
End Sub
Sub initElement(USRCNTL As usrCntlSendungAnhangElement)
AddHandler USRCNTL.ME_CLICK, Sub()
' If BrowserLoaded Then
If USRCNTL.ACTIVE Then Exit Sub 'Bereits aktiv
For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
u.ACTIVE = False
Next
For Each u As usrCntlSendungAnhangElement In flpnlSendungen.Controls
u.ACTIVE = False
Next
USRCNTL.ACTIVE = True
'WebBrowser1.Navigate(USRCNTL.FILE_PATH)
If File.Exists(USRCNTL.FILE_PATH) Then
initLocationViewer(USRCNTL.FILE_PATH)
Else
initLocationViewer("")
End If
' PdfViewer.DocumentLoaded += New EventHandler(AddressOf radPdfViewer1_DocumentLoaded)
txtDateiname.Text = USRCNTL.FILE_NAME
' End If
End Sub
AddHandler USRCNTL.KeyDown, Sub(ob As Object, ev As KeyEventArgs)
If ev.KeyCode = Keys.Delete Then
deleteActiveElement(getAcitvePnl())
End If
End Sub
End Sub
Sub initLocationViewer(loc)
If WebBrowser1.Url.AbsoluteUri <> loc Then
WebBrowser1.Navigate(loc)
BrowserLoaded = False
End If
If loc = "" Then BrowserLoaded = True
End Sub
Function getAcitvePnl() As FlowLayoutPanel
For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
If u.ACTIVE Then Return flpnlAviso
Next
For Each u As usrCntlSendungAnhangElement In flpnlSendungen.Controls
If u.ACTIVE Then Return flpnlSendungen
Next
Return Nothing
End Function
Public Function ExtractPdfPages(ByVal SourceFile As String, ByVal TargetFile As String, ByVal IntStr As Integer, ByVal IntEnd As Integer)
Try
Dim impPage As pdf.PdfImportedPage = Nothing
Dim Reader As New PdfReader(SourceFile)
Dim srcDoc As New Document(Reader.GetPageSizeWithRotation(IntStr))
Dim PdfCopyProvider As New PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
PdfCopyProvider.SetFullCompression()
srcDoc.Open()
For X = IntStr To IntEnd
impPage = PdfCopyProvider.GetImportedPage(Reader, X)
' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
PdfCopyProvider.SetPageSize(New Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height))
' ----- PDF Seite in das neue Dokument einfügen
PdfCopyProvider.AddPage(impPage)
Next
' ----- neues PDF Dokument und den Reader schließen
srcDoc.Close()
Reader.Close()
Catch ex As Exception
Throw ex
End Try
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAnfuegen.Click
If txtSeiten.Text = "" Then Exit Sub
' If cboArt._value = "" Then Exit Sub
If cboSendungen._value = "" Then Exit Sub
If Not checkSeiten() Then Exit Sub
For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
If u.ACTIVE Then
Dim fi As New FileInfo(u.FILE_PATH)
'-------------
'------------- PDFs extrahieren und auf den Datenserver laden + Eintrag in tblAvisoAnhaenger
'-------------
Dim SendngsId As Integer = cboSendungen._value
Dim TMP_Path_Old = u.FILE_PATH
Dim TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(u.FILE_NAME, fi.Extension,, True, "SendungsAnhaenge")
If Not extractPagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText()) Then Exit Sub
'Hochladen in den Datenserver und anfügen in die Tbl Anhänge mit der SendungsId
saveToDS(AvisoId, u.FILE_NAME, TMP_Path_New, cboArt._value, u.FILE_TYPE,,,, SendngsId)
'-------------
'------------- PDFs aus der original Datei löschen
'-------------
' tryDelete(TMP_Path_New)
If cbxDelPDF.Checked Then
If cbxDelPDF.Checked Then
TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(u.FILE_NAME, fi.Extension,, True, "SendungsAnhaenge")
Dim PagesLeft = 0
If removePagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
If PagesLeft = 0 Then
delFromDS(u.FILE_DOCID)
flpnlAviso.Controls.Remove(u)
Else
Dim destPath = ""
If saveChangeToDS_daId(u.FILE_DOCID, TMP_Path_New, destPath) Then
tryDelete(TMP_Path_Old)
u.FILE_PATH = destPath
End If
End If
End If
End If
initLocationViewer("")
If flpnlAviso.Controls.Count > 0 Then
DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
End If
End If
'-------------
End If
Next
clearPnlAnfuegen()
' initSendungen()
initFlpANH_LIST()
End Sub
Private Sub Button1_ClickALL(sender As Object, e As EventArgs) Handles btnAnfuegenAll.Click
If cboSendungen._value = "" Then Exit Sub
For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
If u.ACTIVE Then
Dim fi As New FileInfo(u.FILE_PATH)
'-------------
'------------- PDFs extrahieren und auf den Datenserver laden + Eintrag in tblAvisoAnhaenger
'-------------
Dim TMP_Path_New = u.FILE_PATH
Dim SendngsId As Integer = cboSendungen._value
'Hochladen in den Datenserver und anfügen in die Tbl Anhänge mit der SendungsId
' saveToDS(u.FILE_NAME, TMP_Path_New, cboArt._value, u.FILE_TYPE,,, SendngsId)
Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(u.FILE_ANHID)
If cbxDelPDF.Checked Then
ANH.anh_SendungsId = SendngsId
ANH.SAVE() 'Eintrag wird überschreiben
flpnlAviso.Controls.Remove(u)
If cbxDelPDF.Checked Then tryDelete(u.FILE_PATH)
initLocationViewer("")
If flpnlAviso.Controls.Count > 0 Then
DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
End If
Else
ANH.anh_SendungsId = SendngsId
ANH.anh_id = -1 'neuer Eintrag
ANH.SAVE()
End If
End If
Next
clearPnlAnfuegen()
' initSendungen()
initFlpANH_LIST()
End Sub
Sub clearPnlAnfuegen()
MyTextBox2.Text = ""
txtDateiname.Text = ""
txtSeiten.Text = ""
cboArt.Text = ""
txtSeiten.Focus()
End Sub
Sub tryDelete(TMP_Path_New)
Try
File.Delete(TMP_Path_New)
Catch ex As Exception
End Try
End Sub
Public Sub DeletePages(ByVal pageRange As String, ByVal SourcePdfPath As String, ByVal OutputPdfPath As String, ByVal Optional Password As String = "")
Dim pagesToDelete As New List(Of Integer)
If pageRange.IndexOf(",") <> -1 Then
Dim tmpHold As String() = pageRange.Split(","c)
For Each nonconseq As String In tmpHold
If nonconseq.IndexOf("-") <> -1 Then
Dim rangeHold As String() = nonconseq.Split("-"c)
For i As Integer = Convert.ToInt32(rangeHold(0)) To Convert.ToInt32(rangeHold(1))
pagesToDelete.Add(i)
Next
Else
pagesToDelete.Add(Convert.ToInt32(nonconseq))
End If
Next
Else
If pageRange.IndexOf("-") <> -1 Then
Dim rangeHold As String() = pageRange.Split("-"c)
For i As Integer = Convert.ToInt32(rangeHold(0)) To Convert.ToInt32(rangeHold(1))
pagesToDelete.Add(i)
Next
Else
pagesToDelete.Add(Convert.ToInt32(pageRange))
End If
End If
Dim doc As Document = New Document()
Dim reader As PdfReader = New PdfReader(SourcePdfPath, New System.Text.ASCIIEncoding().GetBytes(Password))
Using memoryStream As MemoryStream = New MemoryStream()
Dim writer As PdfWriter = PdfWriter.GetInstance(doc, memoryStream)
doc.Open()
doc.AddDocListener(writer)
For p As Integer = 1 To reader.NumberOfPages
If pagesToDelete.FindIndex(Function(s) s = p) <> -1 Then
Continue For
End If
doc.SetPageSize(reader.GetPageSize(p))
doc.NewPage()
Dim cb As PdfContentByte = writer.DirectContent
Dim pageImport As pdf.PdfImportedPage = writer.GetImportedPage(reader, p)
Dim rot As Integer = reader.GetPageRotation(p)
If rot = 90 OrElse rot = 270 Then
cb.AddTemplate(pageImport, 0, -1.0F, 1.0F, 0, 0, reader.GetPageSizeWithRotation(p).Height)
Else
cb.AddTemplate(pageImport, 1.0F, 0, 0, 1.0F, 0, 0)
End If
Next
reader.Close()
File.WriteAllBytes(OutputPdfPath, memoryStream.ToArray())
doc.Close()
End Using
End Sub
Function getPagesFromText() As List(Of Integer)
Dim List As New List(Of Integer)
Dim split = txtSeiten.Text.Split(",")
For Each s In split
If s.Contains("-") Then
Dim s_vb = s.Split("-")
Dim von = CInt(s_vb(0))
Dim bis = CInt(s_vb(1))
For page = von To bis
Dim anfuegen = True
For Each l In List
If l = page Then
anfuegen = False
End If
Next
If anfuegen Then List.Add(page)
Next
Else
If IsNumeric(s) Then List.Add(s)
End If
Next
Return List
End Function
Public Function removePagesFromPdf_Spire(ByVal sourceFile As String, ByVal destinationFile As String, pagesToDelete As List(Of Integer), ByRef PagesLeft As Integer, Optional delSource As Boolean = False) As Boolean
Try
PagesLeft = 0
Dim pdf As New Spire.Pdf.PdfDocument()
pdf.LoadFromFile(sourceFile)
' Dim r As PdfReader = New PdfReader(sourceFile)
Dim pagesToKeep As New List(Of Integer)
For p = 0 To pdf.Pages.Count - 1 ' r.NumberOfPages
Dim del = False
For Each i In pagesToDelete
If p = (i - 1) Then
del = True : Exit For
End If
Next
If Not del Then
pagesToKeep.Add(p)
End If
Next
Dim pdf1 As New Spire.Pdf.PdfDocument()
Dim page As Spire.Pdf.PdfPageBase
For Each p In pagesToKeep
Dim pageInt = p - 1 ' Nciht SeitenNr. sonder Aufzählung
If pageInt >= 0 And pageInt < pdf.Pages.Count Then
page = pdf1.Pages.Add(pdf.Pages(p).Size, New Spire.Pdf.Graphics.PdfMargins(0))
pdf.Pages(p).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
PagesLeft += 1
End If
Next
pdf1.SaveToFile(destinationFile)
pdf.Dispose()
pdf1.Dispose()
If delSource Then tryDelete(sourceFile)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
Return True
End Function
Public Function extractPagesFromPdf_Spire(ByVal sourceFile As String, ByVal destinationFile As String, pagesToExtract As List(Of Integer)) As Boolean
Try
Dim pdf As New Spire.Pdf.PdfDocument()
pdf.LoadFromFile(sourceFile)
Dim pdf1 As New Spire.Pdf.PdfDocument()
Dim page As Spire.Pdf.PdfPageBase
For Each p In pagesToExtract
Dim pageInt = p - 1 ' Nciht SeitenNr. sonder Aufzählung
If pageInt >= 0 And pageInt < pdf.Pages.Count Then
page = pdf1.Pages.Add(pdf.Pages(pageInt).Size, New Spire.Pdf.Graphics.PdfMargins(0))
pdf.Pages(pageInt).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
End If
Next
pdf1.SaveToFile(destinationFile)
'MsgBox("P: " &pdf.Pages.Count)
'Dim pdf1 As New Spire.Pdf.PdfDocument()
''Dim page As New Spire.Pdf.PdfPageBase
''For i As Integer = 0 To 4
'For Each p In pagesToKeep
' pdf1.Pages.Add(pdf.Pages(p).Size, New Spire.Pdf.Graphics.PdfMargins(0))
' 'Dim page =
' 'pdf.Pages(p).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
' MsgBox(p)
'Next
'pdf1.SaveToFile(destinationFile)
'Using fs As FileStream = New FileStream(destinationFile, FileMode.Create, FileAccess.Write, FileShare.None)
' Using doc As Document = New Document()
' Using w As PdfWriter = PdfWriter.GetInstance(doc, fs)
' doc.Open()
' For Each page As Integer In pagesToKeep
' doc.NewPage()
' w.DirectContent.AddTemplate(w.GetImportedPage(r, page), 0, 0)
' PagesLeft += 1
' Next
' doc.Close()
' End Using
' End Using
'End Using
pdf.Dispose()
pdf1.Dispose()
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
Return False
End Try
Return True
End Function
Public Sub removePagesFromPdf(ByVal sourceFile As String, ByVal destinationFile As String, pagesToDelete As List(Of Integer), ByRef PagesLeft As Integer)
Try
PagesLeft = 0
Dim r As PdfReader = New PdfReader(sourceFile)
Dim pagesToKeep As New List(Of Integer)
For p = 1 To r.NumberOfPages
Dim del = False
For Each i In pagesToDelete
If p = i Then
del = True : Exit For
End If
Next
If Not del Then
pagesToKeep.Add(p)
End If
Next
Using fs As FileStream = New FileStream(destinationFile, FileMode.Create, FileAccess.Write, FileShare.None)
Using doc As Document = New Document()
Using w As PdfWriter = PdfWriter.GetInstance(doc, fs)
doc.Open()
For Each page As Integer In pagesToKeep
doc.NewPage()
w.DirectContent.AddTemplate(w.GetImportedPage(r, page), 0, 0)
PagesLeft += 1
Next
doc.Close()
End Using
End Using
End Using
Catch ex As Exception
End Try
End Sub
Private Sub txtSeiten_TextChanged(sender As Object, e As EventArgs) Handles txtSeiten.TextChanged
txtSeiten.BackColor = Color.White
If txtSeiten.Text = "" Then Exit Sub
If checkSeiten() Then
txtSeiten.BackColor = Color.White
Else
txtSeiten.BackColor = Color.MistyRose
End If
End Sub
Function checkSeiten()
txtSeiten.Text.Replace(";", ",")
' If txtSeiten.Text.Contains(",") Then
Dim split = txtSeiten.Text.Split(",")
For Each s In split
If s.Contains("-") Then
Dim s_vb = s.Split("-")
Dim von = s_vb(0)
Dim bis = s_vb(1)
' Dim bis = ""
'If s_vb.Count > 0 Then bis = s_vb(1)
If Not IsNumeric(von) Then Return False
If Not IsNumeric(bis) Then Return False
Else
If Not IsNumeric(s) Then Return False
End If
Next
' Else
' If Not IsNumeric(txtSeiten.Text) Then Return False
' End If
Return True
End Function
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
deleteActiveElement(flpnlAviso)
End Sub
Sub deleteActiveElement(flpnl As FlowLayoutPanel)
If flpnl Is Nothing Then Exit Sub
For Each u As usrCntlSendungAnhangElement In flpnl.Controls
If u.ACTIVE Then
If vbYes = MsgBox("Möchten Sie das Element löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(u.FILE_DOCID)
If DS.DELETE_COMPLETE Then
flpnl.Controls.Remove(u)
initLocationViewer("")
If flpnl.Controls.Count > 0 Then
DirectCast(flpnl.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
End If
End If
End If
End If
Next
End Sub
Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load
WebBrowser1.Navigate("")
flpnlAviso.Controls.Clear()
flpnlSendungen.Controls.Clear()
cboArt.Items.Clear()
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR", "ATR"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
initSendungen()
cboSendungen.changeItem(-1)
End Sub
Private Sub frmSendungAnhangImport_Shown(sender As Object, e As EventArgs) Handles Me.Shown
txtSeiten.Focus()
End Sub
Private Sub txtSeiten_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSeiten.KeyDown, cboArt.KeyDown
If e.KeyCode = Keys.Return Then
btnAnfuegen.PerformClick()
End If
End Sub
Sub initSendungen()
cboSendungen.Items.Clear()
' cboSendungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Allgemein", -1))
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'LÄDT alle SENDUNGSDATEN
Dim cnt = 1
For Each s In SENDUNG_LIST
cboSendungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(cnt & ". " & s.tblSnd_Empfaenger & " (" & s.tblSnd_Abfertigungsart_ID & ")", s.tblSnd_SendungID))
Next
End Sub
Private Sub cboSendungen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSendungen.SelectedIndexChanged
MyTextBox2.Text = cboSendungen.Text
flpnlSendungen.Controls.Clear()
initFlpANH_LIST()
End Sub
Sub initFlpANH_LIST()
Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
'If cboSendungen._value > 0 Then
' VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, cboSendungen._value) 'LÄDT alle Aviso-Anhänge
'Else
' VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Sendungs-Anhänge
'End If
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge
flpnlSendungen.Controls.Clear
flpnlAviso.Controls.Clear()
For Each a In ANH_LIST
Dim USRCNTL As New usrCntlSendungAnhangElement
USRCNTL.FILE_PATH = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(a.anh_docId)
USRCNTL.FILE_NAME = a.anh_Name
USRCNTL.FILE_TYPE = a.anh_Typ
USRCNTL.FILE_ANHID = a.anh_id
USRCNTL.FILE_DOCID = a.anh_docId
initElement(USRCNTL)
If If(a.anh_SendungsId, 0) > 0 Then
If cboSendungen._value <> "" AndAlso cboSendungen._value = a.anh_SendungsId Then
flpnlSendungen.Controls.Add(USRCNTL)
End If
Else
flpnlAviso.Controls.Add(USRCNTL)
End If
Next
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAnfuegenAll.Click
clearPnlAnfuegen()
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
If cboSendungen._value = "" Then Exit Sub
For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
If u.ACTIVE Then
Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(u.FILE_ANHID)
ANH.anh_SendungsId = Nothing
ANH.SAVE()
End If
Next
clearPnlAnfuegen()
' initSendungen()
initFlpANH_LIST()
End Sub
Public Sub DateiHochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiHochladenToolStripMenuItem.Click
addData_SendungAnhangFD()
End Sub
Sub delFromDS(daId)
Dim ds As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
ds.DELETE_COMPLETE()
End Sub
Function saveChangeToDS_daId(daId, sourcePath, ByRef destPath) As Boolean
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
destPath = DS.GET_TOP1_PATH
'Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, DS.da_name, DS.da_id, cboArt._value, DS.da_name, Nothing)
'If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
Return True
End Function
Private Sub DateiScannenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiScannenToolStripMenuItem.Click
Try
'If KdNr < 0 Then Exit Sub
Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("DirectScan")
frmScan.DefaultFileName = "Scan" ' Me._TEXT_PDF
If frmScan.ShowDialog(Me) = DialogResult.OK Then
If frmScan.ReturnValue IsNot Nothing Then
Dim Filename = frmScan.fileName
Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(Filename, ".pdf",, False, "SendungsAnhaenge")
File.WriteAllBytes(TMP_Path, frmScan.ReturnValue)
Dim da_id = -1
Dim anhId = -1
Dim destPath = ""
If saveToDS(AvisoId, Filename, TMP_Path, "", "PDF", da_id, anhId, destPath) Then
addUsrcnlToPnl(destPath, da_id, anhId, Filename, "PDF")
End If
'addUsrcnlToPnl(TMP_Path)
End If
End If
Catch ex As Exception
MsgBox("FEHLER Scan: " & ex.Message & ex.StackTrace)
End Try
End Sub
Sub addUsrcnlToPnl(TMP_Path, dicId, anhId, Optional filename = "", Optional Typ = "")
Dim USRCNTL As New usrCntlSendungAnhangElement
Dim fi As New FileInfo(TMP_Path)
If filename = "" Then filename = fi.Name
USRCNTL.FILE_PATH = TMP_Path
USRCNTL.FILE_NAME = filename
USRCNTL.FILE_DOCID = dicId
USRCNTL.FILE_NAME = filename
USRCNTL.FILE_ANHID = anhId
USRCNTL.FILE_TYPE = Typ
initElement(USRCNTL)
flpnlAviso.Controls.Add(USRCNTL)
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
cntxt.Show(Cursor.Position)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
deleteActiveElement(flpnlSendungen)
End Sub
Public Sub addData_SendungAnhangFD()
Dim fd As New OpenFileDialog
fd.Multiselect = True
If fd.ShowDialog = vbOK Then
For Each F_listItem In fd.FileNames
Dim fi As New FileInfo(F_listItem)
Dim filename = fi.Name
' Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(filename, fi.Extension,, False, "SendungsAnhaenge")
' MsgBox(TMP_Path)
' File.Copy(F_listItem, TMP_Path)
Dim da_id = -1
Dim anhId = -1
Dim destPath = ""
Dim Typ = ""
If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
If saveToDS(AvisoId, fi.Name, F_listItem, "", Typ, da_id, anhId, destPath) Then
addUsrcnlToPnl(destPath, da_id, anhId, filename, Typ)
End If
End If
Next
If flpnlAviso.Controls.Count > 0 Then DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
End If
End Sub
Public Sub addData_SendungAnhang(Path)
Dim fi As New FileInfo(Path)
Dim filename = fi.Name
Dim da_id = -1
Dim anhId = -1
Dim destPath = ""
Dim Typ = ""
If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
If saveToDS(AvisoId, fi.Name, Path, "", Typ, da_id, anhId, destPath) Then
addUsrcnlToPnl(destPath, da_id, anhId, filename, Typ)
End If
End If
End Sub
Public Shared Function getFileTypeValid(extension, ByRef Typ) As Boolean
Select Case extension
Case "PDF" : Typ = "PDF"
Case "XLS", "XLXS" : Typ = "EXCEL"
Case "DOC", "DOCX" : Typ = "WORD"
Case "TXT" : Typ = "TEXT"
Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD"
Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False
Case Else : Typ = "SONSTIGES"
End Select
Return True
End Function
Public Shared Function saveToDS(AvisoId, fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", AvisoId, Now.ToString("ddMMyy_HHmmss.sss"), "", fileName, -1, False)
If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
da_id = DS.da_id
destPath = DS.GET_TOP1_PATH
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, Art, Typ, SendungsId)
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
anhId = ANH.anh_id
Return True
End Function
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
BrowserLoaded = True
End Sub
End Class

198
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -23,12 +23,13 @@ Partial Class frmSendungsdetailsNEU
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
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 DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU))
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.pnl = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -81,6 +82,11 @@ Partial Class frmSendungsdetailsNEU
Me.Button7 = New System.Windows.Forms.Button()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.gridVermerke = New System.Windows.Forms.DataGridView()
Me.tbAnhang = New System.Windows.Forms.TabPage()
Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel19 = New System.Windows.Forms.Panel()
Me.Button18 = New System.Windows.Forms.Button()
Me.Label52 = New System.Windows.Forms.Label()
Me.Panel14 = New System.Windows.Forms.Panel()
Me.pnlDetails = New System.Windows.Forms.Panel()
Me.tbcntr = New System.Windows.Forms.TabControl()
@@ -271,6 +277,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.GelangensbestätigungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components)
Me.Button19 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout()
@@ -287,6 +294,9 @@ Partial Class frmSendungsdetailsNEU
Me.pnlSpedBuchNacherfassung.SuspendLayout()
Me.TabPage3.SuspendLayout()
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tbAnhang.SuspendLayout()
CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel19.SuspendLayout()
Me.pnlDetails.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage4.SuspendLayout()
@@ -342,6 +352,7 @@ Partial Class frmSendungsdetailsNEU
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.tbAnhang)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 5)
Me.TabControl1.Name = "TabControl1"
@@ -737,6 +748,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAtlasBezNrEZA2._TimeOnly = False
Me.txtAtlasBezNrEZA2._value = Nothing
Me.txtAtlasBezNrEZA2._Waehrung = False
Me.txtAtlasBezNrEZA2._WaehrungZeichen = True
Me.txtAtlasBezNrEZA2.Enabled = False
Me.txtAtlasBezNrEZA2.ForeColor = System.Drawing.Color.Black
Me.txtAtlasBezNrEZA2.Location = New System.Drawing.Point(253, 66)
@@ -758,6 +770,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAtlasBezNrNCTS2._TimeOnly = False
Me.txtAtlasBezNrNCTS2._value = Nothing
Me.txtAtlasBezNrNCTS2._Waehrung = False
Me.txtAtlasBezNrNCTS2._WaehrungZeichen = True
Me.txtAtlasBezNrNCTS2.Enabled = False
Me.txtAtlasBezNrNCTS2.ForeColor = System.Drawing.Color.Black
Me.txtAtlasBezNrNCTS2.Location = New System.Drawing.Point(359, 66)
@@ -828,6 +841,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAtlasBezNrEZA._TimeOnly = False
Me.txtAtlasBezNrEZA._value = Nothing
Me.txtAtlasBezNrEZA._Waehrung = False
Me.txtAtlasBezNrEZA._WaehrungZeichen = True
Me.txtAtlasBezNrEZA.ForeColor = System.Drawing.Color.Black
Me.txtAtlasBezNrEZA.Location = New System.Drawing.Point(253, 42)
Me.txtAtlasBezNrEZA.MaxLineLength = -1
@@ -848,6 +862,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAtlasBezNrNCTS._TimeOnly = False
Me.txtAtlasBezNrNCTS._value = Nothing
Me.txtAtlasBezNrNCTS._Waehrung = False
Me.txtAtlasBezNrNCTS._WaehrungZeichen = True
Me.txtAtlasBezNrNCTS.ForeColor = System.Drawing.Color.Black
Me.txtAtlasBezNrNCTS.Location = New System.Drawing.Point(359, 42)
Me.txtAtlasBezNrNCTS.MaxLineLength = -1
@@ -920,44 +935,44 @@ Partial Class frmSendungsdetailsNEU
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
DataGridViewCellStyle8.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
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
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
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
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle10
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
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
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.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle5
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle12
Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -968,6 +983,78 @@ Partial Class frmSendungsdetailsNEU
Me.gridVermerke.TabIndex = 71
Me.gridVermerke.TabStop = False
'
'tbAnhang
'
Me.tbAnhang.Controls.Add(Me.dgvAnhang)
Me.tbAnhang.Controls.Add(Me.Panel19)
Me.tbAnhang.Location = New System.Drawing.Point(4, 22)
Me.tbAnhang.Name = "tbAnhang"
Me.tbAnhang.Size = New System.Drawing.Size(1104, 358)
Me.tbAnhang.TabIndex = 4
Me.tbAnhang.Text = "Anhang"
Me.tbAnhang.UseVisualStyleBackColor = True
'
'dgvAnhang
'
Me.dgvAnhang.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAnhang.AllowUserToAddRows = False
Me.dgvAnhang.AllowUserToDeleteRows = False
Me.dgvAnhang.AllowUserToResizeColumns = False
Me.dgvAnhang.AllowUserToResizeRows = False
Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvAnhang.DefaultCellStyle = DataGridViewCellStyle7
Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvAnhang.Location = New System.Drawing.Point(0, 45)
Me.dgvAnhang.MultiSelect = False
Me.dgvAnhang.Name = "dgvAnhang"
Me.dgvAnhang.ReadOnly = True
Me.dgvAnhang.RowHeadersVisible = False
Me.dgvAnhang.RowTemplate.Height = 40
Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhang.Size = New System.Drawing.Size(1104, 313)
Me.dgvAnhang.TabIndex = 3
'
'Panel19
'
Me.Panel19.Controls.Add(Me.Button19)
Me.Panel19.Controls.Add(Me.Button18)
Me.Panel19.Controls.Add(Me.Label52)
Me.Panel19.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel19.Location = New System.Drawing.Point(0, 0)
Me.Panel19.Name = "Panel19"
Me.Panel19.Size = New System.Drawing.Size(1104, 45)
Me.Panel19.TabIndex = 2
'
'Button18
'
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image)
Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button18.Location = New System.Drawing.Point(835, 5)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(129, 34)
Me.Button18.TabIndex = 1
Me.Button18.Text = "Import-Assistent ..."
Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button18.UseVisualStyleBackColor = True
'
'Label52
'
Me.Label52.AutoSize = True
Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label52.Location = New System.Drawing.Point(5, 7)
Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(57, 13)
Me.Label52.TabIndex = 0
Me.Label52.Text = "Anhänge"
'
'Panel14
'
Me.Panel14.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
@@ -1126,6 +1213,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtGewicht._TimeOnly = False
Me.txtGewicht._value = Nothing
Me.txtGewicht._Waehrung = False
Me.txtGewicht._WaehrungZeichen = True
Me.txtGewicht.ForeColor = System.Drawing.Color.Black
Me.txtGewicht.Location = New System.Drawing.Point(146, 50)
Me.txtGewicht.MaxLineLength = -1
@@ -1147,6 +1235,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtBARzuKassieren._TimeOnly = False
Me.txtBARzuKassieren._value = ""
Me.txtBARzuKassieren._Waehrung = True
Me.txtBARzuKassieren._WaehrungZeichen = True
Me.txtBARzuKassieren.ForeColor = System.Drawing.Color.Black
Me.txtBARzuKassieren.Location = New System.Drawing.Point(300, 50)
Me.txtBARzuKassieren.MaxLineLength = -1
@@ -1227,6 +1316,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtColli._TimeOnly = False
Me.txtColli._value = Nothing
Me.txtColli._Waehrung = False
Me.txtColli._WaehrungZeichen = True
Me.txtColli.ForeColor = System.Drawing.Color.Black
Me.txtColli.Location = New System.Drawing.Point(78, 50)
Me.txtColli.MaxLineLength = -1
@@ -1588,6 +1678,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtKdAuftragsNrFrachtfuehrer._TimeOnly = False
Me.txtKdAuftragsNrFrachtfuehrer._value = Nothing
Me.txtKdAuftragsNrFrachtfuehrer._Waehrung = False
Me.txtKdAuftragsNrFrachtfuehrer._WaehrungZeichen = True
Me.txtKdAuftragsNrFrachtfuehrer.ForeColor = System.Drawing.Color.Black
Me.txtKdAuftragsNrFrachtfuehrer.Location = New System.Drawing.Point(410, 168)
Me.txtKdAuftragsNrFrachtfuehrer.MaxLength = 50
@@ -1609,6 +1700,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtKdAuftragsNrEmpfaenger._TimeOnly = False
Me.txtKdAuftragsNrEmpfaenger._value = Nothing
Me.txtKdAuftragsNrEmpfaenger._Waehrung = False
Me.txtKdAuftragsNrEmpfaenger._WaehrungZeichen = True
Me.txtKdAuftragsNrEmpfaenger.ForeColor = System.Drawing.Color.Black
Me.txtKdAuftragsNrEmpfaenger.Location = New System.Drawing.Point(410, 94)
Me.txtKdAuftragsNrEmpfaenger.MaxLength = 50
@@ -1630,6 +1722,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtKdAuftragsNrAvisierer._TimeOnly = False
Me.txtKdAuftragsNrAvisierer._value = Nothing
Me.txtKdAuftragsNrAvisierer._Waehrung = False
Me.txtKdAuftragsNrAvisierer._WaehrungZeichen = True
Me.txtKdAuftragsNrAvisierer.BackColor = System.Drawing.Color.White
Me.txtKdAuftragsNrAvisierer.ForeColor = System.Drawing.Color.Black
Me.txtKdAuftragsNrAvisierer.Location = New System.Drawing.Point(410, 20)
@@ -2232,6 +2325,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtFrachtfuehrerKdNr._TimeOnly = False
Me.txtFrachtfuehrerKdNr._value = Nothing
Me.txtFrachtfuehrerKdNr._Waehrung = False
Me.txtFrachtfuehrerKdNr._WaehrungZeichen = True
Me.txtFrachtfuehrerKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.txtFrachtfuehrerKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtFrachtfuehrerKdNr.Location = New System.Drawing.Point(121, 155)
@@ -2274,6 +2368,7 @@ Partial Class frmSendungsdetailsNEU
Me.lblEmpfAufschubEust._TimeOnly = False
Me.lblEmpfAufschubEust._value = Nothing
Me.lblEmpfAufschubEust._Waehrung = False
Me.lblEmpfAufschubEust._WaehrungZeichen = True
Me.lblEmpfAufschubEust.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.lblEmpfAufschubEust.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblEmpfAufschubEust.ForeColor = System.Drawing.Color.Black
@@ -2377,6 +2472,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAbsenderKdNr._TimeOnly = False
Me.txtAbsenderKdNr._value = Nothing
Me.txtAbsenderKdNr._Waehrung = False
Me.txtAbsenderKdNr._WaehrungZeichen = True
Me.txtAbsenderKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.txtAbsenderKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtAbsenderKdNr.Location = New System.Drawing.Point(121, 119)
@@ -2412,6 +2508,7 @@ Partial Class frmSendungsdetailsNEU
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._value = Nothing
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.BackColor = System.Drawing.Color.Gainsboro
Me.MyTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyTextBox1.Location = New System.Drawing.Point(121, 18)
@@ -2459,6 +2556,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtEmpfaengerKdNr._TimeOnly = False
Me.txtEmpfaengerKdNr._value = Nothing
Me.txtEmpfaengerKdNr._Waehrung = False
Me.txtEmpfaengerKdNr._WaehrungZeichen = True
Me.txtEmpfaengerKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.txtEmpfaengerKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtEmpfaengerKdNr.Location = New System.Drawing.Point(121, 81)
@@ -2556,6 +2654,7 @@ Partial Class frmSendungsdetailsNEU
Me.lblAtrAufschubEust._TimeOnly = False
Me.lblAtrAufschubEust._value = Nothing
Me.lblAtrAufschubEust._Waehrung = False
Me.lblAtrAufschubEust._WaehrungZeichen = True
Me.lblAtrAufschubEust.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.lblAtrAufschubEust.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblAtrAufschubEust.ForeColor = System.Drawing.Color.Black
@@ -2613,6 +2712,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAuftraggeberKdNr._TimeOnly = False
Me.txtAuftraggeberKdNr._value = Nothing
Me.txtAuftraggeberKdNr._Waehrung = False
Me.txtAuftraggeberKdNr._WaehrungZeichen = True
Me.txtAuftraggeberKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.txtAuftraggeberKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtAuftraggeberKdNr.Location = New System.Drawing.Point(121, 44)
@@ -2729,6 +2829,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAvisiererKdNr._TimeOnly = False
Me.txtAvisiererKdNr._value = Nothing
Me.txtAvisiererKdNr._Waehrung = False
Me.txtAvisiererKdNr._WaehrungZeichen = True
Me.txtAvisiererKdNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.txtAvisiererKdNr.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtAvisiererKdNr.Location = New System.Drawing.Point(121, 5)
@@ -2752,6 +2853,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtKdAuftragsNr._TimeOnly = False
Me.txtKdAuftragsNr._value = Nothing
Me.txtKdAuftragsNr._Waehrung = False
Me.txtKdAuftragsNr._WaehrungZeichen = True
Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black
Me.txtKdAuftragsNr.Location = New System.Drawing.Point(410, 57)
Me.txtKdAuftragsNr.MaxLength = 50
@@ -2939,6 +3041,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtFremdEmpfKdNR._TimeOnly = False
Me.txtFremdEmpfKdNR._value = Nothing
Me.txtFremdEmpfKdNR._Waehrung = False
Me.txtFremdEmpfKdNR._WaehrungZeichen = True
Me.txtFremdEmpfKdNR.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.txtFremdEmpfKdNR.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtFremdEmpfKdNR.ForeColor = System.Drawing.Color.White
@@ -3014,6 +3117,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAnzahl._TimeOnly = False
Me.txtAnzahl._value = ""
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.MaxLength = 3
@@ -3071,6 +3175,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtUnterNr._TimeOnly = False
Me.txtUnterNr._value = Nothing
Me.txtUnterNr._Waehrung = False
Me.txtUnterNr._WaehrungZeichen = True
Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtUnterNr.Location = New System.Drawing.Point(350, 27)
Me.txtUnterNr.MaxLineLength = -1
@@ -3128,6 +3233,7 @@ Partial Class frmSendungsdetailsNEU
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._value = Nothing
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(120, 27)
Me.txtAbfertigungsnummer.MaxLineLength = -1
@@ -3541,6 +3647,20 @@ Partial Class frmSendungsdetailsNEU
Me.GelangensbestätigungToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
Me.GelangensbestätigungToolStripMenuItem.Text = "Gelangensbestätigung"
'
'Button19
'
Me.Button19.Enabled = False
Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button19.Image = CType(resources.GetObject("Button19.Image"), System.Drawing.Image)
Me.Button19.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button19.Location = New System.Drawing.Point(970, 5)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(129, 34)
Me.Button19.TabIndex = 2
Me.Button19.Text = "Direkt anfügen ..."
Me.Button19.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button19.UseVisualStyleBackColor = True
'
'frmSendungsdetailsNEU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -3578,6 +3698,10 @@ Partial Class frmSendungsdetailsNEU
Me.pnlSpedBuchNacherfassung.PerformLayout()
Me.TabPage3.ResumeLayout(False)
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit()
Me.tbAnhang.ResumeLayout(False)
CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel19.ResumeLayout(False)
Me.Panel19.PerformLayout()
Me.pnlDetails.ResumeLayout(False)
Me.tbcntr.ResumeLayout(False)
Me.TabPage4.ResumeLayout(False)
@@ -3855,4 +3979,10 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents picWarnEmpfaenger As PictureBox
Friend WithEvents picWarnAuftraggeber As PictureBox
Friend WithEvents ToolTip As ToolTip
Friend WithEvents tbAnhang As TabPage
Friend WithEvents dgvAnhang As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel19 As Panel
Friend WithEvents Label52 As Label
Friend WithEvents Button18 As Button
Friend WithEvents Button19 As Button
End Class

22
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -118,6 +118,25 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button19.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<data name="Button18.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -451,6 +470,9 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

52
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -2342,6 +2342,8 @@ Public Class frmSendungsdetailsNEU
initSpeditionbuch()
ElseIf TabControl1.SelectedTab Is TabPage3 Then
initVermerke()
ElseIf TabControl1.SelectedTab Is tbAnhang Then
initAnhang()
End If
End Sub
@@ -2414,6 +2416,38 @@ Public Class frmSendungsdetailsNEU
End Sub
Sub initAnhang()
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_SendungsId]='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "'
order by [anh_Reihenfolge],[anh_id]"
dgvAnhang.DataSource = SQL.loadDgvBySql(hSQL, "AVISO")
If dgvAnhang.RowCount = 0 Then dgvAnhang.Columns.Clear() : Exit Sub
With dgvAnhang
.RowTemplate.MinimumHeight = 40
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigen
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
.Columns("anh_Name").MinimumWidth = 150
.Columns("anh_Name").HeaderText = "Name"
.Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("anh_Art").MinimumWidth = 100
.Columns("anh_Art").HeaderText = "Art"
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("anh_Typ").Width = 150
.Columns("anh_Typ").HeaderText = "Typ"
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
End With
End Sub
Private Sub btnAutomatischeNacherfassung_Click(sender As Object, e As EventArgs) Handles btnAutomatischeNacherfassung.Click
' ZollSystem: 0=ATLAS 1= EZOLL
loadDataInLIST()
@@ -2670,7 +2704,7 @@ Public Class frmSendungsdetailsNEU
Private Sub txtGewicht_TextChanged(sender As Object, e As EventArgs) Handles txtGewicht.Leave
If IsNumeric(txtGewicht.Text) Then
txtGewicht.Text = CDbl(txtGewicht.Text).ToString("N0")
txtGewicht.Text = CDbl(txtGewicht.Text).ToString("N1")
End If
End Sub
@@ -3080,5 +3114,21 @@ Public Class frmSendungsdetailsNEU
initVermerke()
End Sub
Private Sub dgvAnhang_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhang.CellDoubleClick
Try
If TabControl1.SelectedTab Is tbAnhang Then
If dgvAnhang.SelectedRows.Count > 0 Then
Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value))
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
Dim f As New frmSendungAnhangImport(AvisoId)
f.Show(Me)
End Sub
End Class

11
Aviso/packages.config
View File

@@ -1,6 +1,15 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="esendex-dotnet-sdk" version="3.4.0" targetFramework="net45" />
<package id="Hardcodet.NotifyIcon.Wpf" version="1.0.5" targetFramework="net40-Client" requireReinstallation="True" />
<package id="GrapeCity.Documents.Common" version="2.2.0.315" targetFramework="net461" />
<package id="GrapeCity.Documents.Imaging" version="2.2.0.315" targetFramework="net461" />
<package id="GrapeCity.Documents.Pdf" version="2.2.0.315" targetFramework="net461" />
<package id="GroupDocs.Viewer" version="19.8.0" targetFramework="net461" />
<package id="Newtonsoft.Json" version="10.0.3" targetFramework="net45" />
<package id="Portable.BouncyCastle" version="1.8.2" targetFramework="net461" />
<package id="System.Buffers" version="4.4.0" targetFramework="net461" />
<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.0" targetFramework="net461" />
<package id="System.ValueTuple" version="4.5.0" targetFramework="net461" />
</packages>

37
Aviso/usrCntlAvisoAnhang.Designer.vb generated Normal file
View File

@@ -0,0 +1,37 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlAvisoAnhang
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()
Me.SuspendLayout()
'
'usrCntlAvisoAnhang
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Name = "usrCntlAvisoAnhang"
Me.Size = New System.Drawing.Size(297, 171)
Me.ResumeLayout(False)
End Sub
End Class

120
Aviso/usrCntlAvisoAnhang.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>

3
Aviso/usrCntlAvisoAnhang.vb Normal file
View File

@@ -0,0 +1,3 @@
Public Class usrCntlAvisoAnhang
End Class

13
Aviso/usrcntlAktDetails.Designer.vb generated
View File

@@ -131,6 +131,7 @@ Partial Class usrcntlAktDetails
Me.btnLöschen = New System.Windows.Forms.Button()
Me.btnÄndern = New System.Windows.Forms.Button()
Me.btnTV = New System.Windows.Forms.Button()
Me.tbAnhang = New System.Windows.Forms.TabPage()
Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -797,6 +798,7 @@ Partial Class usrcntlAktDetails
Me.tbcntlVermerke.Controls.Add(Me.TabPage1)
Me.tbcntlVermerke.Controls.Add(Me.TabPage2)
Me.tbcntlVermerke.Controls.Add(Me.TabPage3)
Me.tbcntlVermerke.Controls.Add(Me.tbAnhang)
Me.tbcntlVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntlVermerke.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.tbcntlVermerke.Location = New System.Drawing.Point(4, 0)
@@ -1558,6 +1560,16 @@ Partial Class usrcntlAktDetails
Me.btnTV.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTV.UseVisualStyleBackColor = False
'
'tbAnhang
'
Me.tbAnhang.Location = New System.Drawing.Point(4, 30)
Me.tbAnhang.Name = "tbAnhang"
Me.tbAnhang.Padding = New System.Windows.Forms.Padding(3)
Me.tbAnhang.Size = New System.Drawing.Size(563, 0)
Me.tbAnhang.TabIndex = 3
Me.tbAnhang.Text = "Anhang"
Me.tbAnhang.UseVisualStyleBackColor = True
'
'usrcntlAktDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1709,4 +1721,5 @@ Partial Class usrcntlAktDetails
Friend WithEvents btnKasse_User As Button
Friend WithEvents btnKasse_LG As Button
Friend WithEvents Button9 As Button
Friend WithEvents tbAnhang As TabPage
End Class

84
Aviso/usrcntlAktDetails.vb
View File

@@ -176,6 +176,9 @@ Public Class usrcntlAktDetails
btnVorbereitet.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
tbcntlVermerke.TabPages.Remove(tbAnhang)
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Button8.Text = "Gest.Liste"
@@ -475,6 +478,64 @@ Public Class usrcntlAktDetails
' If setAkive_AuswahlID() = -1 Then Exit Sub
If AvisoID <= 0 Then Exit Sub
Select Case tbcntlVermerke.SelectedIndex
Case 0, 1, 2 : Vermerke_anzeigen2(rowindex)
Case 3
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0
order by [anh_Reihenfolge],[anh_id]"
gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)
If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() : Exit Sub
With gridVermerke
.RowTemplate.MinimumHeight = 20
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigen
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
.Columns("anh_Name").MinimumWidth = 150
.Columns("anh_Name").HeaderText = "Name"
.Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("anh_Art").MinimumWidth = 50
.Columns("anh_Art").HeaderText = "Art"
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("anh_Typ").Width = 60
.Columns("anh_Typ").HeaderText = "Typ"
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
End With
End Select
End Sub
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)
gridVermerke.Columns.Clear()
lblInfoAviso.Visible = False
infotxt = ""
' If setAkive_AuswahlID() = -1 Then Exit Sub
If AvisoID <= 0 Then Exit Sub
Select Case tbcntlVermerke.SelectedIndex
Case 0, 1
Case 2
End Select
'Hier werden die passenden Vermerke zum Aviso angezeigt
Dim sendwhere = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
@@ -540,6 +601,7 @@ Public Class usrcntlAktDetails
End Sub
Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick
If gridVermerke.RowCount = 0 Then Exit Sub
@@ -658,6 +720,7 @@ Public Class usrcntlAktDetails
Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
If dgvSendungen.RowCount = 0 Then Exit Sub
Try
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)
@@ -739,7 +802,7 @@ Public Class usrcntlAktDetails
Next
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
@@ -898,6 +961,19 @@ Public Class usrcntlAktDetails
End Sub
Private Sub gridVermerke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridVermerke.CellDoubleClick
Try
If tbcntlVermerke.SelectedTab Is tbAnhang Then
If gridVermerke.SelectedRows.Count > 0 Then
Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(gridVermerke.SelectedRows(0).Cells("anh_docId").Value))
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Public Sub openSnd(sendId)
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
@@ -1425,9 +1501,7 @@ Public Class usrcntlAktDetails
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.StackTrace)
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
@@ -1516,7 +1590,7 @@ Public Class usrcntlAktDetails
reload(AvisoID)
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.Message & ex.StackTrace)
MsgBox(ex.StackTrace)
End Try