Projektdateien hinzufügen.
This commit is contained in:
143
AVISOUPDATER/AVISOUPDATER.vbproj
Normal file
143
AVISOUPDATER/AVISOUPDATER.vbproj
Normal file
@@ -0,0 +1,143 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProjectGuid>{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>AVISOUPDATER.My.MyApplication</StartupObject>
|
||||
<RootNamespace>AVISOUPDATER</RootNamespace>
|
||||
<AssemblyName>AVISOUPDATER</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile>
|
||||
</TargetFrameworkProfile>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>AVISOUPDATER.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>AVISOUPDATER.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="Update.vb" />
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="UPDATERfrm.Designer.vb">
|
||||
<DependentUpon>UPDATERfrm.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="UPDATERfrm.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="UPDATERfrm.resx">
|
||||
<DependentUpon>UPDATERfrm.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\app.manifest" />
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="App.config" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="AVISOUPDATER_Settings.txt">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="AVISOUPDATER_Version.txt">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
1
AVISOUPDATER/AVISOUPDATER_Settings.txt
Normal file
1
AVISOUPDATER/AVISOUPDATER_Settings.txt
Normal file
@@ -0,0 +1 @@
|
||||
F:\Programme\AVISO\
|
||||
1
AVISOUPDATER/AVISOUPDATER_Version.txt
Normal file
1
AVISOUPDATER/AVISOUPDATER_Version.txt
Normal file
@@ -0,0 +1 @@
|
||||
4.0
|
||||
6
AVISOUPDATER/App.config
Normal file
6
AVISOUPDATER/App.config
Normal file
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
|
||||
</startup>
|
||||
</configuration>
|
||||
38
AVISOUPDATER/My Project/Application.Designer.vb
generated
Normal file
38
AVISOUPDATER/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
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.
|
||||
' (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.
|
||||
'
|
||||
Partial Friend Class MyApplication
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.SaveMySettingsOnExit = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.AVISOUPDATER.UPDATERfrm
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
10
AVISOUPDATER/My Project/Application.myapp
Normal file
10
AVISOUPDATER/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>UPDATERfrm</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
AVISOUPDATER/My Project/AssemblyInfo.vb
Normal file
35
AVISOUPDATER/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||
' die mit einer Assembly verknüpft sind.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("AVISOUPDATER")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("AVISOUPDATER")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2015")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
|
||||
<Assembly: Guid("b8817bdf-faf7-4962-a363-81c9f1c09c35")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Hauptversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revision
|
||||
'
|
||||
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
63
AVISOUPDATER/My Project/Resources.Designer.vb
generated
Normal file
63
AVISOUPDATER/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||
'''<summary>
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("AVISOUPDATER.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
120
AVISOUPDATER/My Project/Resources.resx
Normal file
120
AVISOUPDATER/My Project/Resources.resx
Normal 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>
|
||||
73
AVISOUPDATER/My Project/Settings.Designer.vb
generated
Normal file
73
AVISOUPDATER/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
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.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"
|
||||
#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)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.AVISOUPDATER.My.MySettings
|
||||
Get
|
||||
Return Global.AVISOUPDATER.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
7
AVISOUPDATER/My Project/Settings.settings
Normal file
7
AVISOUPDATER/My Project/Settings.settings
Normal file
@@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
58
AVISOUPDATER/My Project/app.manifest
Normal file
58
AVISOUPDATER/My Project/app.manifest
Normal file
@@ -0,0 +1,58 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<!-- UAC-Manifestoptionen
|
||||
Wenn Sie die Zugangsebene für das Windows-Benutzerkonto ändern möchten, ersetzen Sie den
|
||||
requestedExecutionLevel-Knoten durch eines der folgenden Elemente.
|
||||
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
|
||||
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
|
||||
|
||||
Durch Angeben des requestedExecutionLevel-Knotens wird die Datei- und Registrierungsvirtualisierung deaktiviert.
|
||||
Wenn Sie Datei- und Registrierungsvirtualisierung für Abwärts-
|
||||
kompatibilität verwenden möchten, löschen Sie den requestedExecutionLevel-Knoten.
|
||||
-->
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
</requestedPrivileges>
|
||||
</security>
|
||||
</trustInfo>
|
||||
|
||||
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
|
||||
<application>
|
||||
<!-- Eine Liste aller Windows-Versionen, mit denen die Anwendung kompatibel ist.
|
||||
Windows wählt automatisch die am stärksten kompatible Umgebung aus.-->
|
||||
|
||||
<!-- Wenn die Anwendung mit Windows Vista kompatibel ist, heben Sie die Auskommentierung des folgenden supportedOS-Knotens auf-->
|
||||
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"></supportedOS>-->
|
||||
|
||||
<!-- Wenn die Anwendung mit Windows 7 kompatibel ist, heben Sie die Kommentierung des folgenden supportedOS-Knotens auf.-->
|
||||
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
|
||||
|
||||
<!-- Wenn die Anwendung mit Windows 8 kompatibel ist, heben Sie die Auskommentierung des folgenden supportedOS-Knotens auf-->
|
||||
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"></supportedOS>-->
|
||||
|
||||
<!-- Wenn die Anwendung mit Windows 8.1 kompatibel ist, die Kommentierung des folgenden supportedOS-Knotens aufheben.-->
|
||||
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>-->
|
||||
|
||||
</application>
|
||||
</compatibility>
|
||||
|
||||
<!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
|
||||
<!-- <dependency>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity
|
||||
type="win32"
|
||||
name="Microsoft.Windows.Common-Controls"
|
||||
version="6.0.0.0"
|
||||
processorArchitecture="*"
|
||||
publicKeyToken="6595b64144ccf1df"
|
||||
language="*"
|
||||
/>
|
||||
</dependentAssembly>
|
||||
</dependency>-->
|
||||
|
||||
</asmv1:assembly>
|
||||
142
AVISOUPDATER/UPDATERfrm.Designer.vb
generated
Normal file
142
AVISOUPDATER/UPDATERfrm.Designer.vb
generated
Normal file
@@ -0,0 +1,142 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class UPDATERfrm
|
||||
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.ProgressBar = New System.Windows.Forms.ProgressBar()
|
||||
Me.RichTextBox = New System.Windows.Forms.RichTextBox()
|
||||
Me.btnClose = New System.Windows.Forms.Button()
|
||||
Me.m_Label = New System.Windows.Forms.Label()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ProgressBar
|
||||
'
|
||||
Me.ProgressBar.BackColor = System.Drawing.Color.White
|
||||
Me.ProgressBar.Location = New System.Drawing.Point(13, 204)
|
||||
Me.ProgressBar.Name = "ProgressBar"
|
||||
Me.ProgressBar.Size = New System.Drawing.Size(501, 23)
|
||||
Me.ProgressBar.Style = System.Windows.Forms.ProgressBarStyle.Continuous
|
||||
Me.ProgressBar.TabIndex = 0
|
||||
Me.ProgressBar.UseWaitCursor = True
|
||||
'
|
||||
'RichTextBox
|
||||
'
|
||||
Me.RichTextBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.RichTextBox.Location = New System.Drawing.Point(13, 29)
|
||||
Me.RichTextBox.Name = "RichTextBox"
|
||||
Me.RichTextBox.ReadOnly = True
|
||||
Me.RichTextBox.Size = New System.Drawing.Size(501, 169)
|
||||
Me.RichTextBox.TabIndex = 1
|
||||
Me.RichTextBox.Text = ""
|
||||
'
|
||||
'btnClose
|
||||
'
|
||||
Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnClose.BackColor = System.Drawing.Color.Red
|
||||
Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.White
|
||||
Me.btnClose.FlatAppearance.BorderSize = 0
|
||||
Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnClose.ForeColor = System.Drawing.Color.White
|
||||
Me.btnClose.Location = New System.Drawing.Point(461, 0)
|
||||
Me.btnClose.Name = "btnClose"
|
||||
Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.btnClose.Size = New System.Drawing.Size(63, 23)
|
||||
Me.btnClose.TabIndex = 86
|
||||
Me.btnClose.Text = "X"
|
||||
Me.btnClose.UseVisualStyleBackColor = False
|
||||
'
|
||||
'm_Label
|
||||
'
|
||||
Me.m_Label.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.m_Label.Location = New System.Drawing.Point(13, 229)
|
||||
Me.m_Label.Name = "m_Label"
|
||||
Me.m_Label.Size = New System.Drawing.Size(501, 19)
|
||||
Me.m_Label.TabIndex = 87
|
||||
Me.m_Label.Text = "-"
|
||||
Me.m_Label.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.White
|
||||
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pnl.Controls.Add(Me.RichTextBox)
|
||||
Me.pnl.Controls.Add(Me.m_Label)
|
||||
Me.pnl.Controls.Add(Me.ProgressBar)
|
||||
Me.pnl.Controls.Add(Me.btnClose)
|
||||
Me.pnl.Controls.Add(Me.Panel1)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(526, 257)
|
||||
Me.pnl.TabIndex = 88
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Location = New System.Drawing.Point(-1, -1)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(526, 24)
|
||||
Me.Panel1.TabIndex = 88
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.ForeColor = System.Drawing.Color.White
|
||||
Me.Label1.Location = New System.Drawing.Point(14, 0)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(251, 24)
|
||||
Me.Label1.TabIndex = 89
|
||||
Me.Label1.Text = "AVISO Updater"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'UPDATERfrm
|
||||
'
|
||||
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(526, 257)
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "UPDATERfrm"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "UPDATERfrm"
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ProgressBar As System.Windows.Forms.ProgressBar
|
||||
Friend WithEvents RichTextBox As System.Windows.Forms.RichTextBox
|
||||
Friend WithEvents btnClose As System.Windows.Forms.Button
|
||||
Friend WithEvents m_Label As System.Windows.Forms.Label
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
End Class
|
||||
120
AVISOUPDATER/UPDATERfrm.resx
Normal file
120
AVISOUPDATER/UPDATERfrm.resx
Normal 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>
|
||||
396
AVISOUPDATER/UPDATERfrm.vb
Normal file
396
AVISOUPDATER/UPDATERfrm.vb
Normal file
@@ -0,0 +1,396 @@
|
||||
Imports System.IO
|
||||
Imports System.Security.Cryptography
|
||||
|
||||
Public Class UPDATERfrm
|
||||
|
||||
Dim CopyIdentical = False ' selbe Dateien nicht kopieren
|
||||
|
||||
Private Sub UPDATERfrm_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub UPDATERfrm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
Dim trd As New Threading.Thread(AddressOf Main)
|
||||
trd.IsBackground = True
|
||||
trd.Start()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Dim F As String = "F:\Programme\AVISO\" ' WDH TERM
|
||||
Dim F_PROD As String = "\\192.168.0.91\f\Programme\AVISO\" ' VERAG
|
||||
' Dim F As String = "\\192.168.0.90\f\Programme\AVISO\" 'DEVELOPER
|
||||
Dim F_ATILLA As String = "\\172.16.0.99\Daten\Programme\AVISO\" ' ATILLA
|
||||
Public Sub Main()
|
||||
|
||||
Dim FIRMA = "VERAG"
|
||||
Dim pfadDatei As String = System.AppDomain.CurrentDomain.BaseDirectory & "\Standort.txt"
|
||||
FIRMA = "VERAG"
|
||||
|
||||
If File.Exists(pfadDatei) Then
|
||||
Dim fs As New FileStream(pfadDatei, FileMode.Open, FileAccess.Read)
|
||||
Dim strmReader As New StreamReader(fs)
|
||||
FIRMA = strmReader.ReadLine
|
||||
fs.Dispose()
|
||||
strmReader.Dispose()
|
||||
End If
|
||||
|
||||
If FIRMA = "ATILLA" Then F = F_ATILLA 'Sichere Verbindung
|
||||
|
||||
|
||||
'Falls Settings existiert, wird der Pfad daraus verwendet.
|
||||
F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")
|
||||
If Not System.IO.Directory.Exists(F) Then
|
||||
|
||||
If FIRMA = "ATILLA" Then
|
||||
F = F_ATILLA 'Sichere Verbindung
|
||||
Else
|
||||
F = F_PROD
|
||||
End If
|
||||
|
||||
writeLine(RichTextBox, "F-Pfad nicht gefunden, verbinde mit '" & F & "' ...")
|
||||
If Not System.IO.Directory.Exists(F) Then
|
||||
MsgBox("ERROR_UPDATE_05: Es konnte keine Verbindung mit dem F:\ Laufwerk hergestellt werden." & vbNewLine & "Wenn Sie eine Remote-Sitzung verwenden, melden Sie sich mit dieser erneut an.", MsgBoxStyle.Critical, "ERROR")
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
|
||||
writeLine(RichTextBox, "Verbindung erfolgreich...")
|
||||
End If
|
||||
|
||||
writeLine(RichTextBox, "3 Sekunden warten, um sicherzustellen, dass das Programm beendet wurde...")
|
||||
Threading.Thread.Sleep(3000) 'Falls Programm gerade am Beenden
|
||||
writeLine(RichTextBox, "Starte Update...")
|
||||
' If Not My.Computer.FileSystem.DirectoryExists(F) Then
|
||||
'MsgBox("ERROR_UPDATE_02: Update-Daten existieren nicht.", MsgBoxStyle.Critical, "ERROR")
|
||||
' Else
|
||||
Try
|
||||
|
||||
For i As Integer = 1 To 3 Step 1
|
||||
If Not DoesProcessExists("AVISO") Then
|
||||
If Not tryDelMain() Then
|
||||
MsgBox("ERROR_UPDATE_06: AVISO.exe konnte nicht gelöscht werden. Das Programm wird evtl. noch ausgeführt.", MsgBoxStyle.Critical, "ERROR")
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
|
||||
'---------------------------
|
||||
delFiles()
|
||||
FileCopier()
|
||||
'---------------------------
|
||||
'Alternative:
|
||||
'---------------------------
|
||||
'copyAndDelFilesAndDir()
|
||||
'---------------------------
|
||||
|
||||
|
||||
|
||||
If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "AVISO.exe") Then
|
||||
MsgBox("ERROR_UPDATE_03: AVISO.exe konnte nicht gestartet werden.", MsgBoxStyle.Critical, "ERROR")
|
||||
|
||||
End If
|
||||
If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "upd.tmp") Then
|
||||
System.IO.File.Create(AppDomain.CurrentDomain.BaseDirectory & "upd.tmp")
|
||||
End If
|
||||
writeLine(RichTextBox, "Erfolgreich abgeschlossen...")
|
||||
Process.Start("AVISO.exe")
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
Threading.Thread.Sleep(1000)
|
||||
Next
|
||||
MsgBox("ERROR_UPDATE_01: Update konnte nicht durchgeführt werden. AVISO.exe nicht beendet?", MsgBoxStyle.Critical, "ERROR")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("ERROR_UPDATE_02: Update-Daten existieren nicht.", MsgBoxStyle.Critical, "ERROR")
|
||||
End Try
|
||||
'End If
|
||||
Environment.Exit(0)
|
||||
End Sub
|
||||
|
||||
Delegate Sub writeLineCallback(rtb As System.Windows.Forms.RichTextBox, text As String)
|
||||
Private Sub writeLine(rtb As System.Windows.Forms.RichTextBox, text As String)
|
||||
If Me.InvokeRequired Then
|
||||
Dim d As New writeLineCallback(AddressOf writeLine)
|
||||
Me.Invoke(d, New Object() {rtb, text})
|
||||
Else
|
||||
rtb.Text &= text & vbNewLine
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
'Sub writeLine(richtextbox,text)
|
||||
' RichTextBox.Text &= text & vbNewLine
|
||||
' End Sub
|
||||
Private Sub FileCopier()
|
||||
CopyDir(F, AppDomain.CurrentDomain.BaseDirectory)
|
||||
Exit Sub
|
||||
|
||||
For Each file As String In IO.Directory.GetFiles(F) ' Ermittelt alle Dateien des Ordners
|
||||
IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next
|
||||
Next
|
||||
For Each file As String In IO.Directory.GetDirectories(F) ' Ermittelt alle Unterordner des Ordners
|
||||
My.Computer.FileSystem.CopyDirectory(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Private Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function
|
||||
While file.Contains("\")
|
||||
file = file.Remove(0, 1)
|
||||
End While
|
||||
Return file
|
||||
End Function
|
||||
Private Function tryDelMain() As Boolean
|
||||
'Dim f As String = "no"
|
||||
Try
|
||||
If System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "AVISO.exe") Then My.Computer.FileSystem.DeleteFile(AppDomain.CurrentDomain.BaseDirectory & "AVISO.exe")
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("ERROR_UPDATE_04: Fehler beim Löschen: " & F & vbNewLine & ex.Message, MsgBoxStyle.Critical, "ERROR")
|
||||
Environment.Exit(0)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub copyAndDelFilesAndDir()
|
||||
'Dim f As String = "no"
|
||||
Try
|
||||
With ProgressBar
|
||||
.Maximum = CInt(GetFolderSize(F) \ 1024)
|
||||
'eventuell Rückgabe direkt auf 0 abfragen
|
||||
If .Maximum = 0 Then Exit Sub
|
||||
.Minimum = 0
|
||||
.Value = 0
|
||||
End With
|
||||
|
||||
For Each file_source In IO.Directory.GetFiles(F) 'jedes File in F:\
|
||||
Dim found = False
|
||||
For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners
|
||||
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then 'alles außer den Updater
|
||||
If cut_file(file) = cut_file(file_source) Then 'Gleicher Name
|
||||
If CompareFiles(file, file_source) Then
|
||||
'selbe Datei --> Nichts
|
||||
Else
|
||||
My.Computer.FileSystem.DeleteFile(file)
|
||||
Copy(New IO.FileInfo((file_source)), AppDomain.CurrentDomain.BaseDirectory) 'Kopieren
|
||||
End If
|
||||
found = True
|
||||
End If
|
||||
Else
|
||||
' found = True 'damit nicht mehr kopiert
|
||||
End If
|
||||
Next
|
||||
If Not found Then
|
||||
Copy(New IO.FileInfo((file_source)), AppDomain.CurrentDomain.BaseDirectory) 'Kopieren
|
||||
End If
|
||||
Next
|
||||
|
||||
'Lösche wegefallende Dateien:
|
||||
For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners
|
||||
Dim found = False
|
||||
For Each file_source In IO.Directory.GetFiles(F) 'jedes File in F:\
|
||||
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then 'alles außer den Updater
|
||||
If cut_file(file) = cut_file(file_source) Then 'Gleicher Name
|
||||
found = True
|
||||
End If
|
||||
Else
|
||||
found = True
|
||||
End If
|
||||
Next
|
||||
If found = False Then
|
||||
My.Computer.FileSystem.DeleteFile(file)
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
'Alle Ordner überschreiben:
|
||||
For Each file As String In IO.Directory.GetDirectories(F) ' Ermittelt alle Unterordner des Ordners
|
||||
'Copy(New IO.FileInfo(file), DestinationFolder)
|
||||
My.Computer.FileSystem.CopyDirectory(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True)
|
||||
Next
|
||||
|
||||
ProgressBar.Value = 0
|
||||
m_Label.Text = "0%"
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("ERROR_UPDATE_04: Fehler beim Löschen/Kopieren: " & F & vbNewLine & ex.Message & ex.StackTrace , MsgBoxStyle.Critical, "ERROR")
|
||||
Environment.Exit(0)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub delFiles()
|
||||
'Dim f As String = "no"
|
||||
Try
|
||||
For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners
|
||||
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then
|
||||
' f = file
|
||||
My.Computer.FileSystem.DeleteFile(file) 'Löscht das AVISO-Programm, außer den Updater
|
||||
' IO.File.Delete(file)
|
||||
'IO.Directory.Delete(file)
|
||||
End If
|
||||
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox("ERROR_UPDATE_04: Fehler beim Löschen: " & F & vbNewLine & ex.Message, MsgBoxStyle.Critical, "ERROR")
|
||||
Environment.Exit(0)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function DoesProcessExists(ByVal PName As String) As Boolean
|
||||
For Each p As Process In System.Diagnostics.Process.GetProcessesByName(PName)
|
||||
If p.StartInfo.UserName = Environment.UserName Then
|
||||
Return True
|
||||
End If
|
||||
Next
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
|
||||
Me.Close()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub CopyDir(ByVal SourceFolder As String, ByVal DestinationFolder As String)
|
||||
|
||||
With ProgressBar
|
||||
.Maximum = CInt(GetFolderSize(SourceFolder) \ 1024)
|
||||
'eventuell Rückgabe direkt auf 0 abfragen
|
||||
If .Maximum = 0 Then Exit Sub
|
||||
.Minimum = 0
|
||||
.Value = 0
|
||||
End With
|
||||
|
||||
For Each file As String In IO.Directory.GetFiles(SourceFolder)
|
||||
Copy(New IO.FileInfo(file), DestinationFolder)
|
||||
Next file
|
||||
|
||||
For Each file As String In IO.Directory.GetDirectories(F) ' Ermittelt alle Unterordner des Ordners
|
||||
'Copy(New IO.FileInfo(file), DestinationFolder)
|
||||
My.Computer.FileSystem.CopyDirectory(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True)
|
||||
Next
|
||||
|
||||
ProgressBar.Value = 0
|
||||
m_Label.Text = "0%"
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function GetFolderSize(ByVal Folder As String) As Long
|
||||
Dim l As Long
|
||||
For Each file As String In IO.Directory.GetFiles(Folder)
|
||||
l += New IO.FileInfo(file).Length
|
||||
Next file
|
||||
Return l
|
||||
End Function
|
||||
|
||||
Private Sub Copy(ByVal SourceFile As IO.FileInfo, ByVal TargetDir As String)
|
||||
|
||||
Try
|
||||
' Quelle
|
||||
Dim fsmsource As IO.FileStream
|
||||
' Zieldatei
|
||||
Dim fsmtarget As IO.FileStream
|
||||
|
||||
' Größe des bei jedem Durchlauf einzulesenden Datenpaketes
|
||||
Dim buffersize As Int32 = 1024 * 30 ' (30 KByte)
|
||||
Dim buffer(buffersize) As Byte
|
||||
Dim readbyte As Int32
|
||||
|
||||
' Quelldatei
|
||||
' Using nutzen
|
||||
fsmsource = New IO.FileStream(SourceFile.FullName, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
|
||||
|
||||
' Zieldatei
|
||||
fsmtarget = New IO.FileStream(IO.Path.Combine(TargetDir, SourceFile.Name), IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
|
||||
|
||||
' Daten nach und nach einlesen und im Zielstream wieder
|
||||
' zurückschreiben
|
||||
While fsmsource.Position < fsmsource.Length
|
||||
' Quelle einlesen
|
||||
readbyte = fsmsource.Read(buffer, 0, buffersize)
|
||||
|
||||
' In das Ziel schreiben
|
||||
fsmtarget.Write(buffer, 0, readbyte)
|
||||
|
||||
With ProgressBar
|
||||
Dim vl As Integer = .Value
|
||||
vl = Math.Min(.Maximum, readbyte \ 1024 + vl)
|
||||
.Value = vl
|
||||
m_Label.Text = CStr(CInt(100 * .Value / .Maximum)) + "%"
|
||||
.Refresh()
|
||||
m_Label.Refresh()
|
||||
End With
|
||||
|
||||
End While
|
||||
|
||||
' Streams schließen
|
||||
fsmsource.Close()
|
||||
fsmtarget.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function CompareFiles(ByVal FileFullPath1 As String, ByVal FileFullPath2 As String) As Boolean
|
||||
|
||||
'returns true if two files passed to is are identical, false
|
||||
'otherwise
|
||||
|
||||
'does byte comparison; works for both text and binary files
|
||||
|
||||
'Throws exception on errors; you can change to just return
|
||||
'false if you prefer
|
||||
|
||||
|
||||
Dim objMD5 As New MD5CryptoServiceProvider()
|
||||
Dim objEncoding As New System.Text.ASCIIEncoding()
|
||||
|
||||
Dim aFile1() As Byte, aFile2() As Byte
|
||||
Dim strContents1, strContents2 As String
|
||||
Dim objReader As StreamReader
|
||||
Dim objFS As FileStream
|
||||
Dim bAns As Boolean
|
||||
If Not File.Exists(FileFullPath1) Then Return False ' Throw New Exception(FileFullPath1 & " doesn't exist")
|
||||
If Not File.Exists(FileFullPath2) Then Return False ' Throw New Exception(FileFullPath2 & " doesn't exist")
|
||||
|
||||
Try
|
||||
|
||||
objFS = New FileStream(FileFullPath1, FileMode.Open)
|
||||
objReader = New StreamReader(objFS)
|
||||
aFile1 = objEncoding.GetBytes(objReader.ReadToEnd)
|
||||
strContents1 = _
|
||||
objEncoding.GetString(objMD5.ComputeHash(aFile1))
|
||||
objReader.Close()
|
||||
objFS.Close()
|
||||
|
||||
|
||||
objFS = New FileStream(FileFullPath2, FileMode.Open)
|
||||
objReader = New StreamReader(objFS)
|
||||
aFile2 = objEncoding.GetBytes(objReader.ReadToEnd)
|
||||
strContents2 = _
|
||||
objEncoding.GetString(objMD5.ComputeHash(aFile2))
|
||||
|
||||
bAns = strContents1 = strContents2
|
||||
objReader.Close()
|
||||
objFS.Close()
|
||||
aFile1 = Nothing
|
||||
aFile2 = Nothing
|
||||
|
||||
Catch ex As Exception
|
||||
' Throw ex
|
||||
Return False
|
||||
|
||||
End Try
|
||||
|
||||
Return bAns
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
102
AVISOUPDATER/Update.vb
Normal file
102
AVISOUPDATER/Update.vb
Normal file
@@ -0,0 +1,102 @@
|
||||
Module Update2
|
||||
Dim F As String = "F:\Programme\AVISO\" ' WDH TERM
|
||||
' Dim F As String = "\\192.168.0.91\f\Programme\AVISO\" ' VERAG
|
||||
' Dim F As String = "\\192.168.0.90\f\Programme\AVISO\" 'DEVELOPER
|
||||
' Dim F As String = "\\172.16.0.99\Daten\Programme\AVISO\" ' ATILLA
|
||||
Sub Main()
|
||||
'Falls Settings existiert, wird der Pfad daraus verwendet.
|
||||
F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")
|
||||
If Not System.IO.Directory.Exists(F) Then
|
||||
MsgBox("ERROR_UPDATE_05: Es konnte keine Verbindung mit dem F:\ Laufwerk hergestellt werden." & vbNewLine & "Wenn Sie eine Remote-Sitzung verwenden, melden Sie sich mit dieser erneut an.", MsgBoxStyle.Critical, "ERROR")
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
System.Console.WriteLine("3 Sekunden warten, um sicherzustellen, dass das Programm beendet wurde...")
|
||||
Threading.Thread.Sleep(3000) 'Falls Programm gerade am Beenden
|
||||
System.Console.WriteLine("Starte Update...")
|
||||
' If Not My.Computer.FileSystem.DirectoryExists(F) Then
|
||||
'MsgBox("ERROR_UPDATE_02: Update-Daten existieren nicht.", MsgBoxStyle.Critical, "ERROR")
|
||||
' Else
|
||||
Try
|
||||
|
||||
For i As Integer = 1 To 3 Step 1
|
||||
If Not DoesProcessExists("AVISO") Then
|
||||
If Not tryDelMain() Then
|
||||
MsgBox("ERROR_UPDATE_06: AVISO.exe konnte nicht gelöscht werden. Das Programm wird evtl. noch ausgeführt.", MsgBoxStyle.Critical, "ERROR")
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
delFiles()
|
||||
FileCopier()
|
||||
If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "AVISO.exe") Then
|
||||
MsgBox("ERROR_UPDATE_03: AVISO.exe konnte nicht gestartet werden.", MsgBoxStyle.Critical, "ERROR")
|
||||
|
||||
End If
|
||||
If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "upd.tmp") Then
|
||||
System.IO.File.Create(AppDomain.CurrentDomain.BaseDirectory & "upd.tmp")
|
||||
End If
|
||||
System.Console.WriteLine("Erfolgreich abgeschlossen...")
|
||||
Process.Start("AVISO.exe")
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
Threading.Thread.Sleep(1000)
|
||||
Next
|
||||
MsgBox("ERROR_UPDATE_01: Update konnte nicht durchgeführt werden. AVISO.exe nicht beendet?", MsgBoxStyle.Critical, "ERROR")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("ERROR_UPDATE_02: Update-Daten existieren nicht.", MsgBoxStyle.Critical, "ERROR")
|
||||
End Try
|
||||
'End If
|
||||
Environment.Exit(0)
|
||||
End Sub
|
||||
Private Sub FileCopier()
|
||||
For Each file As String In IO.Directory.GetFiles(F) ' Ermittelt alle Dateien des Ordners
|
||||
IO.File.Copy(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True) ' Kopiert die Dateien Next
|
||||
Next
|
||||
For Each file As String In IO.Directory.GetDirectories(F) ' Ermittelt alle Unterordner des Ordners
|
||||
My.Computer.FileSystem.CopyDirectory(file, AppDomain.CurrentDomain.BaseDirectory & cut_file(file), True)
|
||||
Next
|
||||
End Sub
|
||||
Private Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function
|
||||
While file.Contains("\")
|
||||
file = file.Remove(0, 1)
|
||||
End While
|
||||
Return file
|
||||
End Function
|
||||
Private Function tryDelMain() As Boolean
|
||||
'Dim f As String = "no"
|
||||
Try
|
||||
If System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "AVISO.exe") Then My.Computer.FileSystem.DeleteFile(AppDomain.CurrentDomain.BaseDirectory & "AVISO.exe")
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("ERROR_UPDATE_04: Fehler beim Löschen: " & F & vbNewLine & ex.Message, MsgBoxStyle.Critical, "ERROR")
|
||||
Environment.Exit(0)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub delFiles()
|
||||
'Dim f As String = "no"
|
||||
Try
|
||||
For Each file As String In IO.Directory.GetFiles(AppDomain.CurrentDomain.BaseDirectory) ' Ermittelt alle Dateien des Ordners
|
||||
If Not cut_file(file).Contains("AVISOUPDATER") And Not cut_file(file).Contains("NOT_DEL_") Then
|
||||
' f = file
|
||||
My.Computer.FileSystem.DeleteFile(file) 'Löscht das AVISO-Programm, außer den Updater
|
||||
' IO.File.Delete(file)
|
||||
'IO.Directory.Delete(file)
|
||||
End If
|
||||
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox("ERROR_UPDATE_04: Fehler beim Löschen: " & f & vbNewLine & ex.Message, MsgBoxStyle.Critical, "ERROR")
|
||||
Environment.Exit(0)
|
||||
End Try
|
||||
End Sub
|
||||
Private Function DoesProcessExists(ByVal PName As String) As Boolean
|
||||
For Each p As Process In System.Diagnostics.Process.GetProcessesByName(PName)
|
||||
If p.StartInfo.UserName = Environment.UserName Then
|
||||
Return True
|
||||
End If
|
||||
Next
|
||||
Return False
|
||||
End Function
|
||||
|
||||
End Module
|
||||
145
Aviso.sln
Normal file
145
Aviso.sln
Normal file
@@ -0,0 +1,145 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 15
|
||||
VisualStudioVersion = 15.0.28307.106
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Aviso", "Aviso\Aviso.vbproj", "{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AvisoTV", "AvisoTV\AvisoTV.vbproj", "{3B5EAEB2-0477-4899-A893-3049DD458B9B}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "Gemeinsames\Gemeinsames.vbproj", "{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISOUPDATER", "AVISOUPDATER\AVISOUPDATER.vbproj", "{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}"
|
||||
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}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Debug|Mixed Platforms = Debug|Mixed Platforms
|
||||
Debug|x86 = Debug|x86
|
||||
Release|Any CPU = Release|Any CPU
|
||||
Release|Mixed Platforms = Release|Mixed Platforms
|
||||
Release|x86 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.ActiveCfg = Debug|x86
|
||||
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.Build.0 = Debug|x86
|
||||
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x86.Build.0 = Debug|x86
|
||||
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Any CPU.ActiveCfg = Release|x86
|
||||
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Mixed Platforms.Build.0 = Release|x86
|
||||
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x86.ActiveCfg = Release|x86
|
||||
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x86.Build.0 = Release|x86
|
||||
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Any CPU.ActiveCfg = Debug|x86
|
||||
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Mixed Platforms.Build.0 = Debug|x86
|
||||
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|x86.Build.0 = Debug|x86
|
||||
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Any CPU.ActiveCfg = Release|x86
|
||||
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Mixed Platforms.Build.0 = Release|x86
|
||||
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x86.ActiveCfg = Release|x86
|
||||
{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x86.Build.0 = Release|x86
|
||||
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.ActiveCfg = Debug|x86
|
||||
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
|
||||
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.Build.0 = Debug|x86
|
||||
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x86.Build.0 = Debug|x86
|
||||
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Any CPU.ActiveCfg = Release|x86
|
||||
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.ActiveCfg = Release|x86
|
||||
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.Build.0 = Release|x86
|
||||
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.ActiveCfg = Release|x86
|
||||
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.Build.0 = Release|x86
|
||||
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
|
||||
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
|
||||
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
|
||||
{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x86.ActiveCfg = Release|Any CPU
|
||||
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
|
||||
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
|
||||
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{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
|
||||
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
|
||||
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.Build.0 = Release|Any CPU
|
||||
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x86.ActiveCfg = Release|Any CPU
|
||||
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
|
||||
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
|
||||
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Mixed Platforms.Build.0 = Release|Any CPU
|
||||
{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|x86.ActiveCfg = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
|
||||
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x86.ActiveCfg = Release|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.Build.0 = Debug|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.Build.0 = Release|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.ActiveCfg = Release|Any CPU
|
||||
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
GlobalSection(ExtensibilityGlobals) = postSolution
|
||||
SolutionGuid = {C6E28027-DA1E-418D-8EAB-513223928856}
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
217
Aviso/ADMIN/frmZuordnungKd.Designer.vb
generated
Normal file
217
Aviso/ADMIN/frmZuordnungKd.Designer.vb
generated
Normal file
@@ -0,0 +1,217 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmZuordnungKd
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmZuordnungKd))
|
||||
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.btnUpdate = New System.Windows.Forms.Button()
|
||||
Me.DataGridView2 = New System.Windows.Forms.DataGridView()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.cbxNurFirmenMitHinterlegterEmail = New System.Windows.Forms.CheckBox()
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DataGridView1
|
||||
'
|
||||
Me.DataGridView1.AllowUserToAddRows = False
|
||||
Me.DataGridView1.AllowUserToDeleteRows = False
|
||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DataGridView1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DataGridView1.MultiSelect = False
|
||||
Me.DataGridView1.Name = "DataGridView1"
|
||||
Me.DataGridView1.Size = New System.Drawing.Size(622, 636)
|
||||
Me.DataGridView1.TabIndex = 0
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(3, 35)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(423, 13)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "Hier können Sie die Kunden vom AVISO mit den Stammdaten von FMZOLL verknüpfen:"
|
||||
'
|
||||
'btnUpdate
|
||||
'
|
||||
Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnUpdate.Location = New System.Drawing.Point(432, 25)
|
||||
Me.btnUpdate.Name = "btnUpdate"
|
||||
Me.btnUpdate.Size = New System.Drawing.Size(185, 32)
|
||||
Me.btnUpdate.TabIndex = 2
|
||||
Me.btnUpdate.Text = "Update"
|
||||
Me.btnUpdate.UseVisualStyleBackColor = True
|
||||
Me.btnUpdate.Visible = False
|
||||
'
|
||||
'DataGridView2
|
||||
'
|
||||
Me.DataGridView2.AllowUserToAddRows = False
|
||||
Me.DataGridView2.AllowUserToDeleteRows = False
|
||||
Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DataGridView2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DataGridView2.MultiSelect = False
|
||||
Me.DataGridView2.Name = "DataGridView2"
|
||||
Me.DataGridView2.ReadOnly = True
|
||||
Me.DataGridView2.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.DataGridView2.Size = New System.Drawing.Size(708, 636)
|
||||
Me.DataGridView2.TabIndex = 3
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(623, 32)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(339, 20)
|
||||
Me.TextBox1.TabIndex = 4
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(968, 25)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(121, 32)
|
||||
Me.Button1.TabIndex = 5
|
||||
Me.Button1.Text = "Suche"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.Location = New System.Drawing.Point(6, 3)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(185, 24)
|
||||
Me.Button2.TabIndex = 6
|
||||
Me.Button2.Text = "Daten in AvisoDB übernehmen"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.White
|
||||
Me.Panel1.Controls.Add(Me.cbxNurFirmenMitHinterlegterEmail)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.Button2)
|
||||
Me.Panel1.Controls.Add(Me.btnUpdate)
|
||||
Me.Panel1.Controls.Add(Me.Button1)
|
||||
Me.Panel1.Controls.Add(Me.TextBox1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(1334, 63)
|
||||
Me.Panel1.TabIndex = 7
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(623, 16)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(52, 13)
|
||||
Me.Label2.TabIndex = 7
|
||||
Me.Label2.Text = "Suchtext:"
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.Controls.Add(Me.SplitContainer1)
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 63)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(1334, 636)
|
||||
Me.Panel2.TabIndex = 8
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.DataGridView1)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.DataGridView2)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(1334, 636)
|
||||
Me.SplitContainer1.SplitterDistance = 622
|
||||
Me.SplitContainer1.TabIndex = 4
|
||||
'
|
||||
'cbxNurFirmenMitHinterlegterEmail
|
||||
'
|
||||
Me.cbxNurFirmenMitHinterlegterEmail.AutoSize = True
|
||||
Me.cbxNurFirmenMitHinterlegterEmail.Location = New System.Drawing.Point(250, 4)
|
||||
Me.cbxNurFirmenMitHinterlegterEmail.Name = "cbxNurFirmenMitHinterlegterEmail"
|
||||
Me.cbxNurFirmenMitHinterlegterEmail.Size = New System.Drawing.Size(174, 17)
|
||||
Me.cbxNurFirmenMitHinterlegterEmail.TabIndex = 8
|
||||
Me.cbxNurFirmenMitHinterlegterEmail.Text = "nur Firmen mit hinterlegter Email"
|
||||
Me.cbxNurFirmenMitHinterlegterEmail.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmZuordnungKd
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1334, 699)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmZuordnungKd"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Zuordnung KdNr"
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents btnUpdate As System.Windows.Forms.Button
|
||||
Friend WithEvents DataGridView2 As System.Windows.Forms.DataGridView
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents cbxNurFirmenMitHinterlegterEmail As System.Windows.Forms.CheckBox
|
||||
End Class
|
||||
1253
Aviso/ADMIN/frmZuordnungKd.resx
Normal file
1253
Aviso/ADMIN/frmZuordnungKd.resx
Normal file
File diff suppressed because it is too large
Load Diff
107
Aviso/ADMIN/frmZuordnungKd.vb
Normal file
107
Aviso/ADMIN/frmZuordnungKd.vb
Normal file
@@ -0,0 +1,107 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class frmZuordnungKd
|
||||
Dim dataAdapter As New SqlDataAdapter
|
||||
Dim binding As New BindingSource
|
||||
Dim sql As New adminfunc
|
||||
Dim aend As Boolean = False
|
||||
|
||||
Private Sub frmZuordnungKd_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Me.DataGridView1.DataSource = Me.binding
|
||||
initdgv()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmZuordnungKd_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
If aend Then
|
||||
Select Case MsgBox("Änderungen speichern?", vbYesNoCancel)
|
||||
Case vbYes : setKdInAvisoDb()
|
||||
Case vbCancel : e.Cancel = True
|
||||
End Select
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initdgv()
|
||||
'Dim d As New SqlDataAdapter()
|
||||
Try
|
||||
Dim connectionString As String = cSqlDb.GetAVISOConnectionString
|
||||
Dim sqlstr As String = " SELECT KundenNr,Firma, FirmaID " & _
|
||||
" FROM Firmen "
|
||||
If cbxNurFirmenMitHinterlegterEmail.Checked Then sqlstr &= " where eMail<>'' or eMail2<>''"
|
||||
Me.dataAdapter = New SqlDataAdapter(sqlstr, connectionString)
|
||||
Catch ex As SqlException
|
||||
MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
|
||||
End Try
|
||||
Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapter)
|
||||
Dim table As New DataTable()
|
||||
Me.dataAdapter.Fill(table)
|
||||
'table.Columns("KundenNr").DefaultValue = kdNr
|
||||
table.Locale = System.Globalization.CultureInfo.InvariantCulture
|
||||
binding.DataSource = table
|
||||
|
||||
DataGridView1.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
' dgvSDLLeistungenFull.DataSource = sql.loadDgvBySql("SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez,[Sperre], [Sperrdatum], [Vertretungsvollmacht], [Auszahlungsvollmacht], [Finanzamtbestätigung], [Antragsdatum],[Vermerk], KundenSDL.[Erfassungsdatum], KundenSDL.[Änderungsdatum],KundenSDL.[Sachbearbeiter] FROM KundenSDL,Speditionsdienstleistungen WHERE KundenSDL.KundenNr='" & kdNr & "' AND Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr ")
|
||||
End Sub
|
||||
|
||||
Sub initdgv2()
|
||||
Me.DataGridView2.DataSource = sql.getDatatable(VERAG_PROG_ALLGEMEIN.My.MySettings.Default.FMZOLLConnectionString, "SELECT [Auswahl],[AdressenNr],Ordnungsbegriff,[LandKz],[Ort],Straße FROM [Adressen] WHERE Ordnungsbegriff LIKE '%" & TextBox1.Text & "%' ORDER BY Auswahl")
|
||||
DataGridView2.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
DataGridView2.Columns(0).Width = 50
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
|
||||
Try
|
||||
Me.binding.EndEdit()
|
||||
Me.dataAdapter.Update(CType(Me.binding.DataSource, DataTable))
|
||||
' btnUpdate.Enabled = False
|
||||
Catch ex As Exception
|
||||
MsgBox("Es ist ein Fehler aufgetreten:" & vbNewLine & vbNewLine & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
|
||||
If DataGridView1.SelectedCells.Count > 0 Then
|
||||
If DataGridView1.CurrentRow.Cells(1).Value.ToString.Contains(";") Then
|
||||
TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString.Split(CChar(";"))(0)
|
||||
Else
|
||||
TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub DataGridView2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView2.CellDoubleClick
|
||||
aend = True
|
||||
If DataGridView2.SelectedCells.Count > 0 Then
|
||||
If DataGridView1.SelectedCells.Count > 0 Then
|
||||
DataGridView1.CurrentRow.Cells(0).Value = DataGridView2.CurrentRow.Cells(1).Value
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged, Button1.Click
|
||||
initdgv2()
|
||||
End Sub
|
||||
|
||||
Sub setKdInAvisoDb()
|
||||
For Each r As DataGridViewRow In DataGridView1.Rows
|
||||
If r.Cells(0).Value.ToString <> "" Then
|
||||
sql.setFirmenKdNr(r.Cells("Firma").Value.ToString, r.Cells("KundenNr").Value.ToString)
|
||||
sql.setAuftraggber(r.Cells("Firma").Value.ToString, r.Cells("KundenNr").Value.ToString)
|
||||
sql.setFraechter(r.Cells("Firma").Value.ToString, r.Cells("KundenNr").Value.ToString)
|
||||
End If
|
||||
'KundenNr, Firma
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
setKdInAvisoDb()
|
||||
aend = False
|
||||
End Sub
|
||||
|
||||
Private Sub cbxNurFirmenMitHinterlegterEmail_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNurFirmenMitHinterlegterEmail.CheckedChanged
|
||||
initdgv()
|
||||
End Sub
|
||||
End Class
|
||||
50
Aviso/App.config
Normal file
50
Aviso/App.config
Normal file
@@ -0,0 +1,50 @@
|
||||
<?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">
|
||||
<section name="AVISO.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
|
||||
</sectionGroup>
|
||||
</configSections>
|
||||
<connectionStrings>
|
||||
<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" />
|
||||
</startup>
|
||||
|
||||
<userSettings>
|
||||
<AVISO.My.MySettings>
|
||||
<setting name="frmMainSize" serializeAs="String">
|
||||
<value>600, 800</value>
|
||||
</setting>
|
||||
<setting name="frmMainPosition" serializeAs="String">
|
||||
<value>200, 200</value>
|
||||
</setting>
|
||||
<setting name="s" serializeAs="String">
|
||||
<value />
|
||||
</setting>
|
||||
</AVISO.My.MySettings>
|
||||
</userSettings>
|
||||
<system.serviceModel>
|
||||
<bindings>
|
||||
<basicHttpBinding>
|
||||
<binding name="BasicHttpBinding_IRKSVWcf" />
|
||||
</basicHttpBinding>
|
||||
</bindings>
|
||||
<client>
|
||||
<endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf" />
|
||||
</client>
|
||||
</system.serviceModel>
|
||||
<runtime>
|
||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="31bf3856ad364e35" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.5.5631.0" newVersion="2.5.5631.0" />
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0" />
|
||||
</dependentAssembly>
|
||||
</assemblyBinding>
|
||||
</runtime>
|
||||
</configuration>
|
||||
24
Aviso/Auswertung/cStatFunctions.vb
Normal file
24
Aviso/Auswertung/cStatFunctions.vb
Normal file
@@ -0,0 +1,24 @@
|
||||
Public Class cStatFunctions
|
||||
Public Sub showReport(hAuswahl As String, hSQL As String, Optional optIntern As Boolean = False, Optional cboFirma As String = "", Optional Auswahl_Standort As String = "")
|
||||
Try
|
||||
'Dim Werte = New cWerteDAL
|
||||
Dim report As rptAuswertung = New rptAuswertung
|
||||
|
||||
report.Auswahl = hAuswahl
|
||||
report.SQL = hSQL
|
||||
If optIntern Then report.Intern = optIntern
|
||||
If cboFirma <> "" Then report.Frächter = cboFirma
|
||||
If Auswahl_Standort <> "" Then report.Standort = Auswahl_Standort
|
||||
' report.Frächter = cboFirma.Text
|
||||
' report.Standort = Auswahl_Standort
|
||||
|
||||
Dim arAuswertung As New frmDruck(report)
|
||||
arAuswertung.Text = "Saldenliste"
|
||||
arAuswertung.Show()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Beim Drucken ist ein Fehler aufgetreten: " & vbCrLf & ex.Message)
|
||||
Exit Sub
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
191
Aviso/Auswertung/frmAuswertung.Designer.vb
generated
Normal file
191
Aviso/Auswertung/frmAuswertung.Designer.vb
generated
Normal file
@@ -0,0 +1,191 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmAuswertung
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuswertung))
|
||||
Me.pnlHead = New System.Windows.Forms.Panel()
|
||||
Me.Button10 = New System.Windows.Forms.Button()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.pnlOptions = New System.Windows.Forms.Panel()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.pnlMain = New System.Windows.Forms.Panel()
|
||||
Me.pnlHead.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlOptions.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnlHead
|
||||
'
|
||||
Me.pnlHead.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.pnlHead.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pnlHead.Controls.Add(Me.Button10)
|
||||
Me.pnlHead.Controls.Add(Me.PictureBox1)
|
||||
Me.pnlHead.Controls.Add(Me.Label1)
|
||||
Me.pnlHead.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlHead.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlHead.Name = "pnlHead"
|
||||
Me.pnlHead.Size = New System.Drawing.Size(946, 64)
|
||||
Me.pnlHead.TabIndex = 0
|
||||
'
|
||||
'Button10
|
||||
'
|
||||
Me.Button10.Location = New System.Drawing.Point(313, 11)
|
||||
Me.Button10.Name = "Button10"
|
||||
Me.Button10.Size = New System.Drawing.Size(126, 46)
|
||||
Me.Button10.TabIndex = 9
|
||||
Me.Button10.Text = "E-Mails in Fmzoll laden"
|
||||
Me.Button10.UseVisualStyleBackColor = True
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.Image = Global.AVISO.My.Resources.Resources.statistik
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(2, 3)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(63, 58)
|
||||
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.PictureBox1.TabIndex = 1
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(76, 24)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(175, 20)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "AVISO - Auswertung"
|
||||
'
|
||||
'pnlOptions
|
||||
'
|
||||
Me.pnlOptions.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.pnlOptions.Controls.Add(Me.Panel1)
|
||||
Me.pnlOptions.Controls.Add(Me.Button3)
|
||||
Me.pnlOptions.Controls.Add(Me.Button2)
|
||||
Me.pnlOptions.Controls.Add(Me.Button1)
|
||||
Me.pnlOptions.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pnlOptions.Location = New System.Drawing.Point(0, 64)
|
||||
Me.pnlOptions.Name = "pnlOptions"
|
||||
Me.pnlOptions.Size = New System.Drawing.Size(144, 552)
|
||||
Me.pnlOptions.TabIndex = 1
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.Button4)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 482)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(144, 70)
|
||||
Me.Panel1.TabIndex = 2
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.ForeColor = System.Drawing.Color.White
|
||||
Me.Button4.Location = New System.Drawing.Point(7, 18)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(131, 51)
|
||||
Me.Button4.TabIndex = 2
|
||||
Me.Button4.Text = "Schließen"
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.ForeColor = System.Drawing.Color.White
|
||||
Me.Button3.Location = New System.Drawing.Point(7, 123)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(131, 51)
|
||||
Me.Button3.TabIndex = 1
|
||||
Me.Button3.Text = "Mitarbeiter"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.ForeColor = System.Drawing.Color.White
|
||||
Me.Button2.Location = New System.Drawing.Point(7, 66)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(131, 51)
|
||||
Me.Button2.TabIndex = 0
|
||||
Me.Button2.Text = "Statistik" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Gesamt"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.ForeColor = System.Drawing.Color.White
|
||||
Me.Button1.Location = New System.Drawing.Point(7, 9)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(131, 51)
|
||||
Me.Button1.TabIndex = 0
|
||||
Me.Button1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Kunden"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'pnlMain
|
||||
'
|
||||
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnlMain.Location = New System.Drawing.Point(144, 64)
|
||||
Me.pnlMain.Name = "pnlMain"
|
||||
Me.pnlMain.Size = New System.Drawing.Size(802, 552)
|
||||
Me.pnlMain.TabIndex = 2
|
||||
'
|
||||
'frmAuswertung
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(946, 616)
|
||||
Me.Controls.Add(Me.pnlMain)
|
||||
Me.Controls.Add(Me.pnlOptions)
|
||||
Me.Controls.Add(Me.pnlHead)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmAuswertung"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "frmAuswertung"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
Me.pnlHead.ResumeLayout(False)
|
||||
Me.pnlHead.PerformLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnlOptions.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnlHead As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents pnlOptions As System.Windows.Forms.Panel
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents pnlMain As System.Windows.Forms.Panel
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Button4 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button10 As System.Windows.Forms.Button
|
||||
End Class
|
||||
6334
Aviso/Auswertung/frmAuswertung.resx
Normal file
6334
Aviso/Auswertung/frmAuswertung.resx
Normal file
File diff suppressed because it is too large
Load Diff
690
Aviso/Auswertung/frmAuswertung.vb
Normal file
690
Aviso/Auswertung/frmAuswertung.vb
Normal file
@@ -0,0 +1,690 @@
|
||||
Imports Gemeinsames
|
||||
Imports System.Data.SqlClient
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmAuswertung
|
||||
|
||||
|
||||
Private Sub frmAuswertung_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrctlAuswertung
|
||||
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub clrPnlMain()
|
||||
While pnlMain.HasChildren
|
||||
pnlMain.Controls.RemoveAt(0)
|
||||
End While
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrctlAuswertung
|
||||
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrctStatistik
|
||||
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrctlMAUebersicht
|
||||
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
End Sub
|
||||
|
||||
|
||||
Dim SQL As New Statistik
|
||||
|
||||
Function getMAList() As List(Of listMAZusammenf)
|
||||
Dim ll As New List(Of listMAZusammenf)
|
||||
Dim l = Nothing
|
||||
|
||||
ll.Add(New listMAZusammenf(4, "ADMIN"))
|
||||
ll.Add(New listMAZusammenf(227, "AKPINAR"))
|
||||
ll.Add(New listMAZusammenf(220, "ALEX"))
|
||||
ll.Add(New listMAZusammenf(273, "Altenberger"))
|
||||
ll.Add(New listMAZusammenf(133, "ANGERER"))
|
||||
ll.Add(New listMAZusammenf(215, "ANNA"))
|
||||
ll.Add(New listMAZusammenf(266, "ANNAHME_SBG"))
|
||||
ll.Add(New listMAZusammenf(234, "ANNAHME1"))
|
||||
ll.Add(New listMAZusammenf(235, "ANNAHME2"))
|
||||
ll.Add(New listMAZusammenf(262, "Ari"))
|
||||
ll.Add(New listMAZusammenf(229, "ASANGER"))
|
||||
ll.Add(New listMAZusammenf(179, "ATALAY"))
|
||||
' ll.Add(New listMAZusammenf(264, "ATALAY"))
|
||||
ll.Add(New listMAZusammenf(180, "ATILLA"))
|
||||
ll.Add(New listMAZusammenf(265, "AVISO_WAI_TV"))
|
||||
ll.Add(New listMAZusammenf(237, "BAGHALI"))
|
||||
ll.Add(New listMAZusammenf(238, "BALK"))
|
||||
ll.Add(New listMAZusammenf(239, "BARBUL"))
|
||||
ll.Add(New listMAZusammenf(143, "BATINIC"))
|
||||
ll.Add(New listMAZusammenf(170, "BAUBOECK"))
|
||||
ll.Add(New listMAZusammenf(181, "BÜSRA"))
|
||||
ll.Add(New listMAZusammenf(172, "CARMAN"))
|
||||
ll.Add(New listMAZusammenf(240, "CELEBI"))
|
||||
ll.Add(New listMAZusammenf(222, "CINAR"))
|
||||
ll.Add(New listMAZusammenf(241, "CIYDEM"))
|
||||
ll.Add(New listMAZusammenf(176, "DIKEBO"))
|
||||
ll.Add(New listMAZusammenf(261, "Dreger"))
|
||||
ll.Add(New listMAZusammenf(230, "EINBOECK"))
|
||||
ll.Add(New listMAZusammenf(163, "EREMIA"))
|
||||
ll.Add(New listMAZusammenf(130, "ERTL"))
|
||||
ll.Add(New listMAZusammenf(175, "FAIZ"))
|
||||
ll.Add(New listMAZusammenf(182, "FATMA"))
|
||||
ll.Add(New listMAZusammenf(183, "FATOS"))
|
||||
ll.Add(New listMAZusammenf(136, "FEICHTINGER"))
|
||||
ll.Add(New listMAZusammenf(169, "FUCHS"))
|
||||
ll.Add(New listMAZusammenf(128, "GERLINDE"))
|
||||
ll.Add(New listMAZusammenf(128, "KODISCH"))
|
||||
ll.Add(New listMAZusammenf(184, "GÖKHAN"))
|
||||
ll.Add(New listMAZusammenf(139, "GROEMER"))
|
||||
ll.Add(New listMAZusammenf(242, "GROETSCH"))
|
||||
ll.Add(New listMAZusammenf(243, "GÜLER"))
|
||||
ll.Add(New listMAZusammenf(221, "GÜLLÜ"))
|
||||
ll.Add(New listMAZusammenf(185, "HACER"))
|
||||
ll.Add(New listMAZusammenf(173, "HANSLMAYR"))
|
||||
ll.Add(New listMAZusammenf(186, "HATICE"))
|
||||
ll.Add(New listMAZusammenf(244, "HAZIROVIC"))
|
||||
ll.Add(New listMAZusammenf(245, "HIEROLD"))
|
||||
ll.Add(New listMAZusammenf(231, "HIKMET"))
|
||||
ll.Add(New listMAZusammenf(272, "Höller"))
|
||||
ll.Add(New listMAZusammenf(159, "HUBER"))
|
||||
ll.Add(New listMAZusammenf(165, "JENARIU"))
|
||||
ll.Add(New listMAZusammenf(141, "JINARIU"))
|
||||
ll.Add(New listMAZusammenf(213, "JUERGEN"))
|
||||
ll.Add(New listMAZusammenf(150, "KAPSHAMMER"))
|
||||
ll.Add(New listMAZusammenf(171, "KASBAUER"))
|
||||
ll.Add(New listMAZusammenf(268, "KASKA"))
|
||||
ll.Add(New listMAZusammenf(246, "KERNSTOCK"))
|
||||
ll.Add(New listMAZusammenf(260, "Kriegner"))
|
||||
ll.Add(New listMAZusammenf(216, "LARYSA"))
|
||||
ll.Add(New listMAZusammenf(168, "LISA"))
|
||||
ll.Add(New listMAZusammenf(219, "LISI"))
|
||||
ll.Add(New listMAZusammenf(144, "LUXBAUER"))
|
||||
ll.Add(New listMAZusammenf(267, "LuxbauerB"))
|
||||
ll.Add(New listMAZusammenf(199, "MAHIRA"))
|
||||
ll.Add(New listMAZusammenf(271, "Manhartseder"))
|
||||
ll.Add(New listMAZusammenf(187, "MARIA"))
|
||||
ll.Add(New listMAZusammenf(174, "MATHIAS"))
|
||||
ll.Add(New listMAZusammenf(154, "MAYRHOFER"))
|
||||
ll.Add(New listMAZusammenf(189, "MERVE"))
|
||||
ll.Add(New listMAZusammenf(188, "MIAZ"))
|
||||
ll.Add(New listMAZusammenf(218, "MINE"))
|
||||
ll.Add(New listMAZusammenf(270, "MIZI"))
|
||||
ll.Add(New listMAZusammenf(247, "MOCIRAN"))
|
||||
ll.Add(New listMAZusammenf(162, "MÜLLER"))
|
||||
ll.Add(New listMAZusammenf(167, "MUMINOVIC"))
|
||||
ll.Add(New listMAZusammenf(208, "MUSTAFA"))
|
||||
ll.Add(New listMAZusammenf(207, "MUSTI"))
|
||||
ll.Add(New listMAZusammenf(190, "NADIR"))
|
||||
ll.Add(New listMAZusammenf(200, "NAHIDE"))
|
||||
ll.Add(New listMAZusammenf(217, "NAZ"))
|
||||
ll.Add(New listMAZusammenf(224, "NECIP"))
|
||||
ll.Add(New listMAZusammenf(191, "NESE"))
|
||||
ll.Add(New listMAZusammenf(263, "Nicoara"))
|
||||
ll.Add(New listMAZusammenf(192, "NICOLE"))
|
||||
ll.Add(New listMAZusammenf(138, "NÖBAUER"))
|
||||
ll.Add(New listMAZusammenf(248, "NUSSDORFER"))
|
||||
ll.Add(New listMAZusammenf(125, "ODABAS"))
|
||||
ll.Add(New listMAZusammenf(249, "ÖZKAN"))
|
||||
ll.Add(New listMAZusammenf(126, "ÖZLEM"))
|
||||
ll.Add(New listMAZusammenf(157, "ÖZTÜRK"))
|
||||
ll.Add(New listMAZusammenf(132, "PAHR"))
|
||||
ll.Add(New listMAZusammenf(250, "PIROLT"))
|
||||
ll.Add(New listMAZusammenf(226, "PROBLEM"))
|
||||
ll.Add(New listMAZusammenf(253, "QSPULT"))
|
||||
ll.Add(New listMAZusammenf(129, "REINPRECHT"))
|
||||
ll.Add(New listMAZusammenf(254, "RIEDL"))
|
||||
ll.Add(New listMAZusammenf(161, "ROBA"))
|
||||
ll.Add(New listMAZusammenf(193, "SABINE"))
|
||||
ll.Add(New listMAZusammenf(255, "SARACOGLU"))
|
||||
ll.Add(New listMAZusammenf(214, "SARAH"))
|
||||
ll.Add(New listMAZusammenf(147, "SCHACHNER"))
|
||||
ll.Add(New listMAZusammenf(194, "SELCAN"))
|
||||
ll.Add(New listMAZusammenf(195, "SEMIH"))
|
||||
ll.Add(New listMAZusammenf(201, "SEVGI"))
|
||||
ll.Add(New listMAZusammenf(198, "SEVILAY"))
|
||||
ll.Add(New listMAZusammenf(127, "SIENER"))
|
||||
ll.Add(New listMAZusammenf(148, "SIKORA"))
|
||||
ll.Add(New listMAZusammenf(209, "SIRADA"))
|
||||
ll.Add(New listMAZusammenf(155, "SREINPRECHT"))
|
||||
ll.Add(New listMAZusammenf(223, "STEFANIE"))
|
||||
ll.Add(New listMAZusammenf(202, "SULTAN"))
|
||||
ll.Add(New listMAZusammenf(203, "TAMARA"))
|
||||
ll.Add(New listMAZusammenf(137, "TANJA"))
|
||||
'll.Add(New listMAZusammenf(ll.Add(New listMAZusammenf(204, "TANJA"))
|
||||
ll.Add(New listMAZusammenf(259, "test"))
|
||||
ll.Add(New listMAZusammenf(131, "TICK"))
|
||||
ll.Add(New listMAZusammenf(158, "TORAM1"))
|
||||
ll.Add(New listMAZusammenf(166, "TORAM2"))
|
||||
ll.Add(New listMAZusammenf(197, "TUGAY"))
|
||||
ll.Add(New listMAZusammenf(211, "TÜLAY"))
|
||||
ll.Add(New listMAZusammenf(225, "VERENA"))
|
||||
ll.Add(New listMAZusammenf(196, "VILDAN"))
|
||||
ll.Add(New listMAZusammenf(206, "VOLKAN"))
|
||||
ll.Add(New listMAZusammenf(140, "VÖLKL"))
|
||||
ll.Add(New listMAZusammenf(256, "VRHOVAC"))
|
||||
ll.Add(New listMAZusammenf(142, "WALCH"))
|
||||
ll.Add(New listMAZusammenf(149, "WIMMEDER"))
|
||||
ll.Add(New listMAZusammenf(153, "WUERDIG"))
|
||||
ll.Add(New listMAZusammenf(134, "WURM"))
|
||||
ll.Add(New listMAZusammenf(164, "YASIN"))
|
||||
ll.Add(New listMAZusammenf(146, "YUKSEL"))
|
||||
ll.Add(New listMAZusammenf(257, "ZILK"))
|
||||
ll.Add(New listMAZusammenf(258, "ZITZMANN"))
|
||||
ll.Add(New listMAZusammenf(145, "ZWIRN"))
|
||||
|
||||
ll.Add(New listMAZusammenf(139, "Grömer"))
|
||||
ll.Add(New listMAZusammenf(166, "TORAMAN2"))
|
||||
ll.Add(New listMAZusammenf(146, "Yueksel"))
|
||||
ll.Add(New listMAZusammenf(137, "TREINPRECHT"))
|
||||
ll.Add(New listMAZusammenf(133, "ANGERER"))
|
||||
ll.Add(New listMAZusammenf(158, "TORAMAN"))
|
||||
ll.Add(New listMAZusammenf(126, "Onur"))
|
||||
ll.Add(New listMAZusammenf(231, "TOZCOEKEN"))
|
||||
ll.Add(New listMAZusammenf(164, "DEMIRYÜREK"))
|
||||
ll.Add(New listMAZusammenf(235, "PULT2"))
|
||||
ll.Add(New listMAZusammenf(302, "KADAJ ARLINDA"))
|
||||
ll.Add(New listMAZusammenf(303, "OBIC"))
|
||||
|
||||
|
||||
Return ll
|
||||
End Function
|
||||
|
||||
|
||||
Function getmaid(ma As String) As Integer
|
||||
Dim ll As List(Of listMAZusammenf) = getMAList()
|
||||
For Each l1 As listMAZusammenf In ll
|
||||
If ma.ToLower.Contains(l1.name.ToLower) Then
|
||||
Return l1.id
|
||||
End If
|
||||
Next
|
||||
Return -1
|
||||
End Function
|
||||
Function getmaidEXAKT(ma As String) As Integer
|
||||
Dim ll As List(Of listMAZusammenf) = getMAList()
|
||||
For Each l1 As listMAZusammenf In ll
|
||||
If ma.Trim.ToLower = l1.name.Trim.ToLower Then
|
||||
Return l1.id
|
||||
End If
|
||||
Next
|
||||
Return -1
|
||||
End Function
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs)
|
||||
Dim ll As List(Of listMAZusammenf) = getMAList()
|
||||
For Each l1 As listMAZusammenf In ll
|
||||
setMATMP(l1)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Button8_Click(sender As Object, e As EventArgs)
|
||||
Dim ll As List(Of listMAZusammenf) = getMAList()
|
||||
For Each l1 As listMAZusammenf In ll
|
||||
setMATMPVermerke(l1)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setMATMPVermerke(ByVal l As listMAZusammenf)
|
||||
Dim hAuswahl As String
|
||||
|
||||
hAuswahl = String.Format("UPDATE Vermerke SET MitarbeiterId = @MitarbeiterId WHERE Mitarbeiter like @Mitarbeiter")
|
||||
|
||||
Dim sql = hAuswahl
|
||||
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@MitarbeiterId", l.id)
|
||||
cmd.Parameters.AddWithValue("@Mitarbeiter", l.name & "%")
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Catch ex As SqlException
|
||||
MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
|
||||
End Try
|
||||
End Using
|
||||
conn.Close()
|
||||
End Sub
|
||||
|
||||
Public Sub setMATMP(ByVal l As listMAZusammenf)
|
||||
Dim hAuswahl As String
|
||||
|
||||
hAuswahl = String.Format("UPDATE Aviso SET LetzterMitarbeiterId = @LetzterMitarbeiterId WHERE LetzterMitarbeiter like @LetzterMitarbeiter")
|
||||
|
||||
Dim sql = hAuswahl
|
||||
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@LetzterMitarbeiterId", l.id)
|
||||
cmd.Parameters.AddWithValue("@LetzterMitarbeiter", l.name & "%")
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Catch ex As SqlException
|
||||
MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
|
||||
End Try
|
||||
End Using
|
||||
conn.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim t As String ' = Button6.Text
|
||||
Dim sAend As New List(Of String)
|
||||
|
||||
Dim sql As String = "SELECT [AvisoID],[Datum],[LKW_Nr],[Änderungen],[LetzterMitarbeiter],[LetzterMitarbeiterId] FROM [Aviso] " 'where datum between '01.01.2015 00:00:00' and '31.01.2015 23:59:59'"
|
||||
Dim dr As SqlDataReader
|
||||
|
||||
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
dr = cmd.ExecuteReader()
|
||||
Try
|
||||
Dim cnt As Integer = 0
|
||||
If dr.HasRows Then
|
||||
While dr.Read
|
||||
If Not dr.Item("LetzterMitarbeiterId") Is DBNull.Value Then
|
||||
Dim aend As String = CStr(dr.Item("Änderungen"))
|
||||
|
||||
If aend.Contains(vbNewLine) Then
|
||||
Dim sarr As String()
|
||||
sarr = aend.Split(CChar(vbNewLine))
|
||||
|
||||
' MsgBox("yes " & sarr.Count())
|
||||
For i = 0 To sarr.Count() - 1
|
||||
If sarr(i).Contains(" von ") Then
|
||||
Dim sarr2 As String()
|
||||
sarr2 = sarr(i).Trim.Split({" von "}, StringSplitOptions.None)
|
||||
|
||||
|
||||
|
||||
Dim b As Boolean = True
|
||||
For Each s In sAend
|
||||
If s = sarr2(0).Trim Then
|
||||
b = False
|
||||
End If
|
||||
Next
|
||||
If b Then
|
||||
sAend.Add(sarr2(0).Trim)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
' MsgBox(sarr(i))
|
||||
Next
|
||||
Else
|
||||
' MsgBox("no ")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End While
|
||||
|
||||
dr.Close()
|
||||
dr = cmd.ExecuteReader()
|
||||
|
||||
While dr.Read
|
||||
|
||||
If Not dr.Item("LetzterMitarbeiterId") Is DBNull.Value Then
|
||||
Dim aend As String = CStr(dr.Item("Änderungen"))
|
||||
|
||||
If aend.Contains(vbNewLine) Then
|
||||
Dim sarr As String()
|
||||
sarr = aend.Split(CChar(vbNewLine))
|
||||
|
||||
' MsgBox("yes " & sarr.Count())
|
||||
For i = 0 To sarr.Count() - 1
|
||||
If sarr(i).Contains(" von ") Then
|
||||
For Each s In sAend
|
||||
If sarr(i).Trim.Contains(s) Then
|
||||
Dim sarr2 As String() = sarr(i).Trim.Split({" von "}, StringSplitOptions.None)
|
||||
Dim sarr3 As String() = sarr2(1).Trim.Split({" am "}, StringSplitOptions.None)
|
||||
|
||||
Dim art As String = sarr2(0).Replace(vbNewLine, "").Trim
|
||||
Dim ma As String = sarr3(0).Replace(vbNewLine, "").Trim
|
||||
Dim dat As DateTime = CDate(sarr3(1).Replace(vbNewLine, "").Trim)
|
||||
'Dim maId As Integer = getmaidEXAKT(ma)
|
||||
Dim maId As Integer = getmaid(ma)
|
||||
'MsgBox(art & " - " & ma & " - " & dat & " - " & maId)
|
||||
|
||||
'getmaid(ma).Trim.Split({" am "}, StringSplitOptions.None)
|
||||
insertAend(CInt(dr.Item("AvisoID")), dat, ma, maId, art, sarr(i).Replace(vbNewLine, "").Trim)
|
||||
|
||||
'If Not Button6.Text = t & dat.ToString("dd.MM.yyyy") Then
|
||||
'Button6.Text = t & dat.ToString("dd.MM.yyyy")
|
||||
'End If
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End While
|
||||
dr.Close()
|
||||
|
||||
|
||||
|
||||
MsgBox("FIN")
|
||||
|
||||
|
||||
End If
|
||||
conn.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
|
||||
Finally
|
||||
dr.Close()
|
||||
End Try
|
||||
'end Using
|
||||
End Using
|
||||
|
||||
'Button6.Text' = t
|
||||
End Sub
|
||||
|
||||
Public Sub insertFremdeSpeditionen(fremd_firma, fremd_plz, fremd_ort, fremd_verzolltBei, fremd_bemerkung)
|
||||
Dim hAuswahl As String
|
||||
|
||||
|
||||
hAuswahl = "INSERT INTO [tblFremdSpeditionen] " &
|
||||
"( [fremd_firma], [fremd_plz], [fremd_ort], [fremd_verzolltBei], [fremd_bemerkung]) VALUES (" &
|
||||
" @fremd_firma, @fremd_plz, @fremd_ort, @fremd_verzolltBei, @fremd_bemerkung)"
|
||||
|
||||
Dim sql = hAuswahl
|
||||
' Dim c = New SqlConnection(cGlobal.ConnStr)
|
||||
Dim conn As SqlConnection = New SqlConnection(cSqlDb.GetAVISOConnectionString)
|
||||
conn.Open()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@fremd_firma", fremd_firma)
|
||||
cmd.Parameters.AddWithValue("@fremd_plz", fremd_plz)
|
||||
cmd.Parameters.AddWithValue("@fremd_ort", fremd_ort)
|
||||
cmd.Parameters.AddWithValue("@fremd_verzolltBei", fremd_verzolltBei)
|
||||
cmd.Parameters.AddWithValue("@fremd_bemerkung", fremd_bemerkung)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Catch ex As SqlException
|
||||
MsgBox("ERR2!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "ERR")
|
||||
End Try
|
||||
End Using
|
||||
conn.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub insertAend(AvisoID As Integer, Datum As DateTime, Mitarbeiter As String, MitarbeiterId As Integer, Aenderung_Art As String, Aenderung_Text As String)
|
||||
Dim hAuswahl As String
|
||||
|
||||
' [AenderungID] INT IDENTITY (1, 1) NOT NULL,
|
||||
' [AvisoID] INT NULL,
|
||||
' [Datum] DATETIME2 (0) NULL,
|
||||
' [Mitarbeiter] NVARCHAR (50) NULL,
|
||||
' [MitarbeiterId] INT NULL,
|
||||
' [Aenderung_Art] NVARCHAR (MAX) NULL,
|
||||
' [Aenderung_Text] NVARCHAR (MAX) NULL,
|
||||
'
|
||||
|
||||
hAuswahl = "INSERT INTO Aenderungen " &
|
||||
"(AvisoID, Datum, Mitarbeiter, MitarbeiterId, Aenderung_Art, Aenderung_Text) VALUES (" &
|
||||
"@AvisoID, @Datum, @Mitarbeiter, @MitarbeiterId, @Aenderung_Art, @Aenderung_Text)"
|
||||
|
||||
Dim sql = hAuswahl
|
||||
' Dim c = New SqlConnection(cGlobal.ConnStr)
|
||||
Dim conn As SqlConnection = New SqlConnection(cSqlDb.GetAVISOConnectionString)
|
||||
conn.Open()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@AvisoID", AvisoID)
|
||||
cmd.Parameters.AddWithValue("@Datum", Datum)
|
||||
cmd.Parameters.AddWithValue("@Mitarbeiter", Mitarbeiter)
|
||||
cmd.Parameters.AddWithValue("@MitarbeiterId", MitarbeiterId)
|
||||
cmd.Parameters.AddWithValue("@Aenderung_Art", Aenderung_Art)
|
||||
cmd.Parameters.AddWithValue("@Aenderung_Text", Aenderung_Text)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Catch ex As SqlException
|
||||
MsgBox("ERR2!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "ERR")
|
||||
End Try
|
||||
End Using
|
||||
conn.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub setVermerkeCode(code As Integer, ByVal where As String)
|
||||
Dim hAuswahl As String
|
||||
|
||||
hAuswahl = String.Format("UPDATE Vermerke SET VermerkeCode = @code WHERE " & where & " ")
|
||||
|
||||
Dim sql = hAuswahl
|
||||
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@code", code)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Catch ex As SqlException
|
||||
MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk")
|
||||
End Try
|
||||
End Using
|
||||
conn.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button7_Click(sender As Object, e As EventArgs)
|
||||
|
||||
setVermerkeCode(1, " [Hinweis_Vermerk] LIKE '%Auftrag für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
|
||||
setVermerkeCode(1, " [Hinweis_Vermerk] LIKE '%Auftrag angefordert%' ")
|
||||
setVermerkeCode(2, " [Hinweis_Vermerk] LIKE '%Auftrag für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
|
||||
setVermerkeCode(3, " [Hinweis_Vermerk] LIKE '%Rechnung für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
|
||||
setVermerkeCode(4, " [Hinweis_Vermerk] LIKE '%Rechnung für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
|
||||
setVermerkeCode(5, " [Hinweis_Vermerk] LIKE '%LS für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
|
||||
setVermerkeCode(6, " [Hinweis_Vermerk] LIKE '%LS für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
|
||||
setVermerkeCode(7, " [Hinweis_Vermerk] LIKE '%ATR Kopie%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
|
||||
setVermerkeCode(8, " [Hinweis_Vermerk] LIKE '%ATR Kopie%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
|
||||
setVermerkeCode(9, " [Hinweis_Vermerk] LIKE '%Vollmacht%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
|
||||
setVermerkeCode(10, " [Hinweis_Vermerk] LIKE '%Vollmacht%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
|
||||
setVermerkeCode(11, " [Hinweis_Vermerk] LIKE '%CMR für Fiskal%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ")
|
||||
setVermerkeCode(12, " [Hinweis_Vermerk] LIKE '%CMR für Fiskal%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ")
|
||||
setVermerkeCode(13, " [Hinweis_Vermerk] LIKE '%Vorauskasse%' AND [Hinweis_Vermerk] LIKE '%angefordert%' ")
|
||||
setVermerkeCode(13, " [Hinweis_Vermerk] LIKE '%Vorkasse%' AND [Hinweis_Vermerk] LIKE '%angefordert%' ")
|
||||
setVermerkeCode(13, " [Hinweis_Vermerk] LIKE '%Vorauskasse%' AND [Hinweis_Vermerk] LIKE '%beantragt%' ")
|
||||
setVermerkeCode(14, " [Hinweis_Vermerk] LIKE '%Vorauskasse%' AND [Hinweis_Vermerk] LIKE '%erhalten%' ")
|
||||
setVermerkeCode(14, " [Hinweis_Vermerk] LIKE '%Vorkasse%' AND [Hinweis_Vermerk] LIKE '%erhalten%' ")
|
||||
setVermerkeCode(15, " [Hinweis_Vermerk] LIKE '%Aviso nicht eingelangt%' ")
|
||||
setVermerkeCode(16, " [Hinweis_Vermerk] LIKE '%Aviso eingelangt kurz vor Eintreffen des LKWs%' ")
|
||||
setVermerkeCode(17, " [Hinweis_Vermerk] LIKE '%DE Zoll eingereicht%' ")
|
||||
setVermerkeCode(18, " [Hinweis_Vermerk] LIKE '%DE Zoll fertig%' ")
|
||||
setVermerkeCode(19, " [Hinweis_Vermerk] LIKE '%AT Zoll eingereicht%' ")
|
||||
setVermerkeCode(20, " [Hinweis_Vermerk] LIKE '%AT Zoll eingereicht%' ")
|
||||
setVermerkeCode(21, " [Hinweis_Vermerk] LIKE '%LKW Standzeit Wochenende%' ")
|
||||
setVermerkeCode(22, " [Hinweis_Vermerk] LIKE '%LKW Standzeit Feiertag%' ")
|
||||
setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%Nach SALZBURG avisiert%' ")
|
||||
setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%über Sbg. avisiert%' ")
|
||||
setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%über Salzburg avisiert%' ")
|
||||
setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%NACH SALZBURG AVISIERT!%' ")
|
||||
|
||||
setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%Nach WAIDHAUS avisiert%' ")
|
||||
setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%über Wdh. avisiert%' ")
|
||||
setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%über Waidhaus avisiert%' ")
|
||||
setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%NACH WAIDHAUS AVISIERT!%' ")
|
||||
|
||||
setVermerkeCode(26, " [Hinweis_Vermerk] LIKE '%LKW ist fertig!%' ")
|
||||
setVermerkeCode(27, " [Hinweis_Vermerk] LIKE '%LKW ist nicht fertig.%' ")
|
||||
|
||||
|
||||
'setVermerkeCode(25," [Hinweis_Vermerk] LIKE '%Sonstige Dokumente fehlen
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button9_Click(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
Dim hAuswahl As String
|
||||
|
||||
hAuswahl = String.Format("UPDATE [Aviso] SET Vorbereitet=Avisoeingang ")
|
||||
|
||||
Dim sql = hAuswahl
|
||||
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Catch ex As SqlException
|
||||
MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Datum Vorbereitet")
|
||||
End Try
|
||||
End Using
|
||||
conn.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub btnFremdeSpeditionenEinlesen_Click(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
Dim fd As New OpenFileDialog
|
||||
fd.Filter = "Excel Dateien|*.xls;*.xlsx"
|
||||
Dim result As DialogResult = fd.ShowDialog()
|
||||
|
||||
If Not fd.FileName.EndsWith(".xls") And Not fd.FileName.EndsWith(".xlsx") Then
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If result = System.Windows.Forms.DialogResult.OK Then
|
||||
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim exclApp As New Excel.Application 'Object 'as Application
|
||||
Dim Datei As Excel.Workbook ' 'as WorkBook
|
||||
Dim Blatt As Excel.Worksheet 'Object 'as WorkSheet
|
||||
|
||||
With exclApp
|
||||
Try
|
||||
|
||||
.CutCopyMode = False
|
||||
|
||||
.DisplayAlerts = False
|
||||
|
||||
|
||||
Datei = .Workbooks.Open(fd.FileName)
|
||||
Blatt = Datei.Worksheets(1)
|
||||
|
||||
Datei.Activate()
|
||||
|
||||
Try
|
||||
Blatt.ShowAllData() 'Falls Filter ausgewählt wurde
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
'Laden des Bereiches aus dem Excel:
|
||||
Dim myRange As Excel.Range
|
||||
myRange = Blatt.Range("A2:E" & Blatt.UsedRange.Rows.Count & "")
|
||||
Dim myArray As Object(,) '<-- declared as 2D Array
|
||||
myArray = myRange.Value 'store the content of each cell
|
||||
'myArray(i_soll2 - startRows + 1, 4)
|
||||
MsgBox(Blatt.UsedRange.Rows.Count)
|
||||
For i As Integer = 1 To Blatt.UsedRange.Rows.Count - 1 Step 1
|
||||
Dim firma = If(myArray(i, 1) Is Nothing, "", myArray(i, 1))
|
||||
Dim plz = If(myArray(i, 2) Is Nothing, "", myArray(i, 2))
|
||||
Dim ort = If(myArray(i, 3) Is Nothing, "", myArray(i, 3))
|
||||
Dim sped = If(myArray(i, 4) Is Nothing, "", myArray(i, 4))
|
||||
Dim bem = If(myArray(i, 5) Is Nothing, "", myArray(i, 5))
|
||||
If firma <> "" Then
|
||||
insertFremdeSpeditionen(firma, plz, ort, sped, bem)
|
||||
End If
|
||||
' MsgBox(firma)
|
||||
Next
|
||||
|
||||
MsgBox("OK")
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
|
||||
End Try
|
||||
End With
|
||||
End If
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
||||
Dim admin As New cADMIN
|
||||
|
||||
Dim sql As String
|
||||
sql = String.Format("SELECT * FROM Firmen where ( eMail<>'' or eMail2<>'') AND [KundenNr] is not NULL")
|
||||
|
||||
Dim daten As cFirma = Nothing
|
||||
|
||||
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
Using dr As SqlDataReader = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
While dr.Read
|
||||
|
||||
Dim kdnr = dr.Item("KundenNr").ToString
|
||||
Dim LIST_EMAILS = New SDL.cEmailBenachrichtigungList(kdnr, 1)
|
||||
Dim LIST_EMAILS2 = New SDL.cEmailBenachrichtigungList(kdnr, 2)
|
||||
|
||||
Dim eMail = (dr.Item("eMail")).ToString.Replace(" ", "")
|
||||
Dim eMail2 = (dr.Item("eMail2")).ToString.Replace(" ", "")
|
||||
|
||||
LIST_EMAILS.CLEAR()
|
||||
LIST_EMAILS2.CLEAR()
|
||||
If eMail.Contains(";") Then
|
||||
For Each r In eMail.Split(";")
|
||||
If r.Trim <> "" Then
|
||||
LIST_EMAILS.ADD(r.Trim)
|
||||
LIST_EMAILS2.ADD(r.Trim)
|
||||
End If
|
||||
Next
|
||||
ElseIf eMail.Trim <> "" Then
|
||||
LIST_EMAILS.ADD(eMail.Trim)
|
||||
LIST_EMAILS2.ADD(eMail.Trim)
|
||||
End If
|
||||
If eMail2.Contains(";") Then
|
||||
For Each r In eMail2.Split(";")
|
||||
If r.Trim <> "" Then
|
||||
LIST_EMAILS.ADD(r.Trim, True)
|
||||
LIST_EMAILS2.ADD(r.Trim, True)
|
||||
End If
|
||||
Next
|
||||
ElseIf eMail.Trim <> "" Then
|
||||
LIST_EMAILS.ADD(eMail2.Trim, True)
|
||||
LIST_EMAILS2.ADD(eMail2.Trim, True)
|
||||
End If
|
||||
LIST_EMAILS.SAVE()
|
||||
LIST_EMAILS2.SAVE()
|
||||
If LIST_EMAILS.LIST.Count > 0 Then
|
||||
admin.doSQL("UPDATE [Kunden] SET [EmailAnkunft]=1,[EmailFreigabe]=1 WHERE [KundenNr]=" & kdnr, "FMZOLL")
|
||||
End If
|
||||
End While
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
conn.Close()
|
||||
'damit leere Einträge gelöscht werden:
|
||||
admin.doSQL("delete FROM [tblEmailBenachrichtigung] WHERE [eb_EMail] = '' ", "FMZOLL")
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Public Class listMAZusammenf
|
||||
Public id As Integer
|
||||
Public name As String
|
||||
|
||||
Sub New(v1 As Integer, v2 As String)
|
||||
id = v1
|
||||
name = v2
|
||||
End Sub
|
||||
End Class
|
||||
352
Aviso/Auswertung/frmStatFrima.Designer.vb
generated
Normal file
352
Aviso/Auswertung/frmStatFrima.Designer.vb
generated
Normal file
@@ -0,0 +1,352 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmStatFrima
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStatFrima))
|
||||
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.DataGridView2 = New System.Windows.Forms.DataGridView()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.lblMaxWZ = New System.Windows.Forms.Label()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.lblMinWZ = New System.Windows.Forms.Label()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.lblDurchschnSZ = New System.Windows.Forms.Label()
|
||||
Me.lblAnzLKWs = New System.Windows.Forms.Label()
|
||||
Me.lblZeitraum = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.pnlStat = New System.Windows.Forms.Panel()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.lblFirma = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.ListView1 = New System.Windows.Forms.ListView()
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.pnlStat.SuspendLayout()
|
||||
Me.Panel4.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DataGridView1
|
||||
'
|
||||
Me.DataGridView1.AllowUserToAddRows = False
|
||||
Me.DataGridView1.AllowUserToDeleteRows = False
|
||||
Me.DataGridView1.AllowUserToOrderColumns = True
|
||||
Me.DataGridView1.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.LightCyan
|
||||
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
|
||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DataGridView1.Location = New System.Drawing.Point(0, 101)
|
||||
Me.DataGridView1.Name = "DataGridView1"
|
||||
Me.DataGridView1.ReadOnly = True
|
||||
Me.DataGridView1.RowHeadersVisible = False
|
||||
Me.DataGridView1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.DataGridView1.Size = New System.Drawing.Size(1371, 288)
|
||||
Me.DataGridView1.TabIndex = 0
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.DataGridView2)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 389)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(1456, 234)
|
||||
Me.Panel1.TabIndex = 2
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(3, 5)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(55, 13)
|
||||
Me.Label1.TabIndex = 3
|
||||
Me.Label1.Text = "Vermerke:"
|
||||
'
|
||||
'DataGridView2
|
||||
'
|
||||
Me.DataGridView2.AllowUserToAddRows = False
|
||||
Me.DataGridView2.AllowUserToDeleteRows = False
|
||||
Me.DataGridView2.AllowUserToOrderColumns = True
|
||||
Me.DataGridView2.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightCyan
|
||||
Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView2.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.DataGridView2.Location = New System.Drawing.Point(0, 21)
|
||||
Me.DataGridView2.Name = "DataGridView2"
|
||||
Me.DataGridView2.ReadOnly = True
|
||||
Me.DataGridView2.RowHeadersVisible = False
|
||||
Me.DataGridView2.Size = New System.Drawing.Size(1456, 213)
|
||||
Me.DataGridView2.TabIndex = 2
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Panel2.Controls.Add(Me.Button1)
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.Panel2.Location = New System.Drawing.Point(1371, 101)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(85, 288)
|
||||
Me.Panel2.TabIndex = 3
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(6, 12)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 0
|
||||
Me.Button1.Text = "Details"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.Panel3.Controls.Add(Me.Panel4)
|
||||
Me.Panel3.Controls.Add(Me.lblMaxWZ)
|
||||
Me.Panel3.Controls.Add(Me.Label10)
|
||||
Me.Panel3.Controls.Add(Me.lblMinWZ)
|
||||
Me.Panel3.Controls.Add(Me.Label8)
|
||||
Me.Panel3.Controls.Add(Me.lblDurchschnSZ)
|
||||
Me.Panel3.Controls.Add(Me.lblAnzLKWs)
|
||||
Me.Panel3.Controls.Add(Me.lblZeitraum)
|
||||
Me.Panel3.Controls.Add(Me.Label6)
|
||||
Me.Panel3.Controls.Add(Me.Label5)
|
||||
Me.Panel3.Controls.Add(Me.Label4)
|
||||
Me.Panel3.Controls.Add(Me.pnlStat)
|
||||
Me.Panel3.Controls.Add(Me.lblFirma)
|
||||
Me.Panel3.Controls.Add(Me.Label2)
|
||||
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel3.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel3.Name = "Panel3"
|
||||
Me.Panel3.Size = New System.Drawing.Size(1456, 101)
|
||||
Me.Panel3.TabIndex = 5
|
||||
'
|
||||
'lblMaxWZ
|
||||
'
|
||||
Me.lblMaxWZ.AutoSize = True
|
||||
Me.lblMaxWZ.Location = New System.Drawing.Point(347, 66)
|
||||
Me.lblMaxWZ.Name = "lblMaxWZ"
|
||||
Me.lblMaxWZ.Size = New System.Drawing.Size(10, 13)
|
||||
Me.lblMaxWZ.TabIndex = 12
|
||||
Me.lblMaxWZ.Text = "-"
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Location = New System.Drawing.Point(267, 66)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(74, 13)
|
||||
Me.Label10.TabIndex = 11
|
||||
Me.Label10.Text = "Max. Stehzeit:"
|
||||
'
|
||||
'lblMinWZ
|
||||
'
|
||||
Me.lblMinWZ.AutoSize = True
|
||||
Me.lblMinWZ.Location = New System.Drawing.Point(347, 53)
|
||||
Me.lblMinWZ.Name = "lblMinWZ"
|
||||
Me.lblMinWZ.Size = New System.Drawing.Size(10, 13)
|
||||
Me.lblMinWZ.TabIndex = 10
|
||||
Me.lblMinWZ.Text = "-"
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Location = New System.Drawing.Point(267, 53)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(71, 13)
|
||||
Me.Label8.TabIndex = 9
|
||||
Me.Label8.Text = "Min. Stehzeit:"
|
||||
'
|
||||
'lblDurchschnSZ
|
||||
'
|
||||
Me.lblDurchschnSZ.AutoSize = True
|
||||
Me.lblDurchschnSZ.Location = New System.Drawing.Point(146, 66)
|
||||
Me.lblDurchschnSZ.Name = "lblDurchschnSZ"
|
||||
Me.lblDurchschnSZ.Size = New System.Drawing.Size(10, 13)
|
||||
Me.lblDurchschnSZ.TabIndex = 8
|
||||
Me.lblDurchschnSZ.Text = "-"
|
||||
'
|
||||
'lblAnzLKWs
|
||||
'
|
||||
Me.lblAnzLKWs.AutoSize = True
|
||||
Me.lblAnzLKWs.Location = New System.Drawing.Point(146, 53)
|
||||
Me.lblAnzLKWs.Name = "lblAnzLKWs"
|
||||
Me.lblAnzLKWs.Size = New System.Drawing.Size(10, 13)
|
||||
Me.lblAnzLKWs.TabIndex = 7
|
||||
Me.lblAnzLKWs.Text = "-"
|
||||
'
|
||||
'lblZeitraum
|
||||
'
|
||||
Me.lblZeitraum.AutoSize = True
|
||||
Me.lblZeitraum.Location = New System.Drawing.Point(146, 40)
|
||||
Me.lblZeitraum.Name = "lblZeitraum"
|
||||
Me.lblZeitraum.Size = New System.Drawing.Size(10, 13)
|
||||
Me.lblZeitraum.TabIndex = 6
|
||||
Me.lblZeitraum.Text = "-"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(6, 66)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(133, 13)
|
||||
Me.Label6.TabIndex = 5
|
||||
Me.Label6.Text = "Durchschnittliche Stehzeit:"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(6, 53)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(92, 13)
|
||||
Me.Label5.TabIndex = 4
|
||||
Me.Label5.Text = "Anzahl der LKWs:"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(6, 40)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(51, 13)
|
||||
Me.Label4.TabIndex = 3
|
||||
Me.Label4.Text = "Zeitraum:"
|
||||
'
|
||||
'pnlStat
|
||||
'
|
||||
Me.pnlStat.Controls.Add(Me.Label3)
|
||||
Me.pnlStat.Location = New System.Drawing.Point(1012, 3)
|
||||
Me.pnlStat.Name = "pnlStat"
|
||||
Me.pnlStat.Size = New System.Drawing.Size(359, 95)
|
||||
Me.pnlStat.TabIndex = 2
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(3, 1)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(223, 13)
|
||||
Me.Label3.TabIndex = 3
|
||||
Me.Label3.Text = "Verteilung der Wartezeiten (Anzahl der LKWs)"
|
||||
'
|
||||
'lblFirma
|
||||
'
|
||||
Me.lblFirma.AutoSize = True
|
||||
Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblFirma.Location = New System.Drawing.Point(5, 20)
|
||||
Me.lblFirma.Name = "lblFirma"
|
||||
Me.lblFirma.Size = New System.Drawing.Size(184, 20)
|
||||
Me.lblFirma.TabIndex = 1
|
||||
Me.lblFirma.Text = "VERAG Spedition AG"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(6, 4)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(57, 13)
|
||||
Me.Label2.TabIndex = 0
|
||||
Me.Label2.Text = "Details für:"
|
||||
'
|
||||
'Panel4
|
||||
'
|
||||
Me.Panel4.Controls.Add(Me.ListView1)
|
||||
Me.Panel4.Location = New System.Drawing.Point(530, 13)
|
||||
Me.Panel4.Name = "Panel4"
|
||||
Me.Panel4.Size = New System.Drawing.Size(476, 82)
|
||||
Me.Panel4.TabIndex = 13
|
||||
'
|
||||
'ListView1
|
||||
'
|
||||
Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ListView1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ListView1.Name = "ListView1"
|
||||
Me.ListView1.Size = New System.Drawing.Size(476, 82)
|
||||
Me.ListView1.TabIndex = 0
|
||||
Me.ListView1.UseCompatibleStateImageBehavior = False
|
||||
'
|
||||
'frmStatFrima
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1456, 623)
|
||||
Me.Controls.Add(Me.DataGridView1)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.Panel3)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmStatFrima"
|
||||
Me.ShowIcon = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Auswertung - Details"
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel3.ResumeLayout(False)
|
||||
Me.Panel3.PerformLayout()
|
||||
Me.pnlStat.ResumeLayout(False)
|
||||
Me.pnlStat.PerformLayout()
|
||||
Me.Panel4.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents DataGridView2 As System.Windows.Forms.DataGridView
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
||||
Friend WithEvents lblFirma As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents pnlStat As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents lblZeitraum As System.Windows.Forms.Label
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Public WithEvents lblDurchschnSZ As System.Windows.Forms.Label
|
||||
Public WithEvents lblAnzLKWs As System.Windows.Forms.Label
|
||||
Public WithEvents lblMaxWZ As System.Windows.Forms.Label
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Public WithEvents lblMinWZ As System.Windows.Forms.Label
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel4 As System.Windows.Forms.Panel
|
||||
Friend WithEvents ListView1 As System.Windows.Forms.ListView
|
||||
End Class
|
||||
1253
Aviso/Auswertung/frmStatFrima.resx
Normal file
1253
Aviso/Auswertung/frmStatFrima.resx
Normal file
File diff suppressed because it is too large
Load Diff
225
Aviso/Auswertung/frmStatFrima.vb
Normal file
225
Aviso/Auswertung/frmStatFrima.vb
Normal file
@@ -0,0 +1,225 @@
|
||||
Imports Gemeinsames
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmStatFrima
|
||||
|
||||
Public srch As String = ""
|
||||
Public auftrFraecht As String = ""
|
||||
Public StatVon As String = ""
|
||||
Public StatBis As String = ""
|
||||
|
||||
Public DauerVon As String = ""
|
||||
Public DauerBis As String = ""
|
||||
Public firma As String = ""
|
||||
Dim Sql As New Statistik
|
||||
Private Sub frmStatFrima_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
initList()
|
||||
|
||||
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
DataGridView2.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
lblFirma.Text = firma
|
||||
Try
|
||||
lblZeitraum.Text = StatVon & " - " & StatBis
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
' Me.Height =
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initPnlStat()
|
||||
If Not IsDate(StatVon) Then StatVon = "1800-01-01 00:00:00"
|
||||
If Not IsDate(StatBis) Then StatBis = Now.ToString("yyyy-MM-dd HH:mm:ss")
|
||||
If Not IsNumeric(DauerVon) Then DauerVon = "0"
|
||||
If Not IsNumeric(DauerBis) Then DauerBis = "99999"
|
||||
|
||||
Dim SQLstat As New StatDB
|
||||
Dim c As Integer = 0
|
||||
|
||||
Dim stdVon As Integer = CInt(Math.Floor(CInt(DauerVon) / 60))
|
||||
Dim stdBis As Integer = CInt(Math.Ceiling(CInt(DauerBis) / 60))
|
||||
' Dim s3(,) As String
|
||||
Dim stepValue As Integer = 1
|
||||
|
||||
If (stdBis - stdVon) > 15 Then
|
||||
stepValue = CInt(Math.Ceiling((stdBis - stdVon) / 15))
|
||||
End If
|
||||
DauerBis = CStr(CInt(DauerBis) + 1)
|
||||
Dim s(CInt(stdBis / stepValue - stdVon), 2) As String
|
||||
|
||||
For i = stdVon To stdBis - 1 Step stepValue
|
||||
Dim lkws As Integer = SQLstat.getAnzahlLkwDauer(CDate(StatVon), CDate(StatBis), CStr(i * 60), CStr((i + stepValue) * 60 - 1), DauerVon, DauerBis, " AND ( " & srch & " LIKE '" & auftrFraecht & "' ) ")
|
||||
s(c, 0) = i & "-" & (i + stepValue) & " h"
|
||||
s(c, 1) = CStr(lkws)
|
||||
c += 1
|
||||
Next
|
||||
|
||||
|
||||
drawStat(pnlStat, s)
|
||||
|
||||
|
||||
Dim listStatAvisoProleme As List(Of listStatAvisoProleme) = SQLstat.getAnzahlAvisoProbleme("", CDate(StatVon), CDate(StatBis), DauerVon, DauerBis, " AND ( " & srch & " LIKE '" & auftrFraecht & "' ) ")
|
||||
|
||||
|
||||
ListView1.Columns.Add("Probleme", 150)
|
||||
ListView1.Columns.Add("Anzahl", 50)
|
||||
|
||||
ListView1.View = View.Details
|
||||
ListView1.FullRowSelect = True
|
||||
|
||||
For Each l In listStatAvisoProleme
|
||||
|
||||
Dim eintrag1 As New ListViewItem(l.Bezeichnung, 0)
|
||||
eintrag1.SubItems.Add(l.AnzahlVermerke.ToString)
|
||||
ListView1.Items.Add(eintrag1)
|
||||
Next
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
Sub initList()
|
||||
With DataGridView1
|
||||
|
||||
Dim sqlstr As String = "select AvisoID, Datum, LKW_Nr, Dauer, Auftraggeber, Frächter, Ankunft, Freigabe, AvisoEingang, Grenzstelle, Info,LetzterMitarbeiter from Aviso "
|
||||
|
||||
'WHERE
|
||||
Dim where As String = ""
|
||||
If StatVon <> "" Then where &= " AND Datum >= '" & StatVon & "' "
|
||||
If StatBis <> "" Then where &= " AND Datum <= '" & StatBis & "' "
|
||||
|
||||
If DauerVon <> "" Then where &= " AND Dauer >= '" & DauerVon & "' "
|
||||
If DauerBis <> "" Then where &= " AND Dauer <= '" & DauerBis & "' "
|
||||
|
||||
sqlstr &= " WHERE ( " & srch & " LIKE '" & auftrFraecht & "' " & where & " ) AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
|
||||
sqlstr &= " ORDER BY Dauer DESC "
|
||||
.DataSource = Sql.getKunden(sqlstr)
|
||||
|
||||
'.Columns(0).HeaderText
|
||||
.Columns(0).Visible = False
|
||||
.Columns(1).HeaderText = "Datum"
|
||||
.Columns(4).HeaderText = "Avisierer"
|
||||
.Columns("Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns(2).HeaderText = "LKW-Kz"
|
||||
If .RowCount > 0 Then
|
||||
DataGridView1.Rows(0).Cells(0).Selected = True
|
||||
DataGridView1_CellContentClick(DataGridView1, New DataGridViewCellEventArgs(0, 0))
|
||||
End If
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub DataGridView1_CellContentClick(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
|
||||
If DataGridView1.SelectedCells.Count > 0 Then
|
||||
With DataGridView2
|
||||
If DataGridView1.SelectedRows.Count > 0 Then
|
||||
Dim sqlstr As String = ""
|
||||
sqlstr += " ("
|
||||
sqlstr += " select VermerkID,'' as [AenderungID],AvisoID, Datum, Mitarbeiter, Hinweis_Vermerk from Vermerke WHERE ( AvisoID = '" & CStr(DataGridView1.SelectedRows(0).Cells(0).Value) & "' ) "
|
||||
sqlstr += " union "
|
||||
sqlstr += " select '',[AenderungID],[AvisoID],[Datum],[Mitarbeiter],[Aenderung_Text] "
|
||||
sqlstr += " FROM [Aenderungen] WHERE ( AvisoID = '" & CStr(DataGridView1.SelectedRows(0).Cells(0).Value) & "' ) "
|
||||
sqlstr += " ) "
|
||||
sqlstr += " ORDER By Datum DESC"
|
||||
|
||||
' Dim sqlstr As String = "select VermerkID,AvisoID, Datum, Mitarbeiter, Hinweis_Vermerk from Vermerke WHERE ( AvisoID = '" & CStr(DataGridView1.SelectedRows(0).Cells(0).Value) & "' ) "
|
||||
' sqlstr &= " ORDER BY Datum DESC "
|
||||
.DataSource = Sql.getKunden(sqlstr)
|
||||
.Columns(0).Visible = False
|
||||
.Columns(1).Visible = False
|
||||
.Columns(2).Visible = False
|
||||
|
||||
.Columns(3).HeaderText = "Datum"
|
||||
.Columns(3).Width = 150
|
||||
|
||||
.Columns(4).HeaderText = "Mitarbeiter"
|
||||
.Columns(4).Width = 300
|
||||
|
||||
.Columns(5).HeaderText = "Vermerk"
|
||||
.Columns(5).MinimumWidth = 300
|
||||
.Columns(5).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
End If
|
||||
End With
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim str As String = ""
|
||||
For Each r As DataGridViewRow In DataGridView1.Rows()
|
||||
If r.Selected Then
|
||||
str &= "'" & CStr(r.Cells(0).Value) & "',"
|
||||
End If
|
||||
Next
|
||||
If str.EndsWith(",") Then str = str.Substring(0, str.Length - 1)
|
||||
|
||||
Dim f As New cStatFunctions
|
||||
f.showReport("DETAILS", " SELECT * from Aviso where AvisoID IN (" & str & ")", True)
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub drawStat(p As Panel, s(,) As String) 'Handles Panel1.Paint
|
||||
|
||||
Dim g As Graphics = pnlStat.CreateGraphics
|
||||
Dim topbound = 10
|
||||
|
||||
|
||||
Dim y0 As Integer = 0
|
||||
Dim x0 As Integer = 0
|
||||
Dim yMax As Integer = p.Height - 50
|
||||
Dim xMax As Integer = p.Width
|
||||
|
||||
Dim h As Integer = p.Height
|
||||
Dim w As Integer = p.Width
|
||||
|
||||
Dim sMax As Long = getMax(s)
|
||||
|
||||
Dim xLeftBound As Integer = 0
|
||||
For i = 0 To s.GetUpperBound(0) - 1
|
||||
Try
|
||||
|
||||
Dim hoehe = 0
|
||||
If sMax > 0 Then hoehe = CInt(yMax * (CLng(s(i, 1)) * 100 / sMax) / 100)
|
||||
' MsgBox(CStr(s(i, 0)).ToString)
|
||||
' g.FillRectangle(Brushes.Red, New Rectangle(x0 + xLeftBound, y0, 20, hoehe))
|
||||
g.FillRectangle(Brushes.Red, CoordRectangle(w, h, x0 + xLeftBound, y0 + 20, 20, hoehe))
|
||||
g.DrawString(CInt(s(i, 1)).ToString, New Font(p.Font.FontFamily, 8), Brushes.Black, CoordPoint(h, x0 + xLeftBound, 20 + hoehe + 15))
|
||||
g.DrawString(CStr(s(i, 0)).ToString, New Font(p.Font.FontFamily, 7), Brushes.Black, CoordPoint(h, x0 + xLeftBound, 15))
|
||||
|
||||
xLeftBound += 30
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Function getMax(s(,) As String) As Long
|
||||
Dim max As Long = 0
|
||||
For i = 0 To s.GetUpperBound(0) - 1
|
||||
If CLng(s(i, 1)) > max Then
|
||||
max = CLng(s(i, 1))
|
||||
End If
|
||||
Next
|
||||
Return max
|
||||
End Function
|
||||
Function CoordRectangle(w As Integer, h As Integer, x0 As Integer, y0 As Integer, x As Integer, y As Integer) As Rectangle
|
||||
' MsgBox(" x0: " & x0 & " y0: " & CStr(h - y0 - y) & " x: " & x & " y: " & y)
|
||||
Return New Rectangle(x0, h - y0 - y, x, y)
|
||||
End Function
|
||||
Function CoordPoint(h As Integer, x As Integer, y As Integer) As Point
|
||||
Return New Point(x, h - y)
|
||||
End Function
|
||||
|
||||
Private Sub frmStatFrima_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
initPnlStat()
|
||||
End Sub
|
||||
|
||||
Private Sub Label8_Click(sender As Object, e As EventArgs) Handles lblAnzLKWs.Click
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
666
Aviso/Auswertung/usrctStatistik.Designer.vb
generated
Normal file
666
Aviso/Auswertung/usrctStatistik.Designer.vb
generated
Normal file
@@ -0,0 +1,666 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrctStatistik
|
||||
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.Label1 = New System.Windows.Forms.Label()
|
||||
Me.lblWartezeit = New System.Windows.Forms.Label()
|
||||
Me.txtMin = New System.Windows.Forms.TextBox()
|
||||
Me.txtMax = New System.Windows.Forms.TextBox()
|
||||
Me.datStatBis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.datStatVon = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.txtAuswJahrDauerVon = New System.Windows.Forms.TextBox()
|
||||
Me.txtAuswJahrDauerBis = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.Panel6 = New System.Windows.Forms.Panel()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.cboArt = New System.Windows.Forms.ComboBox()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Button12 = New System.Windows.Forms.Button()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Panel5 = New System.Windows.Forms.Panel()
|
||||
Me.Button11 = New System.Windows.Forms.Button()
|
||||
Me.cboTag = New System.Windows.Forms.ComboBox()
|
||||
Me.txtdatVon = New System.Windows.Forms.DateTimePicker()
|
||||
Me.txtdatBis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.Panel7 = New System.Windows.Forms.Panel()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Label19 = New System.Windows.Forms.Label()
|
||||
Me.Panel8 = New System.Windows.Forms.Panel()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label20 = New System.Windows.Forms.Label()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.cboFirma = New System.Windows.Forms.ComboBox()
|
||||
Me.Label21 = New System.Windows.Forms.Label()
|
||||
Me.cboFirma2 = New System.Windows.Forms.ComboBox()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.Panel4.SuspendLayout()
|
||||
Me.Panel6.SuspendLayout()
|
||||
Me.Panel7.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(87, 74)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(137, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Durchschnitliche Wartezeit:"
|
||||
'
|
||||
'lblWartezeit
|
||||
'
|
||||
Me.lblWartezeit.AutoSize = True
|
||||
Me.lblWartezeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblWartezeit.Location = New System.Drawing.Point(230, 74)
|
||||
Me.lblWartezeit.Name = "lblWartezeit"
|
||||
Me.lblWartezeit.Size = New System.Drawing.Size(11, 13)
|
||||
Me.lblWartezeit.TabIndex = 1
|
||||
Me.lblWartezeit.Text = "-"
|
||||
'
|
||||
'txtMin
|
||||
'
|
||||
Me.txtMin.Location = New System.Drawing.Point(125, 38)
|
||||
Me.txtMin.Name = "txtMin"
|
||||
Me.txtMin.Size = New System.Drawing.Size(50, 20)
|
||||
Me.txtMin.TabIndex = 2
|
||||
Me.txtMin.Text = "0"
|
||||
'
|
||||
'txtMax
|
||||
'
|
||||
Me.txtMax.Location = New System.Drawing.Point(197, 38)
|
||||
Me.txtMax.Name = "txtMax"
|
||||
Me.txtMax.Size = New System.Drawing.Size(50, 20)
|
||||
Me.txtMax.TabIndex = 2
|
||||
Me.txtMax.Text = "9999"
|
||||
'
|
||||
'datStatBis
|
||||
'
|
||||
Me.datStatBis.Location = New System.Drawing.Point(197, 11)
|
||||
Me.datStatBis.Name = "datStatBis"
|
||||
Me.datStatBis.Size = New System.Drawing.Size(105, 20)
|
||||
Me.datStatBis.TabIndex = 7
|
||||
'
|
||||
'datStatVon
|
||||
'
|
||||
Me.datStatVon.Location = New System.Drawing.Point(70, 12)
|
||||
Me.datStatVon.Name = "datStatVon"
|
||||
Me.datStatVon.Size = New System.Drawing.Size(105, 20)
|
||||
Me.datStatVon.TabIndex = 8
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(3, 18)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(51, 13)
|
||||
Me.Label6.TabIndex = 6
|
||||
Me.Label6.Text = "Zeitraum:"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(6, 69)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 11
|
||||
Me.Button1.Text = "Berechnen"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Panel1.Controls.Add(Me.Label3)
|
||||
Me.Panel1.Location = New System.Drawing.Point(3, 27)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(670, 195)
|
||||
Me.Panel1.TabIndex = 12
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(573, 173)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(94, 13)
|
||||
Me.Label3.TabIndex = 21
|
||||
Me.Label3.Text = "(Werte in Minuten)"
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.Controls.Add(Me.Button3)
|
||||
Me.Panel2.Controls.Add(Me.Button2)
|
||||
Me.Panel2.Controls.Add(Me.Label8)
|
||||
Me.Panel2.Controls.Add(Me.Label7)
|
||||
Me.Panel2.Controls.Add(Me.txtAuswJahrDauerVon)
|
||||
Me.Panel2.Controls.Add(Me.txtAuswJahrDauerBis)
|
||||
Me.Panel2.Controls.Add(Me.Label2)
|
||||
Me.Panel2.Controls.Add(Me.Panel1)
|
||||
Me.Panel2.Location = New System.Drawing.Point(17, 169)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(701, 228)
|
||||
Me.Panel2.TabIndex = 13
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.Location = New System.Drawing.Point(609, 3)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(64, 23)
|
||||
Me.Button3.TabIndex = 21
|
||||
Me.Button3.Text = "Grafik"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.Location = New System.Drawing.Point(528, 3)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button2.TabIndex = 20
|
||||
Me.Button2.Text = "Berechnen"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Location = New System.Drawing.Point(278, 8)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(116, 13)
|
||||
Me.Label8.TabIndex = 15
|
||||
Me.Label8.Text = "Berücksichtigte Zeiten:"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(456, 8)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label7.TabIndex = 14
|
||||
Me.Label7.Text = "-"
|
||||
'
|
||||
'txtAuswJahrDauerVon
|
||||
'
|
||||
Me.txtAuswJahrDauerVon.Location = New System.Drawing.Point(400, 5)
|
||||
Me.txtAuswJahrDauerVon.Name = "txtAuswJahrDauerVon"
|
||||
Me.txtAuswJahrDauerVon.Size = New System.Drawing.Size(50, 20)
|
||||
Me.txtAuswJahrDauerVon.TabIndex = 17
|
||||
Me.txtAuswJahrDauerVon.Text = "0"
|
||||
'
|
||||
'txtAuswJahrDauerBis
|
||||
'
|
||||
Me.txtAuswJahrDauerBis.Location = New System.Drawing.Point(472, 5)
|
||||
Me.txtAuswJahrDauerBis.Name = "txtAuswJahrDauerBis"
|
||||
Me.txtAuswJahrDauerBis.Size = New System.Drawing.Size(50, 20)
|
||||
Me.txtAuswJahrDauerBis.TabIndex = 16
|
||||
Me.txtAuswJahrDauerBis.Text = "9999"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(3, 6)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(269, 13)
|
||||
Me.Label2.TabIndex = 14
|
||||
Me.Label2.Text = "Durchschnittliche Wartezeit - Jahresübersicht:"
|
||||
'
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.Controls.Add(Me.Label9)
|
||||
Me.Panel3.Controls.Add(Me.Panel4)
|
||||
Me.Panel3.Location = New System.Drawing.Point(17, 20)
|
||||
Me.Panel3.Name = "Panel3"
|
||||
Me.Panel3.Size = New System.Drawing.Size(701, 143)
|
||||
Me.Panel3.TabIndex = 14
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label9.Location = New System.Drawing.Point(3, 8)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(232, 13)
|
||||
Me.Label9.TabIndex = 18
|
||||
Me.Label9.Text = "Durchschnittliche Wartezeit berechnen:"
|
||||
'
|
||||
'Panel4
|
||||
'
|
||||
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Panel4.Controls.Add(Me.Label11)
|
||||
Me.Panel4.Controls.Add(Me.Label12)
|
||||
Me.Panel4.Controls.Add(Me.lblWartezeit)
|
||||
Me.Panel4.Controls.Add(Me.Label10)
|
||||
Me.Panel4.Controls.Add(Me.Label6)
|
||||
Me.Panel4.Controls.Add(Me.Label1)
|
||||
Me.Panel4.Controls.Add(Me.Button1)
|
||||
Me.Panel4.Controls.Add(Me.datStatBis)
|
||||
Me.Panel4.Controls.Add(Me.datStatVon)
|
||||
Me.Panel4.Controls.Add(Me.txtMin)
|
||||
Me.Panel4.Controls.Add(Me.txtMax)
|
||||
Me.Panel4.Location = New System.Drawing.Point(3, 24)
|
||||
Me.Panel4.Name = "Panel4"
|
||||
Me.Panel4.Size = New System.Drawing.Size(670, 109)
|
||||
Me.Panel4.TabIndex = 15
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Location = New System.Drawing.Point(3, 41)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(116, 13)
|
||||
Me.Label11.TabIndex = 19
|
||||
Me.Label11.Text = "Berücksichtigte Zeiten:"
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Location = New System.Drawing.Point(181, 41)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label12.TabIndex = 18
|
||||
Me.Label12.Text = "-"
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Location = New System.Drawing.Point(181, 17)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label10.TabIndex = 18
|
||||
Me.Label10.Text = "-"
|
||||
'
|
||||
'Panel6
|
||||
'
|
||||
Me.Panel6.Controls.Add(Me.Label17)
|
||||
Me.Panel6.Controls.Add(Me.cboFirma)
|
||||
Me.Panel6.Controls.Add(Me.Label15)
|
||||
Me.Panel6.Controls.Add(Me.cboArt)
|
||||
Me.Panel6.Controls.Add(Me.Label13)
|
||||
Me.Panel6.Controls.Add(Me.Label4)
|
||||
Me.Panel6.Controls.Add(Me.Button12)
|
||||
Me.Panel6.Controls.Add(Me.Label5)
|
||||
Me.Panel6.Controls.Add(Me.Panel5)
|
||||
Me.Panel6.Controls.Add(Me.Button11)
|
||||
Me.Panel6.Controls.Add(Me.cboTag)
|
||||
Me.Panel6.Controls.Add(Me.txtdatVon)
|
||||
Me.Panel6.Controls.Add(Me.txtdatBis)
|
||||
Me.Panel6.Controls.Add(Me.Label14)
|
||||
Me.Panel6.Location = New System.Drawing.Point(17, 403)
|
||||
Me.Panel6.Name = "Panel6"
|
||||
Me.Panel6.Size = New System.Drawing.Size(701, 237)
|
||||
Me.Panel6.TabIndex = 21
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.Location = New System.Drawing.Point(351, 5)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(23, 13)
|
||||
Me.Label15.TabIndex = 24
|
||||
Me.Label15.Text = "Art:"
|
||||
'
|
||||
'cboArt
|
||||
'
|
||||
Me.cboArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboArt.FormattingEnabled = True
|
||||
Me.cboArt.Items.AddRange(New Object() {"Ankunft", "Freigabe"})
|
||||
Me.cboArt.Location = New System.Drawing.Point(423, 2)
|
||||
Me.cboArt.Name = "cboArt"
|
||||
Me.cboArt.Size = New System.Drawing.Size(69, 21)
|
||||
Me.cboArt.TabIndex = 23
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Location = New System.Drawing.Point(351, 30)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(66, 13)
|
||||
Me.Label13.TabIndex = 22
|
||||
Me.Label13.Text = "Wochentag:"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(184, 30)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label4.TabIndex = 21
|
||||
Me.Label4.Text = "-"
|
||||
'
|
||||
'Button12
|
||||
'
|
||||
Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button12.Location = New System.Drawing.Point(588, 0)
|
||||
Me.Button12.Name = "Button12"
|
||||
Me.Button12.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button12.TabIndex = 14
|
||||
Me.Button12.Text = "Grafik"
|
||||
Me.Button12.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(6, 30)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(51, 13)
|
||||
Me.Label5.TabIndex = 20
|
||||
Me.Label5.Text = "Zeitraum:"
|
||||
'
|
||||
'Panel5
|
||||
'
|
||||
Me.Panel5.Location = New System.Drawing.Point(3, 53)
|
||||
Me.Panel5.Name = "Panel5"
|
||||
Me.Panel5.Size = New System.Drawing.Size(670, 175)
|
||||
Me.Panel5.TabIndex = 8
|
||||
'
|
||||
'Button11
|
||||
'
|
||||
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button11.Location = New System.Drawing.Point(567, 25)
|
||||
Me.Button11.Name = "Button11"
|
||||
Me.Button11.Size = New System.Drawing.Size(96, 23)
|
||||
Me.Button11.TabIndex = 7
|
||||
Me.Button11.Text = "Auswertung"
|
||||
Me.Button11.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cboTag
|
||||
'
|
||||
Me.cboTag.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboTag.FormattingEnabled = True
|
||||
Me.cboTag.Items.AddRange(New Object() {"So", "Mo", "Di", "Mi", "Do", "Fr", "Sa"})
|
||||
Me.cboTag.Location = New System.Drawing.Point(423, 27)
|
||||
Me.cboTag.Name = "cboTag"
|
||||
Me.cboTag.Size = New System.Drawing.Size(69, 21)
|
||||
Me.cboTag.TabIndex = 10
|
||||
'
|
||||
'txtdatVon
|
||||
'
|
||||
Me.txtdatVon.Location = New System.Drawing.Point(73, 27)
|
||||
Me.txtdatVon.Name = "txtdatVon"
|
||||
Me.txtdatVon.Size = New System.Drawing.Size(105, 20)
|
||||
Me.txtdatVon.TabIndex = 11
|
||||
'
|
||||
'txtdatBis
|
||||
'
|
||||
Me.txtdatBis.Location = New System.Drawing.Point(200, 27)
|
||||
Me.txtdatBis.Name = "txtdatBis"
|
||||
Me.txtdatBis.Size = New System.Drawing.Size(105, 20)
|
||||
Me.txtdatBis.TabIndex = 12
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.AutoSize = True
|
||||
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label14.Location = New System.Drawing.Point(3, 6)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(176, 13)
|
||||
Me.Label14.TabIndex = 14
|
||||
Me.Label14.Text = "Tages- / Stundenauswertung:"
|
||||
'
|
||||
'Panel7
|
||||
'
|
||||
Me.Panel7.Controls.Add(Me.Label21)
|
||||
Me.Panel7.Controls.Add(Me.Label16)
|
||||
Me.Panel7.Controls.Add(Me.cboFirma2)
|
||||
Me.Panel7.Controls.Add(Me.ComboBox1)
|
||||
Me.Panel7.Controls.Add(Me.Label18)
|
||||
Me.Panel7.Controls.Add(Me.Button4)
|
||||
Me.Panel7.Controls.Add(Me.Label19)
|
||||
Me.Panel7.Controls.Add(Me.Panel8)
|
||||
Me.Panel7.Controls.Add(Me.Button5)
|
||||
Me.Panel7.Controls.Add(Me.DateTimePicker1)
|
||||
Me.Panel7.Controls.Add(Me.DateTimePicker2)
|
||||
Me.Panel7.Controls.Add(Me.Label20)
|
||||
Me.Panel7.Location = New System.Drawing.Point(17, 646)
|
||||
Me.Panel7.Name = "Panel7"
|
||||
Me.Panel7.Size = New System.Drawing.Size(701, 237)
|
||||
Me.Panel7.TabIndex = 25
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Location = New System.Drawing.Point(351, 5)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(23, 13)
|
||||
Me.Label16.TabIndex = 24
|
||||
Me.Label16.Text = "Art:"
|
||||
'
|
||||
'ComboBox1
|
||||
'
|
||||
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.Items.AddRange(New Object() {"Ankunft", "Freigabe"})
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(423, 2)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(69, 21)
|
||||
Me.ComboBox1.TabIndex = 23
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.AutoSize = True
|
||||
Me.Label18.Location = New System.Drawing.Point(184, 30)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label18.TabIndex = 21
|
||||
Me.Label18.Text = "-"
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button4.Location = New System.Drawing.Point(588, 0)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button4.TabIndex = 14
|
||||
Me.Button4.Text = "Grafik"
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label19
|
||||
'
|
||||
Me.Label19.AutoSize = True
|
||||
Me.Label19.Location = New System.Drawing.Point(6, 30)
|
||||
Me.Label19.Name = "Label19"
|
||||
Me.Label19.Size = New System.Drawing.Size(51, 13)
|
||||
Me.Label19.TabIndex = 20
|
||||
Me.Label19.Text = "Zeitraum:"
|
||||
'
|
||||
'Panel8
|
||||
'
|
||||
Me.Panel8.Location = New System.Drawing.Point(3, 53)
|
||||
Me.Panel8.Name = "Panel8"
|
||||
Me.Panel8.Size = New System.Drawing.Size(670, 175)
|
||||
Me.Panel8.TabIndex = 8
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Location = New System.Drawing.Point(567, 25)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(96, 23)
|
||||
Me.Button5.TabIndex = 7
|
||||
Me.Button5.Text = "Auswertung"
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'DateTimePicker1
|
||||
'
|
||||
Me.DateTimePicker1.Location = New System.Drawing.Point(73, 27)
|
||||
Me.DateTimePicker1.Name = "DateTimePicker1"
|
||||
Me.DateTimePicker1.Size = New System.Drawing.Size(105, 20)
|
||||
Me.DateTimePicker1.TabIndex = 11
|
||||
'
|
||||
'DateTimePicker2
|
||||
'
|
||||
Me.DateTimePicker2.Location = New System.Drawing.Point(200, 27)
|
||||
Me.DateTimePicker2.Name = "DateTimePicker2"
|
||||
Me.DateTimePicker2.Size = New System.Drawing.Size(105, 20)
|
||||
Me.DateTimePicker2.TabIndex = 12
|
||||
'
|
||||
'Label20
|
||||
'
|
||||
Me.Label20.AutoSize = True
|
||||
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label20.Location = New System.Drawing.Point(3, 6)
|
||||
Me.Label20.Name = "Label20"
|
||||
Me.Label20.Size = New System.Drawing.Size(111, 13)
|
||||
Me.Label20.TabIndex = 14
|
||||
Me.Label20.Text = "Tagesauswertung:"
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.Location = New System.Drawing.Point(197, 5)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(35, 13)
|
||||
Me.Label17.TabIndex = 26
|
||||
Me.Label17.Text = "Firma:"
|
||||
'
|
||||
'cboFirma
|
||||
'
|
||||
Me.cboFirma.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboFirma.FormattingEnabled = True
|
||||
Me.cboFirma.Items.AddRange(New Object() {"VERAG", "ATILLA", "IMEX"})
|
||||
Me.cboFirma.Location = New System.Drawing.Point(236, 2)
|
||||
Me.cboFirma.Name = "cboFirma"
|
||||
Me.cboFirma.Size = New System.Drawing.Size(69, 21)
|
||||
Me.cboFirma.TabIndex = 25
|
||||
'
|
||||
'Label21
|
||||
'
|
||||
Me.Label21.AutoSize = True
|
||||
Me.Label21.Location = New System.Drawing.Point(197, 5)
|
||||
Me.Label21.Name = "Label21"
|
||||
Me.Label21.Size = New System.Drawing.Size(35, 13)
|
||||
Me.Label21.TabIndex = 28
|
||||
Me.Label21.Text = "Firma:"
|
||||
'
|
||||
'cboFirma2
|
||||
'
|
||||
Me.cboFirma2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboFirma2.FormattingEnabled = True
|
||||
Me.cboFirma2.Items.AddRange(New Object() {"VERAG", "ATILLA", "IMEX"})
|
||||
Me.cboFirma2.Location = New System.Drawing.Point(236, 2)
|
||||
Me.cboFirma2.Name = "cboFirma2"
|
||||
Me.cboFirma2.Size = New System.Drawing.Size(69, 21)
|
||||
Me.cboFirma2.TabIndex = 27
|
||||
'
|
||||
'usrctStatistik
|
||||
'
|
||||
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.Panel7)
|
||||
Me.Controls.Add(Me.Panel6)
|
||||
Me.Controls.Add(Me.Panel3)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Name = "usrctStatistik"
|
||||
Me.Size = New System.Drawing.Size(742, 959)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel2.PerformLayout()
|
||||
Me.Panel3.ResumeLayout(False)
|
||||
Me.Panel3.PerformLayout()
|
||||
Me.Panel4.ResumeLayout(False)
|
||||
Me.Panel4.PerformLayout()
|
||||
Me.Panel6.ResumeLayout(False)
|
||||
Me.Panel6.PerformLayout()
|
||||
Me.Panel7.ResumeLayout(False)
|
||||
Me.Panel7.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents lblWartezeit As System.Windows.Forms.Label
|
||||
Friend WithEvents txtMin As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtMax As System.Windows.Forms.TextBox
|
||||
Friend WithEvents datStatBis As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents datStatVon As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtAuswJahrDauerVon As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtAuswJahrDauerBis As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel4 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label12 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel6 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button12 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel5 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Button11 As System.Windows.Forms.Button
|
||||
Friend WithEvents cboTag As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents txtdatVon As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents txtdatBis As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents Label14 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label13 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label15 As System.Windows.Forms.Label
|
||||
Friend WithEvents cboArt As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents Panel7 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label16 As System.Windows.Forms.Label
|
||||
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label18 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button4 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label19 As System.Windows.Forms.Label
|
||||
Friend WithEvents Panel8 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents Label20 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label17 As Label
|
||||
Friend WithEvents cboFirma As ComboBox
|
||||
Friend WithEvents Label21 As Label
|
||||
Friend WithEvents cboFirma2 As ComboBox
|
||||
End Class
|
||||
120
Aviso/Auswertung/usrctStatistik.resx
Normal file
120
Aviso/Auswertung/usrctStatistik.resx
Normal 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>
|
||||
262
Aviso/Auswertung/usrctStatistik.vb
Normal file
262
Aviso/Auswertung/usrctStatistik.vb
Normal file
@@ -0,0 +1,262 @@
|
||||
Imports Gemeinsames
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrctStatistik
|
||||
Dim SQL As New Statistik
|
||||
|
||||
Dim cProgramFunctions As New cProgramFunctions
|
||||
Dim year As Integer = Now.Year
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
lblWartezeit.Text = CStr(SQL.getAVG(CDate(datStatVon.Value.ToShortDateString), CDate(datStatBis.Value.ToShortDateString), txtMin.Text, txtMax.Text)) & " min"
|
||||
End Sub
|
||||
|
||||
Private Sub usrctStatistik_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
datStatVon.Format = DateTimePickerFormat.Short
|
||||
datStatBis.Format = DateTimePickerFormat.Short
|
||||
' Button2.PerformClick()
|
||||
cboArt.SelectedIndex = 0
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
|
||||
Dim g As Graphics = e.Graphics
|
||||
g.Clear(Color.FromArgb(245, 245, 245))
|
||||
Dim p As Panel = DirectCast(sender, Panel)
|
||||
'Jahre:
|
||||
Dim topbound = 10
|
||||
For i = 2013 To Now.Year
|
||||
Dim b As New Button
|
||||
b.Left = p.Width - 100
|
||||
b.Width = 90
|
||||
b.Top = topbound
|
||||
topbound += 25
|
||||
b.Text = CStr(i)
|
||||
p.Controls.Add(b)
|
||||
b.FlatStyle = FlatStyle.Flat
|
||||
AddHandler b.Click, AddressOf changeYear
|
||||
Next
|
||||
|
||||
' End Sub
|
||||
'
|
||||
' Private Sub initJahresDurchschnitt(sender As Object, e As PaintEventArgs)
|
||||
'Dim g As Graphics = e.Graphics
|
||||
' g.Clear(Color.FromArgb(230, 230, 230))
|
||||
' Dim p As Panel = DirectCast(sender, Panel)
|
||||
|
||||
|
||||
Dim y0 As Integer = 0
|
||||
Dim x0 As Integer = 0
|
||||
Dim yMax As Integer = p.Height - 50
|
||||
Dim xMax As Integer = p.Width
|
||||
|
||||
Dim h As Integer = p.Height
|
||||
Dim w As Integer = p.Width
|
||||
|
||||
'Koordinatensystem von links unten:
|
||||
' e.Graphics.ScaleTransform(1.0F, -1.0F)
|
||||
' e.Graphics.TranslateTransform(0, -p.ClientRectangle.Height)
|
||||
|
||||
' g.FillRectangle(Brushes.Red, CoordRectangle(w, h, 50, 50, 10, 10))
|
||||
'Dim s(10, 2) As String
|
||||
'Dim s As String()()
|
||||
Dim s(12, 2) As String
|
||||
|
||||
For i = 0 To 11
|
||||
Dim d As New Date(year, i + 1, 1)
|
||||
s(i, 0) = d.ToString("MMM")
|
||||
s(i, 1) = CStr(SQL.getAVG(d, d.AddMonths(1).AddDays(-1), txtAuswJahrDauerVon.Text, txtAuswJahrDauerBis.Text))
|
||||
' MsgBox(s(i, 0) & " - " & s(i, 1))
|
||||
Next
|
||||
Dim sMax As Long = getMax(s)
|
||||
|
||||
Dim xLeftBound As Integer = 0
|
||||
For i = 0 To s.GetUpperBound(0) - 1
|
||||
Dim hoehe = 0
|
||||
If sMax > 0 Then hoehe = CInt(yMax * (CLng(s(i, 1)) * 100 / sMax) / 100)
|
||||
' MsgBox(hoehe)
|
||||
' g.FillRectangle(Brushes.Red, New Rectangle(x0 + xLeftBound, y0, 20, hoehe))
|
||||
g.FillRectangle(Brushes.Red, CoordRectangle(w, h, x0 + xLeftBound, y0 + 20, 20, hoehe))
|
||||
g.DrawString(CInt(s(i, 1)).ToString, p.Font, Brushes.Black, CoordPoint(h, x0 + xLeftBound, 20 + hoehe + 15))
|
||||
g.DrawString(CStr(s(i, 0)).ToString, p.Font, Brushes.Black, CoordPoint(h, x0 + xLeftBound, 15))
|
||||
xLeftBound += 30
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub changeYear(sender As Object, e As EventArgs)
|
||||
year = CInt(DirectCast(sender, Button).Text)
|
||||
Panel1_Paint(Panel1, New PaintEventArgs(Panel1.CreateGraphics, Panel1.ClientRectangle))
|
||||
End Sub
|
||||
Function CoordRectangle(w As Integer, h As Integer, x0 As Integer, y0 As Integer, x As Integer, y As Integer) As Rectangle
|
||||
' MsgBox(" x0: " & x0 & " y0: " & CStr(h - y0 - y) & " x: " & x & " y: " & y)
|
||||
Return New Rectangle(x0, h - y0 - y, x, y)
|
||||
End Function
|
||||
Function CoordPoint(h As Integer, x As Integer, y As Integer) As Point
|
||||
Return New Point(x, h - y)
|
||||
End Function
|
||||
|
||||
Private Sub txtAuswJahrDauer_TextChanged(sender As Object, e As EventArgs)
|
||||
Panel1_Paint(Panel1, New PaintEventArgs(Panel1.CreateGraphics, Panel1.ClientRectangle))
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub AuswertungWoToag(sender As Object, e As EventArgs) Handles Button11.Click, cboTag.SelectedIndexChanged
|
||||
Dim s(17, 2) As String
|
||||
Dim t As String = Button11.Text
|
||||
Dim datVon As Date = CDate(txtdatVon.Value)
|
||||
Dim datBis As Date = CDate(txtdatBis.Value)
|
||||
|
||||
Dim TESTgesLKWs = 0
|
||||
Dim TESTgesLKWs2 = 0
|
||||
Dim SQLstat As New StatDB
|
||||
Dim c As Integer = 0
|
||||
|
||||
Dim art = ""
|
||||
If cboArt.SelectedIndex = 0 Then art = "Ankunft"
|
||||
If cboArt.SelectedIndex = 1 Then art = "Freigabe"
|
||||
|
||||
For i = 6 To 22
|
||||
Dim cnt As Integer = 0
|
||||
Dim gesLKWs As Integer = 0
|
||||
|
||||
Dim datTmp As Date = datVon
|
||||
While datTmp <= datBis
|
||||
If datTmp.DayOfWeek = cboTag.SelectedIndex Then
|
||||
gesLKWs += SQLstat.getAnzahlLkwAnkunft(art, datTmp, i, cboFirma.Text)
|
||||
cnt += 1
|
||||
End If
|
||||
datTmp = datTmp.AddDays(1)
|
||||
End While
|
||||
|
||||
s(c, 0) = i & ":00"
|
||||
If gesLKWs > 0 And cnt > 0 Then
|
||||
s(c, 1) = CStr(CInt(gesLKWs / cnt))
|
||||
Else
|
||||
s(c, 1) = CStr(0)
|
||||
End If
|
||||
c += 1
|
||||
Next
|
||||
StatAuswertungWoToag(s)
|
||||
Button11.Text = t
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub StatAuswertungWoToag(s(,) As String) 'Handles Panel1.Paint
|
||||
Dim g As Graphics = Panel5.CreateGraphics
|
||||
g.Clear(Color.FromArgb(245, 245, 245))
|
||||
Dim p As Panel = Panel5
|
||||
'Jahre:
|
||||
Dim topbound = 10
|
||||
|
||||
|
||||
|
||||
|
||||
Dim y0 As Integer = 0
|
||||
Dim x0 As Integer = 0
|
||||
Dim yMax As Integer = p.Height - 50
|
||||
Dim xMax As Integer = p.Width
|
||||
|
||||
Dim h As Integer = p.Height
|
||||
Dim w As Integer = p.Width
|
||||
|
||||
|
||||
|
||||
' MsgBox(s(i, 0) & " - " & s(i, 1))
|
||||
|
||||
Dim sMax As Long = getMax(s)
|
||||
|
||||
Dim xLeftBound As Integer = 0
|
||||
For i = 0 To s.GetUpperBound(0) - 1
|
||||
Dim hoehe = 0
|
||||
If sMax > 0 Then hoehe = CInt(yMax * (CLng(s(i, 1)) * 100 / sMax) / 100)
|
||||
' MsgBox(hoehe)
|
||||
' g.FillRectangle(Brushes.Red, New Rectangle(x0 + xLeftBound, y0, 20, hoehe))
|
||||
g.FillRectangle(Brushes.Red, CoordRectangle(w, h, x0 + xLeftBound, y0 + 20, 20, hoehe))
|
||||
g.DrawString(CInt(s(i, 1)).ToString, p.Font, Brushes.Black, CoordPoint(h, x0 + xLeftBound, 20 + hoehe + 15))
|
||||
g.DrawString(CStr(s(i, 0)).ToString, p.Font, Brushes.Black, CoordPoint(h, x0 + xLeftBound, 15))
|
||||
xLeftBound += 30
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Function getMax(s(,) As String) As Long
|
||||
Dim max As Long = 0
|
||||
For i = 0 To s.GetUpperBound(0) - 1
|
||||
If CLng(s(i, 1)) > max Then
|
||||
max = CLng(s(i, 1))
|
||||
End If
|
||||
Next
|
||||
Return max
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub AuswertungWoToag2(sender As Object, e As EventArgs) Handles Button5.Click ', cboTag.SelectedIndexChanged
|
||||
Exit Sub
|
||||
Dim s(17, 2) As String
|
||||
Dim t As String = Button5.Text
|
||||
Dim datVon As Date = CDate(txtdatVon.Value)
|
||||
Dim datBis As Date = CDate(txtdatBis.Value)
|
||||
|
||||
Dim TESTgesLKWs = 0
|
||||
Dim TESTgesLKWs2 = 0
|
||||
Dim SQLstat As New StatDB
|
||||
Dim c As Integer = 0
|
||||
|
||||
Dim art = ""
|
||||
If cboArt.SelectedIndex = 0 Then art = "Ankunft"
|
||||
If cboArt.SelectedIndex = 1 Then art = "Freigabe"
|
||||
If cboArt.SelectedIndex = 1 Then art = "Erfasst" 'asdasdasd
|
||||
|
||||
For i = 0 To 6
|
||||
Dim cnt As Integer = 0
|
||||
Dim gesLKWs As Integer = 0
|
||||
|
||||
Dim datTmp As Date = datVon
|
||||
While datTmp <= datBis
|
||||
If datTmp.DayOfWeek = cboTag.SelectedIndex Then
|
||||
gesLKWs += SQLstat.getAnzahlLkwAnkunft(art, datTmp, i, cboFirma2.Text)
|
||||
cnt += 1
|
||||
End If
|
||||
datTmp = datTmp.AddDays(1)
|
||||
End While
|
||||
|
||||
s(c, 0) = i & ":00"
|
||||
If gesLKWs > 0 And cnt > 0 Then
|
||||
s(c, 1) = CStr(CInt(gesLKWs / cnt))
|
||||
Else
|
||||
s(c, 1) = CStr(0)
|
||||
End If
|
||||
c += 1
|
||||
Next
|
||||
StatAuswertungWoToag(s)
|
||||
Button5.Text = t
|
||||
End Sub
|
||||
|
||||
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
|
||||
|
||||
Dim i As Image = cProgramFunctions.TakeScreenShot(Panel5)
|
||||
If Not My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\") Then
|
||||
My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\")
|
||||
End If
|
||||
|
||||
Dim s As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\Stat_" & cboTag.Text & "_" & txtdatVon.Value.ToShortDateString & "_" & txtdatBis.Value.ToShortDateString & " .png"
|
||||
i.Save(s, Drawing.Imaging.ImageFormat.Png)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
|
||||
Dim i As Image = cProgramFunctions.TakeScreenShot(Panel1)
|
||||
If Not My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\") Then
|
||||
My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\")
|
||||
End If
|
||||
|
||||
Dim s As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\STAT\Stat_" & cboTag.Text & "_" & txtdatVon.Value.ToShortDateString & "_" & txtdatBis.Value.ToShortDateString & " .png"
|
||||
i.Save(s, Drawing.Imaging.ImageFormat.Png)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
1135
Aviso/Auswertung/usrctlAuswertung.Designer.vb
generated
Normal file
1135
Aviso/Auswertung/usrctlAuswertung.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
120
Aviso/Auswertung/usrctlAuswertung.resx
Normal file
120
Aviso/Auswertung/usrctlAuswertung.resx
Normal 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>
|
||||
451
Aviso/Auswertung/usrctlAuswertung.vb
Normal file
451
Aviso/Auswertung/usrctlAuswertung.vb
Normal file
@@ -0,0 +1,451 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
||||
|
||||
|
||||
Public Class usrctlAuswertung
|
||||
Dim SQL As New Statistik
|
||||
Dim grid_Aktiv As Boolean = False
|
||||
Dim Firmen As New cFirmenDAL
|
||||
Dim Auswahl_Standort As String = ""
|
||||
|
||||
Private Sub usrctlStatistik_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
txtCntVon.Text = "5"
|
||||
DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
initFilter()
|
||||
initStat()
|
||||
grid_Aktiv = True
|
||||
showFirmen()
|
||||
End Sub
|
||||
|
||||
Sub initStat()
|
||||
datStatVon.Format = DateTimePickerFormat.Short
|
||||
datStatBis.Format = DateTimePickerFormat.Short
|
||||
cboSrchAuftrFraecht.SelectedIndex = 0
|
||||
End Sub
|
||||
Sub initFilter()
|
||||
'AuswahlCombos mit Daten befüllen
|
||||
cboFirma.DataSource = Firmen.Anzeigen_cboFirmen("")
|
||||
cboFirma.DisplayMember = "Firma"
|
||||
cboFirma.ValueMember = "FirmaID"
|
||||
|
||||
'Vorschlagswerte setzen
|
||||
optKunde.Checked = True
|
||||
optAlle.Checked = True
|
||||
' optAnkunft.Checked = frmMain.optAnkunft.Checked
|
||||
' optErfasst.Checked = frmMain.optErfasst.Checked
|
||||
' optFreigegeben.Checked = frmMain.optFreigegeben.Checked
|
||||
' optNichtEingetroffen.Checked = frmMain.optNichtEingetroffen.Checked
|
||||
|
||||
dtpAvisoVon.Value = frmHauptfenster.dtpVon.Value
|
||||
dtpAvisoBis.Value = frmHauptfenster.dtpBis.Value
|
||||
dtpAnkunftVon.Value = frmHauptfenster.dtpVon.Value
|
||||
dtpAnkunftBis.Value = frmHauptfenster.dtpBis.Value
|
||||
dtpFreigabeVon.Value = frmHauptfenster.dtpVon.Value
|
||||
dtpFreigabeBis.Value = frmHauptfenster.dtpBis.Value
|
||||
txtMonat.Text = Now.Month.ToString
|
||||
txtJahr.Text = Now.Year.ToString
|
||||
optDatumAviso.Checked = True
|
||||
|
||||
Select Case frmHauptfenster.lblGrenzstelle.Text
|
||||
Case "SUB" : optSUB.Checked = True
|
||||
Case "SBG" : optSBG.Checked = True
|
||||
Case "NKD" : optNKD.Checked = True
|
||||
Case "WAI" : optWAI.Checked = True
|
||||
Case Else : optStandortAlle.Checked = True
|
||||
End Select
|
||||
|
||||
cboFirma.Text = ""
|
||||
optFirmaBeides.Checked = True
|
||||
|
||||
txtStdVon.Text = "0"
|
||||
txtStdBis.Text = "10"
|
||||
|
||||
' If cGlobal.AktiverMitarbeiter.Sicherheitsstufe > 0 Then
|
||||
'optIntern.Visible = False
|
||||
' End If
|
||||
|
||||
End Sub
|
||||
Sub showFirmen()
|
||||
If grid_Aktiv Then
|
||||
|
||||
Dim srch As String = cboSrchAuftrFraecht.Text.Replace("Avisierer", "Auftraggeber")
|
||||
Dim sqlstr As String = "select COUNT(" & srch & ")as cnt, " & srch & ", AVG(Dauer)as av, MIN(Dauer)as minimum,max(Dauer)as maximum from Aviso "
|
||||
|
||||
'WHERE
|
||||
Dim where As String = ""
|
||||
Dim where_and As String = ""
|
||||
If txtSearch.Text.Trim <> "" Then where = " " & srch & " LIKE '%" & txtSearch.Text & "%' " : where_and = " AND "
|
||||
If cbxStatVon.Checked Then where &= where_and & " Datum >= '" & datStatVon.Value.ToShortDateString & "' " : where_and = " AND "
|
||||
If cbxStatBis.Checked Then where &= where_and & " Datum <= '" & datStatBis.Value.ToShortDateString & "' " : where_and = " AND "
|
||||
|
||||
If IsNumeric(txtDauerVon.Text) And txtDauerVon.Text.Trim <> "" Then where &= where_and & " Dauer >= '" & txtDauerVon.Text & "' " : where_and = " AND "
|
||||
If IsNumeric(txtDauerBis.Text) And txtDauerBis.Text.Trim <> "" Then where &= where_and & " Dauer <= '" & txtDauerBis.Text & "' " : where_and = " AND "
|
||||
|
||||
|
||||
If where <> "" Then sqlstr &= "WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND ( " & where & " ) "
|
||||
sqlstr &= " GROUP BY " & srch & " "
|
||||
Dim having As String = ""
|
||||
Dim having_and As String = ""
|
||||
If txtCntVon.Text <> "" Then having = " COUNT(" & srch & ") >= " & txtCntVon.Text & " " : having_and = " AND "
|
||||
If txtCntBis.Text <> "" Then having &= having_and & " COUNT(" & srch & ") <= " & txtCntBis.Text & " "
|
||||
If having <> "" Then sqlstr &= " HAVING " & having
|
||||
sqlstr &= " ORDER BY AV DESC "
|
||||
|
||||
DataGridView1.DataSource = SQL.getKunden(sqlstr)
|
||||
setColumnsFirmen()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub setColumnsFirmen()
|
||||
With DataGridView1
|
||||
.RowTemplate.Height = 20
|
||||
.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
|
||||
.AllowUserToAddRows = False
|
||||
.AllowUserToDeleteRows = False
|
||||
.AllowUserToOrderColumns = False
|
||||
.AllowUserToResizeColumns = True
|
||||
.AllowUserToResizeRows = False
|
||||
'.RowTemplate.ReadOnly = True
|
||||
.RowHeadersVisible = False
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.MultiSelect = False
|
||||
.ReadOnly = True
|
||||
|
||||
.Columns(0).Width = 70
|
||||
.Columns(0).HeaderText = "Frequenz"
|
||||
|
||||
.Columns(1).Width = 300
|
||||
|
||||
.Columns(2).Width = 150
|
||||
.Columns(2).HeaderText = "Durchschnittliche Wartezeit (min)"
|
||||
|
||||
.Columns(3).Width = 150
|
||||
.Columns(3).HeaderText = "Schnellste Abfertigung (min)"
|
||||
|
||||
.Columns(4).Width = 150
|
||||
.Columns(4).HeaderText = "Langsamste Abfertigung (min)"
|
||||
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged, txtCntVon.TextChanged, txtCntBis.TextChanged, txtDauerVon.TextChanged, txtDauerBis.TextChanged
|
||||
showFirmen()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub frmAuswahl_Aviso_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs)
|
||||
'Escape händisch abfangen und auf Abbruch-Taste legen
|
||||
If e.KeyCode = Keys.Escape Then
|
||||
btnAbbruch.PerformClick()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
|
||||
'Fenster schließen
|
||||
'Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtMitarbeiter.GotFocus, txtLKW_Nr.GotFocus, txtFrächter.GotFocus, txtAuftraggeber.GotFocus, txtMonat.GotFocus, txtJahr.GotFocus
|
||||
CType(sender, TextBox).SelectAll()
|
||||
End Sub
|
||||
|
||||
Private Sub txtZahl_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtStdVon.KeyPress, txtStdBis.KeyPress, txtMonat.KeyPress, txtJahr.KeyPress
|
||||
'Es sind nur Zahleneingaben erlaubt
|
||||
Dim asc As Integer = Convert.ToInt32(e.KeyChar)
|
||||
Select Case asc
|
||||
'Folgende Tasten sind erlaubt
|
||||
'8 = Rücktaste (Back)
|
||||
'13 = Enter
|
||||
'27 = Esc
|
||||
'48 To 57 = 0 bis 9
|
||||
Case 8, 13, 27, 48 To 57
|
||||
Case Else
|
||||
e.Handled = True
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub btnDruck_Click(sender As System.Object, e As System.EventArgs) Handles btnDruck.Click
|
||||
|
||||
'Logische Prüfungen vor dem Drucken
|
||||
If optDatumAnkunft.Checked Then
|
||||
If dtpAnkunftBis.Value.Date < dtpAnkunftVon.Value.Date Then
|
||||
MsgBox("Ankunft-Bis-Datum darf nicht kleiner sein als Von-Datum.", vbInformation)
|
||||
dtpAnkunftVon.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
If optDatumAviso.Checked Then
|
||||
If dtpAvisoBis.Value.Date < dtpAvisoVon.Value.Date Then
|
||||
MsgBox("Aviso-Eingang-Bis-Datum darf nicht kleiner sein als Von-Datum.", vbInformation)
|
||||
dtpAvisoVon.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
If optDatumFreigabe.Checked Then
|
||||
If dtpFreigabeBis.Value.Date < dtpFreigabeVon.Value.Date Then
|
||||
MsgBox("Freigabe-Bis-Datum darf nicht kleiner sein als Von-Datum.", vbInformation)
|
||||
dtpFreigabeVon.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
If optMonatJahr.Checked Then
|
||||
Dim Monat As Integer = VarToInt(txtMonat.Text.Trim)
|
||||
If Monat < 1 Or Monat > 12 Then
|
||||
MsgBox("Monat muss zwischen 1 und 12 liegen.", vbInformation)
|
||||
txtMonat.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
Dim Jahr As Integer = VarToInt(txtJahr.Text.Trim)
|
||||
If Jahr < 2014 Or Jahr > Now.Year Then
|
||||
MsgBox("Jahr muss zwischen 2014 und " & Now.Year.ToString & " liegen.", vbInformation)
|
||||
txtJahr.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
If optFreigegeben.Checked Then
|
||||
If VarToInt(txtStdVon.Text) > VarToInt(txtStdBis.Text) Then
|
||||
MsgBox("Dauer-Bis darf nicht kleiner sein als Dauer-Von.", vbInformation)
|
||||
txtStdVon.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
'alles OK --> Report starten
|
||||
ActiveReportAnzeigen()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ActiveReportAnzeigen()
|
||||
|
||||
'Zusammenbau der SQL-Abfrage und der Auswahlinfo für den Druck
|
||||
Dim hSQL As String = "SELECT * FROM Aviso WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND "
|
||||
Dim hAuswahl As String = "Auswahl: "
|
||||
|
||||
|
||||
If optDatumAnkunft.Checked Then
|
||||
hSQL += "Ankunft >= " & SQLDatum(dtpAnkunftVon.Value.Date) & " AND Ankunft <= " & SQLDatum(dtpAnkunftBis.Value.Date.AddDays(1))
|
||||
hAuswahl += "Ankunftsdatum von " & Format(dtpAnkunftVon.Value, "dd.MM.yyyy") & " bis " & Format(dtpAnkunftBis.Value, "dd.MM.yyyy") & "; "
|
||||
ElseIf optDatumFreigabe.Checked Then
|
||||
hSQL += "Freigabe >= " & SQLDatum(dtpFreigabeVon.Value.Date) & " AND Freigabe <= " & SQLDatum(dtpFreigabeBis.Value.Date.AddDays(1))
|
||||
hAuswahl += "Freigabedatum von " & Format(dtpFreigabeVon.Value, "dd.MM.yyyy") & " bis " & Format(dtpFreigabeBis.Value, "dd.MM.yyyy") & "; "
|
||||
ElseIf optDatumAviso.Checked Then
|
||||
hSQL += "Datum >= " & SQLDatum(dtpAvisoVon.Value.Date) & " AND Datum <= " & SQLDatum(dtpAvisoBis.Value.Date.AddDays(1))
|
||||
hAuswahl += "Aviso-Eingang von " & Format(dtpAvisoVon.Value, "dd.MM.yyyy") & " bis " & Format(dtpAvisoBis.Value, "dd.MM.yyyy") & "; "
|
||||
Else
|
||||
hAuswahl += "Monat: " & txtMonat.Text & "/" & txtJahr.Text
|
||||
Dim hVon As Date = DateSerial(VarToInt(txtJahr.Text), VarToInt(txtMonat.Text), 1)
|
||||
Dim hBis As Date = hVon.AddMonths(1)
|
||||
|
||||
hSQL += "((Datum >= " & SQLDatum(hVon) & " AND Datum <= " & SQLDatum(hBis) & ") OR " &
|
||||
"(Ankunft >= " & SQLDatum(hVon) & " AND Ankunft <= " & SQLDatum(hBis) & ") OR " &
|
||||
"(Freigabe >= " & SQLDatum(hVon) & " AND Freigabe <= " & SQLDatum(hBis) & ")) "
|
||||
End If
|
||||
|
||||
If optAlle.Checked Then
|
||||
hAuswahl += "Status=alle; "
|
||||
ElseIf optErfasst.Checked Then
|
||||
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst.ToString
|
||||
hAuswahl += "Status=erfasst; "
|
||||
ElseIf optNichtEingetroffen.Checked Then
|
||||
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen.ToString
|
||||
hAuswahl += "Status=LKW n.e.; "
|
||||
ElseIf optAnkunft.Checked Then
|
||||
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft.ToString
|
||||
hAuswahl += "Status=Ankunft; "
|
||||
ElseIf optFreigegeben.Checked Then
|
||||
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben.ToString
|
||||
hAuswahl += "Status=freigegeben; "
|
||||
End If
|
||||
|
||||
If optSUB.Checked Then
|
||||
hAuswahl += "Standort=Suben; "
|
||||
Auswahl_Standort = "SUB"
|
||||
ElseIf optSBG.Checked Then
|
||||
hAuswahl += "Standort=Salzburg; "
|
||||
Auswahl_Standort = "SBG"
|
||||
ElseIf optNKD.Checked Then
|
||||
hAuswahl += "Standort=Nickelsdorf; "
|
||||
Auswahl_Standort = "NKD"
|
||||
ElseIf optWAI.Checked Then
|
||||
hAuswahl += "Standort=Waidhaus; "
|
||||
Auswahl_Standort = "WAI"
|
||||
Else
|
||||
hAuswahl += "Standort=Alle; "
|
||||
Auswahl_Standort = ""
|
||||
End If
|
||||
|
||||
If Auswahl_Standort <> "" Then hSQL += " AND Grenzstelle = '" & Auswahl_Standort & "' "
|
||||
|
||||
If cboFirma.Text <> "" Then
|
||||
hAuswahl = "Firma " & cboFirma.Text
|
||||
If optFirmaBeides.Checked Then
|
||||
hAuswahl = " (Frächter+Auftraggeber); "
|
||||
hSQL += " AND (Frächter = '" & cboFirma.Text & "' OR Auftraggeber = '" & cboFirma.Text & "')"
|
||||
ElseIf optFrächter.Checked Then
|
||||
hAuswahl = " (Frächter); "
|
||||
hSQL += " AND Frächter = '" & cboFirma.Text & "'"
|
||||
ElseIf optAuftraggeber.Checked Then
|
||||
hAuswahl = " (Auftraggeber); "
|
||||
hSQL += " AND Auftraggeber = '" & cboFirma.Text & "'"
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim hStern As String = ""
|
||||
If txtLKW_Nr.Text.Trim <> "" Then
|
||||
hStern += "LKW_Nr LIKE '%" & txtLKW_Nr.Text.Trim & "%'"
|
||||
hAuswahl += "LKW-Nr=*" & txtLKW_Nr.Text.Trim & "*; "
|
||||
End If
|
||||
If txtFrächter.Text.Trim <> "" Then
|
||||
If hStern <> "" Then hStern += " OR "
|
||||
hStern += "Frächter LIKE '%" & txtFrächter.Text.Trim & "%'"
|
||||
hAuswahl += "Frächter=*" & txtFrächter.Text.Trim & "*; "
|
||||
End If
|
||||
If txtAuftraggeber.Text.Trim <> "" Then
|
||||
If hStern <> "" Then hStern += " OR "
|
||||
hStern += "Auftraggeber LIKE '%" & txtAuftraggeber.Text.Trim & "%'"
|
||||
hAuswahl += "Auftraggeber=*" & txtAuftraggeber.Text.Trim & "*; "
|
||||
End If
|
||||
If txtMitarbeiter.Text.Trim <> "" Then
|
||||
If hStern <> "" Then hStern += " OR "
|
||||
hStern += "LetzterMitarbeiter LIKE '%" & txtMitarbeiter.Text.Trim & "%'"
|
||||
hAuswahl += "Mitarbeiter=*" & txtMitarbeiter.Text.Trim & "*; "
|
||||
End If
|
||||
If hStern <> "" Then
|
||||
hStern = "(" & hStern & ")"
|
||||
hSQL += " AND " & hStern
|
||||
End If
|
||||
|
||||
If optFreigegeben.Checked Then
|
||||
'bei Freigabe auch die Dauer mitprüfen
|
||||
hSQL += " AND Dauer >= " & (VarToInt(txtStdVon.Text) * 60).ToString & " AND Dauer <= " & (VarToInt(txtStdBis.Text) * 60)
|
||||
hAuswahl += "Dauer: " & txtStdVon.Text.Trim & " - " & txtStdBis.Text.Trim & " Std."
|
||||
End If
|
||||
|
||||
'jetzt die Sortierung festlegen
|
||||
If optAnkunft.Checked Then
|
||||
hSQL += " ORDER BY Ankunft"
|
||||
ElseIf optFreigegeben.Checked Then
|
||||
hSQL += " ORDER BY Freigabe"
|
||||
Else
|
||||
hSQL += " ORDER BY Datum"
|
||||
End If
|
||||
|
||||
''nachsehen, ob Frächter speziell ausgewählt wurde
|
||||
'Dim hFrächter As String = ""
|
||||
'If txtFrächter.Text.Trim <> "" Then
|
||||
' If txtFrächter.Text.Contains("*") Then
|
||||
' hFrächter = ""
|
||||
' Else
|
||||
' hFrächter = txtFrächter.Text.Trim
|
||||
' End If
|
||||
'End If
|
||||
'If hFrächter = "" Then
|
||||
' If txtAuftraggeber.Text.Trim <> "" Then
|
||||
' If txtAuftraggeber.Text.Contains("*") Then
|
||||
' hFrächter = ""
|
||||
' Else
|
||||
' hFrächter = txtAuftraggeber.Text.Trim
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
Dim f As New cStatFunctions
|
||||
f.showReport(hAuswahl, hSQL, optIntern.Checked, cboFirma.Text, Auswahl_Standort)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub btnDatum_Click(sender As System.Object, e As System.EventArgs) Handles btnLfdMonat.Click, btnLfdJahr.Click, btnVormonat.Click
|
||||
|
||||
Dim Monatsanfang As Date = DateSerial(Now.Year, Now.Month, 1)
|
||||
|
||||
If sender Is btnLfdMonat Then
|
||||
'laufenden Monat überall vorschlagen
|
||||
dtpAvisoVon.Value = Monatsanfang
|
||||
dtpAvisoBis.Value = Now.Date
|
||||
dtpAnkunftVon.Value = Monatsanfang
|
||||
dtpAnkunftBis.Value = Now.Date
|
||||
dtpFreigabeVon.Value = Monatsanfang
|
||||
dtpFreigabeBis.Value = Now.Date
|
||||
txtMonat.Text = Now.Month.ToString
|
||||
txtJahr.Text = Now.Year.ToString
|
||||
End If
|
||||
|
||||
If sender Is btnVormonat Then
|
||||
'Vormonat überall vorschlagen
|
||||
dtpAvisoVon.Value = Monatsanfang.AddMonths(-1)
|
||||
dtpAvisoBis.Value = Monatsanfang.AddDays(-1)
|
||||
dtpAnkunftVon.Value = Monatsanfang.AddMonths(-1)
|
||||
dtpAnkunftBis.Value = Monatsanfang.AddDays(-1)
|
||||
dtpFreigabeVon.Value = Monatsanfang.AddMonths(-1)
|
||||
dtpFreigabeBis.Value = Monatsanfang.AddDays(-1)
|
||||
txtMonat.Text = dtpAvisoVon.Value.Month.ToString
|
||||
txtJahr.Text = dtpAvisoVon.Value.Year.ToString
|
||||
End If
|
||||
|
||||
If sender Is btnLfdJahr Then
|
||||
'Vormonat überall vorschlagen
|
||||
dtpAvisoVon.Value = DateSerial(Now.Year, 1, 1)
|
||||
dtpAvisoBis.Value = Now.Date
|
||||
dtpAnkunftVon.Value = DateSerial(Now.Year, 1, 1)
|
||||
dtpAnkunftBis.Value = Now.Date
|
||||
dtpFreigabeVon.Value = DateSerial(Now.Year, 1, 1)
|
||||
dtpFreigabeBis.Value = Now.Date
|
||||
txtMonat.Text = dtpAvisoVon.Value.Month.ToString
|
||||
txtJahr.Text = dtpAvisoVon.Value.Year.ToString
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
|
||||
If e.RowIndex >= 0 Then
|
||||
frmStatFrima.auftrFraecht = CStr(DataGridView1.CurrentRow.Cells(1).Value)
|
||||
frmStatFrima.srch = cboSrchAuftrFraecht.Text.Replace("Avisierer", "Auftraggeber")
|
||||
If cbxStatVon.Checked Then frmStatFrima.StatVon = datStatVon.Value.ToShortDateString
|
||||
If cbxStatBis.Checked Then frmStatFrima.StatBis = datStatBis.Value.ToShortDateString
|
||||
If IsNumeric(txtDauerVon.Text) Then frmStatFrima.DauerVon = txtDauerVon.Text
|
||||
If IsNumeric(txtDauerBis.Text) Then frmStatFrima.DauerBis = txtDauerBis.Text
|
||||
frmStatFrima.firma = CStr(DataGridView1.CurrentRow.Cells(1).Value)
|
||||
frmStatFrima.lblAnzLKWs.Text = CStr(DataGridView1.CurrentRow.Cells(0).Value)
|
||||
frmStatFrima.lblDurchschnSZ.Text = CStr(DataGridView1.CurrentRow.Cells(2).Value) & " min"
|
||||
frmStatFrima.lblMinWZ.Text = CStr(DataGridView1.CurrentRow.Cells(3).Value) & " min"
|
||||
frmStatFrima.lblMaxWZ.Text = CStr(DataGridView1.CurrentRow.Cells(4).Value) & " min"
|
||||
frmStatFrima.Show()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
showFirmen()
|
||||
End Sub
|
||||
|
||||
Private Sub cbxStatVon_CheckedChanged(sender As Object, e As EventArgs) Handles cbxStatVon.CheckedChanged
|
||||
datStatVon.Enabled = cbxStatVon.Checked
|
||||
showFirmen()
|
||||
End Sub
|
||||
Private Sub cbxStatBis_CheckedChanged(sender As Object, e As EventArgs) Handles cbxStatBis.CheckedChanged#
|
||||
datStatBis.Enabled = cbxStatBis.Checked
|
||||
showFirmen()
|
||||
End Sub
|
||||
|
||||
Private Sub datStatVon_ValueChanged(sender As Object, e As EventArgs) Handles datStatVon.ValueChanged, datStatBis.ValueChanged
|
||||
showFirmen()
|
||||
End Sub
|
||||
|
||||
Private Sub cboSrchAuftrFraecht_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSrchAuftrFraecht.SelectedIndexChanged
|
||||
showFirmen()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
192
Aviso/Auswertung/usrctlMAUebersicht.Designer.vb
generated
Normal file
192
Aviso/Auswertung/usrctlMAUebersicht.Designer.vb
generated
Normal file
@@ -0,0 +1,192 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrctlMAUebersicht
|
||||
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.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.datStatBis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.datStatVon = New System.Windows.Forms.DateTimePicker()
|
||||
Me.txtMin = New System.Windows.Forms.TextBox()
|
||||
Me.txtMax = New System.Windows.Forms.TextBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
|
||||
Me.clmnId = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnAvg = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnCount = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Location = New System.Drawing.Point(593, 80)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(200, 266)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Location = New System.Drawing.Point(24, 58)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(116, 13)
|
||||
Me.Label11.TabIndex = 27
|
||||
Me.Label11.Text = "Berücksichtigte Zeiten:"
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Location = New System.Drawing.Point(202, 58)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label12.TabIndex = 25
|
||||
Me.Label12.Text = "-"
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Location = New System.Drawing.Point(202, 34)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(10, 13)
|
||||
Me.Label10.TabIndex = 26
|
||||
Me.Label10.Text = "-"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(24, 35)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(51, 13)
|
||||
Me.Label6.TabIndex = 22
|
||||
Me.Label6.Text = "Zeitraum:"
|
||||
'
|
||||
'datStatBis
|
||||
'
|
||||
Me.datStatBis.Location = New System.Drawing.Point(218, 28)
|
||||
Me.datStatBis.Name = "datStatBis"
|
||||
Me.datStatBis.Size = New System.Drawing.Size(105, 20)
|
||||
Me.datStatBis.TabIndex = 23
|
||||
'
|
||||
'datStatVon
|
||||
'
|
||||
Me.datStatVon.Location = New System.Drawing.Point(91, 29)
|
||||
Me.datStatVon.Name = "datStatVon"
|
||||
Me.datStatVon.Size = New System.Drawing.Size(105, 20)
|
||||
Me.datStatVon.TabIndex = 24
|
||||
'
|
||||
'txtMin
|
||||
'
|
||||
Me.txtMin.Location = New System.Drawing.Point(146, 55)
|
||||
Me.txtMin.Name = "txtMin"
|
||||
Me.txtMin.Size = New System.Drawing.Size(50, 20)
|
||||
Me.txtMin.TabIndex = 20
|
||||
Me.txtMin.Text = "0"
|
||||
'
|
||||
'txtMax
|
||||
'
|
||||
Me.txtMax.Location = New System.Drawing.Point(218, 55)
|
||||
Me.txtMax.Name = "txtMax"
|
||||
Me.txtMax.Size = New System.Drawing.Size(50, 20)
|
||||
Me.txtMax.TabIndex = 21
|
||||
Me.txtMax.Text = "9999"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(247, 55)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 28
|
||||
Me.Button1.Text = "Button1"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'DataGridView1
|
||||
'
|
||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnId, Me.clmnName, Me.clmnAvg, Me.clmnCount})
|
||||
Me.DataGridView1.Location = New System.Drawing.Point(27, 106)
|
||||
Me.DataGridView1.Name = "DataGridView1"
|
||||
Me.DataGridView1.Size = New System.Drawing.Size(502, 404)
|
||||
Me.DataGridView1.TabIndex = 29
|
||||
'
|
||||
'clmnId
|
||||
'
|
||||
Me.clmnId.HeaderText = "id"
|
||||
Me.clmnId.Name = "clmnId"
|
||||
'
|
||||
'clmnName
|
||||
'
|
||||
Me.clmnName.HeaderText = "Name"
|
||||
Me.clmnName.Name = "clmnName"
|
||||
'
|
||||
'clmnAvg
|
||||
'
|
||||
Me.clmnAvg.HeaderText = "Durchschnittliche Wartezeit"
|
||||
Me.clmnAvg.Name = "clmnAvg"
|
||||
'
|
||||
'clmnCount
|
||||
'
|
||||
Me.clmnCount.HeaderText = "Anzahl"
|
||||
Me.clmnCount.Name = "clmnCount"
|
||||
'
|
||||
'usrctlMAUebersicht
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.DataGridView1)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Label11)
|
||||
Me.Controls.Add(Me.Label12)
|
||||
Me.Controls.Add(Me.Label10)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.datStatBis)
|
||||
Me.Controls.Add(Me.datStatVon)
|
||||
Me.Controls.Add(Me.txtMin)
|
||||
Me.Controls.Add(Me.txtMax)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Name = "usrctlMAUebersicht"
|
||||
Me.Size = New System.Drawing.Size(844, 510)
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label12 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents datStatBis As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents datStatVon As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents txtMin As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtMax As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
|
||||
Friend WithEvents clmnId As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents clmnName As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents clmnAvg As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
Friend WithEvents clmnCount As System.Windows.Forms.DataGridViewTextBoxColumn
|
||||
|
||||
End Class
|
||||
132
Aviso/Auswertung/usrctlMAUebersicht.resx
Normal file
132
Aviso/Auswertung/usrctlMAUebersicht.resx
Normal file
@@ -0,0 +1,132 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="clmnId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnAvg.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnCount.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
</root>
|
||||
99
Aviso/Auswertung/usrctlMAUebersicht.vb
Normal file
99
Aviso/Auswertung/usrctlMAUebersicht.vb
Normal file
@@ -0,0 +1,99 @@
|
||||
Imports Gemeinsames
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrctlMAUebersicht
|
||||
|
||||
|
||||
Dim SQL As New Statistik
|
||||
|
||||
Sub init()
|
||||
DataGridView1.Rows.Clear()
|
||||
DataGridView1.Columns(0).Visible = False
|
||||
Dim listMaAVG As List(Of listMaAVG) = SQL.getAVGMa(CDate(datStatVon.Value.ToShortDateString), CDate(datStatBis.Value.ToShortDateString), txtMin.Text, txtMax.Text)
|
||||
If Not listMaAVG Is Nothing Then
|
||||
For Each l In listMaAVG
|
||||
DataGridView1.Rows.Add(l.mit_id, l.mit_name, l.mit_avg, l.mit_count)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Paint() 'sender As Object, e As PaintEventArgs) Handles Panel1.Paint
|
||||
Panel1.Controls.Clear()
|
||||
|
||||
|
||||
Dim t As New TableLayoutPanel
|
||||
Panel1.Controls.Add(t)
|
||||
Panel1.Width = 800
|
||||
Panel1.Height = 500
|
||||
Panel1.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
|
||||
|
||||
|
||||
t.Width = 800
|
||||
t.CellBorderStyle = TableLayoutPanelCellBorderStyle.Single
|
||||
|
||||
t.AutoScroll = True
|
||||
t.AutoSize = True
|
||||
t.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||
|
||||
|
||||
t.Dock = DockStyle.Fill
|
||||
|
||||
t.Controls.Clear()
|
||||
t.ColumnStyles.Clear()
|
||||
t.RowStyles.Clear()
|
||||
|
||||
t.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 30))
|
||||
t.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 70))
|
||||
t.ColumnCount = 2
|
||||
|
||||
Dim l1 As New Label
|
||||
l1.Text = "Mitarbeiter"
|
||||
Dim l2 As New Label
|
||||
l2.Text = "In Bearbeitung"
|
||||
t.Controls.Add(l1, 0, 0)
|
||||
t.Controls.Add(l2, 1, 0)
|
||||
t.Controls.Add(l2, 1, 0)
|
||||
|
||||
Dim listMaAVG As List(Of listMaAVG) = SQL.getAVGMa(CDate(datStatVon.Value.ToShortDateString), CDate(datStatBis.Value.ToShortDateString), txtMin.Text, txtMax.Text)
|
||||
|
||||
|
||||
Dim i As Integer = 0
|
||||
If Not listMaAVG Is Nothing Then
|
||||
For Each l In listMaAVG
|
||||
t.RowStyles.Add(New RowStyle(SizeType.AutoSize, 70))
|
||||
|
||||
'MsgBox("Test" & l.mit_name)
|
||||
Dim p_left As New Panel
|
||||
Dim p_right As New Panel
|
||||
p_left.Dock = DockStyle.Fill
|
||||
p_right.Dock = DockStyle.Fill
|
||||
p_left.AutoSize = True '.Height = 20
|
||||
p_right.AutoSize = True '#.Height = 20
|
||||
|
||||
't.RowCount = 2
|
||||
|
||||
Dim l3 As New Label
|
||||
l3.Text = l.mit_name
|
||||
Dim l4 As New Label
|
||||
l4.Text = CStr(l.mit_avg) & " min"
|
||||
p_left.Controls.Add(l3)
|
||||
p_right.Controls.Add(l4)
|
||||
|
||||
|
||||
|
||||
t.Controls.Add(p_left, 0, i + 1)
|
||||
t.Controls.Add(p_right, 1, i + 1)
|
||||
i += 1
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub usrctlMAUebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
init()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
init()
|
||||
End Sub
|
||||
End Class
|
||||
1061
Aviso/Aviso.vbproj
Normal file
1061
Aviso/Aviso.vbproj
Normal file
File diff suppressed because it is too large
Load Diff
182
Aviso/Barcode.vb
Normal file
182
Aviso/Barcode.vb
Normal file
@@ -0,0 +1,182 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Imaging
|
||||
Imports System.Drawing.Bitmap
|
||||
Imports System.Drawing.Graphics
|
||||
Imports System.IO
|
||||
Imports GrapeCity.ActiveReports.Document.Section
|
||||
|
||||
Partial Public Class Barcode
|
||||
|
||||
Private _encoding As Hashtable = New Hashtable
|
||||
Private Const _wideBarWidth As Short = 4
|
||||
Private Const _narrowBarWidth As Short = 1
|
||||
Private Const _barHeight As Short = 25
|
||||
|
||||
'Private Const _wideBarWidth As Short = 4
|
||||
' Private Const _narrowBarWidth As Short = 1
|
||||
' Private Const _barHeight As Short = 50
|
||||
|
||||
Sub BarcodeCode39()
|
||||
_encoding.Add("*", "bWbwBwBwb")
|
||||
_encoding.Add("-", "bWbwbwBwB")
|
||||
_encoding.Add("$", "bWbWbWbwb")
|
||||
_encoding.Add("%", "bwbWbWbWb")
|
||||
_encoding.Add(" ", "bWBwbwBwb")
|
||||
_encoding.Add(".", "BWbwbwBwb")
|
||||
_encoding.Add("/", "bWbWbwbWb")
|
||||
_encoding.Add("+", "bWbwbWbWb")
|
||||
_encoding.Add("0", "bwbWBwBwb")
|
||||
_encoding.Add("1", "BwbWbwbwB")
|
||||
_encoding.Add("2", "bwBWbwbwB")
|
||||
_encoding.Add("3", "BwBWbwbwb")
|
||||
_encoding.Add("4", "bwbWBwbwB")
|
||||
_encoding.Add("5", "BwbWBwbwb")
|
||||
_encoding.Add("6", "bwBWBwbwb")
|
||||
_encoding.Add("7", "bwbWbwBwB")
|
||||
_encoding.Add("8", "BwbWbwBwb")
|
||||
_encoding.Add("9", "bwBWbwBwb")
|
||||
_encoding.Add("A", "BwbwbWbwB")
|
||||
_encoding.Add("B", "bwBwbWbwB")
|
||||
_encoding.Add("C", "BwBwbWbwb")
|
||||
_encoding.Add("D", "bwbwBWbwB")
|
||||
_encoding.Add("E", "BwbwBWbwb")
|
||||
_encoding.Add("F", "bwBwBWbwb")
|
||||
_encoding.Add("G", "bwbwbWBwB")
|
||||
_encoding.Add("H", "BwbwbWBwb")
|
||||
_encoding.Add("I", "bwBwbWBwb")
|
||||
_encoding.Add("J", "bwbwBWBwb")
|
||||
_encoding.Add("K", "BwbwbwbWB")
|
||||
_encoding.Add("L", "bwBwbwbWB")
|
||||
_encoding.Add("M", "BwBwbwbWb")
|
||||
_encoding.Add("N", "bwbwBwbWB")
|
||||
_encoding.Add("O", "BwbwBwbWb")
|
||||
_encoding.Add("P", "bwBwBwbWb")
|
||||
_encoding.Add("Q", "bwbwbwBWB")
|
||||
_encoding.Add("R", "BwbwbwBWb")
|
||||
_encoding.Add("S", "bwBwbwBWb")
|
||||
_encoding.Add("T", "bwbwBwBWb")
|
||||
_encoding.Add("U", "BWbwbwbwB")
|
||||
_encoding.Add("V", "bWBwbwbwB")
|
||||
_encoding.Add("W", "BWBwbwbwb")
|
||||
_encoding.Add("X", "bWbwBwbwB")
|
||||
_encoding.Add("Y", "BWbwBwbwb")
|
||||
_encoding.Add("Z", "bWBwBwbwb")
|
||||
End Sub
|
||||
|
||||
' Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
' BarcodeCode39()
|
||||
' Dim barcode As String = String.Empty
|
||||
'If Not IsNothing(Request("barcode")) AndAlso Not (Request("barcode").Length = 0) Then
|
||||
' barcode = Request("barcode")
|
||||
'barcode = "132456"
|
||||
'Response.ContentType = "image/png"
|
||||
'Response.AddHeader("Content-Disposition", String.Format("attachment; filename=barcode_{0}.png", barcode))
|
||||
|
||||
'TODO: Depending on the length of the string, determine how wide the image will be
|
||||
'GenerateBarcodeImage(250, 140, barcode).WriteTo(Response.OutputStream)
|
||||
' End If
|
||||
' End Sub
|
||||
|
||||
Protected Function getBCSymbolColor(ByVal symbol As String) As System.Drawing.Brush
|
||||
getBCSymbolColor = Brushes.Black
|
||||
If symbol = "W" Or symbol = "w" Then
|
||||
getBCSymbolColor = Brushes.White
|
||||
End If
|
||||
End Function
|
||||
|
||||
Protected Function getBCSymbolWidth(ByVal symbol As String) As Short
|
||||
getBCSymbolWidth = _narrowBarWidth
|
||||
If symbol = "B" Or symbol = "W" Then
|
||||
getBCSymbolWidth = _wideBarWidth
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Overridable Function GenerateBarcodeImage(ByVal imageWidth As Short, ByVal imageHeight As Short, ByVal Code As String) As Bitmap
|
||||
' MsgBox("o")
|
||||
BarcodeCode39()
|
||||
'create a new bitmap
|
||||
Dim b As New Bitmap(imageWidth, imageHeight, Imaging.PixelFormat.Format32bppArgb)
|
||||
|
||||
'create a canvas to paint on
|
||||
Dim canvas As New Rectangle(0, 0, imageWidth, imageHeight)
|
||||
|
||||
'draw a white background
|
||||
Dim g As Graphics = Graphics.FromImage(b)
|
||||
g.FillRectangle(Brushes.White, 0, 0, imageWidth, imageHeight)
|
||||
|
||||
'write the unaltered code at the bottom
|
||||
'TODO: truely center this text
|
||||
Dim textBrush As New SolidBrush(Color.Black)
|
||||
g.DrawString(Code, New Font("Courier New", 12), textBrush, 100, 110)
|
||||
|
||||
'Code has to be surrounded by asterisks to make it a valid Code39 barcode
|
||||
Dim UseCode As String = String.Format("{0}{1}{0}", "*", Code)
|
||||
|
||||
'Start drawing at 10, 10
|
||||
Dim XPosition As Short = 10
|
||||
Dim YPosition As Short = 10
|
||||
|
||||
Dim invalidCharacter As Boolean = False
|
||||
Dim CurrentSymbol As String = String.Empty
|
||||
' MsgBox("1o")
|
||||
For j As Short = 0 To CShort(UseCode.Length - 1)
|
||||
CurrentSymbol = UseCode.Substring(j, 1)
|
||||
'check if symbol can be used
|
||||
If Not IsNothing(_encoding(CurrentSymbol)) Then
|
||||
Dim EncodedSymbol As String = _encoding(CurrentSymbol).ToString
|
||||
|
||||
For i As Short = 0 To CShort(EncodedSymbol.Length - 1)
|
||||
Dim CurrentCode As String = EncodedSymbol.Substring(i, 1)
|
||||
g.FillRectangle(getBCSymbolColor(CurrentCode), XPosition, YPosition, getBCSymbolWidth(CurrentCode), _barHeight)
|
||||
XPosition = XPosition + getBCSymbolWidth(CurrentCode)
|
||||
Next
|
||||
|
||||
'After each written full symbol we need a whitespace (narrow width)
|
||||
g.FillRectangle(getBCSymbolColor("w"), XPosition, YPosition, getBCSymbolWidth("w"), _barHeight)
|
||||
XPosition = XPosition + getBCSymbolWidth("w")
|
||||
Else
|
||||
invalidCharacter = True
|
||||
End If
|
||||
Next
|
||||
|
||||
'errorhandling when an invalidcharacter is found
|
||||
If invalidCharacter Then
|
||||
g.FillRectangle(Brushes.White, 0, 0, imageWidth, imageHeight)
|
||||
g.DrawString("Invalid characters found,", New Font("Courier New", 8), textBrush, 0, 0)
|
||||
g.DrawString("no barcode generated", New Font("Courier New", 8), textBrush, 0, 10)
|
||||
g.DrawString("Input was: ", New Font("Courier New", 8), textBrush, 0, 30)
|
||||
g.DrawString(Code, New Font("Courier New", 8), textBrush, 0, 40)
|
||||
End If
|
||||
|
||||
'write the image into a memorystream
|
||||
If False Then
|
||||
|
||||
Dim ms As New MemoryStream
|
||||
|
||||
Dim encodingParams As New EncoderParameters
|
||||
encodingParams.Param(0) = New EncoderParameter(Encoder.Quality, 100)
|
||||
|
||||
Dim encodingInfo As ImageCodecInfo = FindCodecInfo("PNG")
|
||||
|
||||
b.Save(ms, encodingInfo, encodingParams)
|
||||
|
||||
'dispose of the object we won't need any more
|
||||
g.Dispose()
|
||||
b.Dispose()
|
||||
|
||||
End If
|
||||
g.Dispose()
|
||||
Return b
|
||||
End Function
|
||||
|
||||
Protected Overridable Function FindCodecInfo(ByVal codec As String) As ImageCodecInfo
|
||||
Dim encoders As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders
|
||||
For Each e As ImageCodecInfo In encoders
|
||||
If e.FormatDescription.Equals(codec) Then Return e
|
||||
Next
|
||||
Return Nothing
|
||||
End Function
|
||||
End Class
|
||||
146
Aviso/Barcode/Code128Content.vb
Normal file
146
Aviso/Barcode/Code128Content.vb
Normal file
@@ -0,0 +1,146 @@
|
||||
#Region " Class "
|
||||
|
||||
#Region " Enums "
|
||||
|
||||
Public Enum CodeSetAllowed
|
||||
CodeA
|
||||
CodeB
|
||||
CodeAorB
|
||||
End Enum
|
||||
|
||||
Public Enum CodeSet
|
||||
CodeA
|
||||
CodeB
|
||||
End Enum
|
||||
|
||||
#End Region
|
||||
|
||||
Public Class Code128Content
|
||||
Private mCodeList As Integer()
|
||||
|
||||
Public Sub New(ByVal AsciiData As String)
|
||||
mCodeList = StringToCode128(AsciiData)
|
||||
End Sub
|
||||
|
||||
Public ReadOnly Property Codes() As Integer()
|
||||
Get
|
||||
Return mCodeList
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private Function StringToCode128(ByVal AsciiData As String) As Integer()
|
||||
|
||||
Dim asciiBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(AsciiData)
|
||||
|
||||
Dim csa1 As CodeSetAllowed = If(asciiBytes.Length > 0, Code128Code.CodesetAllowedForChar(asciiBytes(0)), CodeSetAllowed.CodeAorB)
|
||||
Dim csa2 As CodeSetAllowed = If(asciiBytes.Length > 0, Code128Code.CodesetAllowedForChar(asciiBytes(1)), CodeSetAllowed.CodeAorB)
|
||||
Dim currcs As CodeSet = GetBestStartSet(csa1, csa2)
|
||||
|
||||
Dim codes As New List(Of Integer)(asciiBytes.Length + 3)
|
||||
codes.Add(Code128Code.StartCodeForCodeSet(currcs))
|
||||
|
||||
For i As Integer = 0 To asciiBytes.Length - 1
|
||||
Dim thischar As Integer = asciiBytes(i)
|
||||
Dim nextchar As Integer = If(asciiBytes.Length > (i + 1), asciiBytes(i + 1), -1)
|
||||
|
||||
codes.AddRange(Code128Code.CodesForChar(thischar, nextchar, currcs))
|
||||
Next
|
||||
|
||||
Dim checksum As Integer = CInt(codes(0))
|
||||
For i As Integer = 1 To codes.Count - 1
|
||||
checksum += i * CInt(codes(i))
|
||||
Next
|
||||
|
||||
codes.Add(checksum Mod 103)
|
||||
codes.Add(Code128Code.StopCode())
|
||||
|
||||
Return codes.ToArray
|
||||
End Function
|
||||
|
||||
Private Function GetBestStartSet(ByVal csa1 As CodeSetAllowed, ByVal csa2 As CodeSetAllowed) As CodeSet
|
||||
Dim vote As Integer = 0
|
||||
|
||||
vote += If((csa1 = CodeSetAllowed.CodeA), 1, 0)
|
||||
vote += If((csa1 = CodeSetAllowed.CodeB), -1, 0)
|
||||
vote += If((csa2 = CodeSetAllowed.CodeA), 1, 0)
|
||||
vote += If((csa2 = CodeSetAllowed.CodeB), -1, 0)
|
||||
|
||||
Return If((vote > 0), CodeSet.CodeA, CodeSet.CodeB)
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Public NotInheritable Class Code128Code
|
||||
|
||||
#Region "Constants"
|
||||
|
||||
Private Const cSHIFT As Integer = 98
|
||||
Private Const cCODEA As Integer = 101
|
||||
Private Const cCODEB As Integer = 100
|
||||
|
||||
Private Const cSTARTA As Integer = 103
|
||||
Private Const cSTARTB As Integer = 104
|
||||
Private Const cSTOP As Integer = 106
|
||||
|
||||
#End Region
|
||||
|
||||
Public Shared Function CodesForChar(ByVal CharAscii As Integer, ByVal LookAheadAscii As Integer, ByRef CurrCodeSet As CodeSet) As Integer()
|
||||
Dim result As Integer()
|
||||
Dim shifter As Integer = -1
|
||||
|
||||
If Not CharCompatibleWithCodeset(CharAscii, CurrCodeSet) Then
|
||||
If (LookAheadAscii <> -1) AndAlso Not CharCompatibleWithCodeset(LookAheadAscii, CurrCodeSet) Then
|
||||
Select Case CurrCodeSet
|
||||
Case CodeSet.CodeA
|
||||
shifter = cCODEB
|
||||
CurrCodeSet = CodeSet.CodeB
|
||||
Exit Select
|
||||
Case CodeSet.CodeB
|
||||
shifter = cCODEA
|
||||
CurrCodeSet = CodeSet.CodeA
|
||||
Exit Select
|
||||
End Select
|
||||
Else
|
||||
shifter = cSHIFT
|
||||
End If
|
||||
End If
|
||||
|
||||
If shifter <> -1 Then
|
||||
result = New Integer(1) {}
|
||||
result(0) = shifter
|
||||
result(1) = CodeValueForChar(CharAscii)
|
||||
Else
|
||||
result = New Integer(0) {}
|
||||
result(0) = CodeValueForChar(CharAscii)
|
||||
End If
|
||||
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Public Shared Function CodesetAllowedForChar(ByVal CharAscii As Integer) As CodeSetAllowed
|
||||
If CharAscii >= 32 AndAlso CharAscii <= 95 Then
|
||||
Return CodeSetAllowed.CodeAorB
|
||||
Else
|
||||
Return If((CharAscii < 32), CodeSetAllowed.CodeA, CodeSetAllowed.CodeB)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Shared Function CharCompatibleWithCodeset(ByVal CharAscii As Integer, ByVal currcs As CodeSet) As Boolean
|
||||
Dim csa As CodeSetAllowed = CodesetAllowedForChar(CharAscii)
|
||||
Return csa = CodeSetAllowed.CodeAorB OrElse (csa = CodeSetAllowed.CodeA AndAlso currcs = CodeSet.CodeA) OrElse (csa = CodeSetAllowed.CodeB AndAlso currcs = CodeSet.CodeB)
|
||||
End Function
|
||||
|
||||
Public Shared Function CodeValueForChar(ByVal CharAscii As Integer) As Integer
|
||||
Return If((CharAscii >= 32), CharAscii - 32, CharAscii + 64)
|
||||
End Function
|
||||
|
||||
Public Shared Function StartCodeForCodeSet(ByVal cs As CodeSet) As Integer
|
||||
Return If(cs = CodeSet.CodeA, cSTARTA, cSTARTB)
|
||||
End Function
|
||||
|
||||
Public Shared Function StopCode() As Integer
|
||||
Return cSTOP
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
#End Region
|
||||
180
Aviso/Barcode/Code128Rendering.vb
Normal file
180
Aviso/Barcode/Code128Rendering.vb
Normal file
@@ -0,0 +1,180 @@
|
||||
Imports System.Drawing
|
||||
Imports System.Diagnostics
|
||||
|
||||
Public NotInheritable Class Code128Rendering
|
||||
|
||||
#Region "Code patterns"
|
||||
Private Shared ReadOnly cPatterns As Integer(,) = {{2, 1, 2, 2, 2, 2, _
|
||||
0, 0}, {2, 2, 2, 1, 2, 2, _
|
||||
0, 0}, {2, 2, 2, 2, 2, 1, _
|
||||
0, 0}, {1, 2, 1, 2, 2, 3, _
|
||||
0, 0}, {1, 2, 1, 3, 2, 2, _
|
||||
0, 0}, {1, 3, 1, 2, 2, 2, _
|
||||
0, 0}, _
|
||||
{1, 2, 2, 2, 1, 3, _
|
||||
0, 0}, {1, 2, 2, 3, 1, 2, _
|
||||
0, 0}, {1, 3, 2, 2, 1, 2, _
|
||||
0, 0}, {2, 2, 1, 2, 1, 3, _
|
||||
0, 0}, {2, 2, 1, 3, 1, 2, _
|
||||
0, 0}, {2, 3, 1, 2, 1, 2, _
|
||||
0, 0}, _
|
||||
{1, 1, 2, 2, 3, 2, _
|
||||
0, 0}, {1, 2, 2, 1, 3, 2, _
|
||||
0, 0}, {1, 2, 2, 2, 3, 1, _
|
||||
0, 0}, {1, 1, 3, 2, 2, 2, _
|
||||
0, 0}, {1, 2, 3, 1, 2, 2, _
|
||||
0, 0}, {1, 2, 3, 2, 2, 1, _
|
||||
0, 0}, _
|
||||
{2, 2, 3, 2, 1, 1, _
|
||||
0, 0}, {2, 2, 1, 1, 3, 2, _
|
||||
0, 0}, {2, 2, 1, 2, 3, 1, _
|
||||
0, 0}, {2, 1, 3, 2, 1, 2, _
|
||||
0, 0}, {2, 2, 3, 1, 1, 2, _
|
||||
0, 0}, {3, 1, 2, 1, 3, 1, _
|
||||
0, 0}, _
|
||||
{3, 1, 1, 2, 2, 2, _
|
||||
0, 0}, {3, 2, 1, 1, 2, 2, _
|
||||
0, 0}, {3, 2, 1, 2, 2, 1, _
|
||||
0, 0}, {3, 1, 2, 2, 1, 2, _
|
||||
0, 0}, {3, 2, 2, 1, 1, 2, _
|
||||
0, 0}, {3, 2, 2, 2, 1, 1, _
|
||||
0, 0}, _
|
||||
{2, 1, 2, 1, 2, 3, _
|
||||
0, 0}, {2, 1, 2, 3, 2, 1, _
|
||||
0, 0}, {2, 3, 2, 1, 2, 1, _
|
||||
0, 0}, {1, 1, 1, 3, 2, 3, _
|
||||
0, 0}, {1, 3, 1, 1, 2, 3, _
|
||||
0, 0}, {1, 3, 1, 3, 2, 1, _
|
||||
0, 0}, _
|
||||
{1, 1, 2, 3, 1, 3, _
|
||||
0, 0}, {1, 3, 2, 1, 1, 3, _
|
||||
0, 0}, {1, 3, 2, 3, 1, 1, _
|
||||
0, 0}, {2, 1, 1, 3, 1, 3, _
|
||||
0, 0}, {2, 3, 1, 1, 1, 3, _
|
||||
0, 0}, {2, 3, 1, 3, 1, 1, _
|
||||
0, 0}, _
|
||||
{1, 1, 2, 1, 3, 3, _
|
||||
0, 0}, {1, 1, 2, 3, 3, 1, _
|
||||
0, 0}, {1, 3, 2, 1, 3, 1, _
|
||||
0, 0}, {1, 1, 3, 1, 2, 3, _
|
||||
0, 0}, {1, 1, 3, 3, 2, 1, _
|
||||
0, 0}, {1, 3, 3, 1, 2, 1, _
|
||||
0, 0}, _
|
||||
{3, 1, 3, 1, 2, 1, _
|
||||
0, 0}, {2, 1, 1, 3, 3, 1, _
|
||||
0, 0}, {2, 3, 1, 1, 3, 1, _
|
||||
0, 0}, {2, 1, 3, 1, 1, 3, _
|
||||
0, 0}, {2, 1, 3, 3, 1, 1, _
|
||||
0, 0}, {2, 1, 3, 1, 3, 1, _
|
||||
0, 0}, _
|
||||
{3, 1, 1, 1, 2, 3, _
|
||||
0, 0}, {3, 1, 1, 3, 2, 1, _
|
||||
0, 0}, {3, 3, 1, 1, 2, 1, _
|
||||
0, 0}, {3, 1, 2, 1, 1, 3, _
|
||||
0, 0}, {3, 1, 2, 3, 1, 1, _
|
||||
0, 0}, {3, 3, 2, 1, 1, 1, _
|
||||
0, 0}, _
|
||||
{3, 1, 4, 1, 1, 1, _
|
||||
0, 0}, {2, 2, 1, 4, 1, 1, _
|
||||
0, 0}, {4, 3, 1, 1, 1, 1, _
|
||||
0, 0}, {1, 1, 1, 2, 2, 4, _
|
||||
0, 0}, {1, 1, 1, 4, 2, 2, _
|
||||
0, 0}, {1, 2, 1, 1, 2, 4, _
|
||||
0, 0}, _
|
||||
{1, 2, 1, 4, 2, 1, _
|
||||
0, 0}, {1, 4, 1, 1, 2, 2, _
|
||||
0, 0}, {1, 4, 1, 2, 2, 1, _
|
||||
0, 0}, {1, 1, 2, 2, 1, 4, _
|
||||
0, 0}, {1, 1, 2, 4, 1, 2, _
|
||||
0, 0}, {1, 2, 2, 1, 1, 4, _
|
||||
0, 0}, _
|
||||
{1, 2, 2, 4, 1, 1, _
|
||||
0, 0}, {1, 4, 2, 1, 1, 2, _
|
||||
0, 0}, {1, 4, 2, 2, 1, 1, _
|
||||
0, 0}, {2, 4, 1, 2, 1, 1, _
|
||||
0, 0}, {2, 2, 1, 1, 1, 4, _
|
||||
0, 0}, {4, 1, 3, 1, 1, 1, _
|
||||
0, 0}, _
|
||||
{2, 4, 1, 1, 1, 2, _
|
||||
0, 0}, {1, 3, 4, 1, 1, 1, _
|
||||
0, 0}, {1, 1, 1, 2, 4, 2, _
|
||||
0, 0}, {1, 2, 1, 1, 4, 2, _
|
||||
0, 0}, {1, 2, 1, 2, 4, 1, _
|
||||
0, 0}, {1, 1, 4, 2, 1, 2, _
|
||||
0, 0}, _
|
||||
{1, 2, 4, 1, 1, 2, _
|
||||
0, 0}, {1, 2, 4, 2, 1, 1, _
|
||||
0, 0}, {4, 1, 1, 2, 1, 2, _
|
||||
0, 0}, {4, 2, 1, 1, 1, 2, _
|
||||
0, 0}, {4, 2, 1, 2, 1, 1, _
|
||||
0, 0}, {2, 1, 2, 1, 4, 1, _
|
||||
0, 0}, _
|
||||
{2, 1, 4, 1, 2, 1, _
|
||||
0, 0}, {4, 1, 2, 1, 2, 1, _
|
||||
0, 0}, {1, 1, 1, 1, 4, 3, _
|
||||
0, 0}, {1, 1, 1, 3, 4, 1, _
|
||||
0, 0}, {1, 3, 1, 1, 4, 1, _
|
||||
0, 0}, {1, 1, 4, 1, 1, 3, _
|
||||
0, 0}, _
|
||||
{1, 1, 4, 3, 1, 1, _
|
||||
0, 0}, {4, 1, 1, 1, 1, 3, _
|
||||
0, 0}, {4, 1, 1, 3, 1, 1, _
|
||||
0, 0}, {1, 1, 3, 1, 4, 1, _
|
||||
0, 0}, {1, 1, 4, 1, 3, 1, _
|
||||
0, 0}, {3, 1, 1, 1, 4, 1, _
|
||||
0, 0}, _
|
||||
{4, 1, 1, 1, 3, 1, _
|
||||
0, 0}, {2, 1, 1, 4, 1, 2, _
|
||||
0, 0}, {2, 1, 1, 2, 1, 4, _
|
||||
0, 0}, {2, 1, 1, 2, 3, 2, _
|
||||
0, 0}, {2, 3, 3, 1, 1, 1, _
|
||||
2, 0}}
|
||||
|
||||
#End Region
|
||||
|
||||
Private Const cQuietWidth As Integer = 10
|
||||
|
||||
Public Shared Function MakeBarcodeImage(ByVal InputData As String, ByVal BarWeight As Double, ByVal AddQuietZone As Boolean, Optional heightOpt As Object = Nothing) As Image
|
||||
|
||||
Dim content As New Code128Content(InputData)
|
||||
Dim codes As Integer() = content.Codes
|
||||
Dim width As Integer, height As Integer
|
||||
width = ((codes.Length - 3) * 11 + 35) * BarWeight
|
||||
If heightOpt IsNot Nothing Then
|
||||
height = CInt(heightOpt)
|
||||
Else
|
||||
height = Convert.ToInt32(System.Math.Ceiling(Convert.ToSingle(width) * 0.15F))
|
||||
End If
|
||||
|
||||
If AddQuietZone Then
|
||||
width += 2 * cQuietWidth * BarWeight
|
||||
End If
|
||||
|
||||
Dim myimg As Image = New System.Drawing.Bitmap(width, height)
|
||||
Using gr As Graphics = Graphics.FromImage(myimg)
|
||||
|
||||
gr.FillRectangle(System.Drawing.Brushes.White, 0, 0, width, height)
|
||||
|
||||
Dim cursor As Integer = If(AddQuietZone, cQuietWidth * BarWeight, 0)
|
||||
|
||||
For codeidx As Integer = 0 To codes.Length - 1
|
||||
Dim code As Integer = codes(codeidx)
|
||||
|
||||
For bar As Integer = 0 To 7 Step 2
|
||||
Dim barwidth As Integer = cPatterns(code, bar) * BarWeight
|
||||
Dim spcwidth As Integer = cPatterns(code, bar + 1) * BarWeight
|
||||
|
||||
If barwidth > 0 Then
|
||||
gr.FillRectangle(System.Drawing.Brushes.Black, cursor, 0, barwidth, height)
|
||||
End If
|
||||
|
||||
cursor += (barwidth + spcwidth)
|
||||
Next
|
||||
Next
|
||||
End Using
|
||||
|
||||
Return myimg
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
40
Aviso/Benutzerdefinierte Elemente/MyTextCheckBox.Designer.vb
generated
Normal file
40
Aviso/Benutzerdefinierte Elemente/MyTextCheckBox.Designer.vb
generated
Normal file
@@ -0,0 +1,40 @@
|
||||
Partial Class MyTextCheckBox
|
||||
Inherits System.Windows.Forms.TextBox
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers
|
||||
If (container IsNot Nothing) Then
|
||||
container.Add(Me)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
|
||||
<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 Komponenten-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Komponenten-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
50
Aviso/Benutzerdefinierte Elemente/MyTextCheckBox.vb
Normal file
50
Aviso/Benutzerdefinierte Elemente/MyTextCheckBox.vb
Normal file
@@ -0,0 +1,50 @@
|
||||
Imports Gemeinsames
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class MyTextCheckBox
|
||||
Inherits System.Windows.Forms.TextBox
|
||||
|
||||
|
||||
|
||||
Public Sub New()
|
||||
Me.ShortcutsEnabled = False
|
||||
Me.Width = 20
|
||||
Me.Height = 20
|
||||
Me.ReadOnly = True
|
||||
Me.Cursor = Cursors.Hand
|
||||
End Sub
|
||||
|
||||
Private Sub MyTextCheckBox_Click(sender As Object, e As EventArgs) Handles Me.Click
|
||||
Dim small As New Font(Me.Font.FontFamily, 6)
|
||||
Dim big As New Font(Me.Font.FontFamily, 8.25)
|
||||
Me.Font = big
|
||||
Select Case Me.Text
|
||||
Case "" : Me.Text = "X"
|
||||
Case "X" : Me.Text = "BAR" : Me.Font = small
|
||||
Case "BAR" : Me.Text = ""
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
' Private Sub MyTextCheckBox_GotFocus(sender As Object, e As EventArgs) Handles Me.GotFocus
|
||||
' Me.SelectedText = ""
|
||||
' End Sub
|
||||
|
||||
|
||||
Private bool As Boolean = False
|
||||
Private Sub TextBox1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
|
||||
bool = True
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
|
||||
If bool Then
|
||||
Me.SelectionStart = Me.TextLength
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox1_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
|
||||
bool = False
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
129
Aviso/Benutzerdefinierte Elemente/SendTAB.Designer.vb
generated
Normal file
129
Aviso/Benutzerdefinierte Elemente/SendTAB.Designer.vb
generated
Normal file
@@ -0,0 +1,129 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class sendTAB
|
||||
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.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(sendTAB))
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.pic = New System.Windows.Forms.PictureBox()
|
||||
Me.lblAuftr = New System.Windows.Forms.Label()
|
||||
Me.lblAbfBez = New System.Windows.Forms.Label()
|
||||
Me.lblNr = New System.Windows.Forms.Label()
|
||||
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.SendungDuplizierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.cntxt.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.LightGray
|
||||
Me.pnl.Controls.Add(Me.pic)
|
||||
Me.pnl.Controls.Add(Me.lblAuftr)
|
||||
Me.pnl.Controls.Add(Me.lblAbfBez)
|
||||
Me.pnl.Controls.Add(Me.lblNr)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnl.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(90, 50)
|
||||
Me.pnl.TabIndex = 0
|
||||
'
|
||||
'pic
|
||||
'
|
||||
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.pic.Image = CType(resources.GetObject("pic.Image"), System.Drawing.Image)
|
||||
Me.pic.Location = New System.Drawing.Point(78, 2)
|
||||
Me.pic.Name = "pic"
|
||||
Me.pic.Size = New System.Drawing.Size(10, 10)
|
||||
Me.pic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.pic.TabIndex = 3
|
||||
Me.pic.TabStop = False
|
||||
'
|
||||
'lblAuftr
|
||||
'
|
||||
Me.lblAuftr.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblAuftr.Location = New System.Drawing.Point(3, 19)
|
||||
Me.lblAuftr.Name = "lblAuftr"
|
||||
Me.lblAuftr.Size = New System.Drawing.Size(86, 31)
|
||||
Me.lblAuftr.TabIndex = 2
|
||||
Me.lblAuftr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'lblAbfBez
|
||||
'
|
||||
Me.lblAbfBez.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblAbfBez.Location = New System.Drawing.Point(20, 3)
|
||||
Me.lblAbfBez.Name = "lblAbfBez"
|
||||
Me.lblAbfBez.Size = New System.Drawing.Size(69, 13)
|
||||
Me.lblAbfBez.TabIndex = 1
|
||||
Me.lblAbfBez.Text = "-"
|
||||
'
|
||||
'lblNr
|
||||
'
|
||||
Me.lblNr.AutoSize = True
|
||||
Me.lblNr.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lblNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblNr.Location = New System.Drawing.Point(1, 3)
|
||||
Me.lblNr.Name = "lblNr"
|
||||
Me.lblNr.Size = New System.Drawing.Size(25, 13)
|
||||
Me.lblNr.TabIndex = 0
|
||||
Me.lblNr.Text = "10."
|
||||
'
|
||||
'cntxt
|
||||
'
|
||||
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SendungDuplizierenToolStripMenuItem})
|
||||
Me.cntxt.Name = "cntxt"
|
||||
Me.cntxt.Size = New System.Drawing.Size(184, 48)
|
||||
'
|
||||
'SendungDuplizierenToolStripMenuItem
|
||||
'
|
||||
Me.SendungDuplizierenToolStripMenuItem.Name = "SendungDuplizierenToolStripMenuItem"
|
||||
Me.SendungDuplizierenToolStripMenuItem.Size = New System.Drawing.Size(183, 22)
|
||||
Me.SendungDuplizierenToolStripMenuItem.Text = "Sendung Duplizieren"
|
||||
'
|
||||
'sendTAB
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.LightGray
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Margin = New System.Windows.Forms.Padding(2, 2, 0, 0)
|
||||
Me.Name = "sendTAB"
|
||||
Me.Size = New System.Drawing.Size(90, 50)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.cntxt.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Public WithEvents lblAuftr As System.Windows.Forms.Label
|
||||
Public WithEvents lblAbfBez As System.Windows.Forms.Label
|
||||
Public WithEvents lblNr As System.Windows.Forms.Label
|
||||
Public WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents pic As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents cntxt As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents SendungDuplizierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
|
||||
End Class
|
||||
183
Aviso/Benutzerdefinierte Elemente/SendTAB.resx
Normal file
183
Aviso/Benutzerdefinierte Elemente/SendTAB.resx
Normal file
@@ -0,0 +1,183 @@
|
||||
<?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>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="pic.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
|
||||
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
|
||||
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
|
||||
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
|
||||
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
|
||||
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
|
||||
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
|
||||
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
|
||||
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
|
||||
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
|
||||
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
|
||||
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
|
||||
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
|
||||
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
|
||||
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
|
||||
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
|
||||
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
|
||||
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
|
||||
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
|
||||
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
|
||||
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
|
||||
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
|
||||
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
|
||||
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
|
||||
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
|
||||
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
|
||||
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
|
||||
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
|
||||
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
|
||||
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
|
||||
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
|
||||
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
|
||||
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
|
||||
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
|
||||
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
|
||||
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
|
||||
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
|
||||
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
|
||||
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
|
||||
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
|
||||
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
|
||||
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
|
||||
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
|
||||
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
|
||||
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
|
||||
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEwAACxMBAJqcGAAAAdtJREFUSEu91b8vX1Ec
|
||||
xnG/F8IiUWksTSr+Af+AoQYGtYrFJoLBn/BFLDaJRBNiYrAZDZams6QpdpWIVjo1EcL1PnKOfM65z/3e
|
||||
izC8kt7PeT7nSVSOhizL3pUcOrVarUnNX0sOHQq70KPOXkMOKRrAJn5VLSXX6Pe21HmQG7DwGYfIvEql
|
||||
ZJqw4Xe2VcaJPgi2Yx03frFSKWe9WMYfhB1ZGn0QOjULKVnK7CN2fCaVK40+CIQfSZFcKd+L+O/PlX2b
|
||||
f/pHQGAlWUg9lsL9guziDirn3OOvvT8qCwhVKV1LZsoVxu3dUZFFsKzUXabmwRlm0WnvjUpShMtKi5xg
|
||||
WN2ZG6RYfEnpDBrVfbmBwvKeuayeA4yg8B2WwxQXLPgLy8yrfUsOAy7oxzf88xeW+Y26z6AcOiy2wZWp
|
||||
i+uRL1Ighyx0Ywn2bXyOwtLcgGAf3AuiLrKOxMySpdGHQ2gV136pnilUeZE+2PujMidZUH5iEh0+X1Z6
|
||||
bu+PyhwCE8mCdYkxsVNU6v6u/rDZaDEg9NUsBReYQ/Q2mh1VeoxBm4uWLIK21P1ffFE5i0wovYV7dYbQ
|
||||
YjPRQopwKJ1W5wpZV/odn9R5bpBicQyt6qwI+VE0q7Pc4K3J4dvJGh4AKs9H2nJin04AAAAASUVORK5C
|
||||
YII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
42
Aviso/Benutzerdefinierte Elemente/SendTAB.vb
Normal file
42
Aviso/Benutzerdefinierte Elemente/SendTAB.vb
Normal file
@@ -0,0 +1,42 @@
|
||||
Public Class sendTAB
|
||||
Public value = ""
|
||||
Event MECLICK(sender As Object)
|
||||
Event DEL(sender As Object)
|
||||
Event RIGHTCLICK_COPYDATATO(fromIndex As Integer, toIndex As Integer)
|
||||
Event RIGHTCLICK_DUPLICATE(fromIndex As Integer)
|
||||
|
||||
Dim list As List(Of MyListItem)
|
||||
|
||||
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lblAuftr.Click, lblAbfBez.Click, pnl.Click, Me.Click, lblNr.Click
|
||||
|
||||
RaiseEvent MECLICK(Me)
|
||||
End Sub
|
||||
|
||||
Private Sub Label2_Click(sender As Object, e As MouseEventArgs) Handles lblAuftr.MouseClick, lblAbfBez.MouseClick, pnl.MouseClick, Me.MouseClick, lblNr.MouseClick, pnl.Click, MyBase.Click, lblNr.Click, lblAuftr.Click, lblAbfBez.Click
|
||||
If e.Button = Windows.Forms.MouseButtons.Right Then
|
||||
Me.ContextMenuStrip = cntxt
|
||||
cntxt.Show(MousePosition)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
|
||||
If MsgBox("Möchten Sie diese Sendung wirklich löchen?", vbYesNoCancel) = MsgBoxResult.Yes Then
|
||||
RaiseEvent DEL(Me)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub pic_MouseEnter(sender As Object, e As EventArgs) Handles pic.MouseEnter
|
||||
pic.Image = My.Resources.del
|
||||
End Sub
|
||||
Private Sub pic_MouseLeave(sender As Object, e As EventArgs) Handles pic.MouseLeave
|
||||
pic.Image = My.Resources.del_gray
|
||||
End Sub
|
||||
|
||||
Private Sub SendungDuplizierenToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SendungDuplizierenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles SendungDuplizierenToolStripMenuItem.Click
|
||||
RaiseEvent RIGHTCLICK_DUPLICATE(CInt(Me.value))
|
||||
End Sub
|
||||
End Class
|
||||
40
Aviso/Benutzerdefinierte Elemente/TransparentControl.Designer.vb
generated
Normal file
40
Aviso/Benutzerdefinierte Elemente/TransparentControl.Designer.vb
generated
Normal file
@@ -0,0 +1,40 @@
|
||||
Partial Class TransparentControl
|
||||
Inherits System.Windows.Forms.Control
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers
|
||||
If (container IsNot Nothing) Then
|
||||
container.Add(Me)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
|
||||
<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 Komponenten-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Komponenten-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
336
Aviso/Benutzerdefinierte Elemente/TransparentControl.vb
Normal file
336
Aviso/Benutzerdefinierte Elemente/TransparentControl.vb
Normal file
@@ -0,0 +1,336 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.ComponentModel.Design
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Drawing
|
||||
|
||||
<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
|
||||
<Designer("System.Windows.Forms.Design.ParentControlDesigner, System.Design", GetType(IDesigner))> _
|
||||
<DesignerAttribute(GetType(TransparentControlDesigner))> _
|
||||
Public Class TransparentControl
|
||||
|
||||
Inherits Control
|
||||
|
||||
#Region " Field "
|
||||
|
||||
Private m_transparent As Boolean
|
||||
Private m_transparentColor As Color
|
||||
Private m_opacity As Double
|
||||
Private m_minSize As Size
|
||||
Private m_backcolor As Color
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Constructor "
|
||||
|
||||
Public Sub New()
|
||||
|
||||
SetStyle(ControlStyles.SupportsTransparentBackColor, True)
|
||||
SetStyle(ControlStyles.Opaque, False)
|
||||
SetStyle(ControlStyles.DoubleBuffer, True)
|
||||
SetStyle(ControlStyles.AllPaintingInWmPaint, True)
|
||||
SetStyle(ControlStyles.UserPaint, True)
|
||||
UpdateStyles()
|
||||
m_minSize = New Size(100, 75)
|
||||
m_transparent = False
|
||||
m_transparentColor = Color.DodgerBlue
|
||||
m_opacity = 1.0R
|
||||
m_backcolor = Color.Transparent
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Property "
|
||||
|
||||
<System.ComponentModel.Browsable(False)> _
|
||||
<System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)> _
|
||||
<System.ComponentModel.DefaultValue(GetType(Color), "Transparent")> _
|
||||
<System.ComponentModel.Description("Set background color.")> _
|
||||
<System.ComponentModel.Category("Control Style")> _
|
||||
Public Overrides Property BackColor() As System.Drawing.Color
|
||||
Get
|
||||
Return m_backcolor
|
||||
End Get
|
||||
Set(ByVal value As System.Drawing.Color)
|
||||
m_backcolor = value
|
||||
Refresh()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<System.ComponentModel.Browsable(True)> _
|
||||
<System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Always)> _
|
||||
<System.ComponentModel.DefaultValue(1.0R)> _
|
||||
<System.ComponentModel.TypeConverter(GetType(OpacityConverter))> _
|
||||
<System.ComponentModel.Description("Set the opacity percentage of the control.")> _
|
||||
<System.ComponentModel.Category("Control Style")> _
|
||||
Public Overridable Property Opacity() As Double
|
||||
Get
|
||||
Return m_opacity
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
If value = m_opacity Then
|
||||
Return
|
||||
End If
|
||||
m_opacity = value
|
||||
UpdateStyles()
|
||||
Refresh()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<System.ComponentModel.Browsable(True)> _
|
||||
<System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Always)> _
|
||||
<System.ComponentModel.DefaultValue(GetType(Boolean), "False")> _
|
||||
<System.ComponentModel.Description("Enable control trnasparency.")> _
|
||||
<System.ComponentModel.Category("Control Style")> _
|
||||
Public Overridable Property Transparent() As Boolean
|
||||
Get
|
||||
Return m_transparent
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
If value = m_transparent Then
|
||||
Return
|
||||
End If
|
||||
m_transparent = value
|
||||
Refresh()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<System.ComponentModel.Browsable(True)> _
|
||||
<System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Always)> _
|
||||
<System.ComponentModel.DefaultValue(GetType(Color), "DodgerBlue")> _
|
||||
<System.ComponentModel.Description("Set the fill color of the control.")> _
|
||||
<System.ComponentModel.Category("Control Style")> _
|
||||
Public Overridable Property TransparentColor() As Color
|
||||
Get
|
||||
Return m_transparentColor
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
m_transparentColor = value
|
||||
Refresh()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Protected Overloads Overrides ReadOnly Property DefaultSize() As Size
|
||||
Get
|
||||
Return New Size(200, 100)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Overloads Overrides Property MinimumSize() As System.Drawing.Size
|
||||
Get
|
||||
Return m_minSize
|
||||
End Get
|
||||
Set(ByVal value As System.Drawing.Size)
|
||||
If (value <> (m_minSize)) Then
|
||||
m_minSize = value
|
||||
Refresh()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Event "
|
||||
|
||||
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
|
||||
MyBase.OnPaint(e)
|
||||
|
||||
DrawBackground(e.Graphics, Me)
|
||||
DrawBorder(e.Graphics, Me)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
|
||||
MyBase.OnResize(e)
|
||||
Invalidate()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Method "
|
||||
|
||||
Public Overridable Sub DrawBorder(ByVal g As Graphics, ByVal control As TransparentControl)
|
||||
Using p As New Pen(GetDarkColor(Me.TransparentColor, 40), 1)
|
||||
Dim rect As New Rectangle(ClientRectangle.X, ClientRectangle.Y, ClientRectangle.Width - 1, ClientRectangle.Height - 1)
|
||||
rect.Inflate(-1, -1)
|
||||
g.DrawRectangle(p, rect)
|
||||
p.Dispose()
|
||||
End Using
|
||||
|
||||
End Sub
|
||||
|
||||
Public Overridable Sub DrawBackground(ByVal g As Graphics, ByVal control As TransparentControl)
|
||||
|
||||
If Transparent Then
|
||||
|
||||
Using sb As New SolidBrush(control.BackColor)
|
||||
g.FillRectangle(sb, control.ClientRectangle)
|
||||
sb.Dispose()
|
||||
|
||||
Using sbt As New SolidBrush(Color.FromArgb(control.Opacity * 255, control.TransparentColor))
|
||||
g.FillRectangle(sbt, control.ClientRectangle)
|
||||
sbt.Dispose()
|
||||
End Using
|
||||
End Using
|
||||
|
||||
Else
|
||||
|
||||
Using sb As New SolidBrush(control.TransparentColor)
|
||||
g.FillRectangle(sb, control.ClientRectangle)
|
||||
sb.Dispose()
|
||||
End Using
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function GetLightColor(ByVal colorIn As Color, ByVal percent As Single) As Color
|
||||
If percent < 0 OrElse percent > 100 Then
|
||||
Throw New ArgumentOutOfRangeException("percent must be between 0 and 100")
|
||||
End If
|
||||
Dim a As Int32 = colorIn.A * Me.Opacity
|
||||
Dim r As Int32 = colorIn.R + CInt(((255 - colorIn.R) / 100) * percent)
|
||||
Dim g As Int32 = colorIn.G + CInt(((255 - colorIn.G) / 100) * percent)
|
||||
Dim b As Int32 = colorIn.B + CInt(((255 - colorIn.B) / 100) * percent)
|
||||
Return Color.FromArgb(a, r, g, b)
|
||||
End Function
|
||||
|
||||
Private Function GetDarkColor(ByVal colorIn As Color, ByVal percent As Single) As Color
|
||||
If percent < 0 OrElse percent > 100 Then
|
||||
Throw New ArgumentOutOfRangeException("percent must be between 0 and 100")
|
||||
End If
|
||||
Dim a As Int32 = colorIn.A * Me.Opacity
|
||||
Dim r As Int32 = colorIn.R - CInt((colorIn.R / 100) * percent)
|
||||
Dim g As Int32 = colorIn.G - CInt((colorIn.G / 100) * percent)
|
||||
Dim b As Int32 = colorIn.B - CInt((colorIn.B / 100) * percent)
|
||||
Return Color.FromArgb(a, r, g, b)
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
|
||||
<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
|
||||
Public Class TransparentControlDesigner
|
||||
|
||||
Inherits System.Windows.Forms.Design.ParentControlDesigner
|
||||
|
||||
#Region " Field "
|
||||
|
||||
Private lists As DesignerActionListCollection
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Property "
|
||||
|
||||
Public Overrides ReadOnly Property ActionLists() As System.ComponentModel.Design.DesignerActionListCollection
|
||||
Get
|
||||
If lists Is Nothing Then
|
||||
lists = New DesignerActionListCollection()
|
||||
lists.Add(New TransparentControlActionList(Me.Component))
|
||||
|
||||
End If
|
||||
|
||||
Return lists
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Protected Overrides ReadOnly Property DefaultControlLocation() As System.Drawing.Point
|
||||
Get
|
||||
Return New Point(20, 20)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Protected Overrides ReadOnly Property EnableDragRect() As Boolean
|
||||
Get
|
||||
Return True
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Protected Overrides ReadOnly Property AllowGenericDragBox() As Boolean
|
||||
Get
|
||||
Return True
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
|
||||
Public Class TransparentControlActionList
|
||||
|
||||
Inherits DesignerActionList
|
||||
|
||||
#Region " Field "
|
||||
Private designerActionUISvc As System.ComponentModel.Design.DesignerActionUIService = Nothing
|
||||
Private tc As TransparentControl
|
||||
#End Region
|
||||
|
||||
#Region " Constructor "
|
||||
Public Sub New(ByVal component As IComponent)
|
||||
MyBase.New(component)
|
||||
tc = component
|
||||
designerActionUISvc = CType(GetService(GetType(DesignerActionUIService)), DesignerActionUIService)
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region " Property "
|
||||
|
||||
<System.ComponentModel.DefaultValue(1.0R)> _
|
||||
<System.ComponentModel.TypeConverter(GetType(OpacityConverter))> _
|
||||
Public Overridable Property Opacity() As Double
|
||||
Get
|
||||
Return tc.Opacity
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
GetPropertyByName("Opacity").SetValue(tc, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<System.ComponentModel.DefaultValue(GetType(Boolean), "False")> _
|
||||
Public Overridable Property Transparent() As Boolean
|
||||
Get
|
||||
Return tc.Transparent
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
GetPropertyByName("Transparent").SetValue(tc, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<System.ComponentModel.DefaultValue(GetType(Color), "OliveDrab")> _
|
||||
Public Overridable Property TransparentColor() As Color
|
||||
Get
|
||||
Return tc.TransparentColor
|
||||
End Get
|
||||
Set(ByVal value As Color)
|
||||
GetPropertyByName("TransparentColor").SetValue(tc, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Function "
|
||||
Private Function GetPropertyByName(ByVal propName As String) As PropertyDescriptor
|
||||
|
||||
Dim prop As PropertyDescriptor = TypeDescriptor.GetProperties(tc)(propName)
|
||||
If prop Is Nothing Then
|
||||
Throw New ArgumentException("Matching property not valid!", propName)
|
||||
Else
|
||||
Return prop
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Overrides Function GetSortedActionItems() As System.ComponentModel.Design.DesignerActionItemCollection
|
||||
|
||||
Dim items As New DesignerActionItemCollection()
|
||||
|
||||
items.Add(New DesignerActionPropertyItem("Opacity", "Opacity", "Set the opacity percentage of the control"))
|
||||
items.Add(New DesignerActionPropertyItem("TransparentColor", "TransparentColor", "Set the fill color of the control"))
|
||||
items.Add(New DesignerActionPropertyItem("Transparent", "Transparent ", "Enable trnasparency of the control"))
|
||||
|
||||
Return items
|
||||
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
253
Aviso/Benutzerdefinierte Elemente/WebbrowserEx.vb
Normal file
253
Aviso/Benutzerdefinierte Elemente/WebbrowserEx.vb
Normal file
@@ -0,0 +1,253 @@
|
||||
'2007 KLEINMA
|
||||
'www.zerosandtheone.com
|
||||
|
||||
Option Strict On
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Security.Permissions
|
||||
|
||||
Namespace Kleinma.Controls
|
||||
|
||||
Class WebBrowserEx
|
||||
Inherits WebBrowser
|
||||
|
||||
Private cookie As AxHost.ConnectionPointCookie
|
||||
Private helper As WebBrowser2EventHelper
|
||||
|
||||
'NEW EVENTS THAT WILL NOW BE EXPOSED
|
||||
Public Event NewWindow2 As WebBrowserNewWindow2EventHandler
|
||||
Public Event NavigateError As WebBrowserNavigateErrorEventHandler
|
||||
|
||||
'DELEGATES TO HANDLE PROCESSING OF THE EVENTS
|
||||
Public Delegate Sub WebBrowserNewWindow2EventHandler(ByVal sender As Object, ByVal e As WebBrowserNewWindow2EventArgs)
|
||||
Public Delegate Sub WebBrowserNavigateErrorEventHandler(ByVal sender As Object, ByVal e As WebBrowserNavigateErrorEventArgs)
|
||||
|
||||
#Region " PROTECTED METHODS FOR EXTENDED EVENTS "
|
||||
Protected Overridable Sub OnNewWindow2(ByVal e As WebBrowserNewWindow2EventArgs)
|
||||
RaiseEvent NewWindow2(Me, e)
|
||||
End Sub
|
||||
|
||||
Protected Overridable Sub OnNavigateError(ByVal e As WebBrowserNavigateErrorEventArgs)
|
||||
RaiseEvent NavigateError(Me, e)
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "WB SINK ROUTINES"
|
||||
|
||||
<PermissionSetAttribute(SecurityAction.LinkDemand, Name:="FullTrust")> _
|
||||
Protected Overrides Sub CreateSink()
|
||||
MyBase.CreateSink()
|
||||
helper = New WebBrowser2EventHelper(Me)
|
||||
cookie = New AxHost.ConnectionPointCookie(Me.ActiveXInstance, helper, GetType(DWebBrowserEvents2))
|
||||
End Sub
|
||||
|
||||
<PermissionSetAttribute(SecurityAction.LinkDemand, Name:="FullTrust")> _
|
||||
Protected Overrides Sub DetachSink()
|
||||
If cookie IsNot Nothing Then
|
||||
cookie.Disconnect()
|
||||
cookie = Nothing
|
||||
End If
|
||||
MyBase.DetachSink()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "PROPERTIES EXPOSED THROUGH THE COM OBJECT"
|
||||
|
||||
<System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
<System.Runtime.InteropServices.DispIdAttribute(200)> _
|
||||
Public ReadOnly Property Application() As Object
|
||||
Get
|
||||
If IsNothing(Me.ActiveXInstance) Then
|
||||
Throw New AxHost.InvalidActiveXStateException("Application", AxHost.ActiveXInvokeKind.PropertyGet)
|
||||
End If
|
||||
|
||||
Return CallByName(Me.ActiveXInstance, "Application", CallType.Get, Nothing)
|
||||
'THIS IS COMMENTED. UNCOMMENT AND REMOVE LINE BEFORE IF YOU CAN NOT USE CALLBYNAME()
|
||||
'Return Me.ActiveXInstance.Application
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
|
||||
<System.Runtime.InteropServices.DispIdAttribute(552)> _
|
||||
Public Property RegisterAsBrowser() As Boolean
|
||||
Get
|
||||
If IsNothing(Me.ActiveXInstance) Then
|
||||
Throw New AxHost.InvalidActiveXStateException("RegisterAsBrowser", AxHost.ActiveXInvokeKind.PropertyGet)
|
||||
End If
|
||||
|
||||
Dim RetVal As Boolean = False
|
||||
If Not Boolean.TryParse(CallByName(Me.ActiveXInstance, "RegisterAsBrowser", CallType.Get, Nothing).ToString, RetVal) Then RetVal = False
|
||||
Return RetVal
|
||||
'THIS IS COMMENTED. UNCOMMENT AND REMOVE 3 LINES BEFORE IF YOU CAN NOT USE CALLBYNAME()
|
||||
'Return Me.ActiveXInstance.RegisterAsBrowser
|
||||
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
If IsNothing(Me.ActiveXInstance) Then
|
||||
Throw New AxHost.InvalidActiveXStateException("RegisterAsBrowser", AxHost.ActiveXInvokeKind.PropertySet)
|
||||
End If
|
||||
|
||||
CallByName(Me.ActiveXInstance, "RegisterAsBrowser", CallType.Let, True)
|
||||
'THIS IS COMMENTED. UNCOMMENT AND REMOVE LINE BEFORE IF YOU CAN NOT USE CALLBYNAME()
|
||||
'Me.ActiveXInstance.RegisterAsBrowser = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
'HELPER CLASS TO FIRE OFF THE EVENTS
|
||||
Private Class WebBrowser2EventHelper
|
||||
Inherits StandardOleMarshalObject
|
||||
Implements DWebBrowserEvents2
|
||||
|
||||
Private parent As WebBrowserEx
|
||||
|
||||
Public Sub New(ByVal parent As WebBrowserEx)
|
||||
Me.parent = parent
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub NewWindow2(ByRef ppDisp As Object, ByRef cancel As Boolean) Implements DWebBrowserEvents2.NewWindow2
|
||||
Dim e As New WebBrowserNewWindow2EventArgs(ppDisp)
|
||||
Me.parent.OnNewWindow2(e)
|
||||
ppDisp = e.ppDisp
|
||||
cancel = e.Cancel
|
||||
End Sub
|
||||
|
||||
Public Sub NavigateError(ByVal pDisp As Object, ByRef URL As Object, ByRef frame As Object, ByRef statusCode As Object, ByRef cancel As Boolean) Implements DWebBrowserEvents2.NavigateError
|
||||
' Raise the NavigateError event.
|
||||
Me.parent.OnNavigateError( _
|
||||
New WebBrowserNavigateErrorEventArgs( _
|
||||
CStr(URL), CStr(frame), CInt(statusCode), cancel))
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
' Define constants from winuser.h
|
||||
Private Const WM_PARENTNOTIFY As Integer = &H210
|
||||
Private Const WM_DESTROY As Integer = 2
|
||||
|
||||
'Define New event to fire
|
||||
Public Event WBWantsToClose()
|
||||
|
||||
Protected Overrides Sub WndProc(ByRef m As Message)
|
||||
Select Case m.Msg
|
||||
Case WM_PARENTNOTIFY
|
||||
If (Not DesignMode) Then
|
||||
If (CInt(m.WParam) = WM_DESTROY) Then
|
||||
' Tell whoever cares we are closing
|
||||
RaiseEvent WBWantsToClose()
|
||||
End If
|
||||
End If
|
||||
DefWndProc(m)
|
||||
Case Else
|
||||
MyBase.WndProc(m)
|
||||
End Select
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Public Class WebBrowserNewWindow2EventArgs
|
||||
Inherits System.ComponentModel.CancelEventArgs
|
||||
|
||||
Private ppDispValue As Object
|
||||
|
||||
Public Sub New(ByVal ppDisp As Object)
|
||||
Me.ppDispValue = ppDisp
|
||||
End Sub
|
||||
|
||||
Public Property ppDisp() As Object
|
||||
Get
|
||||
Return ppDispValue
|
||||
End Get
|
||||
Set(ByVal value As Object)
|
||||
ppDispValue = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
Public Class WebBrowserNavigateErrorEventArgs
|
||||
Inherits EventArgs
|
||||
|
||||
Private urlValue As String
|
||||
Private frameValue As String
|
||||
Private statusCodeValue As Int32
|
||||
Private cancelValue As Boolean
|
||||
|
||||
Public Sub New( _
|
||||
ByVal url As String, ByVal frame As String, _
|
||||
ByVal statusCode As Int32, ByVal cancel As Boolean)
|
||||
|
||||
Me.urlValue = url
|
||||
Me.frameValue = frame
|
||||
Me.statusCodeValue = statusCode
|
||||
Me.cancelValue = cancel
|
||||
|
||||
End Sub
|
||||
|
||||
Public Property Url() As String
|
||||
Get
|
||||
Return urlValue
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
urlValue = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Frame() As String
|
||||
Get
|
||||
Return frameValue
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
frameValue = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property StatusCode() As Int32
|
||||
Get
|
||||
Return statusCodeValue
|
||||
End Get
|
||||
Set(ByVal value As Int32)
|
||||
statusCodeValue = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Cancel() As Boolean
|
||||
Get
|
||||
Return cancelValue
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
cancelValue = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
|
||||
<ComImport(), Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D"), _
|
||||
InterfaceType(ComInterfaceType.InterfaceIsIDispatch), _
|
||||
TypeLibType(TypeLibTypeFlags.FHidden)> _
|
||||
Public Interface DWebBrowserEvents2
|
||||
|
||||
<DISPID(DISPID.NEWWINDOW2)> Sub NewWindow2( _
|
||||
<InAttribute(), OutAttribute(), MarshalAs(UnmanagedType.IDispatch)> ByRef ppDisp As Object, _
|
||||
<InAttribute(), OutAttribute()> ByRef cancel As Boolean)
|
||||
|
||||
<DISPID(DISPID.NAVIGATERROR)> Sub NavigateError( _
|
||||
<InAttribute(), MarshalAs(UnmanagedType.IDispatch)> _
|
||||
ByVal pDisp As Object, _
|
||||
<InAttribute()> ByRef URL As Object, _
|
||||
<InAttribute()> ByRef frame As Object, _
|
||||
<InAttribute()> ByRef statusCode As Object, _
|
||||
<InAttribute(), OutAttribute()> ByRef cancel As Boolean)
|
||||
End Interface
|
||||
|
||||
Public Enum DISPID
|
||||
NEWWINDOW2 = 251
|
||||
NAVIGATERROR = 271
|
||||
End Enum
|
||||
|
||||
|
||||
|
||||
End Namespace
|
||||
|
||||
31
Aviso/Benutzerdefinierte Elemente/cMyListItem.vb
Normal file
31
Aviso/Benutzerdefinierte Elemente/cMyListItem.vb
Normal file
@@ -0,0 +1,31 @@
|
||||
|
||||
Public Class MyListItem
|
||||
Private mText As String
|
||||
Private mValue As String
|
||||
|
||||
Public Sub New(ByVal pText As String, ByVal pValue As String)
|
||||
mText = pText
|
||||
mValue = pValue
|
||||
End Sub
|
||||
|
||||
Public ReadOnly Property Text() As String
|
||||
Get
|
||||
Return mText
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property Value() As String
|
||||
Get
|
||||
Return mValue
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Overrides Function ToString() As String
|
||||
Return mText
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
52
Aviso/Benutzerdefinierte Elemente/frmPopUp.Designer.vb
generated
Normal file
52
Aviso/Benutzerdefinierte Elemente/frmPopUp.Designer.vb
generated
Normal file
@@ -0,0 +1,52 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmPopUp
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPopUp))
|
||||
Me.WebBrowserEx1 = New AVISO.Kleinma.Controls.WebBrowserEx()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'WebBrowserEx1
|
||||
'
|
||||
Me.WebBrowserEx1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.WebBrowserEx1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.WebBrowserEx1.MinimumSize = New System.Drawing.Size(20, 20)
|
||||
Me.WebBrowserEx1.Name = "WebBrowserEx1"
|
||||
Me.WebBrowserEx1.Size = New System.Drawing.Size(598, 316)
|
||||
Me.WebBrowserEx1.TabIndex = 0
|
||||
'
|
||||
'frmPopUp
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(598, 316)
|
||||
Me.Controls.Add(Me.WebBrowserEx1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmPopUp"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents WebBrowserEx1 As AVISO.Kleinma.Controls.WebBrowserEx
|
||||
End Class
|
||||
1253
Aviso/Benutzerdefinierte Elemente/frmPopUp.resx
Normal file
1253
Aviso/Benutzerdefinierte Elemente/frmPopUp.resx
Normal file
File diff suppressed because it is too large
Load Diff
44
Aviso/Benutzerdefinierte Elemente/frmPopUp.vb
Normal file
44
Aviso/Benutzerdefinierte Elemente/frmPopUp.vb
Normal file
@@ -0,0 +1,44 @@
|
||||
Public Class frmPopUp
|
||||
|
||||
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowserEx1.DocumentCompleted
|
||||
Try
|
||||
If Me.WebBrowserEx1.Document.Body.ScrollRectangle.Width = 0 Then
|
||||
Me.Width = 500
|
||||
Else
|
||||
Me.Width = Me.WebBrowserEx1.Document.Body.ScrollRectangle.Width + 40
|
||||
End If
|
||||
|
||||
Me.Height = Me.WebBrowserEx1.Document.Body.ScrollRectangle.Height + 40
|
||||
If Me.Height + Me.Top > Screen.PrimaryScreen.Bounds.Height Then
|
||||
Me.Height = Screen.PrimaryScreen.Bounds.Height - Me.Top
|
||||
End If
|
||||
If Me.Width + Me.Left > Screen.PrimaryScreen.Bounds.Width Then
|
||||
Me.Width = Screen.PrimaryScreen.Bounds.Width ' - Me.Left
|
||||
End If
|
||||
|
||||
If Me.Width < 100 Then
|
||||
Me.Width = 500
|
||||
End If
|
||||
Me.StartPosition = FormStartPosition.CenterScreen
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
AddHandler WebBrowserEx1.WBWantsToClose, Sub() Me.Close()
|
||||
' AddHandler WebBrowserEx1.HandleCreated, Sub() MsgBox("3")
|
||||
' AddHandler WebBrowserEx1.ControlRemoved, Sub() MsgBox("4")
|
||||
'AddHandler WebBrowserEx1., Sub() MsgBox("5")
|
||||
'AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
|
||||
' AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
|
||||
' AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
|
||||
'End Sub
|
||||
End Sub
|
||||
|
||||
Private Sub wb_NewWindow2(ByVal sender As Object, ByVal e As Kleinma.Controls.WebBrowserNewWindow2EventArgs) Handles WebBrowserEx1.NewWindow2
|
||||
Dim F As New frmPopUp
|
||||
F.Show() 'important to call show method before the following lines to ensure
|
||||
F.Name = ""
|
||||
e.ppDisp = F.WebBrowserEx1.Application
|
||||
F.WebBrowserEx1.RegisterAsBrowser = True
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
64
Aviso/Benutzerdefinierte Elemente/usrcntlCheckBox.Designer.vb
generated
Normal file
64
Aviso/Benutzerdefinierte Elemente/usrcntlCheckBox.Designer.vb
generated
Normal file
@@ -0,0 +1,64 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class usrcntlCheckBox
|
||||
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.pnl = New System.Windows.Forms.Panel()
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.White
|
||||
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pnl.Controls.Add(Me.lbl)
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(20, 20)
|
||||
Me.pnl.TabIndex = 63
|
||||
'
|
||||
'lbl
|
||||
'
|
||||
Me.lbl.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.lbl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lbl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lbl.Name = "lbl"
|
||||
Me.lbl.Size = New System.Drawing.Size(18, 18)
|
||||
Me.lbl.TabIndex = 0
|
||||
Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'usrcntlCheckBox
|
||||
'
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Name = "usrcntlCheckBox"
|
||||
Me.Size = New System.Drawing.Size(20, 20)
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
Friend WithEvents lbl As System.Windows.Forms.Label
|
||||
|
||||
End Class
|
||||
120
Aviso/Benutzerdefinierte Elemente/usrcntlCheckBox.resx
Normal file
120
Aviso/Benutzerdefinierte Elemente/usrcntlCheckBox.resx
Normal 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>
|
||||
51
Aviso/Benutzerdefinierte Elemente/usrcntlCheckBox.vb
Normal file
51
Aviso/Benutzerdefinierte Elemente/usrcntlCheckBox.vb
Normal file
@@ -0,0 +1,51 @@
|
||||
Public Class usrcntlCheckBox
|
||||
|
||||
Property value = ""
|
||||
' Public Property _beteiligter As String = ""
|
||||
Public Property _abrArt As String = ""
|
||||
Public Property _beteiligter As String = ""
|
||||
|
||||
Public Property _readOnly As Boolean = False
|
||||
|
||||
Event ValueChanged(value)
|
||||
Event CLICKED(sender As usrcntlCheckBox)
|
||||
|
||||
Private Sub MyTextCheckBox_Click(sender As Object, e As EventArgs) Handles Me.Click, lbl.Click
|
||||
If _readOnly Then RaiseEvent CLICKED(Me) : Exit Sub
|
||||
|
||||
Dim small As New Font(lbl.Font.FontFamily, 5)
|
||||
Dim big As New Font(lbl.Font.FontFamily, 8.25)
|
||||
Me.Font = big
|
||||
Select Case lbl.Text
|
||||
Case "" : lbl.Text = "X"
|
||||
Case "X" : lbl.Text = "" ' lbl.Text = "BAR" : lbl.Font = small
|
||||
' Case "BAR" : lbl.Text = ""
|
||||
End Select
|
||||
RaiseEvent ValueChanged(value)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub lbl_TextChanged(sender As Object, e As EventArgs) Handles lbl.TextChanged
|
||||
If _readOnly Then Exit Sub
|
||||
|
||||
Dim small As New Font(lbl.Font.FontFamily, 5)
|
||||
Dim big As New Font(lbl.Font.FontFamily, 8.25)
|
||||
|
||||
value = lbl.Text
|
||||
lbl.Font = IIf(lbl.Text = "BAR", small, big)
|
||||
lbl.BackColor = If(lbl.Text <> "", Color.SandyBrown, Color.White)
|
||||
End Sub
|
||||
|
||||
Public Sub special(setValue As Boolean)
|
||||
If setValue Then
|
||||
lbl.BackColor = Color.SandyBrown
|
||||
lbl.Font = New Font(Me.Font.FontFamily, 5, FontStyle.Bold)
|
||||
'lbl.ForeColor = Color.White
|
||||
lbl.Text = "JA"
|
||||
Else
|
||||
lbl.BackColor = Color.White
|
||||
' lbl.ForeColor = Color.Black
|
||||
lbl.Text = ""
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
723
Aviso/Classes/cSendungsoptions.vb
Normal file
723
Aviso/Classes/cSendungsoptions.vb
Normal file
@@ -0,0 +1,723 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports GrapeCity.ActiveReports
|
||||
|
||||
Public Class SendungOptions
|
||||
|
||||
Shared VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
|
||||
|
||||
Shared Sub PrintSendung_OLD(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "")
|
||||
Dim ADMIN As New cADMIN
|
||||
|
||||
|
||||
' If Not AVISO.Abgeschlossen Then SENDUNG.SAVE() ' Speichern nur wenn noch nicht abgescvhlossen
|
||||
|
||||
If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then
|
||||
Else
|
||||
MsgBox("Abfertigungsnummer angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "-" & SENDUNG.UnterNr & "/", 1, True, 25)
|
||||
Dim barcodeLKW As Image = Code128Rendering.MakeBarcodeImage("/" & AVISO.AvisoID & "/", 1, True, 20)
|
||||
|
||||
'Dim DATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
|
||||
|
||||
Dim name = "AKT_SUB.pdf"
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
|
||||
Case "QS"
|
||||
name = "AKT_QS.pdf"
|
||||
Case Else
|
||||
name = "AKT_SUB.pdf"
|
||||
End Select
|
||||
|
||||
Dim abfertArt = "" & SENDUNG.tblSnd_Abfertigungsart_ID & " - " & ADMIN.getValueTxtBySql("SELECT isnull([Abfertigungsbezeichnung],'') FROM [Abfertigungsarten] WHERE [Abfertigungsart]=" & SENDUNG.tblSnd_Abfertigungsart_ID, "FMZOLL")
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
If barcodeLKW IsNot Nothing Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Barcode-Scan: Akt übernehmen", 18, 28, 55, 3, "normal", 7, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
If barcode IsNot Nothing Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Barcode-Scan: " & vbNewLine & "Akt übernehmen & Sendung öffnen", 15, 132, 60, 10, "normal", 7, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.AbfertigungsNr, 140, 10, 55, 10, "bold", 18, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.FilialenNr, 125, 10, 17, 10, "bold", 18, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(abfertArt, 25, 11, 65, 10, "bold", 18))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(AVISO.Auftraggeber_KdNr > 0, AVISO.Auftraggeber_KdNr, ""), 100, 32, 50, 10, "normal", 12, 10))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Auftraggeber, 30, 37, 85, 10, "normal", 14, 30))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(SENDUNG.tblSnd_AuftraggeberKdNr > 0, SENDUNG.tblSnd_AuftraggeberKdNr, ""), 100, 52, 50, 10, "normal", 12, 10))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Auftraggeber, 30, 57, 85, 10, "normal", 14, 30))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(SENDUNG.tblSnd_EmpfaengerKdNr > 0, SENDUNG.tblSnd_EmpfaengerKdNr, ""), 100, 72, 50, 10, "bold", 12, 10))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Empfaenger, 30, 77, 85, 10, "bold", 14, 30))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(SENDUNG.tblSnd_AbsenderKdNr > 0, SENDUNG.tblSnd_AbsenderKdNr, ""), 100, 92, 50, 10, "normal", 12, 10))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Absender, 30, 97, 85, 10, "normal", 14, 30))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(AVISO.Frächter_KdNr > 0, AVISO.Frächter_KdNr, ""), 100, 112, 50, 10, "normal", 12, 10))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Frächter, 30, 117, 85, 10, "normal", 14, 30))
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 122, 156, 80, 10, "bold", 16, 30, iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Warenbezeichnung, 122, 197, 80, 10, "bold", 14, 30, iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Colli, 122, 212, 40, 10, "normal", 14, 30, iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Gewicht, 162, 212, 40, 10, "normal", 14, 30, iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(AVISO.Ankunft > cMeineFunktionenAVISO.LeerDatum, AVISO.Ankunft.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Ankunft.ToString("HH:mm"), ""), 122, 168, 40, 10, "normal", 14, 30, iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(AVISO.Freigabe > cMeineFunktionenAVISO.LeerDatum, AVISO.Freigabe.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Freigabe.ToString("HH:mm"), ""), 162, 168, 40, 10, "normal", 14, 30, iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Anmerkung, 20, 155, 95, 115, "normal", 14))
|
||||
|
||||
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
|
||||
Dim txt = ADMIN.getValueTxtBySql("SELECT isnull([DokumenteLKWFreigabe],'') as DokumenteLKWFreigabe FROM [Kunden] WHERE [KundenNr]=" & SENDUNG.tblSnd_EmpfaengerKdNr, "FMZOLL")
|
||||
If txt <> "" Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("ACHTUNG: Zu sendene Dokumente:", 125, 225, 75, 5, "bold", 10))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txt, 125, 231, 75, 25, "normal", 10))
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
' If SENDUNG.tblSnd_bar IsNot Nothing AndAlso CBool(SENDUNG.tblSnd_bar) Then
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 126, 132, 6, 6, "bold", 14, -1, iTextSharp.text.Element.ALIGN_LEFT))
|
||||
' If SENDUNG.tblSnd_barBeleg IsNot Nothing Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_barBeleg, 142, 133, 40, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_CENTER))
|
||||
' If SENDUNG.tblSnd_betrag IsNot Nothing And IsNumeric(SENDUNG.tblSnd_betrag) Then
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDbl(SENDUNG.tblSnd_betrag).ToString("C2"), 187, 133, 15, 5, "bold", 10, -1, iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
' End If
|
||||
' End If
|
||||
|
||||
Select Case SENDUNG.tblSnd_aufschub
|
||||
Case "VERAG"
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Aufschub VERAG", 127, 140, 40, 5, "bold", 10, -1, iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case "AUFTR"
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("eig. BIN", 127, 63, 20, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case "EMPF"
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("eig. BIN", 127, 83, 20, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT))
|
||||
End Select
|
||||
|
||||
|
||||
SENDUNG.LOAD_ABRECHNUNG() 'Daten holen
|
||||
|
||||
Dim cnt_fr As Integer = 0
|
||||
Dim cnt_av As Integer = 0
|
||||
Dim cnt_au As Integer = 0
|
||||
Dim cnt_ab As Integer = 0
|
||||
Dim cnt_em As Integer = 0
|
||||
For Each r As VERAG_PROG_ALLGEMEIN.cSendungAbrechnung In SENDUNG.ABRECHNUNG
|
||||
Select Case r.sndabr_beteiligter
|
||||
Case "AVISIERER"
|
||||
doAbrechnungsDetails(r, listTowrite, 33, cnt_av)
|
||||
Case "AUFTR"
|
||||
doAbrechnungsDetails(r, listTowrite, 53, cnt_au)
|
||||
Case "EMPF"
|
||||
doAbrechnungsDetails(r, listTowrite, 73, cnt_em)
|
||||
Case "ABS"
|
||||
doAbrechnungsDetails(r, listTowrite, 93, cnt_ab)
|
||||
Case "FRACHTF"
|
||||
doAbrechnungsDetails(r, listTowrite, 113, cnt_fr)
|
||||
End Select
|
||||
|
||||
Next
|
||||
|
||||
If art = "PRINT" Then
|
||||
fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)
|
||||
ElseIf art = "DIALOG" Then
|
||||
fm.fillPDF(name, list, listTowrite, , True, , barcode, barcodeLKW)
|
||||
Else
|
||||
fm.fillPDF(name, list, listTowrite, , , , barcode, barcodeLKW)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Shared Sub PrintSendung(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "")
|
||||
Dim ADMIN As New cADMIN
|
||||
|
||||
If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then
|
||||
Else
|
||||
MsgBox("Abfertigungsnummer angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Not SENDUNG.tblSnd_Fremdspedition And SENDUNG.tblSnd_Abfertigungsart_ID <= 0 Then
|
||||
MsgBox("Abfertigungsart angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "-" & SENDUNG.UnterNr & "/", 1, True, 25)
|
||||
barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)
|
||||
Dim barcodeLKW As Image = Nothing
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_BarcodeLKW") Then
|
||||
barcodeLKW = Code128Rendering.MakeBarcodeImage("/" & AVISO.AvisoID & "/", 1, True, 20)
|
||||
End If
|
||||
'Dim DATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
|
||||
|
||||
Dim abfertArt = ""
|
||||
If SENDUNG.tblSnd_Abfertigungsart_ID > 0 Then abfertArt = "" & SENDUNG.tblSnd_Abfertigungsart_ID & " - " & ADMIN.getValueTxtBySql("SELECT isnull([Abfertigungsbezeichnung],'') FROM [Abfertigungsarten] WHERE [Abfertigungsart]=" & SENDUNG.tblSnd_Abfertigungsart_ID, "FMZOLL")
|
||||
|
||||
Dim VALUES As New Gemeinsames.rptSendungenValues
|
||||
If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
|
||||
If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
|
||||
|
||||
VALUES.ABF_ART = SENDUNG.tblSnd_Abfertigungsart_ID
|
||||
VALUES.Abfertigungsnummer = SENDUNG.AbfertigungsNr
|
||||
VALUES.FilialeNr = SENDUNG.FilialenNr
|
||||
|
||||
VALUES.Abfertigungsart = abfertArt
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_Grenzstelle") Then
|
||||
If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
VALUES.Grenze = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
|
||||
Else
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
|
||||
VALUES.Grenze = ""
|
||||
Else
|
||||
VALUES.Grenze = AVISO.Grenzstelle
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
VALUES.Avisierer_KdNr = IIf(AVISO.Auftraggeber_KdNr > 0, AVISO.Auftraggeber_KdNr, "")
|
||||
VALUES.Avisierer_Firma = AVISO.Auftraggeber
|
||||
|
||||
VALUES.Auftraggeber_KdNr = IIf(SENDUNG.tblSnd_AuftraggeberKdNr > 0, SENDUNG.tblSnd_AuftraggeberKdNr, "")
|
||||
VALUES.Auftraggeber_Firma = SENDUNG.tblSnd_Auftraggeber
|
||||
VALUES.KdAuftrNr = If(SENDUNG.tblSnd_KdAuftragsNr, "")
|
||||
If SENDUNG.tblSnd_AuftraggeberKdNr > 0 Then
|
||||
Dim eust = getAufschubKto(SENDUNG.tblSnd_AuftraggeberKdNr, "EUST")
|
||||
If eust <> "" Then VALUES.Auftraggeber_EUSTKto = "EUST: " & eust
|
||||
|
||||
Dim zoll = getAufschubKto(SENDUNG.tblSnd_AuftraggeberKdNr, "ZOLL")
|
||||
If zoll <> "" Then VALUES.Auftraggeber_ZOLLKto = "ZOLL: " & zoll
|
||||
End If
|
||||
|
||||
|
||||
VALUES.Empfaenger_KdNr = IIf(SENDUNG.tblSnd_EmpfaengerKdNr > 0, SENDUNG.tblSnd_EmpfaengerKdNr, "")
|
||||
VALUES.Empfaenger_Firma = SENDUNG.tblSnd_Empfaenger
|
||||
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
|
||||
Dim eust = getAufschubKto(SENDUNG.tblSnd_EmpfaengerKdNr, "EUST")
|
||||
If eust <> "" Then VALUES.Empfaenger_EUSTKto = "EUST: " & eust
|
||||
|
||||
Dim zoll = getAufschubKto(SENDUNG.tblSnd_EmpfaengerKdNr, "ZOLL")
|
||||
If zoll <> "" Then VALUES.Empfaenger_ZOLLKto = "ZOLL: " & zoll
|
||||
|
||||
End If
|
||||
|
||||
|
||||
VALUES.Absender_KdNr = IIf(SENDUNG.tblSnd_AbsenderKdNr > 0, SENDUNG.tblSnd_AbsenderKdNr, "")
|
||||
VALUES.Absender_Firma = SENDUNG.tblSnd_Absender
|
||||
|
||||
VALUES.Frachtfuehrer_KdNr = IIf(AVISO.Frächter_KdNr > 0, AVISO.Frächter_KdNr, "")
|
||||
VALUES.Frachtfuehrer_Firma = AVISO.Frächter
|
||||
|
||||
VALUES.LKWKennzeichen = AVISO.LKW_Nr
|
||||
VALUES.Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung
|
||||
' VALUES.Colli = SENDUNG.tblSnd_Colli
|
||||
If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso SENDUNG.tblSnd_Gewicht <> "" Then
|
||||
VALUES.Gewicht = If(Not IsNumeric(SENDUNG.tblSnd_Gewicht) Or SENDUNG.tblSnd_Gewicht.Trim.ToLower.EndsWith("kg"), SENDUNG.tblSnd_Gewicht, SENDUNG.tblSnd_Gewicht & " kg")
|
||||
End If
|
||||
If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso SENDUNG.tblSnd_Colli <> "" Then
|
||||
VALUES.Colli = If(Not IsNumeric(SENDUNG.tblSnd_Colli) Or SENDUNG.tblSnd_Colli.Trim.ToLower.Replace(".", "").EndsWith("pk"), SENDUNG.tblSnd_Colli, SENDUNG.tblSnd_Colli & " Pk.")
|
||||
End If
|
||||
|
||||
VALUES.Ankunft = IIf(AVISO.Ankunft > cMeineFunktionenAVISO.LeerDatum, AVISO.Ankunft.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Ankunft.ToString("HH:mm"), "")
|
||||
VALUES.Abfahrt = IIf(AVISO.Freigabe > cMeineFunktionenAVISO.LeerDatum, AVISO.Freigabe.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Freigabe.ToString("HH:mm"), "")
|
||||
VALUES.Anmerkungen = (SENDUNG.tblSnd_Anmerkung & vbNewLine & vbNewLine & If(SENDUNG.tblSnd_AnmerkungDispoliste, "")).ToString.Trim
|
||||
|
||||
If SENDUNG.tblSnd_Abfertigungsart_ID = 23 Then
|
||||
VALUES.Tarifposanzahl = SENDUNG.tblSnd_anzahlHandling
|
||||
End If
|
||||
|
||||
VALUES.NCTS_VZAdr = If(SENDUNG.tblSnd_NCTSVerzollungsadresse, "")
|
||||
VALUES.NCTS_VZAdr &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Strasse, "")
|
||||
VALUES.NCTS_VZAdr &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Land, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_Ort, "")
|
||||
VALUES.NCTS_VZAdr &= vbNewLine
|
||||
If If(SENDUNG.NCTS_Bestimmungszollstelle, "") <> "" Then VALUES.NCTS_VZAdr &= "Best.Zollst.:" & If(SENDUNG.NCTS_Bestimmungszollstelle, "") & " "
|
||||
If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") & If(SENDUNG.NCTS_Verzollungsadresse_EORI_NL, "")
|
||||
|
||||
|
||||
VALUES.NCTS_VZAdr = VALUES.NCTS_VZAdr.Trim
|
||||
|
||||
VALUES.FISKAL_ENDEMPF = If(SENDUNG.tblSnd_Endempfaenger, "")
|
||||
|
||||
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
|
||||
Dim txt = ADMIN.getValueTxtBySql("SELECT isnull([DokumenteLKWFreigabe],'') as DokumenteLKWFreigabe FROM [Kunden] WHERE [KundenNr]=" & SENDUNG.tblSnd_EmpfaengerKdNr, "FMZOLL")
|
||||
If txt <> "" Then
|
||||
VALUES.DokZuSend_Ueberschrift = "ACHTUNG: Zu sendene Dokumente:"
|
||||
VALUES.DokZuSend_Text = txt
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If SENDUNG.tblSnd_BARzuKassieren IsNot Nothing Then
|
||||
VALUES.BARzuKassieren = CDbl(SENDUNG.tblSnd_BARzuKassieren).ToString("C2")
|
||||
Else
|
||||
VALUES.BARzuKassieren = ""
|
||||
End If
|
||||
|
||||
|
||||
Try
|
||||
|
||||
' VALUES.BAR = "X"
|
||||
Dim dt As DataTable = VERAGSQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz , isnull((Select Name from Personal where ID=Benutzer),'') as Benutzer FROM [tblEABelegnummer] where ((FilialenNr='" & SENDUNG.FilialenNr & "' and AbfertigungsNr='" & SENDUNG.AbfertigungsNr & "') OR LKW_id='" & AVISO.AvisoID & "') and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL")
|
||||
If dt.Rows.Count > 0 Then
|
||||
VALUES.Frachtfuehrer_Bar_BelegNr = getBenutzerShort(dt.Rows(0)("Benutzer").ToString) & " / " & dt.Rows(0)("rksv_BelegId").ToString
|
||||
VALUES.Frachtfuehrer_Bar_Betrag = CDbl(dt.Rows(0)("rksv_umsatz")).ToString("C2")
|
||||
|
||||
End If
|
||||
If dt.Rows.Count > 1 Then
|
||||
VALUES.Frachtfuehrer_Bar_BelegNr2 = getBenutzerShort(dt.Rows(0)("Benutzer").ToString) & " / " & dt.Rows(1)("rksv_BelegId").ToString
|
||||
VALUES.Frachtfuehrer_Bar_Betrag2 = CDbl(dt.Rows(1)("rksv_umsatz")).ToString("C2")
|
||||
End If
|
||||
If dt.Rows.Count > 2 Then
|
||||
VALUES.Frachtfuehrer_Bar_BelegNr3 = getBenutzerShort(dt.Rows(0)("Benutzer").ToString) & " / " & dt.Rows(2)("rksv_BelegId").ToString
|
||||
VALUES.Frachtfuehrer_Bar_Betrag3 = CDbl(dt.Rows(2)("rksv_umsatz")).ToString("C2")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
'If SENDUNG.tblSnd_bar IsNot Nothing AndAlso CBool(SENDUNG.tblSnd_bar) Then
|
||||
'VALUES.BAR = "X"
|
||||
'If SENDUNG.tblSnd_barBeleg IsNot Nothing Then VALUES.Frachtfuehrer_Bar_BelegNr = SENDUNG.tblSnd_barBeleg
|
||||
'If SENDUNG.tblSnd_betrag IsNot Nothing And IsNumeric(SENDUNG.tblSnd_betrag) Then
|
||||
'VALUES.Frachtfuehrer_Bar_Betrag = CDbl(SENDUNG.tblSnd_betrag).ToString("C2")
|
||||
'End If
|
||||
' End If
|
||||
|
||||
Select Case SENDUNG.tblSnd_aufschub
|
||||
Case "VERAG"
|
||||
VALUES.Aufschub_VERAG = "Aufschub VERAG"
|
||||
Case "AUFTR"
|
||||
VALUES.Auftraggeber_eigBin = "eig. BIN"
|
||||
Case "EMPF"
|
||||
VALUES.Empfaenger_eigBIN = "eig. BIN"
|
||||
End Select
|
||||
|
||||
|
||||
SENDUNG.LOAD_ABRECHNUNG() 'Daten holen
|
||||
Dim abfertKostKdnr As Integer = -1
|
||||
Dim cnt_fr As Integer = 0
|
||||
Dim cnt_av As Integer = 0
|
||||
Dim cnt_au As Integer = 0
|
||||
Dim cnt_ab As Integer = 0
|
||||
Dim cnt_em As Integer = 0
|
||||
For Each r As VERAG_PROG_ALLGEMEIN.cSendungAbrechnung In SENDUNG.ABRECHNUNG
|
||||
Select Case r.sndabr_beteiligter
|
||||
Case "AVISIERER"
|
||||
Select Case r.sndabr_abrArt
|
||||
Case "ZOLL" : VALUES.Avisierer_Zoll = "X"
|
||||
Case "EUST" : VALUES.Avisierer_Eust = "X"
|
||||
Case "ABFKOST" : VALUES.Avisierer_Abf = "X" : abfertKostKdnr = AVISO.Auftraggeber_KdNr
|
||||
Case "CLEARING" : VALUES.Avisierer_Clear = "X"
|
||||
Case Else
|
||||
If cnt_av = 0 Then : VALUES.Avisierer_Leistung1 = r.sndabr_bezeichnung : VALUES.Avisierer_Betrag1 = ObjToCurr(r.sndabr_preis) : cnt_av += 1
|
||||
ElseIf cnt_av = 1 Then : VALUES.Avisierer_Leistung2 = r.sndabr_bezeichnung : VALUES.Avisierer_Betrag2 = ObjToCurr(r.sndabr_preis) : cnt_av += 1
|
||||
ElseIf cnt_av = 2 Then : VALUES.Avisierer_Leistung3 = r.sndabr_bezeichnung : VALUES.Avisierer_Betrag3 = ObjToCurr(r.sndabr_preis) : cnt_av += 1
|
||||
End If
|
||||
End Select
|
||||
Case "AUFTR"
|
||||
Select Case r.sndabr_abrArt
|
||||
Case "ZOLL" : VALUES.Auftraggeber_Zoll = "X"
|
||||
Case "EUST" : VALUES.Auftraggeber_Eust = "X"
|
||||
Case "ABFKOST" : VALUES.Auftraggeber_Abf = "X" : abfertKostKdnr = SENDUNG.tblSnd_AuftraggeberKdNr
|
||||
Case "CLEARING" : VALUES.Auftraggeber_Clear = "X"
|
||||
Case Else
|
||||
If cnt_au = 0 Then : VALUES.Auftraggeber_Leistung1 = r.sndabr_bezeichnung : VALUES.Auftraggeber_Betrag = ObjToCurr(r.sndabr_preis) : cnt_au += 1
|
||||
ElseIf cnt_au = 1 Then : VALUES.Auftraggeber_Leistung2 = r.sndabr_bezeichnung : VALUES.Auftraggeber_Betrag2 = ObjToCurr(r.sndabr_preis) : cnt_au += 1
|
||||
ElseIf cnt_au = 2 Then : VALUES.Auftraggeber_Leistung3 = r.sndabr_bezeichnung : VALUES.Auftraggeber_Betrag3 = ObjToCurr(r.sndabr_preis) : cnt_au += 1
|
||||
End If
|
||||
End Select
|
||||
Case "EMPF"
|
||||
Select Case r.sndabr_abrArt
|
||||
Case "ZOLL" : VALUES.Empfaenger_Zoll = "X"
|
||||
Case "EUST" : VALUES.Empfaenger_Eust = "X"
|
||||
Case "ABFKOST" : VALUES.Empfaenger_Abf = "X" : abfertKostKdnr = SENDUNG.tblSnd_EmpfaengerKdNr
|
||||
Case "CLEARING" : VALUES.Empfaenger_Clear = "X"
|
||||
Case Else
|
||||
If cnt_em = 0 Then : VALUES.Empfaenger_Leistung1 = r.sndabr_bezeichnung : VALUES.Empfaenger_Betrag1 = ObjToCurr(r.sndabr_preis) : cnt_em += 1
|
||||
ElseIf cnt_em = 1 Then : VALUES.Empfaenger_Leistung2 = r.sndabr_bezeichnung : VALUES.Empfaenger_Betrag2 = ObjToCurr(r.sndabr_preis) : cnt_em += 1
|
||||
ElseIf cnt_em = 2 Then : VALUES.Empfaenger_Leistung3 = r.sndabr_bezeichnung : VALUES.Empfaenger_Betrag3 = ObjToCurr(r.sndabr_preis) : cnt_em += 1
|
||||
End If
|
||||
End Select
|
||||
Case "ABS"
|
||||
Select Case r.sndabr_abrArt
|
||||
Case "ZOLL" : VALUES.Absender_Zoll = "X"
|
||||
Case "EUST" : VALUES.Absender_Eust = "X"
|
||||
Case "ABFKOST" : VALUES.Absender_Abf = "X" : abfertKostKdnr = SENDUNG.tblSnd_AbsenderKdNr
|
||||
Case "CLEARING" : VALUES.Absender_Clear = "X"
|
||||
Case Else
|
||||
If cnt_ab = 0 Then : VALUES.Absender_Leistung1 = r.sndabr_bezeichnung : VALUES.Absender_Betrag1 = ObjToCurr(r.sndabr_preis) : cnt_ab += 1
|
||||
ElseIf cnt_ab = 1 Then : VALUES.Absender_Leistung2 = r.sndabr_bezeichnung : VALUES.Absender_Betrag2 = ObjToCurr(r.sndabr_preis) : cnt_ab += 1
|
||||
ElseIf cnt_ab = 2 Then : VALUES.Absender_Leistung3 = r.sndabr_bezeichnung : VALUES.Absender_Betrag3 = ObjToCurr(r.sndabr_preis) : cnt_ab += 1
|
||||
End If
|
||||
End Select
|
||||
Case "FRACHTF"
|
||||
Select Case r.sndabr_abrArt
|
||||
Case "ZOLL" : VALUES.Frachtfuehrer_Zoll = "X"
|
||||
Case "EUST" : VALUES.Frachtfuehrer_Eust = "X"
|
||||
Case "ABFKOST" : VALUES.Frachtfuehrer_Abf = "X" : abfertKostKdnr = AVISO.Frächter_KdNr
|
||||
Case "CLEARING" : VALUES.Frachtfuehrer_Clear = "X"
|
||||
Case Else
|
||||
If cnt_fr = 0 Then : VALUES.Frachtfuehrer_Leistung1 = r.sndabr_bezeichnung : VALUES.Frachtfuehrer_Betrag1 = ObjToCurr(r.sndabr_preis) : cnt_fr += 1
|
||||
ElseIf cnt_fr = 1 Then : VALUES.Frachtfuehrer_Leistung2 = r.sndabr_bezeichnung : VALUES.Frachtfuehrer_Betrag2 = ObjToCurr(r.sndabr_preis) : cnt_fr += 1
|
||||
ElseIf cnt_fr = 2 Then : VALUES.Frachtfuehrer_Leistung3 = r.sndabr_bezeichnung : VALUES.Frachtfuehrer_Betrag3 = ObjToCurr(r.sndabr_preis) : cnt_fr += 1
|
||||
End If
|
||||
End Select
|
||||
End Select
|
||||
|
||||
Next
|
||||
VALUES.ABTEILUNG = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
|
||||
|
||||
VALUES.AbfKostKdnr = abfertKostKdnr
|
||||
|
||||
|
||||
Try
|
||||
Dim pc As System.Diagnostics.Process = System.Diagnostics.Process.GetCurrentProcess()
|
||||
pc.MaxWorkingSet = pc.MinWorkingSet
|
||||
|
||||
Dim imgpath = ""
|
||||
Dim resPath As String = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\")
|
||||
|
||||
If SENDUNG.FilialenNr = "4839" Then
|
||||
imgpath = resPath & "LEX.png"
|
||||
ElseIf SENDUNG.FilialenNr = "5501" Then
|
||||
imgpath = resPath & "IMEX.png"
|
||||
Else
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
||||
Case "SUB"
|
||||
Select Case VALUES.ABTEILUNG
|
||||
Case "QS" : imgpath = resPath & "QS.png"
|
||||
Case Else : imgpath = resPath & "SUB.png"
|
||||
End Select
|
||||
Case "WAI" : imgpath = resPath & "WAI.png"
|
||||
Case "NKD" : imgpath = resPath & "NKD.png"
|
||||
Case "SBG" : imgpath = resPath & "SBG.png"
|
||||
Case Else : imgpath = resPath & "SUB.png"
|
||||
|
||||
|
||||
End Select
|
||||
End If
|
||||
'MsgBox(imgpath)
|
||||
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath)
|
||||
rpt.Document.CacheToDisk = False
|
||||
|
||||
'rpt.Document.CacheToDisk = True
|
||||
' rpt.Document.CacheToDiskLocation = "C:\\Temp"
|
||||
|
||||
If art = "" Or art = "PDF" Then ' Wird angezeigt, nicht gedruckt
|
||||
Dim printForm As New SDL.frmPrintLayout
|
||||
printForm.Viewer.LoadDocument(rpt)
|
||||
printForm.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
printForm.Show()
|
||||
' printForm.BringToFront()
|
||||
ElseIf art = "PRINT" Or art = "DIALOG" Then
|
||||
|
||||
rpt.Run(False)
|
||||
' If Printername = "" Then rpt.Dispose() : Exit Sub
|
||||
rpt.Document.Printer.PrinterName = Printername
|
||||
rpt.Document.Print((art = "DIALOG" Or Printername = ""), False)
|
||||
rpt.Dispose()
|
||||
'rpt.Document.Dispose()
|
||||
' rpt.Dispose()
|
||||
' rpt = Nothing
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
' If art = "PRINT" Then
|
||||
'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)
|
||||
' ElseIf art = "DIALOG" Then
|
||||
' fm.fillPDF(name, list, listTowrite, , True, , barcode, barcodeLKW)
|
||||
' Else
|
||||
' fm.fillPDF(name, list, listTowrite, , , , barcode, barcodeLKW)
|
||||
' End If
|
||||
'
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Shared Function ObjToCurr(o)
|
||||
If o Is Nothing Then Return ""
|
||||
If IsNumeric(o) Then Return CDbl(o).ToString("C2")
|
||||
Return o
|
||||
End Function
|
||||
|
||||
Shared Function getAufschubKto(KdNr As Integer, art As String) As String
|
||||
getAufschubKto = ""
|
||||
Select Case art
|
||||
Case "EUST"
|
||||
getAufschubKto = VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([kdAkto_hauptzollamt],'') + isnull([kdAkto_kontonummer],'') FROM [tblKundenAufschubkonten] where [kdAkto_KundenNr]= " & KdNr & " and kdAkto_art IN(10,20)", "FMZOLL")
|
||||
If getAufschubKto = "" Then getAufschubKto = VERAGSQL.getValueTxtBySql("SELECT isnull([Aufschubkonto EUSt],'') FROM Kunden WHERE KundenNr=" & KdNr, "FMZOLL")
|
||||
Case "ZOLL"
|
||||
getAufschubKto = VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([kdAkto_hauptzollamt],'') + isnull([kdAkto_kontonummer],'') FROM [tblKundenAufschubkonten] where [kdAkto_KundenNr]= " & KdNr & " and kdAkto_art IN(10,15)", "FMZOLL")
|
||||
If getAufschubKto = "" Then getAufschubKto = VERAGSQL.getValueTxtBySql("SELECT isnull([Aufschubkonto ZOLL],'') FROM Kunden WHERE KundenNr=" & KdNr, "FMZOLL")
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Shared Sub PrintSendungATILLA(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "")
|
||||
Dim ADMIN As New cADMIN
|
||||
|
||||
|
||||
Dim VALUES As New Gemeinsames.rptSendungenValuesATILLA
|
||||
|
||||
Dim barcodeLKW As Image = Nothing
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_BarcodeLKW") Then
|
||||
barcodeLKW = Code128Rendering.MakeBarcodeImage("/" & AVISO.AvisoID & "/", 1, True, 20)
|
||||
If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
|
||||
End If
|
||||
|
||||
|
||||
|
||||
VALUES.AvisoId = AVISO.AvisoID
|
||||
|
||||
VALUES.Avisierer_KdNr = IIf(IsNumeric(AVISO.Auftraggeber_KdNr) AndAlso AVISO.Auftraggeber_KdNr > 0, AVISO.Auftraggeber_KdNr, "")
|
||||
VALUES.Avisierer_Firma = AVISO.Auftraggeber
|
||||
|
||||
VALUES.Frachtfuehrer_KdNr = IIf(IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0, AVISO.Frächter_KdNr, "")
|
||||
VALUES.Frachtfuehrer_Firma = AVISO.Frächter
|
||||
VALUES.LKWKennzeichen = AVISO.LKW_Nr
|
||||
|
||||
VALUES.Ankunft = IIf(AVISO.Ankunft > cMeineFunktionenAVISO.LeerDatum, AVISO.Ankunft.ToString("dd.MM.yy HH:mm"), "")
|
||||
VALUES.Abfahrt = IIf(AVISO.Freigabe > cMeineFunktionenAVISO.LeerDatum, AVISO.Freigabe.ToString("dd.MM.yy HH:mm"), "")
|
||||
|
||||
'Dim DATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
|
||||
If SENDUNG IsNot Nothing Then
|
||||
|
||||
|
||||
Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "-" & SENDUNG.UnterNr & "/", 1, True, 25)
|
||||
barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)
|
||||
|
||||
If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then
|
||||
Else
|
||||
MsgBox("Abfertigungsnummer angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
|
||||
|
||||
'VALUES.ABF_ART = SENDUNG.tblSnd_Abfertigungsart_ID
|
||||
VALUES.Abfertigungsnummer = SENDUNG.AbfertigungsNr
|
||||
VALUES.FilialeNr = SENDUNG.FilialenNr
|
||||
|
||||
|
||||
|
||||
VALUES.Auftraggeber_KdNr = IIf(SENDUNG.tblSnd_AuftraggeberKdNr > 0, SENDUNG.tblSnd_AuftraggeberKdNr, "")
|
||||
VALUES.Auftraggeber_Firma = SENDUNG.tblSnd_Auftraggeber
|
||||
|
||||
VALUES.Empfaenger_KdNr = IIf(SENDUNG.tblSnd_EmpfaengerKdNr > 0, SENDUNG.tblSnd_EmpfaengerKdNr, "")
|
||||
VALUES.Empfaenger_Firma = SENDUNG.tblSnd_Empfaenger
|
||||
|
||||
VALUES.Absender_KdNr = IIf(SENDUNG.tblSnd_AbsenderKdNr > 0, SENDUNG.tblSnd_AbsenderKdNr, "")
|
||||
VALUES.Absender_Firma = SENDUNG.tblSnd_Absender
|
||||
|
||||
VALUES.Warenbezeichnung = If(SENDUNG.tblSnd_Warenbezeichnung, "")
|
||||
|
||||
If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso SENDUNG.tblSnd_Gewicht <> "" Then
|
||||
VALUES.Gewicht = If(Not IsNumeric(SENDUNG.tblSnd_Gewicht) Or SENDUNG.tblSnd_Gewicht.Trim.ToLower.EndsWith("kg"), SENDUNG.tblSnd_Gewicht, SENDUNG.tblSnd_Gewicht & " kg")
|
||||
End If
|
||||
If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso SENDUNG.tblSnd_Colli <> "" Then
|
||||
VALUES.Colli = If(Not IsNumeric(SENDUNG.tblSnd_Colli) Or SENDUNG.tblSnd_Colli.Trim.ToLower.Replace(".", "").EndsWith("pk"), SENDUNG.tblSnd_Colli, SENDUNG.tblSnd_Colli & " Pk.")
|
||||
End If
|
||||
|
||||
VALUES.Anmerkungen = SENDUNG.tblSnd_Anmerkung
|
||||
|
||||
End If
|
||||
|
||||
VALUES.ABTEILUNG = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
|
||||
|
||||
' VALUES.Auftraggeber_Firma = ""
|
||||
VALUES.Absender_Firma = ""
|
||||
VALUES.Empfaenger_Firma = ""
|
||||
VALUES.IRAN_CMR_Agent = ""
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
VALUES.ZA_1 = getZSTBezeichnung(SQL, AVISO.Durchgangszollstelle1)
|
||||
VALUES.ZA_2 = getZSTBezeichnung(SQL, AVISO.Durchgangszollstelle2)
|
||||
VALUES.ZA_3 = getZSTBezeichnung(SQL, AVISO.Durchgangszollstelle3)
|
||||
VALUES.ZA_4 = getZSTBezeichnung(SQL, AVISO.Durchgangszollstelle4)
|
||||
VALUES.ZA_5 = getZSTBezeichnung(SQL, AVISO.Durchgangszollstelle5)
|
||||
VALUES.AusgangsZst_1 = ""
|
||||
VALUES.AusgangsZst_2 = ""
|
||||
VALUES.AusgangsZst_3 = ""
|
||||
VALUES.AusgangsZst_4 = ""
|
||||
VALUES.AusgangsZst_5 = ""
|
||||
VALUES.AusgangsZst_6 = ""
|
||||
VALUES.AusgangsZst_7 = ""
|
||||
VALUES.AusgangsZst_8 = ""
|
||||
VALUES.AusgangsZst_9 = ""
|
||||
|
||||
If AVISO.Ausgangszollstelle IsNot Nothing Then
|
||||
For Each s In AVISO.Ausgangszollstelle.split(";")
|
||||
Select Case s
|
||||
Case "KA" : VALUES.AusgangsZst_1 = "X"
|
||||
Case "L" : VALUES.AusgangsZst_2 = "X"
|
||||
Case "BB" : VALUES.AusgangsZst_3 = "X"
|
||||
Case "HR" : VALUES.AusgangsZst_4 = "X"
|
||||
Case "TK" : VALUES.AusgangsZst_5 = "X"
|
||||
Case "T" : VALUES.AusgangsZst_6 = "X"
|
||||
Case "KI" : VALUES.AusgangsZst_7 = "X"
|
||||
Case "TS" : VALUES.AusgangsZst_8 = "X"
|
||||
Case Else : If s <> "" Then VALUES.AusgangsZst_9 = "X" : VALUES.AndereAusgangsstelle = s
|
||||
End Select
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
If AVISO.TransportTemperatur IsNot Nothing AndAlso AVISO.TransportTemperatur <> "" Then
|
||||
VALUES.TransporttemperaturCBX = "X"
|
||||
VALUES.Transporttemperatur = AVISO.TransportTemperatur
|
||||
End If
|
||||
If AVISO.Zugmaschine IsNot Nothing AndAlso AVISO.Zugmaschine <> "" Then
|
||||
VALUES.ZugmaschineCBX = "X"
|
||||
VALUES.Zugmaschine = AVISO.Zugmaschine
|
||||
End If
|
||||
|
||||
|
||||
Try
|
||||
Dim pc As System.Diagnostics.Process = System.Diagnostics.Process.GetCurrentProcess()
|
||||
pc.MaxWorkingSet = pc.MinWorkingSet
|
||||
|
||||
Dim imgpath = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\akt_ATILLA.png")
|
||||
|
||||
|
||||
Dim rpt As New Gemeinsames.rptSendungenATILLA(VALUES, imgpath)
|
||||
rpt.Document.CacheToDisk = False
|
||||
|
||||
'rpt.Document.CacheToDisk = True
|
||||
' rpt.Document.CacheToDiskLocation = "C:\\Temp"
|
||||
|
||||
If art = "" Or art = "PDF" Then ' Wird angezeigt, nicht gedruckt
|
||||
Dim printForm As New SDL.frmPrintLayout
|
||||
printForm.Viewer.LoadDocument(rpt)
|
||||
printForm.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
printForm.Show()
|
||||
' printForm.BringToFront()
|
||||
ElseIf art = "PRINT" Or art = "DIALOG" Then
|
||||
|
||||
rpt.Run(False)
|
||||
' If Printername = "" Then rpt.Dispose() : Exit Sub
|
||||
rpt.Document.Printer.PrinterName = Printername
|
||||
rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
|
||||
rpt.Document.Printer.OriginAtMargins = False
|
||||
'rpt.Document.Printer.PrinterSettings.PrintRange = Printing.PrintRange.Selection
|
||||
'rpt.Document.Printer.PrinterSettings.PrintRange = Printing.PrintRange.CurrentPage
|
||||
|
||||
' rpt.Document.PrintOptions.PageScaling = Extensibility.Printing.PageScaling.None 'Extensibility.Printing.PageScaling.FitToPrintableArea
|
||||
rpt.Document.Print((art = "DIALOG" Or Printername = ""), False)
|
||||
rpt.Dispose()
|
||||
'rpt.Document.Dispose()
|
||||
' rpt.Dispose()
|
||||
' rpt = Nothing
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
' If art = "PRINT" Then
|
||||
'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW)
|
||||
' ElseIf art = "DIALOG" Then
|
||||
' fm.fillPDF(name, list, listTowrite, , True, , barcode, barcodeLKW)
|
||||
' Else
|
||||
' fm.fillPDF(name, list, listTowrite, , , , barcode, barcodeLKW)
|
||||
' End If
|
||||
'
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Shared Function getZSTBezeichnung(SQL As VERAG_PROG_ALLGEMEIN.SQL, o As Object) As String
|
||||
If o Is Nothing Then Return ""
|
||||
Dim tmp = SQL.getValueTxtBySql("select isnull([basncd_name],'') as Dienststelle FROM atlas.dbo.basncd WHERE [basncd_dstnr]='" & o & "'", "ATLAS")
|
||||
Return If(tmp <> "", tmp, o)
|
||||
End Function
|
||||
|
||||
Shared Function getBenutzerShort(s As String) As String
|
||||
If s.ToString.Contains(" ") Then
|
||||
Dim split() = s.ToString.Split(" ")
|
||||
getBenutzerShort = split(0)
|
||||
Else
|
||||
getBenutzerShort = s
|
||||
End If
|
||||
If getBenutzerShort.Length > 10 Then
|
||||
getBenutzerShort = getBenutzerShort.Substring(0, 10)
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Shared Sub doAbrechnungsDetails(ByVal r As VERAG_PROG_ALLGEMEIN.cSendungAbrechnung, ByRef listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), y_coord As Integer, ByRef cnt As Integer)
|
||||
Select Case r.sndabr_abrArt
|
||||
Case "ZOLL" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 126, y_coord + 3, 5, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case "EUST" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 133, y_coord + 3, 5, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case "ABFKOST" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 141, y_coord + 3, 5, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case "CLEARING" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 148, y_coord + 3, 5, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Case Else
|
||||
If cnt < 3 Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(r.sndabr_bezeichnung, 154, y_coord + (cnt * 6), 30, 5, "normal", 10, -1, iTextSharp.text.Element.ALIGN_LEFT))
|
||||
If IsNumeric(r.sndabr_preis) Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDbl(r.sndabr_preis).ToString("C2"), 187, y_coord + (cnt * 6), 15, 5, "normal", 10, -1, iTextSharp.text.Element.ALIGN_RIGHT))
|
||||
cnt += 1
|
||||
End If
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
Shared Sub Gelangensbestaetigung(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "")
|
||||
Dim ADMIN As New cADMIN
|
||||
If Not AVISO.Abgeschlossen Then SENDUNG.SAVE() ' Speichern nur wenn noch nicht abgescvhlossen
|
||||
|
||||
If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then
|
||||
Else
|
||||
MsgBox("Abfertigungsnummer angeben!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "-" & SENDUNG.UnterNr & "/", 1, True, 25)
|
||||
Dim barcodeLKW As Image = Code128Rendering.MakeBarcodeImage("/" & AVISO.AvisoID & "/", 1, True, 20)
|
||||
|
||||
'Dim DATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
|
||||
|
||||
Dim name = "Gelangensbestaetigung.pdf"
|
||||
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.AbfertigungsNr, 140, 10, 55, 10, "bold", 18, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.FilialenNr, 149, 41, 26, 5, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.AbfertigungsNr, 149, 46, 26, 5, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString, 149, 52, 26, 5, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Dim packstueckeAVISO_TMP = ""
|
||||
If SENDUNG.tblSnd_Warenbezeichnung <> "" Then
|
||||
packstueckeAVISO_TMP = IIf(SENDUNG.tblSnd_Colli <> "", SENDUNG.tblSnd_Colli & " Pk. ", "")
|
||||
packstueckeAVISO_TMP &= IIf(SENDUNG.tblSnd_Warenbezeichnung <> "", SENDUNG.tblSnd_Warenbezeichnung, "")
|
||||
packstueckeAVISO_TMP &= IIf(SENDUNG.tblSnd_Gewicht <> "", ", " & SENDUNG.tblSnd_Gewicht & " kg ", "")
|
||||
End If
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Absender, 60, 92, 120, 12, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Empfaenger, 60, 110, 120, 12, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Frächter, 60, 125, 120, 12, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(SENDUNG.tblSnd_Gewicht <> "", SENDUNG.tblSnd_Gewicht & " kg ", ""), 60, 159, 120, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 60, 143, 120, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(packstueckeAVISO_TMP, 25, 185, 100, 22, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
|
||||
|
||||
|
||||
If art = "PRINT" Then
|
||||
fm.fillPDF(name, Nothing, listTowrite, , True, Printername,,, SDL.FormularManagerNEU.getUO2)
|
||||
ElseIf art = "DIALOG" Then
|
||||
fm.fillPDF(name, Nothing, listTowrite, , True,,,, SDL.FormularManagerNEU.getUO2)
|
||||
Else
|
||||
fm.fillPDF(name, Nothing, listTowrite,,,,,, SDL.FormularManagerNEU.getUO2)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
14
Aviso/Dokumentenbeschriftung/PageReport1.rdlx
Normal file
14
Aviso/Dokumentenbeschriftung/PageReport1.rdlx
Normal file
@@ -0,0 +1,14 @@
|
||||
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2005/01/reportdefinition">
|
||||
<Width>21cm</Width>
|
||||
<PageWidth>21cm</PageWidth>
|
||||
<PageHeight>29.7cm</PageHeight>
|
||||
<LeftMargin>2.5cm</LeftMargin>
|
||||
<TopMargin>2.5cm</TopMargin>
|
||||
<RightMargin>2.5cm</RightMargin>
|
||||
<BottomMargin>2.5cm</BottomMargin>
|
||||
<Body>
|
||||
<Height>29.7cm</Height>
|
||||
<ReportItems><FixedPage Name="FixedPage1"><Pages><Page>
|
||||
</Page></Pages></FixedPage></ReportItems>
|
||||
</Body>
|
||||
</Report>
|
||||
104
Aviso/Dokumentenbeschriftung/frmPrintLayout.Designer.vb
generated
Normal file
104
Aviso/Dokumentenbeschriftung/frmPrintLayout.Designer.vb
generated
Normal file
@@ -0,0 +1,104 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmPrintLayout
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPrintLayout))
|
||||
Me.btnPrint = New System.Windows.Forms.Button()
|
||||
Me.Viewer = New GrapeCity.ActiveReports.Viewer.Win.Viewer()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'btnPrint
|
||||
'
|
||||
Me.btnPrint.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnPrint.BackColor = System.Drawing.Color.White
|
||||
Me.btnPrint.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnPrint.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnPrint.Image = Global.AVISO.My.Resources.Resources.printer
|
||||
Me.btnPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnPrint.Location = New System.Drawing.Point(1199, 0)
|
||||
Me.btnPrint.Name = "btnPrint"
|
||||
Me.btnPrint.Size = New System.Drawing.Size(155, 55)
|
||||
Me.btnPrint.TabIndex = 2
|
||||
Me.btnPrint.Text = "DRUCKEN "
|
||||
Me.btnPrint.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.btnPrint.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Viewer
|
||||
'
|
||||
Me.Viewer.BackColor = System.Drawing.Color.White
|
||||
Me.Viewer.CurrentPage = 0
|
||||
Me.Viewer.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Viewer.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Viewer.Name = "Viewer"
|
||||
Me.Viewer.PreviewPages = 0
|
||||
'
|
||||
'
|
||||
'
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.Viewer.Sidebar.ParametersPanel.ContextMenu = Nothing
|
||||
Me.Viewer.Sidebar.ParametersPanel.Text = "Parameters"
|
||||
Me.Viewer.Sidebar.ParametersPanel.Width = 200
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.Viewer.Sidebar.SearchPanel.ContextMenu = Nothing
|
||||
Me.Viewer.Sidebar.SearchPanel.Text = "Search results"
|
||||
Me.Viewer.Sidebar.SearchPanel.Width = 200
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.Viewer.Sidebar.ThumbnailsPanel.ContextMenu = Nothing
|
||||
Me.Viewer.Sidebar.ThumbnailsPanel.Text = "Page thumbnails"
|
||||
Me.Viewer.Sidebar.ThumbnailsPanel.Width = 200
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.Viewer.Sidebar.TocPanel.ContextMenu = Nothing
|
||||
Me.Viewer.Sidebar.TocPanel.Text = "Document map"
|
||||
Me.Viewer.Sidebar.TocPanel.Width = 200
|
||||
Me.Viewer.Sidebar.Width = 200
|
||||
Me.Viewer.Size = New System.Drawing.Size(1354, 552)
|
||||
Me.Viewer.TabIndex = 4
|
||||
Me.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
|
||||
'
|
||||
'frmPrintLayout
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1354, 552)
|
||||
Me.Controls.Add(Me.btnPrint)
|
||||
Me.Controls.Add(Me.Viewer)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.KeyPreview = True
|
||||
Me.Name = "frmPrintLayout"
|
||||
Me.Text = "frmPrintLayout"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents btnPrint As System.Windows.Forms.Button
|
||||
Friend WithEvents Viewer As GrapeCity.ActiveReports.Viewer.Win.Viewer
|
||||
End Class
|
||||
980
Aviso/Dokumentenbeschriftung/frmPrintLayout.resx
Normal file
980
Aviso/Dokumentenbeschriftung/frmPrintLayout.resx
Normal file
@@ -0,0 +1,980 @@
|
||||
<?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>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
|
||||
AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r
|
||||
OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
|
||||
RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3/////////
|
||||
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////////////
|
||||
//////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/
|
||||
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm
|
||||
MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
|
||||
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L
|
||||
v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j
|
||||
jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt
|
||||
mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M
|
||||
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////
|
||||
///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU
|
||||
y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm
|
||||
4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3
|
||||
p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
|
||||
p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90
|
||||
SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U
|
||||
y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm
|
||||
MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3/////////////
|
||||
//+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3
|
||||
9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDu6+n/////////////////////////////////////////////////////
|
||||
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL/////////
|
||||
///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
|
||||
//////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/
|
||||
///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm
|
||||
MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb/////////////////////
|
||||
//////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/
|
||||
///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d
|
||||
1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt
|
||||
mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm
|
||||
MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y
|
||||
fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////
|
||||
//////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////
|
||||
//////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3
|
||||
p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3
|
||||
9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t
|
||||
mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////
|
||||
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X/////////////
|
||||
//+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm
|
||||
MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
|
||||
///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
|
||||
///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm
|
||||
MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
//////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu
|
||||
6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv/////
|
||||
///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
|
||||
//////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////
|
||||
//+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////
|
||||
//////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm
|
||||
MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t
|
||||
mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/
|
||||
//////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////
|
||||
///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y
|
||||
fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////
|
||||
///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj
|
||||
jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
|
||||
//////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////
|
||||
///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9
|
||||
USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn
|
||||
NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz
|
||||
RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn
|
||||
NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr
|
||||
OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9
|
||||
USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B
|
||||
s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3Bs6rBs6r39fT/////////////////////////////////////////////////////////
|
||||
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/
|
||||
///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j/////////////////
|
||||
///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////
|
||||
///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
|
||||
///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA
|
||||
XUL/////////////////////////////////////////////////////////////////////////////
|
||||
///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////
|
||||
//+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////////////////////
|
||||
//////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
|
||||
///////////////////////////////////////////////////////////////////////////d1tFm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////////////////////
|
||||
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/
|
||||
//////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd
|
||||
1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////
|
||||
///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////
|
||||
///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT/////////////////////
|
||||
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////
|
||||
//////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT/////////////
|
||||
//////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0
|
||||
SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDUy8X/////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n/////////////////////////////////////////
|
||||
///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u
|
||||
6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY
|
||||
fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////////Uy8XB
|
||||
s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////
|
||||
//////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3/////////////////////////
|
||||
//////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////
|
||||
//////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwDm4N3/////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////////////////////
|
||||
///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t
|
||||
mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
|
||||
///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////
|
||||
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3/////////////////////
|
||||
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////
|
||||
//////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////
|
||||
///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
|
||||
bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwD39fT/////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M
|
||||
blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj/////////////////////////////////////
|
||||
//////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////
|
||||
//+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r/////////////////////////
|
||||
//////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////
|
||||
//////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL
|
||||
v7j/////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////////////////////+Mblhm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r/////
|
||||
///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwCtmo3Bs6r39fT/////////////////////////////////////////////////////////////////
|
||||
///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X/////////////////
|
||||
///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n/////
|
||||
///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j/////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwCAXUL/////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////////////
|
||||
//////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/////////////////////////
|
||||
//////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT/////////
|
||||
//////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/
|
||||
///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwDm4N3/////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////39fRmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/////////
|
||||
///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////
|
||||
///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3/////////////
|
||||
///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////
|
||||
///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3
|
||||
p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////
|
||||
///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////
|
||||
///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb/////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM
|
||||
blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/
|
||||
//////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwD39fT/////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////////////////L
|
||||
v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////
|
||||
//////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////////////////////////
|
||||
//////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////////////39fSAXUJmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB
|
||||
s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwC3p5z/////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////////////////////////
|
||||
///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X/////////////////////////////////////////////////
|
||||
///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv/////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j/////////////
|
||||
///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r/////////////////////////
|
||||
///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwB0SSb/////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm
|
||||
MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm
|
||||
MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/
|
||||
//////////////////////////////////////////////////////////////////////////////+A
|
||||
XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD/////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm
|
||||
MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X/////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
146
Aviso/Dokumentenbeschriftung/frmPrintLayout.vb
Normal file
146
Aviso/Dokumentenbeschriftung/frmPrintLayout.vb
Normal file
@@ -0,0 +1,146 @@
|
||||
Imports Microsoft.Reporting.WinForms
|
||||
Imports GrapeCity.ActiveReports.Document
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
|
||||
Public Class frmPrintLayout
|
||||
Public datvon As Date
|
||||
Public RaisePrintEvent As Boolean = False
|
||||
Public speedPrint As Boolean = False
|
||||
Private WithEvents exportMenu As ToolStripMenuItem = New ToolStripMenuItem("Export")
|
||||
Public Event PRINT()
|
||||
Dim art As String = ""
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
End Sub
|
||||
Public Sub New(ByVal art As String)
|
||||
InitializeComponent()
|
||||
Me.art = art
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub frmPrintLayout_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
||||
If e.KeyCode = Keys.ControlKey And e.KeyCode = Keys.P Then
|
||||
btnPrint.PerformClick()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub frmPrintLayout_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
Viewer.Toolbar.ToolStrip.Items.Add(exportMenu)
|
||||
'Hilfstexte in Toolbar eindeutschen
|
||||
Viewer.Toolbar.ToolStrip.Items(0).ToolTipText = "Seitenübersicht"
|
||||
Viewer.Toolbar.ToolStrip.Items(2).ToolTipText = "Drucken"
|
||||
Viewer.Toolbar.ToolStrip.Items(2).Visible = False
|
||||
Viewer.Toolbar.ToolStrip.Items(5).ToolTipText = "Kopieren"
|
||||
Viewer.Toolbar.ToolStrip.Items(6).ToolTipText = "Suchen"
|
||||
Viewer.Toolbar.ToolStrip.Items(10).ToolTipText = "aktueller Zoom"
|
||||
Viewer.Toolbar.ToolStrip.Items(12).ToolTipText = "an Fensterbreite anpassen"
|
||||
Viewer.Toolbar.ToolStrip.Items(13).ToolTipText = "vollständige Seite an Fenstergröße anpassen"
|
||||
Viewer.Toolbar.ToolStrip.Items(15).ToolTipText = "Einzelseitenansicht"
|
||||
Viewer.Toolbar.ToolStrip.Items(16).ToolTipText = "Bildlauf aktivieren"
|
||||
Viewer.Toolbar.ToolStrip.Items(17).ToolTipText = "Mehrseiten-Ansicht"
|
||||
Viewer.Toolbar.ToolStrip.Items(19).ToolTipText = "erste Seite"
|
||||
Viewer.Toolbar.ToolStrip.Items(20).ToolTipText = "vorige Seite"
|
||||
Viewer.Toolbar.ToolStrip.Items(21).ToolTipText = "aktuelle Seite"
|
||||
Viewer.Toolbar.ToolStrip.Items(22).ToolTipText = "nächste Seite"
|
||||
Viewer.Toolbar.ToolStrip.Items(23).ToolTipText = "letzte Seite"
|
||||
Viewer.Toolbar.ToolStrip.Items(25).ToolTipText = "Sprung rückwärts"
|
||||
Viewer.Toolbar.ToolStrip.Items(26).ToolTipText = "Sprung vorwärts"
|
||||
Viewer.Toolbar.ToolStrip.Items(30).ToolTipText = "Anzeige refreshen"
|
||||
Viewer.Toolbar.ToolStrip.Items(33).ToolTipText = "Ansicht-Modus"
|
||||
Viewer.Toolbar.ToolStrip.Items(34).ToolTipText = "Textauswahl-Modus"
|
||||
Viewer.Toolbar.ToolStrip.Items(35).ToolTipText = "Schnappschuss erstellen"
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click
|
||||
If RaisePrintEvent Then
|
||||
RaiseEvent PRINT()
|
||||
Else
|
||||
Me.Viewer.Print(True, True, True)
|
||||
End If
|
||||
|
||||
|
||||
Exit Sub
|
||||
If Me.Viewer.Name = "" Then
|
||||
|
||||
End If
|
||||
'Me.Viewer.Print(True, True, True)
|
||||
'Dim p As GrapeCity.Viewer.Common.PrintingSettings = Me.Viewer.PrintingSettings
|
||||
|
||||
|
||||
'If Me.ReportViewer1.PrintDialog() = Windows.Forms.DialogResult.OK Then Me.Close()
|
||||
|
||||
End Sub
|
||||
Public Sub PRINTMe()
|
||||
RaiseEvent PRINT()
|
||||
End Sub
|
||||
|
||||
Private Sub exportMenu_Click(sender As Object, e As EventArgs) Handles exportMenu.Click
|
||||
Exportieren(Viewer.Document, "Auswertung offene Anträge mit Vorauszahlung")
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Shared Sub Exportieren(ByVal document As SectionDocument, ByVal Namensvorschlag As String)
|
||||
Try
|
||||
Dim datei As FileInfo = Nothing
|
||||
|
||||
If Not ermittleDateiname(datei, Namensvorschlag) Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Select Case datei.Extension.ToUpper()
|
||||
Case ".pdf".ToUpper()
|
||||
Dim pdfExport1 As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport()
|
||||
pdfExport1.Export(document, datei.FullName)
|
||||
Case ".xlsx".ToUpper()
|
||||
Dim xlsExport1 As New GrapeCity.ActiveReports.Export.Excel.Section.XlsExport()
|
||||
xlsExport1.FileFormat = GrapeCity.ActiveReports.Export.Excel.Section.FileFormat.Xlsx
|
||||
xlsExport1.Export(document, datei.FullName)
|
||||
Case ".rtf".ToUpper()
|
||||
Dim rtfExport1 As New GrapeCity.ActiveReports.Export.Word.Section.RtfExport()
|
||||
rtfExport1.Export(document, datei.FullName)
|
||||
Case Else
|
||||
MessageBox.Show("Es würde ein ungültiges Exportformat ausgewählt. Erlaubt sind 'pdf', 'rtf' und 'xlsx'.")
|
||||
Exit Sub
|
||||
End Select
|
||||
|
||||
If MessageBox.Show("Der Export wurde erfolgreich durchgeführt. Soll die Exportdatei jetzt geöffnet werden?", "Export", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Yes Then
|
||||
Process.Start(datei.FullName)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show("Exportieren fehlgeschlagen. Fehler: " + ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Shared Function ermittleDateiname(ByRef datei As FileInfo, ByRef Namensvorschlag As String) As Boolean
|
||||
Using saveDialog As New SaveFileDialog
|
||||
saveDialog.AddExtension = True
|
||||
saveDialog.CheckPathExists = True
|
||||
saveDialog.FileName = Namensvorschlag
|
||||
saveDialog.DefaultExt = ".pdf"
|
||||
saveDialog.Filter = "pdf-Dateien (*.pdf)|*.pdf|Word Dateien (*.rtf)|*.rtf|Excel Dateien (*.xlsx)|*.xlsx"
|
||||
saveDialog.OverwritePrompt = True
|
||||
saveDialog.ValidateNames = True
|
||||
saveDialog.FilterIndex = 0
|
||||
If saveDialog.ShowDialog() = DialogResult.OK Then
|
||||
datei = New FileInfo(saveDialog.FileName)
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Using
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub Viewer_LoadCompleted(sender As Object, e As EventArgs) Handles Viewer.LoadCompleted
|
||||
If speedPrint Then
|
||||
' MsgBox("L")
|
||||
btnPrint.PerformClick()
|
||||
'RemoveHandler Viewer.LoadCompleted, Viewer_LoadCompleted(Viewer, New EventArgs)
|
||||
speedPrint = False
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
50
Aviso/Dokumentenbeschriftung/frmSUBWESTIIAkt.Designer.vb
generated
Normal file
50
Aviso/Dokumentenbeschriftung/frmSUBWESTIIAkt.Designer.vb
generated
Normal file
@@ -0,0 +1,50 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmSUBWESTIIAkt
|
||||
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.pnl = New System.Windows.Forms.Panel()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.AutoScroll = True
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnl.Name = "pnl"
|
||||
Me.pnl.Size = New System.Drawing.Size(925, 614)
|
||||
Me.pnl.TabIndex = 1
|
||||
'
|
||||
'frmSUBWESTIIAkt
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(925, 614)
|
||||
Me.Controls.Add(Me.pnl)
|
||||
Me.Name = "frmSUBWESTIIAkt"
|
||||
Me.Text = "frmSUBWESTIIAkt"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents pnl As System.Windows.Forms.Panel
|
||||
End Class
|
||||
120
Aviso/Dokumentenbeschriftung/frmSUBWESTIIAkt.resx
Normal file
120
Aviso/Dokumentenbeschriftung/frmSUBWESTIIAkt.resx
Normal 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/Dokumentenbeschriftung/frmSUBWESTIIAkt.vb
Normal file
3
Aviso/Dokumentenbeschriftung/frmSUBWESTIIAkt.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class frmSUBWESTIIAkt
|
||||
|
||||
End Class
|
||||
406
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAkt.Designer.vb
generated
Normal file
406
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAkt.Designer.vb
generated
Normal file
@@ -0,0 +1,406 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Public Class rptSUBWESTIIAkt
|
||||
Inherits GrapeCity.ActiveReports.SectionReport
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'NOTE: The following procedure is required by the ActiveReports Designer
|
||||
'It can be modified using the ActiveReports Designer.
|
||||
'Do not modify it using the code editor.
|
||||
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSUBWESTIIAkt))
|
||||
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
|
||||
Me.BG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
|
||||
Me.txtBemerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAbfahrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.Empfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAbfertigungsnummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtWarenbezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.cbxKundenTarifnummerVorhanden = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.cbxKdTarif_Empf = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxKdTarif_Abs = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxKdTarif_Auftr = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.txtAufschub = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
CType(Me.BG, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
'
|
||||
'Detail
|
||||
'
|
||||
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.BG, Me.txtBemerkung, Me.txtDatum, Me.txtSachbearbeiter, Me.txtFraechter, Me.txtKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtAuftraggeber, Me.Empfaenger, Me.txtAbfertigungsnummer, Me.txtColli, Me.txtGewicht, Me.txtWarenbezeichnung, Me.cbxKundenTarifnummerVorhanden, Me.txtAbfertigungsart, Me.txtAvisierer, Me.txtAbsender, Me.cbxKdTarif_Empf, Me.cbxKdTarif_Abs, Me.cbxKdTarif_Auftr, Me.txtAufschub})
|
||||
Me.Detail.Height = 12.00787!
|
||||
Me.Detail.Name = "Detail"
|
||||
'
|
||||
'BG
|
||||
'
|
||||
Me.BG.DataField = ""
|
||||
Me.BG.Height = 11.81102!
|
||||
Me.BG.ImageData = CType(resources.GetObject("BG.ImageData"), System.IO.Stream)
|
||||
Me.BG.Left = -0.1968504!
|
||||
Me.BG.Name = "BG"
|
||||
Me.BG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Stretch
|
||||
Me.BG.Top = 0.0!
|
||||
Me.BG.Width = 8.543307!
|
||||
'
|
||||
'txtBemerkung
|
||||
'
|
||||
Me.txtBemerkung.CanGrow = False
|
||||
Me.txtBemerkung.Height = 1.969686!
|
||||
Me.txtBemerkung.Left = 1.390158!
|
||||
Me.txtBemerkung.Name = "txtBemerkung"
|
||||
Me.txtBemerkung.Style = "font-size: 12.6pt"
|
||||
Me.txtBemerkung.Text = Nothing
|
||||
Me.txtBemerkung.Top = 2.466929!
|
||||
Me.txtBemerkung.Width = 6.718897!
|
||||
'
|
||||
'txtDatum
|
||||
'
|
||||
Me.txtDatum.CanGrow = False
|
||||
Me.txtDatum.Height = 0.3354332!
|
||||
Me.txtDatum.Left = 5.575985!
|
||||
Me.txtDatum.Name = "txtDatum"
|
||||
Me.txtDatum.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtDatum.Text = Nothing
|
||||
Me.txtDatum.Top = 6.163386!
|
||||
Me.txtDatum.Width = 2.312992!
|
||||
'
|
||||
'txtSachbearbeiter
|
||||
'
|
||||
Me.txtSachbearbeiter.CanGrow = False
|
||||
Me.txtSachbearbeiter.Height = 0.4303152!
|
||||
Me.txtSachbearbeiter.Left = 5.575985!
|
||||
Me.txtSachbearbeiter.Name = "txtSachbearbeiter"
|
||||
Me.txtSachbearbeiter.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtSachbearbeiter.Text = Nothing
|
||||
Me.txtSachbearbeiter.Top = 6.632677!
|
||||
Me.txtSachbearbeiter.Width = 2.312992!
|
||||
'
|
||||
'txtFraechter
|
||||
'
|
||||
Me.txtFraechter.CanGrow = False
|
||||
Me.txtFraechter.Height = 0.4720475!
|
||||
Me.txtFraechter.Left = 5.582678!
|
||||
Me.txtFraechter.Name = "txtFraechter"
|
||||
Me.txtFraechter.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtFraechter.Text = "TRANSPORT TRANS DOO"
|
||||
Me.txtFraechter.Top = 7.144882!
|
||||
Me.txtFraechter.Width = 2.312992!
|
||||
'
|
||||
'txtKennzeichen
|
||||
'
|
||||
Me.txtKennzeichen.CanGrow = False
|
||||
Me.txtKennzeichen.Height = 0.3885834!
|
||||
Me.txtKennzeichen.Left = 5.575985!
|
||||
Me.txtKennzeichen.Name = "txtKennzeichen"
|
||||
Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtKennzeichen.Text = "SD 123 ABC"
|
||||
Me.txtKennzeichen.Top = 7.729528!
|
||||
Me.txtKennzeichen.Width = 2.312992!
|
||||
'
|
||||
'txtAnkunft
|
||||
'
|
||||
Me.txtAnkunft.CanGrow = False
|
||||
Me.txtAnkunft.Height = 0.3885825!
|
||||
Me.txtAnkunft.Left = 5.560237!
|
||||
Me.txtAnkunft.Name = "txtAnkunft"
|
||||
Me.txtAnkunft.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAnkunft.Text = "01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
|
||||
Me.txtAnkunft.Top = 8.307481!
|
||||
Me.txtAnkunft.Width = 1.114961!
|
||||
'
|
||||
'txtAbfahrt
|
||||
'
|
||||
Me.txtAbfahrt.CanGrow = False
|
||||
Me.txtAbfahrt.Height = 0.3885825!
|
||||
Me.txtAbfahrt.Left = 6.764962!
|
||||
Me.txtAbfahrt.Name = "txtAbfahrt"
|
||||
Me.txtAbfahrt.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAbfahrt.Text = "01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
|
||||
Me.txtAbfahrt.Top = 8.307481!
|
||||
Me.txtAbfahrt.Width = 1.114961!
|
||||
'
|
||||
'txtAuftraggeber
|
||||
'
|
||||
Me.txtAuftraggeber.CanGrow = False
|
||||
Me.txtAuftraggeber.Height = 0.4775593!
|
||||
Me.txtAuftraggeber.Left = 2.427953!
|
||||
Me.txtAuftraggeber.LineSpacing = 6.0!
|
||||
Me.txtAuftraggeber.Name = "txtAuftraggeber"
|
||||
Me.txtAuftraggeber.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: top"
|
||||
Me.txtAuftraggeber.Text = "TRANSPORT TRANS DOO" & Global.Microsoft.VisualBasic.ChrW(10) & "TRANSPORT TRANS DOO"
|
||||
Me.txtAuftraggeber.Top = 5.356693!
|
||||
Me.txtAuftraggeber.Width = 2.864961!
|
||||
'
|
||||
'Empfaenger
|
||||
'
|
||||
Me.Empfaenger.CanGrow = False
|
||||
Me.Empfaenger.Height = 0.2531497!
|
||||
Me.Empfaenger.Left = 2.427953!
|
||||
Me.Empfaenger.MultiLine = False
|
||||
Me.Empfaenger.Name = "Empfaenger"
|
||||
Me.Empfaenger.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: middle"
|
||||
Me.Empfaenger.Text = "TRANSPORT TRANS DOO"
|
||||
Me.Empfaenger.Top = 5.889764!
|
||||
Me.Empfaenger.Width = 2.864961!
|
||||
'
|
||||
'txtAbfertigungsnummer
|
||||
'
|
||||
Me.txtAbfertigungsnummer.CanGrow = False
|
||||
Me.txtAbfertigungsnummer.Height = 0.3354332!
|
||||
Me.txtAbfertigungsnummer.Left = 6.340945!
|
||||
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
|
||||
Me.txtAbfertigungsnummer.Style = "font-size: 18pt; font-weight: bold; text-align: left; text-decoration: none; text" & _
|
||||
"-justify: auto; vertical-align: middle"
|
||||
Me.txtAbfertigungsnummer.Text = "160001"
|
||||
Me.txtAbfertigungsnummer.Top = 5.52874!
|
||||
Me.txtAbfertigungsnummer.Width = 1.489764!
|
||||
'
|
||||
'txtColli
|
||||
'
|
||||
Me.txtColli.CanGrow = False
|
||||
Me.txtColli.Height = 0.3885825!
|
||||
Me.txtColli.Left = 5.566931!
|
||||
Me.txtColli.Name = "txtColli"
|
||||
Me.txtColli.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtColli.Text = "250"
|
||||
Me.txtColli.Top = 8.843307!
|
||||
Me.txtColli.Width = 1.11496!
|
||||
'
|
||||
'txtGewicht
|
||||
'
|
||||
Me.txtGewicht.CanGrow = False
|
||||
Me.txtGewicht.Height = 0.3885825!
|
||||
Me.txtGewicht.Left = 6.771657!
|
||||
Me.txtGewicht.Name = "txtGewicht"
|
||||
Me.txtGewicht.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtGewicht.Text = "15.000 kg"
|
||||
Me.txtGewicht.Top = 8.843307!
|
||||
Me.txtGewicht.Width = 1.11496!
|
||||
'
|
||||
'txtWarenbezeichnung
|
||||
'
|
||||
Me.txtWarenbezeichnung.CanGrow = False
|
||||
Me.txtWarenbezeichnung.Height = 0.4720475!
|
||||
Me.txtWarenbezeichnung.Left = 5.582678!
|
||||
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
|
||||
Me.txtWarenbezeichnung.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtWarenbezeichnung.Text = "TEXTILIEN AUS BAUMWOLLE"
|
||||
Me.txtWarenbezeichnung.Top = 9.343307!
|
||||
Me.txtWarenbezeichnung.Width = 2.312992!
|
||||
'
|
||||
'cbxKundenTarifnummerVorhanden
|
||||
'
|
||||
Me.cbxKundenTarifnummerVorhanden.Checked = True
|
||||
Me.cbxKundenTarifnummerVorhanden.Height = 0.2!
|
||||
Me.cbxKundenTarifnummerVorhanden.Left = 3.091339!
|
||||
Me.cbxKundenTarifnummerVorhanden.Name = "cbxKundenTarifnummerVorhanden"
|
||||
Me.cbxKundenTarifnummerVorhanden.Style = "font-weight: bold"
|
||||
Me.cbxKundenTarifnummerVorhanden.Text = " Kunden-Tarifnummer vorhanden!"
|
||||
Me.cbxKundenTarifnummerVorhanden.Top = 7.144882!
|
||||
Me.cbxKundenTarifnummerVorhanden.Visible = False
|
||||
Me.cbxKundenTarifnummerVorhanden.Width = 2.864961!
|
||||
'
|
||||
'txtAbfertigungsart
|
||||
'
|
||||
Me.txtAbfertigungsart.CanGrow = False
|
||||
Me.txtAbfertigungsart.Height = 0.2531497!
|
||||
Me.txtAbfertigungsart.Left = 1.390158!
|
||||
Me.txtAbfertigungsart.MultiLine = False
|
||||
Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
|
||||
Me.txtAbfertigungsart.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: middle"
|
||||
Me.txtAbfertigungsart.Text = "ABFERTIGUNGSART: -"
|
||||
Me.txtAbfertigungsart.Top = 1.96063!
|
||||
Me.txtAbfertigungsart.Width = 6.489764!
|
||||
'
|
||||
'txtAvisierer
|
||||
'
|
||||
Me.txtAvisierer.CanGrow = False
|
||||
Me.txtAvisierer.Height = 0.5062992!
|
||||
Me.txtAvisierer.Left = 1.390158!
|
||||
Me.txtAvisierer.Name = "txtAvisierer"
|
||||
Me.txtAvisierer.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: top"
|
||||
Me.txtAvisierer.Text = "(3) AVISIERER:"
|
||||
Me.txtAvisierer.Top = 4.183465!
|
||||
Me.txtAvisierer.Width = 4.798032!
|
||||
'
|
||||
'txtAbsender
|
||||
'
|
||||
Me.txtAbsender.CanGrow = False
|
||||
Me.txtAbsender.Height = 0.5346457!
|
||||
Me.txtAbsender.Left = 1.390158!
|
||||
Me.txtAbsender.Name = "txtAbsender"
|
||||
Me.txtAbsender.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: top"
|
||||
Me.txtAbsender.Text = "(4) ABSENDER:"
|
||||
Me.txtAbsender.Top = 4.689764!
|
||||
Me.txtAbsender.Width = 4.016929!
|
||||
'
|
||||
'cbxKdTarif_Empf
|
||||
'
|
||||
Me.cbxKdTarif_Empf.Checked = True
|
||||
Me.cbxKdTarif_Empf.Height = 0.2!
|
||||
Me.cbxKdTarif_Empf.Left = 5.407087!
|
||||
Me.cbxKdTarif_Empf.Name = "cbxKdTarif_Empf"
|
||||
Me.cbxKdTarif_Empf.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
|
||||
Me.cbxKdTarif_Empf.Text = " Kunden-Tarifnummer vorhanden!"
|
||||
Me.cbxKdTarif_Empf.Top = 5.889764!
|
||||
Me.cbxKdTarif_Empf.Visible = False
|
||||
Me.cbxKdTarif_Empf.Width = 2.044488!
|
||||
'
|
||||
'cbxKdTarif_Abs
|
||||
'
|
||||
Me.cbxKdTarif_Abs.Checked = True
|
||||
Me.cbxKdTarif_Abs.Height = 0.2!
|
||||
Me.cbxKdTarif_Abs.Left = 5.407087!
|
||||
Me.cbxKdTarif_Abs.Name = "cbxKdTarif_Abs"
|
||||
Me.cbxKdTarif_Abs.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
|
||||
Me.cbxKdTarif_Abs.Text = " Kunden-Tarifnummer vorhanden!"
|
||||
Me.cbxKdTarif_Abs.Top = 4.742914!
|
||||
Me.cbxKdTarif_Abs.Visible = False
|
||||
Me.cbxKdTarif_Abs.Width = 2.044488!
|
||||
'
|
||||
'cbxKdTarif_Auftr
|
||||
'
|
||||
Me.cbxKdTarif_Auftr.Checked = True
|
||||
Me.cbxKdTarif_Auftr.Height = 0.2!
|
||||
Me.cbxKdTarif_Auftr.Left = 5.407087!
|
||||
Me.cbxKdTarif_Auftr.Name = "cbxKdTarif_Auftr"
|
||||
Me.cbxKdTarif_Auftr.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
|
||||
Me.cbxKdTarif_Auftr.Text = " Kunden-Tarifnummer vorhanden!"
|
||||
Me.cbxKdTarif_Auftr.Top = 5.328741!
|
||||
Me.cbxKdTarif_Auftr.Visible = False
|
||||
Me.cbxKdTarif_Auftr.Width = 2.044488!
|
||||
'
|
||||
'txtAufschub
|
||||
'
|
||||
Me.txtAufschub.CanGrow = False
|
||||
Me.txtAufschub.Height = 0.2531497!
|
||||
Me.txtAufschub.Left = 1.390158!
|
||||
Me.txtAufschub.MultiLine = False
|
||||
Me.txtAufschub.Name = "txtAufschub"
|
||||
Me.txtAufschub.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: middle"
|
||||
Me.txtAufschub.Text = "AUFSCHUB: -"
|
||||
Me.txtAufschub.Top = 2.21378!
|
||||
Me.txtAufschub.Width = 6.489764!
|
||||
'
|
||||
'rptSUBWESTIIAkt
|
||||
'
|
||||
Me.MasterReport = False
|
||||
Me.PageSettings.DefaultPaperSize = False
|
||||
Me.PageSettings.Margins.Bottom = 0.0!
|
||||
Me.PageSettings.Margins.Left = 0.0!
|
||||
Me.PageSettings.Margins.Right = 0.0!
|
||||
Me.PageSettings.Margins.Top = 0.0!
|
||||
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
|
||||
Me.PageSettings.PaperHeight = 12.00606!
|
||||
Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom
|
||||
Me.PageSettings.PaperName = "Custom paper"
|
||||
Me.PageSettings.PaperWidth = 8.426064!
|
||||
Me.PrintWidth = 8.425198!
|
||||
Me.Sections.Add(Me.Detail)
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
|
||||
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
|
||||
"lic", "Heading2", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
|
||||
CType(Me.BG, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
|
||||
End Sub
|
||||
Public WithEvents txtBemerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtKennzeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents BG As GrapeCity.ActiveReports.SectionReportModel.Picture
|
||||
Public WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAbfahrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents Empfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAbfertigungsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtWarenbezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents cbxKundenTarifnummerVorhanden As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents cbxKdTarif_Empf As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxKdTarif_Abs As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxKdTarif_Auftr As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents txtAufschub As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
End Class
|
||||
11480
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAkt.resx
Normal file
11480
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAkt.resx
Normal file
File diff suppressed because it is too large
Load Diff
13
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAkt.vb
Normal file
13
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAkt.vb
Normal file
@@ -0,0 +1,13 @@
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports GrapeCity.ActiveReports.Document
|
||||
|
||||
Public Class rptSUBWESTIIAkt
|
||||
|
||||
Public Sub hideBG()
|
||||
Me.BG.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub rptSUBWESTIIAkt_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
901
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.Designer.vb
generated
Normal file
901
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.Designer.vb
generated
Normal file
@@ -0,0 +1,901 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Public Class rptSUBWESTIIAktNEU
|
||||
Inherits GrapeCity.ActiveReports.SectionReport
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'NOTE: The following procedure is required by the ActiveReports Designer
|
||||
'It can be modified using the ActiveReports Designer.
|
||||
'Do not modify it using the code editor.
|
||||
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSUBWESTIIAktNEU))
|
||||
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
|
||||
Me.BG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
|
||||
Me.txtBemerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAnkunft = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAbfahrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.Empfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAbfertigungsnummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtWarenbezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.cbxKundenTarifnummerVorhanden = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtFraechterKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAuftraggeberKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtEmpfaengerKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAvisiererKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAbsenderKdNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAvisoDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.cbxKdTarif_Empf = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxKdTarif_Abs = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.cbxKdTarif_Auftr = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
|
||||
Me.txtAufschub = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAvisiererZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAvisiererEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAvisiererAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAvisiererClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAuftrZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAuftrEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAuftrAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAuftrClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAbsZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAbsEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAbsAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtAbsClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtEmpfZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtEmpfEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtEmpfAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtEmpfClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtFrachtfZoll = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtFrachtfEust = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtFrachtfAbf = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
Me.txtFrachtfClear = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
|
||||
CType(Me.BG, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtFraechterKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAuftraggeberKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtEmpfaengerKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAvisiererKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbsenderKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAvisoDatum, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAvisiererZoll, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAvisiererEust, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAvisiererAbf, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAvisiererClear, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAuftrZoll, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAuftrEust, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAuftrAbf, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAuftrClear, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbsZoll, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbsEust, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbsAbf, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtAbsClear, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtEmpfZoll, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtEmpfEust, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtEmpfAbf, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtEmpfClear, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtFrachtfZoll, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtFrachtfEust, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtFrachtfAbf, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.txtFrachtfClear, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
'
|
||||
'Detail
|
||||
'
|
||||
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.BG, Me.txtBemerkung, Me.txtDatum, Me.txtSachbearbeiter, Me.txtFraechter, Me.txtKennzeichen, Me.txtAnkunft, Me.txtAbfahrt, Me.txtAuftraggeber, Me.Empfaenger, Me.txtAbfertigungsnummer, Me.txtColli, Me.txtGewicht, Me.txtWarenbezeichnung, Me.cbxKundenTarifnummerVorhanden, Me.txtAbfertigungsart, Me.txtAvisierer, Me.txtAbsender, Me.txtFraechterKdNr, Me.txtAuftraggeberKdNr, Me.txtEmpfaengerKdNr, Me.txtAvisiererKdNr, Me.txtAbsenderKdNr, Me.txtAvisoDatum, Me.cbxKdTarif_Empf, Me.cbxKdTarif_Abs, Me.cbxKdTarif_Auftr, Me.txtAufschub, Me.txtAvisiererZoll, Me.txtAvisiererEust, Me.txtAvisiererAbf, Me.txtAvisiererClear, Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.txtAuftrZoll, Me.txtAuftrEust, Me.txtAuftrAbf, Me.txtAuftrClear, Me.txtAbsZoll, Me.txtAbsEust, Me.txtAbsAbf, Me.txtAbsClear, Me.txtEmpfZoll, Me.txtEmpfEust, Me.txtEmpfAbf, Me.txtEmpfClear, Me.txtFrachtfZoll, Me.txtFrachtfEust, Me.txtFrachtfAbf, Me.txtFrachtfClear})
|
||||
Me.Detail.Height = 11.9685!
|
||||
Me.Detail.Name = "Detail"
|
||||
'
|
||||
'BG
|
||||
'
|
||||
Me.BG.DataField = ""
|
||||
Me.BG.Height = 11.9685!
|
||||
Me.BG.ImageData = CType(resources.GetObject("BG.ImageData"), System.IO.Stream)
|
||||
Me.BG.Left = -0.1771654!
|
||||
Me.BG.Name = "BG"
|
||||
Me.BG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Stretch
|
||||
Me.BG.Top = -0.07874016!
|
||||
Me.BG.Width = 8.425197!
|
||||
'
|
||||
'txtBemerkung
|
||||
'
|
||||
Me.txtBemerkung.CanGrow = False
|
||||
Me.txtBemerkung.Height = 4.959844!
|
||||
Me.txtBemerkung.Left = 0.7866144!
|
||||
Me.txtBemerkung.Name = "txtBemerkung"
|
||||
Me.txtBemerkung.Style = "font-size: 12.6pt"
|
||||
Me.txtBemerkung.Text = Nothing
|
||||
Me.txtBemerkung.Top = 6.020079!
|
||||
Me.txtBemerkung.Width = 3.989372!
|
||||
'
|
||||
'txtDatum
|
||||
'
|
||||
Me.txtDatum.CanGrow = False
|
||||
Me.txtDatum.Height = 0.3354332!
|
||||
Me.txtDatum.Left = 4.951575!
|
||||
Me.txtDatum.Name = "txtDatum"
|
||||
Me.txtDatum.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtDatum.Text = Nothing
|
||||
Me.txtDatum.Top = 10.64448!
|
||||
Me.txtDatum.Width = 3.132284!
|
||||
'
|
||||
'txtSachbearbeiter
|
||||
'
|
||||
Me.txtSachbearbeiter.CanGrow = False
|
||||
Me.txtSachbearbeiter.Height = 0.6283466!
|
||||
Me.txtSachbearbeiter.Left = 4.951575!
|
||||
Me.txtSachbearbeiter.Name = "txtSachbearbeiter"
|
||||
Me.txtSachbearbeiter.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtSachbearbeiter.Text = Nothing
|
||||
Me.txtSachbearbeiter.Top = 10.97992!
|
||||
Me.txtSachbearbeiter.Width = 3.132284!
|
||||
'
|
||||
'txtFraechter
|
||||
'
|
||||
Me.txtFraechter.CanGrow = False
|
||||
Me.txtFraechter.Height = 0.2066929!
|
||||
Me.txtFraechter.Left = 0.852756!
|
||||
Me.txtFraechter.MultiLine = False
|
||||
Me.txtFraechter.Name = "txtFraechter"
|
||||
Me.txtFraechter.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: middle"
|
||||
Me.txtFraechter.Text = "TRANSPORT TRANS DOO"
|
||||
Me.txtFraechter.Top = 4.77874!
|
||||
Me.txtFraechter.Width = 3.92323!
|
||||
'
|
||||
'txtKennzeichen
|
||||
'
|
||||
Me.txtKennzeichen.CanGrow = False
|
||||
Me.txtKennzeichen.Height = 0.4783471!
|
||||
Me.txtKennzeichen.Left = 4.951575!
|
||||
Me.txtKennzeichen.Name = "txtKennzeichen"
|
||||
Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtKennzeichen.Text = "SD 123 ABC"
|
||||
Me.txtKennzeichen.Top = 7.96063!
|
||||
Me.txtKennzeichen.Width = 3.132284!
|
||||
'
|
||||
'txtAnkunft
|
||||
'
|
||||
Me.txtAnkunft.CanGrow = False
|
||||
Me.txtAnkunft.Height = 0.4094498!
|
||||
Me.txtAnkunft.Left = 4.951575!
|
||||
Me.txtAnkunft.Name = "txtAnkunft"
|
||||
Me.txtAnkunft.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAnkunft.Text = "MO, 01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
|
||||
Me.txtAnkunft.Top = 9.622046!
|
||||
Me.txtAnkunft.Width = 1.575985!
|
||||
'
|
||||
'txtAbfahrt
|
||||
'
|
||||
Me.txtAbfahrt.CanGrow = False
|
||||
Me.txtAbfahrt.Height = 0.4094498!
|
||||
Me.txtAbfahrt.Left = 6.53937!
|
||||
Me.txtAbfahrt.Name = "txtAbfahrt"
|
||||
Me.txtAbfahrt.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAbfahrt.Text = "DI, 01.01.2016" & Global.Microsoft.VisualBasic.ChrW(10) & "12:12"
|
||||
Me.txtAbfahrt.Top = 9.622046!
|
||||
Me.txtAbfahrt.Width = 1.544489!
|
||||
'
|
||||
'txtAuftraggeber
|
||||
'
|
||||
Me.txtAuftraggeber.CanGrow = False
|
||||
Me.txtAuftraggeber.Height = 0.2066929!
|
||||
Me.txtAuftraggeber.Left = 0.8527563!
|
||||
Me.txtAuftraggeber.LineSpacing = 6.0!
|
||||
Me.txtAuftraggeber.MultiLine = False
|
||||
Me.txtAuftraggeber.Name = "txtAuftraggeber"
|
||||
Me.txtAuftraggeber.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: middle"
|
||||
Me.txtAuftraggeber.Text = "TRANSPORT TRANS DOO"
|
||||
Me.txtAuftraggeber.Top = 2.41063!
|
||||
Me.txtAuftraggeber.Width = 3.92323!
|
||||
'
|
||||
'Empfaenger
|
||||
'
|
||||
Me.Empfaenger.CanGrow = False
|
||||
Me.Empfaenger.Height = 0.2066929!
|
||||
Me.Empfaenger.Left = 0.8527563!
|
||||
Me.Empfaenger.MultiLine = False
|
||||
Me.Empfaenger.Name = "Empfaenger"
|
||||
Me.Empfaenger.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: middle"
|
||||
Me.Empfaenger.Text = "TRANSPORT TRANS DOO"
|
||||
Me.Empfaenger.Top = 4.007874!
|
||||
Me.Empfaenger.Width = 3.92323!
|
||||
'
|
||||
'txtAbfertigungsnummer
|
||||
'
|
||||
Me.txtAbfertigungsnummer.CanGrow = False
|
||||
Me.txtAbfertigungsnummer.Height = 0.3354332!
|
||||
Me.txtAbfertigungsnummer.Left = 5.712599!
|
||||
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
|
||||
Me.txtAbfertigungsnummer.Style = "font-size: 22pt; font-weight: bold; text-align: center; text-decoration: none; te" & _
|
||||
"xt-justify: auto; vertical-align: middle"
|
||||
Me.txtAbfertigungsnummer.Text = "160001"
|
||||
Me.txtAbfertigungsnummer.Top = 0.2712598!
|
||||
Me.txtAbfertigungsnummer.Width = 2.371261!
|
||||
'
|
||||
'txtColli
|
||||
'
|
||||
Me.txtColli.CanGrow = False
|
||||
Me.txtColli.Height = 0.5551178!
|
||||
Me.txtColli.Left = 4.951575!
|
||||
Me.txtColli.Name = "txtColli"
|
||||
Me.txtColli.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtColli.Text = "250"
|
||||
Me.txtColli.Top = 8.983858!
|
||||
Me.txtColli.Width = 1.575985!
|
||||
'
|
||||
'txtGewicht
|
||||
'
|
||||
Me.txtGewicht.CanGrow = False
|
||||
Me.txtGewicht.Height = 0.5551178!
|
||||
Me.txtGewicht.Left = 6.531496!
|
||||
Me.txtGewicht.Name = "txtGewicht"
|
||||
Me.txtGewicht.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtGewicht.Text = "15.000 kg"
|
||||
Me.txtGewicht.Top = 8.983858!
|
||||
Me.txtGewicht.Width = 1.552364!
|
||||
'
|
||||
'txtWarenbezeichnung
|
||||
'
|
||||
Me.txtWarenbezeichnung.CanGrow = False
|
||||
Me.txtWarenbezeichnung.Height = 0.5448815!
|
||||
Me.txtWarenbezeichnung.Left = 4.951575!
|
||||
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
|
||||
Me.txtWarenbezeichnung.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtWarenbezeichnung.Text = "TEXTILIEN AUS BAUMWOLLE"
|
||||
Me.txtWarenbezeichnung.Top = 8.438974!
|
||||
Me.txtWarenbezeichnung.Width = 3.132284!
|
||||
'
|
||||
'cbxKundenTarifnummerVorhanden
|
||||
'
|
||||
Me.cbxKundenTarifnummerVorhanden.Checked = True
|
||||
Me.cbxKundenTarifnummerVorhanden.Height = 0.2!
|
||||
Me.cbxKundenTarifnummerVorhanden.Left = 0.9047245!
|
||||
Me.cbxKundenTarifnummerVorhanden.Name = "cbxKundenTarifnummerVorhanden"
|
||||
Me.cbxKundenTarifnummerVorhanden.Style = "font-weight: bold"
|
||||
Me.cbxKundenTarifnummerVorhanden.Text = " Kunden-Tarifnummer vorhanden!"
|
||||
Me.cbxKundenTarifnummerVorhanden.Top = 5.602757!
|
||||
Me.cbxKundenTarifnummerVorhanden.Visible = False
|
||||
Me.cbxKundenTarifnummerVorhanden.Width = 2.861025!
|
||||
'
|
||||
'txtAbfertigungsart
|
||||
'
|
||||
Me.txtAbfertigungsart.CanGrow = False
|
||||
Me.txtAbfertigungsart.Height = 0.2531497!
|
||||
Me.txtAbfertigungsart.Left = 0.8527563!
|
||||
Me.txtAbfertigungsart.MultiLine = False
|
||||
Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
|
||||
Me.txtAbfertigungsart.Style = "font-size: 18pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: middle"
|
||||
Me.txtAbfertigungsart.Text = "T1"
|
||||
Me.txtAbfertigungsart.Top = 0.3771653!
|
||||
Me.txtAbfertigungsart.Width = 3.92323!
|
||||
'
|
||||
'txtAvisierer
|
||||
'
|
||||
Me.txtAvisierer.CanGrow = False
|
||||
Me.txtAvisierer.Height = 0.2066929!
|
||||
Me.txtAvisierer.Left = 0.8527563!
|
||||
Me.txtAvisierer.MultiLine = False
|
||||
Me.txtAvisierer.Name = "txtAvisierer"
|
||||
Me.txtAvisierer.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: middle"
|
||||
Me.txtAvisierer.Text = "TRANSPORT TRANS DOO"
|
||||
Me.txtAvisierer.Top = 1.632284!
|
||||
Me.txtAvisierer.Width = 3.92323!
|
||||
'
|
||||
'txtAbsender
|
||||
'
|
||||
Me.txtAbsender.CanGrow = False
|
||||
Me.txtAbsender.Height = 0.2066929!
|
||||
Me.txtAbsender.Left = 0.8527563!
|
||||
Me.txtAbsender.MultiLine = False
|
||||
Me.txtAbsender.Name = "txtAbsender"
|
||||
Me.txtAbsender.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: middle"
|
||||
Me.txtAbsender.Text = "TRANSPORT TRANS DOO"
|
||||
Me.txtAbsender.Top = 3.200394!
|
||||
Me.txtAbsender.Width = 3.92323!
|
||||
'
|
||||
'txtFraechterKdNr
|
||||
'
|
||||
Me.txtFraechterKdNr.CanGrow = False
|
||||
Me.txtFraechterKdNr.Height = 0.2066929!
|
||||
Me.txtFraechterKdNr.Left = 3.290158!
|
||||
Me.txtFraechterKdNr.MultiLine = False
|
||||
Me.txtFraechterKdNr.Name = "txtFraechterKdNr"
|
||||
Me.txtFraechterKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtFraechterKdNr.Text = "999999"
|
||||
Me.txtFraechterKdNr.Top = 4.334646!
|
||||
Me.txtFraechterKdNr.Width = 1.474017!
|
||||
'
|
||||
'txtAuftraggeberKdNr
|
||||
'
|
||||
Me.txtAuftraggeberKdNr.CanGrow = False
|
||||
Me.txtAuftraggeberKdNr.Height = 0.2066929!
|
||||
Me.txtAuftraggeberKdNr.Left = 3.290158!
|
||||
Me.txtAuftraggeberKdNr.LineSpacing = 6.0!
|
||||
Me.txtAuftraggeberKdNr.MultiLine = False
|
||||
Me.txtAuftraggeberKdNr.Name = "txtAuftraggeberKdNr"
|
||||
Me.txtAuftraggeberKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAuftraggeberKdNr.Text = "999999"
|
||||
Me.txtAuftraggeberKdNr.Top = 1.982284!
|
||||
Me.txtAuftraggeberKdNr.Width = 1.474018!
|
||||
'
|
||||
'txtEmpfaengerKdNr
|
||||
'
|
||||
Me.txtEmpfaengerKdNr.CanGrow = False
|
||||
Me.txtEmpfaengerKdNr.Height = 0.2066929!
|
||||
Me.txtEmpfaengerKdNr.Left = 3.290158!
|
||||
Me.txtEmpfaengerKdNr.MultiLine = False
|
||||
Me.txtEmpfaengerKdNr.Name = "txtEmpfaengerKdNr"
|
||||
Me.txtEmpfaengerKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtEmpfaengerKdNr.Text = "999999"
|
||||
Me.txtEmpfaengerKdNr.Top = 3.579528!
|
||||
Me.txtEmpfaengerKdNr.Width = 1.474017!
|
||||
'
|
||||
'txtAvisiererKdNr
|
||||
'
|
||||
Me.txtAvisiererKdNr.CanGrow = False
|
||||
Me.txtAvisiererKdNr.Height = 0.2066929!
|
||||
Me.txtAvisiererKdNr.Left = 3.290158!
|
||||
Me.txtAvisiererKdNr.MultiLine = False
|
||||
Me.txtAvisiererKdNr.Name = "txtAvisiererKdNr"
|
||||
Me.txtAvisiererKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAvisiererKdNr.Text = "999999"
|
||||
Me.txtAvisiererKdNr.Top = 1.203937!
|
||||
Me.txtAvisiererKdNr.Width = 1.474017!
|
||||
'
|
||||
'txtAbsenderKdNr
|
||||
'
|
||||
Me.txtAbsenderKdNr.CanGrow = False
|
||||
Me.txtAbsenderKdNr.Height = 0.2066929!
|
||||
Me.txtAbsenderKdNr.Left = 3.290158!
|
||||
Me.txtAbsenderKdNr.MultiLine = False
|
||||
Me.txtAbsenderKdNr.Name = "txtAbsenderKdNr"
|
||||
Me.txtAbsenderKdNr.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAbsenderKdNr.Text = "999999"
|
||||
Me.txtAbsenderKdNr.Top = 2.772047!
|
||||
Me.txtAbsenderKdNr.Width = 1.474017!
|
||||
'
|
||||
'txtAvisoDatum
|
||||
'
|
||||
Me.txtAvisoDatum.CanGrow = False
|
||||
Me.txtAvisoDatum.Height = 0.2066929!
|
||||
Me.txtAvisoDatum.Left = 3.301969!
|
||||
Me.txtAvisoDatum.MultiLine = False
|
||||
Me.txtAvisoDatum.Name = "txtAvisoDatum"
|
||||
Me.txtAvisoDatum.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAvisoDatum.Text = "MO, 12.03. 14:45"
|
||||
Me.txtAvisoDatum.Top = 0.8913388!
|
||||
Me.txtAvisoDatum.Width = 1.474017!
|
||||
'
|
||||
'cbxKdTarif_Empf
|
||||
'
|
||||
Me.cbxKdTarif_Empf.Checked = True
|
||||
Me.cbxKdTarif_Empf.Height = 0.2!
|
||||
Me.cbxKdTarif_Empf.Left = 2.731496!
|
||||
Me.cbxKdTarif_Empf.Name = "cbxKdTarif_Empf"
|
||||
Me.cbxKdTarif_Empf.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
|
||||
Me.cbxKdTarif_Empf.Text = " Kunden-Tarifnummer vorhanden!"
|
||||
Me.cbxKdTarif_Empf.Top = 3.819685!
|
||||
Me.cbxKdTarif_Empf.Visible = False
|
||||
Me.cbxKdTarif_Empf.Width = 2.044488!
|
||||
'
|
||||
'cbxKdTarif_Abs
|
||||
'
|
||||
Me.cbxKdTarif_Abs.Checked = True
|
||||
Me.cbxKdTarif_Abs.Height = 0.2!
|
||||
Me.cbxKdTarif_Abs.Left = 2.719685!
|
||||
Me.cbxKdTarif_Abs.Name = "cbxKdTarif_Abs"
|
||||
Me.cbxKdTarif_Abs.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
|
||||
Me.cbxKdTarif_Abs.Text = " Kunden-Tarifnummer vorhanden!"
|
||||
Me.cbxKdTarif_Abs.Top = 3.012205!
|
||||
Me.cbxKdTarif_Abs.Visible = False
|
||||
Me.cbxKdTarif_Abs.Width = 2.044488!
|
||||
'
|
||||
'cbxKdTarif_Auftr
|
||||
'
|
||||
Me.cbxKdTarif_Auftr.Checked = True
|
||||
Me.cbxKdTarif_Auftr.Height = 0.2!
|
||||
Me.cbxKdTarif_Auftr.Left = 2.731496!
|
||||
Me.cbxKdTarif_Auftr.Name = "cbxKdTarif_Auftr"
|
||||
Me.cbxKdTarif_Auftr.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
|
||||
Me.cbxKdTarif_Auftr.Text = " Kunden-Tarifnummer vorhanden!"
|
||||
Me.cbxKdTarif_Auftr.Top = 2.222441!
|
||||
Me.cbxKdTarif_Auftr.Visible = False
|
||||
Me.cbxKdTarif_Auftr.Width = 2.044488!
|
||||
'
|
||||
'txtAufschub
|
||||
'
|
||||
Me.txtAufschub.CanGrow = False
|
||||
Me.txtAufschub.Height = 0.2531497!
|
||||
Me.txtAufschub.Left = 4.883465!
|
||||
Me.txtAufschub.MultiLine = False
|
||||
Me.txtAufschub.Name = "txtAufschub"
|
||||
Me.txtAufschub.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-justify: auto; vertica" & _
|
||||
"l-align: middle"
|
||||
Me.txtAufschub.Text = "AUFSCHUB: -"
|
||||
Me.txtAufschub.Top = 7.537402!
|
||||
Me.txtAufschub.Width = 3.291733!
|
||||
'
|
||||
'txtAvisiererZoll
|
||||
'
|
||||
Me.txtAvisiererZoll.CanGrow = False
|
||||
Me.txtAvisiererZoll.Height = 0.3937008!
|
||||
Me.txtAvisiererZoll.Left = 4.930708!
|
||||
Me.txtAvisiererZoll.Name = "txtAvisiererZoll"
|
||||
Me.txtAvisiererZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAvisiererZoll.Text = Nothing
|
||||
Me.txtAvisiererZoll.Top = 1.402755!
|
||||
Me.txtAvisiererZoll.Width = 0.3937008!
|
||||
'
|
||||
'txtAvisiererEust
|
||||
'
|
||||
Me.txtAvisiererEust.CanGrow = False
|
||||
Me.txtAvisiererEust.Height = 0.3937008!
|
||||
Me.txtAvisiererEust.Left = 5.342126!
|
||||
Me.txtAvisiererEust.Name = "txtAvisiererEust"
|
||||
Me.txtAvisiererEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAvisiererEust.Text = Nothing
|
||||
Me.txtAvisiererEust.Top = 1.402755!
|
||||
Me.txtAvisiererEust.Width = 0.3937008!
|
||||
'
|
||||
'txtAvisiererAbf
|
||||
'
|
||||
Me.txtAvisiererAbf.CanGrow = False
|
||||
Me.txtAvisiererAbf.Height = 0.3937008!
|
||||
Me.txtAvisiererAbf.Left = 5.712598!
|
||||
Me.txtAvisiererAbf.Name = "txtAvisiererAbf"
|
||||
Me.txtAvisiererAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAvisiererAbf.Text = Nothing
|
||||
Me.txtAvisiererAbf.Top = 1.402755!
|
||||
Me.txtAvisiererAbf.Width = 0.3937008!
|
||||
'
|
||||
'txtAvisiererClear
|
||||
'
|
||||
Me.txtAvisiererClear.CanGrow = False
|
||||
Me.txtAvisiererClear.Height = 0.3937008!
|
||||
Me.txtAvisiererClear.Left = 6.127952!
|
||||
Me.txtAvisiererClear.Name = "txtAvisiererClear"
|
||||
Me.txtAvisiererClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAvisiererClear.Text = Nothing
|
||||
Me.txtAvisiererClear.Top = 1.402755!
|
||||
Me.txtAvisiererClear.Width = 0.3937008!
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.CanGrow = False
|
||||
Me.TextBox1.Height = 0.2066929!
|
||||
Me.TextBox1.Left = 3.408269!
|
||||
Me.TextBox1.MultiLine = False
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.TextBox1.Text = Nothing
|
||||
Me.TextBox1.Top = 5.880904!
|
||||
Me.TextBox1.Width = 0.411417!
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.CanGrow = False
|
||||
Me.TextBox2.Height = 0.2066929!
|
||||
Me.TextBox2.Left = 3.819687!
|
||||
Me.TextBox2.MultiLine = False
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.TextBox2.Text = Nothing
|
||||
Me.TextBox2.Top = 5.880904!
|
||||
Me.TextBox2.Width = 0.411417!
|
||||
'
|
||||
'TextBox3
|
||||
'
|
||||
Me.TextBox3.CanGrow = False
|
||||
Me.TextBox3.Height = 0.2066929!
|
||||
Me.TextBox3.Left = 4.190158!
|
||||
Me.TextBox3.MultiLine = False
|
||||
Me.TextBox3.Name = "TextBox3"
|
||||
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.TextBox3.Text = Nothing
|
||||
Me.TextBox3.Top = 5.880904!
|
||||
Me.TextBox3.Width = 0.411417!
|
||||
'
|
||||
'TextBox4
|
||||
'
|
||||
Me.TextBox4.CanGrow = False
|
||||
Me.TextBox4.Height = 0.2066929!
|
||||
Me.TextBox4.Left = 4.605512!
|
||||
Me.TextBox4.MultiLine = False
|
||||
Me.TextBox4.Name = "TextBox4"
|
||||
Me.TextBox4.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.TextBox4.Text = Nothing
|
||||
Me.TextBox4.Top = 5.880904!
|
||||
Me.TextBox4.Width = 0.411417!
|
||||
'
|
||||
'txtAuftrZoll
|
||||
'
|
||||
Me.txtAuftrZoll.CanGrow = False
|
||||
Me.txtAuftrZoll.Height = 0.3937008!
|
||||
Me.txtAuftrZoll.Left = 4.930708!
|
||||
Me.txtAuftrZoll.Name = "txtAuftrZoll"
|
||||
Me.txtAuftrZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAuftrZoll.Text = Nothing
|
||||
Me.txtAuftrZoll.Top = 2.142519!
|
||||
Me.txtAuftrZoll.Width = 0.3937008!
|
||||
'
|
||||
'txtAuftrEust
|
||||
'
|
||||
Me.txtAuftrEust.CanGrow = False
|
||||
Me.txtAuftrEust.Height = 0.3937008!
|
||||
Me.txtAuftrEust.Left = 5.342126!
|
||||
Me.txtAuftrEust.Name = "txtAuftrEust"
|
||||
Me.txtAuftrEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAuftrEust.Text = Nothing
|
||||
Me.txtAuftrEust.Top = 2.149212!
|
||||
Me.txtAuftrEust.Width = 0.3937008!
|
||||
'
|
||||
'txtAuftrAbf
|
||||
'
|
||||
Me.txtAuftrAbf.CanGrow = False
|
||||
Me.txtAuftrAbf.Height = 0.3937008!
|
||||
Me.txtAuftrAbf.Left = 5.716536!
|
||||
Me.txtAuftrAbf.Name = "txtAuftrAbf"
|
||||
Me.txtAuftrAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAuftrAbf.Text = Nothing
|
||||
Me.txtAuftrAbf.Top = 2.149212!
|
||||
Me.txtAuftrAbf.Width = 0.3937008!
|
||||
'
|
||||
'txtAuftrClear
|
||||
'
|
||||
Me.txtAuftrClear.CanGrow = False
|
||||
Me.txtAuftrClear.Height = 0.3937008!
|
||||
Me.txtAuftrClear.Left = 6.116142!
|
||||
Me.txtAuftrClear.Name = "txtAuftrClear"
|
||||
Me.txtAuftrClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAuftrClear.Text = Nothing
|
||||
Me.txtAuftrClear.Top = 2.142519!
|
||||
Me.txtAuftrClear.Width = 0.3937008!
|
||||
'
|
||||
'txtAbsZoll
|
||||
'
|
||||
Me.txtAbsZoll.CanGrow = False
|
||||
Me.txtAbsZoll.Height = 0.3937008!
|
||||
Me.txtAbsZoll.Left = 4.930708!
|
||||
Me.txtAbsZoll.Name = "txtAbsZoll"
|
||||
Me.txtAbsZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAbsZoll.Text = Nothing
|
||||
Me.txtAbsZoll.Top = 2.938976!
|
||||
Me.txtAbsZoll.Width = 0.3937008!
|
||||
'
|
||||
'txtAbsEust
|
||||
'
|
||||
Me.txtAbsEust.CanGrow = False
|
||||
Me.txtAbsEust.Height = 0.3937008!
|
||||
Me.txtAbsEust.Left = 5.342126!
|
||||
Me.txtAbsEust.Name = "txtAbsEust"
|
||||
Me.txtAbsEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAbsEust.Text = Nothing
|
||||
Me.txtAbsEust.Top = 2.932283!
|
||||
Me.txtAbsEust.Width = 0.3937008!
|
||||
'
|
||||
'txtAbsAbf
|
||||
'
|
||||
Me.txtAbsAbf.CanGrow = False
|
||||
Me.txtAbsAbf.Height = 0.3937008!
|
||||
Me.txtAbsAbf.Left = 5.716536!
|
||||
Me.txtAbsAbf.Name = "txtAbsAbf"
|
||||
Me.txtAbsAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAbsAbf.Text = Nothing
|
||||
Me.txtAbsAbf.Top = 2.932283!
|
||||
Me.txtAbsAbf.Width = 0.3937008!
|
||||
'
|
||||
'txtAbsClear
|
||||
'
|
||||
Me.txtAbsClear.CanGrow = False
|
||||
Me.txtAbsClear.Height = 0.3937008!
|
||||
Me.txtAbsClear.Left = 6.127952!
|
||||
Me.txtAbsClear.Name = "txtAbsClear"
|
||||
Me.txtAbsClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtAbsClear.Text = Nothing
|
||||
Me.txtAbsClear.Top = 2.932283!
|
||||
Me.txtAbsClear.Width = 0.3937008!
|
||||
'
|
||||
'txtEmpfZoll
|
||||
'
|
||||
Me.txtEmpfZoll.CanGrow = False
|
||||
Me.txtEmpfZoll.Height = 0.3937008!
|
||||
Me.txtEmpfZoll.Left = 4.930708!
|
||||
Me.txtEmpfZoll.Name = "txtEmpfZoll"
|
||||
Me.txtEmpfZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtEmpfZoll.Text = Nothing
|
||||
Me.txtEmpfZoll.Top = 3.746456!
|
||||
Me.txtEmpfZoll.Width = 0.3937008!
|
||||
'
|
||||
'txtEmpfEust
|
||||
'
|
||||
Me.txtEmpfEust.CanGrow = False
|
||||
Me.txtEmpfEust.Height = 0.3937008!
|
||||
Me.txtEmpfEust.Left = 5.342126!
|
||||
Me.txtEmpfEust.Name = "txtEmpfEust"
|
||||
Me.txtEmpfEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtEmpfEust.Text = Nothing
|
||||
Me.txtEmpfEust.Top = 3.746456!
|
||||
Me.txtEmpfEust.Width = 0.3937008!
|
||||
'
|
||||
'txtEmpfAbf
|
||||
'
|
||||
Me.txtEmpfAbf.CanGrow = False
|
||||
Me.txtEmpfAbf.Height = 0.3937008!
|
||||
Me.txtEmpfAbf.Left = 5.704724!
|
||||
Me.txtEmpfAbf.Name = "txtEmpfAbf"
|
||||
Me.txtEmpfAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtEmpfAbf.Text = Nothing
|
||||
Me.txtEmpfAbf.Top = 3.746456!
|
||||
Me.txtEmpfAbf.Width = 0.3937008!
|
||||
'
|
||||
'txtEmpfClear
|
||||
'
|
||||
Me.txtEmpfClear.CanGrow = False
|
||||
Me.txtEmpfClear.Height = 0.3937008!
|
||||
Me.txtEmpfClear.Left = 6.120078!
|
||||
Me.txtEmpfClear.Name = "txtEmpfClear"
|
||||
Me.txtEmpfClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtEmpfClear.Text = Nothing
|
||||
Me.txtEmpfClear.Top = 3.746456!
|
||||
Me.txtEmpfClear.Width = 0.3937008!
|
||||
'
|
||||
'txtFrachtfZoll
|
||||
'
|
||||
Me.txtFrachtfZoll.CanGrow = False
|
||||
Me.txtFrachtfZoll.Height = 0.3937008!
|
||||
Me.txtFrachtfZoll.Left = 4.951575!
|
||||
Me.txtFrachtfZoll.Name = "txtFrachtfZoll"
|
||||
Me.txtFrachtfZoll.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtFrachtfZoll.Text = Nothing
|
||||
Me.txtFrachtfZoll.Top = 4.530315!
|
||||
Me.txtFrachtfZoll.Width = 0.3937008!
|
||||
'
|
||||
'txtFrachtfEust
|
||||
'
|
||||
Me.txtFrachtfEust.CanGrow = False
|
||||
Me.txtFrachtfEust.Height = 0.3937008!
|
||||
Me.txtFrachtfEust.Left = 5.342125!
|
||||
Me.txtFrachtfEust.Name = "txtFrachtfEust"
|
||||
Me.txtFrachtfEust.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtFrachtfEust.Text = Nothing
|
||||
Me.txtFrachtfEust.Top = 4.530315!
|
||||
Me.txtFrachtfEust.Width = 0.3937008!
|
||||
'
|
||||
'txtFrachtfAbf
|
||||
'
|
||||
Me.txtFrachtfAbf.CanGrow = False
|
||||
Me.txtFrachtfAbf.Height = 0.3937008!
|
||||
Me.txtFrachtfAbf.Left = 5.753543!
|
||||
Me.txtFrachtfAbf.Name = "txtFrachtfAbf"
|
||||
Me.txtFrachtfAbf.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtFrachtfAbf.Text = Nothing
|
||||
Me.txtFrachtfAbf.Top = 4.530315!
|
||||
Me.txtFrachtfAbf.Width = 0.3937008!
|
||||
'
|
||||
'txtFrachtfClear
|
||||
'
|
||||
Me.txtFrachtfClear.CanGrow = False
|
||||
Me.txtFrachtfClear.Height = 0.3937008!
|
||||
Me.txtFrachtfClear.Left = 6.116142!
|
||||
Me.txtFrachtfClear.Name = "txtFrachtfClear"
|
||||
Me.txtFrachtfClear.Style = "font-size: 10pt; font-weight: bold; text-align: center; text-justify: auto; verti" & _
|
||||
"cal-align: middle"
|
||||
Me.txtFrachtfClear.Text = Nothing
|
||||
Me.txtFrachtfClear.Top = 4.530315!
|
||||
Me.txtFrachtfClear.Width = 0.3937008!
|
||||
'
|
||||
'rptSUBWESTIIAktNEU
|
||||
'
|
||||
Me.MasterReport = False
|
||||
Me.PageSettings.DefaultPaperSize = False
|
||||
Me.PageSettings.Margins.Bottom = 0.0!
|
||||
Me.PageSettings.Margins.Left = 0.0!
|
||||
Me.PageSettings.Margins.Right = 0.0!
|
||||
Me.PageSettings.Margins.Top = 0.0!
|
||||
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
|
||||
Me.PageSettings.PaperHeight = 12.00606!
|
||||
Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.Custom
|
||||
Me.PageSettings.PaperName = "Custom paper"
|
||||
Me.PageSettings.PaperWidth = 8.426064!
|
||||
Me.PrintWidth = 8.425198!
|
||||
Me.Sections.Add(Me.Detail)
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & _
|
||||
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & _
|
||||
"lic", "Heading2", "Normal"))
|
||||
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
|
||||
CType(Me.BG, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAnkunft, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbfahrt, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.Empfaenger, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxKundenTarifnummerVorhanden, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtFraechterKdNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAuftraggeberKdNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtEmpfaengerKdNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAvisiererKdNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbsenderKdNr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAvisoDatum, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxKdTarif_Empf, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxKdTarif_Abs, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cbxKdTarif_Auftr, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAufschub, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAvisiererZoll, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAvisiererEust, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAvisiererAbf, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAvisiererClear, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAuftrZoll, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAuftrEust, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAuftrAbf, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAuftrClear, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbsZoll, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbsEust, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbsAbf, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtAbsClear, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtEmpfZoll, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtEmpfEust, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtEmpfAbf, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtEmpfClear, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtFrachtfZoll, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtFrachtfEust, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtFrachtfAbf, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.txtFrachtfClear, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
|
||||
End Sub
|
||||
Public WithEvents txtBemerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtKennzeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAnkunft As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAbfahrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents Empfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAbfertigungsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtWarenbezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents cbxKundenTarifnummerVorhanden As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents BG As GrapeCity.ActiveReports.SectionReportModel.Picture
|
||||
Public WithEvents txtFraechterKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAuftraggeberKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtEmpfaengerKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAvisiererKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAbsenderKdNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAvisoDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents cbxKdTarif_Empf As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxKdTarif_Abs As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents cbxKdTarif_Auftr As GrapeCity.ActiveReports.SectionReportModel.CheckBox
|
||||
Public WithEvents txtAufschub As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAvisiererZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAvisiererEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAvisiererAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAvisiererClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAuftrZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAuftrEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAuftrAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAuftrClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAbsZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAbsEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAbsAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtAbsClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtEmpfZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtEmpfEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtEmpfAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtEmpfClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtFrachtfZoll As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtFrachtfEust As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtFrachtfAbf As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
Public WithEvents txtFrachtfClear As GrapeCity.ActiveReports.SectionReportModel.TextBox
|
||||
End Class
|
||||
9162
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.resx
Normal file
9162
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.resx
Normal file
File diff suppressed because it is too large
Load Diff
13
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.vb
Normal file
13
Aviso/Dokumentenbeschriftung/rptSUBWESTIIAktNEU.vb
Normal file
@@ -0,0 +1,13 @@
|
||||
Imports GrapeCity.ActiveReports
|
||||
Imports GrapeCity.ActiveReports.Document
|
||||
|
||||
Public Class rptSUBWESTIIAktNEU
|
||||
|
||||
Public Sub hideBG()
|
||||
Me.BG.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub rptSUBWESTIIAkt_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
BIN
Aviso/GenerelleGestellungenVorlagen/GenerelleGestellung_DE.pdf
Normal file
BIN
Aviso/GenerelleGestellungenVorlagen/GenerelleGestellung_DE.pdf
Normal file
Binary file not shown.
38
Aviso/My Project/Application.Designer.vb
generated
Normal file
38
Aviso/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
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.
|
||||
' (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.
|
||||
'
|
||||
Partial Friend Class MyApplication
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.SaveMySettingsOnExit = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.AVISO.frmLogin
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
10
Aviso/My Project/Application.myapp
Normal file
10
Aviso/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>frmLogin</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
Aviso/My Project/AssemblyInfo.vb
Normal file
35
Aviso/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||
' die mit einer Assembly verknüpft sind.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("Aviso")>
|
||||
<Assembly: AssemblyDescription("LKW-Aviso verwalten")>
|
||||
<Assembly: AssemblyCompany("VERAG Spedition AG")>
|
||||
<Assembly: AssemblyProduct("Aviso")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2013 VERAG Spedition AG")>
|
||||
<Assembly: AssemblyTrademark("VERAG Spedition AG")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
|
||||
<Assembly: Guid("7052d562-d9fb-4334-a724-4daed30d79c6")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Hauptversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revision
|
||||
'
|
||||
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("3.3.1.2")>
|
||||
<Assembly: AssemblyFileVersion("3.3.1.2")>
|
||||
1216
Aviso/My Project/Resources.Designer.vb
generated
Normal file
1216
Aviso/My Project/Resources.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
463
Aviso/My Project/Resources.resx
Normal file
463
Aviso/My Project/Resources.resx
Normal file
@@ -0,0 +1,463 @@
|
||||
<?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>
|
||||
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<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="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>
|
||||
<data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="del_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\del_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="spedbuch_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\android-note1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="els" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\els.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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>
|
||||
<data name="isd" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\isd.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="auftrag" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\auftrag.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="search1" 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="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="statistik" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="zoll_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\zoll1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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="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>
|
||||
<data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\beleg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="arrow_right_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\arrow-right-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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_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>
|
||||
<data name="zeus" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\zeus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="searchGG" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\searchGG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="tranparent30Perc" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\tranparent30Perc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="tts" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\tts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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>
|
||||
<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>
|
||||
</data>
|
||||
<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>
|
||||
<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>
|
||||
</data>
|
||||
<data name="vermerk" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\vermerk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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>
|
||||
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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>
|
||||
<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>
|
||||
</data>
|
||||
<data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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>
|
||||
<data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="cartable_ouvert" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\cartable_ouvert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="plus1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\plus1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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="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="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>
|
||||
<data name="urgent" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\urgent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="image_443x282" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="akt_ATILLA" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<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.2</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="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="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="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>
|
||||
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="zoll_mmm" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\zoll_mmm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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>
|
||||
<data name="ADMIN_pwd" xml:space="preserve">
|
||||
<value>aviso2015</value>
|
||||
</data>
|
||||
<data name="person_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\person_add.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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>
|
||||
<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>
|
||||
</data>
|
||||
<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>
|
||||
<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>
|
||||
<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="UpdaterVersion" xml:space="preserve">
|
||||
<value>4.0</value>
|
||||
</data>
|
||||
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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>
|
||||
<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>
|
||||
</data>
|
||||
<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="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>
|
||||
<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="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="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>
|
||||
</data>
|
||||
<data name="vorauszahlung3" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\vorauszahlung3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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>
|
||||
<data name="ok" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="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>
|
||||
<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>
|
||||
</data>
|
||||
<data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
<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>
|
||||
<data name="fsfsfsdf3adfasda2df" xml:space="preserve">
|
||||
<value />
|
||||
</data>
|
||||
</root>
|
||||
120
Aviso/My Project/Settings.Designer.vb
generated
Normal file
120
Aviso/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,120 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.42000
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
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.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"
|
||||
#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)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("600, 800")> _
|
||||
Public Property frmMainSize() As Global.System.Drawing.Size
|
||||
Get
|
||||
Return CType(Me("frmMainSize"),Global.System.Drawing.Size)
|
||||
End Get
|
||||
Set
|
||||
Me("frmMainSize") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("200, 200")> _
|
||||
Public Property frmMainPosition() As Global.System.Drawing.Point
|
||||
Get
|
||||
Return CType(Me("frmMainPosition"),Global.System.Drawing.Point)
|
||||
End Get
|
||||
Set
|
||||
Me("frmMainPosition") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=fal"& _
|
||||
"se;User ID=sa;Password=BmWr501956;")> _
|
||||
Public ReadOnly Property AVISO_ConnectionString_TEST() As String
|
||||
Get
|
||||
Return CType(Me("AVISO_ConnectionString_TEST"),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
||||
Public Property s() As String
|
||||
Get
|
||||
Return CType(Me("s"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("s") = value
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.AVISO.My.MySettings
|
||||
Get
|
||||
Return Global.AVISO.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
23
Aviso/My Project/Settings.settings
Normal file
23
Aviso/My Project/Settings.settings
Normal file
@@ -0,0 +1,23 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
|
||||
<Profiles />
|
||||
<Settings>
|
||||
<Setting Name="frmMainSize" Type="System.Drawing.Size" Scope="User">
|
||||
<Value Profile="(Default)">600, 800</Value>
|
||||
</Setting>
|
||||
<Setting Name="frmMainPosition" Type="System.Drawing.Point" Scope="User">
|
||||
<Value Profile="(Default)">200, 200</Value>
|
||||
</Setting>
|
||||
<Setting Name="AVISO_ConnectionString_TEST" Type="(Connection string)" Scope="Application">
|
||||
<DesignTimeValue Profile="(Default)"><?xml version="1.0" encoding="utf-16"?>
|
||||
<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<ConnectionString>Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString>
|
||||
<ProviderName>System.Data.SqlClient</ProviderName>
|
||||
</SerializableConnectionString></DesignTimeValue>
|
||||
<Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
|
||||
</Setting>
|
||||
<Setting Name="s" Type="System.String" Scope="User">
|
||||
<Value Profile="(Default)" />
|
||||
</Setting>
|
||||
</Settings>
|
||||
</SettingsFile>
|
||||
BIN
Aviso/My Project/aktAlt.jpg
Normal file
BIN
Aviso/My Project/aktAlt.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 676 KiB |
54
Aviso/My Project/app.manifest
Normal file
54
Aviso/My Project/app.manifest
Normal file
@@ -0,0 +1,54 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app" />
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<!-- UAC-Manifestoptionen
|
||||
Wenn Sie die Zugangsebene für das Windows-Benutzerkonto ändern möchten, ersetzen Sie den
|
||||
requestedExecutionLevel-Knoten durch eines der folgenden Elemente.
|
||||
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
|
||||
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
|
||||
|
||||
Durch Angeben des requestedExecutionLevel-Knotens wird die Datei- und Registrierungsvirtualisierung deaktiviert.
|
||||
Wenn Sie Datei- und Registrierungsvirtualisierung für Abwärts-
|
||||
kompatibilität verwenden möchten, löschen Sie den requestedExecutionLevel-Knoten.
|
||||
-->
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
</requestedPrivileges>
|
||||
<applicationRequestMinimum>
|
||||
<PermissionSet Unrestricted="true" ID="Custom" SameSite="site" />
|
||||
<defaultAssemblyRequest permissionSetReference="Custom" />
|
||||
</applicationRequestMinimum>
|
||||
</security>
|
||||
</trustInfo>
|
||||
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
|
||||
<application>
|
||||
<!-- Eine Liste aller Windows-Versionen, mit denen die Anwendung kompatibel ist.
|
||||
Windows wählt automatisch die am stärksten kompatible Umgebung aus.-->
|
||||
<!-- Wenn die Anwendung mit Windows Vista kompatibel ist, heben Sie die Auskommentierung des folgenden supportedOS-Knotens auf-->
|
||||
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"></supportedOS>-->
|
||||
<!-- Wenn die Anwendung mit Windows 7 kompatibel ist, heben Sie die Kommentierung des folgenden supportedOS-Knotens auf.-->
|
||||
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
|
||||
<!-- Wenn die Anwendung mit Windows 8 kompatibel ist, heben Sie die Auskommentierung des folgenden supportedOS-Knotens auf-->
|
||||
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"></supportedOS>-->
|
||||
<!-- Wenn die Anwendung mit Windows 8.1 kompatibel ist, die Kommentierung des folgenden supportedOS-Knotens aufheben.-->
|
||||
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>-->
|
||||
</application>
|
||||
</compatibility>
|
||||
<!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
|
||||
<!-- <dependency>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity
|
||||
type="win32"
|
||||
name="Microsoft.Windows.Common-Controls"
|
||||
version="6.0.0.0"
|
||||
processorArchitecture="*"
|
||||
publicKeyToken="6595b64144ccf1df"
|
||||
language="*"
|
||||
/>
|
||||
</dependentAssembly>
|
||||
</dependency>-->
|
||||
</asmv1:assembly>
|
||||
4
Aviso/My Project/licenses.licx
Normal file
4
Aviso/My Project/licenses.licx
Normal file
@@ -0,0 +1,4 @@
|
||||
GrapeCity.ActiveReports.Export.Excel.Section.XlsExport, GrapeCity.ActiveReports.Export.Excel.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
|
||||
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
|
||||
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
|
||||
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
|
||||
BIN
Aviso/Resources/1600.png
Normal file
BIN
Aviso/Resources/1600.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 28 KiB |
BIN
Aviso/Resources/16001.png
Normal file
BIN
Aviso/Resources/16001.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 28 KiB |
BIN
Aviso/Resources/3s.png
Normal file
BIN
Aviso/Resources/3s.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 13 KiB |
BIN
Aviso/Resources/Atilla.png
Normal file
BIN
Aviso/Resources/Atilla.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 9.4 KiB |
BIN
Aviso/Resources/GenerelleGestellung_DE.pdf
Normal file
BIN
Aviso/Resources/GenerelleGestellung_DE.pdf
Normal file
Binary file not shown.
BIN
Aviso/Resources/IMEX-LOGO_simple.png
Normal file
BIN
Aviso/Resources/IMEX-LOGO_simple.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 89 KiB |
BIN
Aviso/Resources/IMEX.png
Normal file
BIN
Aviso/Resources/IMEX.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 237 KiB |
BIN
Aviso/Resources/LEX.png
Normal file
BIN
Aviso/Resources/LEX.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 269 KiB |
BIN
Aviso/Resources/LateAviso_s.png
Normal file
BIN
Aviso/Resources/LateAviso_s.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.7 KiB |
17
Aviso/Resources/MUSTER.nlc
Normal file
17
Aviso/Resources/MUSTER.nlc
Normal file
@@ -0,0 +1,17 @@
|
||||
[Document]
|
||||
Profile=Abfertigung
|
||||
Command=528
|
||||
History=Indexupdate from Abfertigungs-SW
|
||||
|
||||
[Keywords]
|
||||
$Empf<70>nger=%Empfaenger%
|
||||
$Versender=%Versender%
|
||||
$Fr<46>chter=%Fraechter%
|
||||
$Auftragserfasser=%Auftraggeber%
|
||||
$Avis-Nr=%AvisNr%
|
||||
$LKW-KZ=%LKWKennzeichen%
|
||||
$Ankunft-Info=%Ankunft%
|
||||
#Datum=%Datum%
|
||||
|
||||
[Searchwords]
|
||||
$Pos-Nr=%PosNr%
|
||||
BIN
Aviso/Resources/NDK.png
Normal file
BIN
Aviso/Resources/NDK.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 269 KiB |
BIN
Aviso/Resources/NKD.png
Normal file
BIN
Aviso/Resources/NKD.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 265 KiB |
BIN
Aviso/Resources/QS.png
Normal file
BIN
Aviso/Resources/QS.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 275 KiB |
BIN
Aviso/Resources/SBG.png
Normal file
BIN
Aviso/Resources/SBG.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 271 KiB |
BIN
Aviso/Resources/SUB.png
Normal file
BIN
Aviso/Resources/SUB.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 270 KiB |
BIN
Aviso/Resources/Verag-AG-Logopng.png
Normal file
BIN
Aviso/Resources/Verag-AG-Logopng.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 32 KiB |
107
Aviso/Resources/Versionsinfo.txt
Normal file
107
Aviso/Resources/Versionsinfo.txt
Normal file
@@ -0,0 +1,107 @@
|
||||
Version 3.1.5.0 vom 28.11.2017:
|
||||
- Anbindng ATILLA-Aviso an VERAG Datenbank
|
||||
|
||||
|
||||
Version 3.0.0.0 vom 29.03.2017:
|
||||
- Weiterentwicklung der Benutzeroberfläche
|
||||
- Erweiterung "Speditionsbuch"
|
||||
- Erweiterung "Kassenbuch"
|
||||
Anpassung zur Registrierkassensicherheitsverordnung
|
||||
- Erweiterung "Kunden" – Offerte, Formulare, diverses
|
||||
- Anbindung VERAG Kundendatenbank
|
||||
- Integration UID-Programm
|
||||
- Integration ATILLA AVISO
|
||||
|
||||
|
||||
Version 2.0.0.6 vom 01.03.2016
|
||||
- Anpassung der Funktion "getKundenShort"
|
||||
|
||||
Version 2.0.0.5 vom 25.02.2016
|
||||
- Doppelklick auf Eintrag in MeineAviso -> öffnet Vermerke
|
||||
- LKW-Fertig wird in MeineAviso angezeigt
|
||||
|
||||
Version 2.0.0.1 bis 2.0.0.4
|
||||
- diverse Bugfixes
|
||||
|
||||
Version 2.0.0.0 vom 13.02.2016
|
||||
- Erweiterung Anzeige "Meine Aviso"
|
||||
- Erweiterung "Kunden" – Anbindung an die FM-Zoll Datenbank
|
||||
- Erweiterung "Zolltarife" – Einbinden der Bundesanzeiger Homepage
|
||||
- Erweiterung "Checkliste" – Integration des UID Programmes
|
||||
- Neuer Status: Vorbereitet
|
||||
- Neuer Status Vorgeschrieben
|
||||
- Überarbeitung Vermerke
|
||||
- Verknüpfung der Benutzerverwaltung zu den AVISO-Daten
|
||||
- Redesign - Anpassung VERAG-Blau
|
||||
|
||||
|
||||
Version 1.0.3.1 vom 31.07.2015
|
||||
- Erweiterung Anzeige "Meine Aviso"
|
||||
- Design Anpassung VERAG-Blau
|
||||
|
||||
Version 1.0.3.0 vom 25.03.2015
|
||||
- Anbindung an die SQL-Datenbank
|
||||
- Die Mitarbeiter-Verwaltung wurde auf das Admin-Tool ausgelagert
|
||||
|
||||
Version 1.0.2.0 vom 08.03.2015
|
||||
- Neu: komplexe Erweiterung der Auswertung:
|
||||
+verschiedene Datum-Auswahl möglichkeiten
|
||||
+Grenzstelle mit Optionswahl
|
||||
+spezielle Firmen-Auswahl
|
||||
+Hilfsbuttons für Datumswahl
|
||||
|
||||
Version 1.0.1.2 vom 24.02.2015
|
||||
- Neu: beim Druck wird das Datum variabl zur Status-Auswahl angepasst
|
||||
- Neu: beim Druck kann jetzt die Grenzstelle speziell ausgewählt werden
|
||||
- Anpassung: beim Druck+Anzeige gilt bei Bis-Datum die Uhrzeit 23:59 (also inklusive alle Einträge von diesem Tag)
|
||||
|
||||
Version 1.0.1.1 vom 01.12.2014
|
||||
- Anpassung: falls bei Datum ein Feld nicht befüllt ist, wird beim Report das Feld als leer gedruckt
|
||||
|
||||
Version 1.0.1.0 vom 15.11.2014
|
||||
- Neu: Einbau der Auswertungen (Kundenliste, interne Liste) mit speziellen Auswahlmöglichkeiten; Druck kann auch als pdf/Word/Excel exportiert werden
|
||||
- Anpassung: Vorschlagsdatum bei Avisoanzeige - es wird "heute minus 15 Tage" bis "morgen" angezeigt
|
||||
|
||||
Version 1.0.0.8 vom 22.02.2014
|
||||
- Optimierung der Geschwindigkeit durch Änderung der Datenbank-Open/Close-Routine
|
||||
- Neu: bei Klick auf Taste "Fertig" wird zusätzlich zum Kennzeichen ein eigener Vermerk angelegt
|
||||
|
||||
Version 1.0.0.7 vom 14.01.2014
|
||||
- Spezialversion zum Testen der Anzeigegeschwindigkeit
|
||||
|
||||
Version 1.0.0.6 vom 13.01.2014
|
||||
- Neu: zusätzliche Taste "Wichtig Standort" -> es werden alle LKWs mit Status ANKUNFT des aktiven Standorts (=abhängig vom angemeldeten User) angezeigt
|
||||
|
||||
Version 1.0.0.5 vom 09.01.2014
|
||||
- Anpassung: Status "LKW nicht eingetroffen" automatisch setzten wurde von 10 auf 21 Tage erhöht
|
||||
- Anpassung: Info-Text kann nur bis zum Status ERFASST eingetragen/geändert werden; danach Hinweise nur noch über Vermerk-Eintrag möglich
|
||||
- Anpassung: in rechter Button-Leiste wurde zwischen Neu und Ändern der Button Vermerk eingefügt
|
||||
- Neu: zwei neue Vermerke zur Vorauswahl: 'LKW Standzeit Wochenende' und 'LKW Standzeit Feiertag(e)'
|
||||
- Fehler behoben: bei Suchauswahl ohne Aviso-Treffer wurde manchmal ein nicht zutreffender Vermerk angezeigt (Ansicht nicht gelöscht)
|
||||
|
||||
Version 1.0.0.4 vom 21.12.2013
|
||||
- Anpassung: beim Klick auf "Wichtig" werden alle anderen vorbelegten Auswahlkriterien zurückgesetzt; d.h. es werden immer alle ANKUNFT-LKWs angezeigt
|
||||
- Anpassung: beim Start des Programms wird automatisch die Anzeige "Wichtig" vorselektiert
|
||||
- Neu: Es kann jetzt pro Standort ein individueller eMail-Text vergeben werden.
|
||||
|
||||
Version 1.0.0.3 vom 18.12.2013
|
||||
- Anpassung: bei Anlage Aviso wird jetzt automatisch das aktuelle Tagesdatum mit Uhrzeit "00:00" vorgeschlagen
|
||||
- Anpassung: Mitarbeiter darf auch Status 'Freigabe' auf 'Ankunft' zurücksetzen
|
||||
|
||||
Version 1.0.0.2 vom 16.12.2013
|
||||
- Neu: Eintrag neuer 'Vermerk' wird standardmäßig auf 'keine Auswahl' gesetzt
|
||||
- Neu: bei neuem Aviso wird geprüft, ob LKW-Nr in den letzten 4 Tagen bereits erfasst worden ist; falls ja, dann erfolgt ein Hinweis (Eintrag kann aber trotzdem gespeichert werden)
|
||||
- Anpassung: Firmen müssen nicht angelegt werden, damit sie bei einem Aviso-Eintrag gespeichert werden (werden aber als Hinweis hellrot markiert)
|
||||
- Anpassung: die neuen Vermerke von V1.0.0.1 wurden in den Bereich Sendungen verschoben
|
||||
- FEHLER behoben: manchmal wurde der OK-Button beim Aviso-Ändern deaktiviert, obwohl er eigentlich erlaubt sein sollte
|
||||
- FEHLER behoben: Fenster war gleich nach Anmeldung minimiert und nicht wieder zu öffnen
|
||||
|
||||
Version 1.0.0.1 vom 14.12.2013
|
||||
- Folgende Löschfunktionen für Sachbearbeiter freigeschaltet: Firmen löschen; Vermerke löschen; „erfasst“-Datensatz löschen (Rechtsklick-Kontextmenü);
|
||||
- Funktionsänderung in der Maske „Vermerke“: beim Öffnen des Fensters „Vermerke erfassen“ werden die Felder immer leer angezeigt
|
||||
- Neue Punkte in „Vermerke“: CMR für Fiskal VZ angefordert; CMR für Fiskal VZ erhalten; Vorauskasse angefordert; Vorauskasse erhalten
|
||||
- bei Button „WICHTIG“ Hinweis "(zeigt alle ANKUNFT LKW`s)" hinzugefügt
|
||||
|
||||
Version 1.0.0.0 vom 12.12.2013 (BETA ab Herbst 2013)
|
||||
Das alte Aviso-Programm wurde im Zuge der Umstellung von 32Bit auf 64Bit komplett überarbeitet, neu designed und um viele Punkte erweitert.
|
||||
Da das neue Programm eigentlich nicht mehr viel mit dem alten "Aviso" gemein hatte, wurde das neue Programm auf "Track & Trace" umgetauft.
|
||||
BIN
Aviso/Resources/WAI.png
Normal file
BIN
Aviso/Resources/WAI.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 269 KiB |
BIN
Aviso/Resources/abgeklaertAktiv.jpg
Normal file
BIN
Aviso/Resources/abgeklaertAktiv.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.1 KiB |
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user