neu
This commit is contained in:
@@ -33,7 +33,6 @@ Public Class UPDATERfrm
|
|||||||
|
|
||||||
If PARAM = "full" Then
|
If PARAM = "full" Then
|
||||||
CopyIncremental = False
|
CopyIncremental = False
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
297
AVISO_CHECKIN/AVISO_CHECKIN.vbproj
Normal file
297
AVISO_CHECKIN/AVISO_CHECKIN.vbproj
Normal file
@@ -0,0 +1,297 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="15.0" 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>{CB95CC0E-D73A-4D11-9FF8-197A392D831F}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>AVISO_CHECKIN.My.MyApplication</StartupObject>
|
||||||
|
<RootNamespace>AVISO_CHECKIN</RootNamespace>
|
||||||
|
<AssemblyName>AVISO_CHECKIN</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>WindowsForms</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
|
||||||
|
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||||
|
<Deterministic>true</Deterministic>
|
||||||
|
</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>AVISO_CHECKIN.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</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>AVISO_CHECKIN.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="ClosedXML">
|
||||||
|
<HintPath>..\..\..\dll\ClosedXML.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="DocumentFormat.OpenXml, Version=2.5.5631.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\DocumentFormat.OpenXml.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Dynamsoft.Forms.Viewer">
|
||||||
|
<HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.Forms.Viewer.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Dynamsoft.ImageCore">
|
||||||
|
<HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.ImageCore.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Dynamsoft.PDF">
|
||||||
|
<HintPath>..\..\SICHERUNG\Aviso_12.02.2018\Aviso\Aviso\bin\Debug\Dynamsoft.PDF.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Dynamsoft.Twain">
|
||||||
|
<HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.Twain.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Ghostscript.NET">
|
||||||
|
<HintPath>..\..\..\dll\Ghostscript.NET.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Document.v12.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="GrapeCity.ActiveReports.Export.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Export.Document.v12.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Export.Pdf.v12.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.v12.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Viewer.Win.v12.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="GrapeCity.Documents.Pdf">
|
||||||
|
<HintPath>..\packages\GrapeCity.Documents.Pdf.2.2.0.315\lib\net461\GrapeCity.Documents.Pdf.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="itextsharp">
|
||||||
|
<HintPath>..\..\..\dll\itextsharp.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="NetSpell.SpellChecker">
|
||||||
|
<HintPath>..\..\..\dll\NetSpell.SpellChecker.DLL</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL" />
|
||||||
|
<Reference Include="Spire.Pdf">
|
||||||
|
<HintPath>..\..\..\dll\PDF Spire\6.10\Spire.Pdf.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.DirectoryServices" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Web.Services" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
<Reference Include="System.Net.Http" />
|
||||||
|
</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.Drawing" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Windows.Forms" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="Form1.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Form1.Designer.vb">
|
||||||
|
<DependentUpon>Form1.vb</DependentUpon>
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmCheckIn.Designer.vb">
|
||||||
|
<DependentUpon>frmCheckIn.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmCheckIn.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<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="usrCntlFinish.Designer.vb">
|
||||||
|
<DependentUpon>usrCntlFinish.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="usrCntlFinish.vb">
|
||||||
|
<SubType>UserControl</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="usrCntlFound.Designer.vb">
|
||||||
|
<DependentUpon>usrCntlFound.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="usrCntlFound.vb">
|
||||||
|
<SubType>UserControl</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="usrCntlSearch.Designer.vb">
|
||||||
|
<DependentUpon>usrCntlSearch.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="usrCntlSearch.vb">
|
||||||
|
<SubType>UserControl</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="usrCntlWelcome.Designer.vb">
|
||||||
|
<DependentUpon>usrCntlWelcome.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="usrCntlWelcome.vb">
|
||||||
|
<SubType>UserControl</SubType>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="frmCheckIn.resx">
|
||||||
|
<DependentUpon>frmCheckIn.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="usrCntlFinish.resx">
|
||||||
|
<DependentUpon>usrCntlFinish.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="usrCntlFound.resx">
|
||||||
|
<DependentUpon>usrCntlFound.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="usrCntlSearch.resx">
|
||||||
|
<DependentUpon>usrCntlSearch.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="usrCntlWelcome.resx">
|
||||||
|
<DependentUpon>usrCntlWelcome.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<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="Resources\flag_srb.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\flag_srb2.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\flag_tr.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\handy_QR.jpg" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\lan_de.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\lan_eng.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\qr_search.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\timer.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\searchGG.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<ProjectReference Include="..\..\..\SDL\SDL\SDL\SDL.vbproj">
|
||||||
|
<Project>{289bcd77-bc00-4ba1-95ed-a79176d99525}</Project>
|
||||||
|
<Name>SDL</Name>
|
||||||
|
</ProjectReference>
|
||||||
|
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
|
||||||
|
<Project>{A3B497BD-842C-4A2B-B398-ED1976849DF1}</Project>
|
||||||
|
<Name>VERAG_PROG_ALLGEMEIN</Name>
|
||||||
|
</ProjectReference>
|
||||||
|
<ProjectReference Include="..\Aviso\Aviso.vbproj">
|
||||||
|
<Project>{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}</Project>
|
||||||
|
<Name>Aviso</Name>
|
||||||
|
</ProjectReference>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\LKW_mit_Aufleger.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\LKW.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\Sprinter.jpg" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\Sprinter.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\Logo_blue_globe_Horizontal.jpg" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\FO_white.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\EMail-Signatur.jpg" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\Verag-AG-Logopng.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\Unisped_logo.jpg" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\IMEX-LOGO_simple.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="Resources\fragezeichen.png" />
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
</Project>
|
||||||
6
AVISO_CHECKIN/App.config
Normal file
6
AVISO_CHECKIN/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.7" />
|
||||||
|
</startup>
|
||||||
|
</configuration>
|
||||||
31
AVISO_CHECKIN/Form1.Designer.vb
generated
Normal file
31
AVISO_CHECKIN/Form1.Designer.vb
generated
Normal file
@@ -0,0 +1,31 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class Form1
|
||||||
|
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()
|
||||||
|
components = New System.ComponentModel.Container()
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(800, 450)
|
||||||
|
Me.Text = "Form1"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
3
AVISO_CHECKIN/Form1.vb
Normal file
3
AVISO_CHECKIN/Form1.vb
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
Public Class Form1
|
||||||
|
|
||||||
|
End Class
|
||||||
38
AVISO_CHECKIN/My Project/Application.Designer.vb
generated
Normal file
38
AVISO_CHECKIN/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 und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
|
||||||
|
' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
|
||||||
|
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
|
||||||
|
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
|
||||||
|
'
|
||||||
|
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_CHECKIN.frmCheckIn
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
10
AVISO_CHECKIN/My Project/Application.myapp
Normal file
10
AVISO_CHECKIN/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>frmCheckIn</MainForm>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
AVISO_CHECKIN/My Project/AssemblyInfo.vb
Normal file
35
AVISO_CHECKIN/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 einer Assembly zugeordnet sind.
|
||||||
|
|
||||||
|
' Werte der Assemblyattribute überprüfen
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("AVISO_CHECKIN")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("")>
|
||||||
|
<Assembly: AssemblyProduct("AVISO_CHECKIN")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © 2020")>
|
||||||
|
<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("09cd248d-00b5-4889-95a8-8a01842d88d9")>
|
||||||
|
|
||||||
|
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||||
|
'
|
||||||
|
' Hauptversion
|
||||||
|
' Nebenversion
|
||||||
|
' Buildnummer
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
|
||||||
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
263
AVISO_CHECKIN/My Project/Resources.Designer.vb
generated
Normal file
263
AVISO_CHECKIN/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,263 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <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", "15.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("AVISO_CHECKIN.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
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property EMail_Signatur() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("EMail-Signatur", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property flag_srb() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("flag_srb", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property flag_srb2() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("flag_srb2", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property flag_tr() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("flag_tr", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property FO_white() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("FO_white", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property fragezeichen() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("fragezeichen", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property handy_QR() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("handy_QR", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property IMEX_LOGO_simple() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("IMEX-LOGO_simple", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property lan_de() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("lan_de", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property lan_eng() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("lan_eng", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property LKW() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("LKW", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property LKW_mit_Aufleger() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("LKW_mit_Aufleger", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property Logo_blue_globe_Horizontal() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("Logo_blue_globe_Horizontal", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property qr_search() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("qr_search", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property searchGG() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("searchGG", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property Sprinter() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("Sprinter", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property Sprinter1() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("Sprinter1", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property timer() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("timer", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property Unisped_logo() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("Unisped_logo", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property Verag_AG_Logopng() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("Verag-AG-Logopng", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
181
AVISO_CHECKIN/My Project/Resources.resx
Normal file
181
AVISO_CHECKIN/My Project/Resources.resx
Normal file
@@ -0,0 +1,181 @@
|
|||||||
|
<?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="Sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\Sprinter.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="EMail-Signatur" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\EMail-Signatur.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="LKW_mit_Aufleger" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\LKW_mit_Aufleger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="lan_de" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\lan_de.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="lan_eng" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\lan_eng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="handy_QR" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\handy_QR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="Logo_blue_globe_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="qr_search" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\qr_search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="flag_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\flag_tr.png;System.Drawing.Bitmap, 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="Sprinter1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\Sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="FO_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\FO_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="flag_srb" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\flag_srb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="timer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\timer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<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="LKW" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\LKW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="flag_srb2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\flag_srb2.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="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
73
AVISO_CHECKIN/My Project/Settings.Designer.vb
generated
Normal file
73
AVISO_CHECKIN/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </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", "11.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 "My.Settings Auto-Save Functionality"
|
||||||
|
#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.AVISO_CHECKIN.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.AVISO_CHECKIN.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
7
AVISO_CHECKIN/My Project/Settings.settings
Normal file
7
AVISO_CHECKIN/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>
|
||||||
5
AVISO_CHECKIN/My Project/licenses.licx
Normal file
5
AVISO_CHECKIN/My Project/licenses.licx
Normal file
@@ -0,0 +1,5 @@
|
|||||||
|
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.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
|
||||||
|
Spire.PdfViewer.Forms.PdfDocumentViewer, Spire.PdfViewer.Forms, Version=4.5.1.3046, Culture=neutral, PublicKeyToken=663f351905198cb3
|
||||||
|
GrapeCity.ActiveReports.Export.Excel.Section.XlsExport, GrapeCity.ActiveReports.Export.Excel.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
|
||||||
BIN
AVISO_CHECKIN/Resources/EMail-Signatur.jpg
Normal file
BIN
AVISO_CHECKIN/Resources/EMail-Signatur.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 102 KiB |
BIN
AVISO_CHECKIN/Resources/FO_white.png
Normal file
BIN
AVISO_CHECKIN/Resources/FO_white.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 369 KiB |
BIN
AVISO_CHECKIN/Resources/IMEX-LOGO_simple.png
Normal file
BIN
AVISO_CHECKIN/Resources/IMEX-LOGO_simple.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 89 KiB |
BIN
AVISO_CHECKIN/Resources/LKW.png
Normal file
BIN
AVISO_CHECKIN/Resources/LKW.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 7.8 KiB |
BIN
AVISO_CHECKIN/Resources/LKW_mit_Aufleger.png
Normal file
BIN
AVISO_CHECKIN/Resources/LKW_mit_Aufleger.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 10 KiB |
BIN
AVISO_CHECKIN/Resources/Logo_blue_globe_Horizontal.jpg
Normal file
BIN
AVISO_CHECKIN/Resources/Logo_blue_globe_Horizontal.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 86 KiB |
BIN
AVISO_CHECKIN/Resources/Sprinter.jpg
Normal file
BIN
AVISO_CHECKIN/Resources/Sprinter.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 17 KiB |
BIN
AVISO_CHECKIN/Resources/Sprinter.png
Normal file
BIN
AVISO_CHECKIN/Resources/Sprinter.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 26 KiB |
BIN
AVISO_CHECKIN/Resources/Unisped_logo.jpg
Normal file
BIN
AVISO_CHECKIN/Resources/Unisped_logo.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 113 KiB |
BIN
AVISO_CHECKIN/Resources/Verag-AG-Logopng.png
Normal file
BIN
AVISO_CHECKIN/Resources/Verag-AG-Logopng.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 32 KiB |
BIN
AVISO_CHECKIN/Resources/flag_srb.png
Normal file
BIN
AVISO_CHECKIN/Resources/flag_srb.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 311 KiB |
BIN
AVISO_CHECKIN/Resources/flag_srb2.png
Normal file
BIN
AVISO_CHECKIN/Resources/flag_srb2.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 100 KiB |
BIN
AVISO_CHECKIN/Resources/flag_tr.png
Normal file
BIN
AVISO_CHECKIN/Resources/flag_tr.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 41 KiB |
BIN
AVISO_CHECKIN/Resources/fragezeichen.png
Normal file
BIN
AVISO_CHECKIN/Resources/fragezeichen.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 31 KiB |
BIN
AVISO_CHECKIN/Resources/handy_QR.jpg
Normal file
BIN
AVISO_CHECKIN/Resources/handy_QR.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 54 KiB |
BIN
AVISO_CHECKIN/Resources/lan_de.png
Normal file
BIN
AVISO_CHECKIN/Resources/lan_de.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.4 KiB |
BIN
AVISO_CHECKIN/Resources/lan_eng.png
Normal file
BIN
AVISO_CHECKIN/Resources/lan_eng.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.6 KiB |
BIN
AVISO_CHECKIN/Resources/qr_search.png
Normal file
BIN
AVISO_CHECKIN/Resources/qr_search.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 29 KiB |
BIN
AVISO_CHECKIN/Resources/searchGG.png
Normal file
BIN
AVISO_CHECKIN/Resources/searchGG.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 16 KiB |
BIN
AVISO_CHECKIN/Resources/timer.png
Normal file
BIN
AVISO_CHECKIN/Resources/timer.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 21 KiB |
329
AVISO_CHECKIN/frmCheckIn.Designer.vb
generated
Normal file
329
AVISO_CHECKIN/frmCheckIn.Designer.vb
generated
Normal file
@@ -0,0 +1,329 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
|
Partial Class frmCheckIn
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()>
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Me.components = New System.ComponentModel.Container()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmCheckIn))
|
||||||
|
Me.pnl = New System.Windows.Forms.Panel()
|
||||||
|
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||||
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.btnResetSearch = New System.Windows.Forms.Button()
|
||||||
|
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
|
||||||
|
Me.Button4 = New System.Windows.Forms.Button()
|
||||||
|
Me.Button5 = New System.Windows.Forms.Button()
|
||||||
|
Me.lbl = New System.Windows.Forms.Label()
|
||||||
|
Me.Panel = New System.Windows.Forms.Panel()
|
||||||
|
Me.Timer = New System.Windows.Forms.Timer(Me.components)
|
||||||
|
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||||
|
Me.timerResetDefault = New System.Windows.Forms.Timer(Me.components)
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.btn = New System.Windows.Forms.Button()
|
||||||
|
Me.Button1 = New System.Windows.Forms.Button()
|
||||||
|
Me.Button2 = New System.Windows.Forms.Button()
|
||||||
|
Me.Button3 = New System.Windows.Forms.Button()
|
||||||
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.pnl.SuspendLayout()
|
||||||
|
Me.Panel1.SuspendLayout()
|
||||||
|
Me.FlowLayoutPanel.SuspendLayout()
|
||||||
|
Me.Panel.SuspendLayout()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'pnl
|
||||||
|
'
|
||||||
|
Me.pnl.BackColor = System.Drawing.Color.White
|
||||||
|
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
|
Me.pnl.Controls.Add(Me.Panel3)
|
||||||
|
Me.pnl.Controls.Add(Me.Panel1)
|
||||||
|
Me.pnl.Controls.Add(Me.Panel)
|
||||||
|
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(1577, 559)
|
||||||
|
Me.pnl.TabIndex = 1
|
||||||
|
'
|
||||||
|
'Panel3
|
||||||
|
'
|
||||||
|
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.Panel3.Location = New System.Drawing.Point(0, 121)
|
||||||
|
Me.Panel3.Name = "Panel3"
|
||||||
|
Me.Panel3.Size = New System.Drawing.Size(1575, 364)
|
||||||
|
Me.Panel3.TabIndex = 9
|
||||||
|
'
|
||||||
|
'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.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
|
Me.Panel1.Controls.Add(Me.Label1)
|
||||||
|
Me.Panel1.Controls.Add(Me.btnResetSearch)
|
||||||
|
Me.Panel1.Controls.Add(Me.FlowLayoutPanel)
|
||||||
|
Me.Panel1.Controls.Add(Me.lbl)
|
||||||
|
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(1575, 121)
|
||||||
|
Me.Panel1.TabIndex = 2
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label1.Font = New System.Drawing.Font("Arial", 50.0!, System.Drawing.FontStyle.Bold)
|
||||||
|
Me.Label1.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(467, -1)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(565, 121)
|
||||||
|
Me.Label1.TabIndex = 3
|
||||||
|
Me.Label1.Text = "SELF CHECK-IN"
|
||||||
|
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
'
|
||||||
|
'btnResetSearch
|
||||||
|
'
|
||||||
|
Me.btnResetSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
|
||||||
|
Me.btnResetSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.btnResetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btnResetSearch.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
|
||||||
|
Me.btnResetSearch.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.btnResetSearch.Location = New System.Drawing.Point(14, 3)
|
||||||
|
Me.btnResetSearch.Name = "btnResetSearch"
|
||||||
|
Me.btnResetSearch.Size = New System.Drawing.Size(236, 51)
|
||||||
|
Me.btnResetSearch.TabIndex = 1
|
||||||
|
Me.btnResetSearch.Text = "X RESET"
|
||||||
|
Me.btnResetSearch.UseVisualStyleBackColor = False
|
||||||
|
Me.btnResetSearch.Visible = False
|
||||||
|
'
|
||||||
|
'FlowLayoutPanel
|
||||||
|
'
|
||||||
|
Me.FlowLayoutPanel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.FlowLayoutPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.FlowLayoutPanel.Controls.Add(Me.btn)
|
||||||
|
Me.FlowLayoutPanel.Controls.Add(Me.Button1)
|
||||||
|
Me.FlowLayoutPanel.Controls.Add(Me.Button2)
|
||||||
|
Me.FlowLayoutPanel.Controls.Add(Me.Button4)
|
||||||
|
Me.FlowLayoutPanel.Controls.Add(Me.Button5)
|
||||||
|
Me.FlowLayoutPanel.Controls.Add(Me.Button3)
|
||||||
|
Me.FlowLayoutPanel.Location = New System.Drawing.Point(1073, 3)
|
||||||
|
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
|
||||||
|
Me.FlowLayoutPanel.Size = New System.Drawing.Size(491, 75)
|
||||||
|
Me.FlowLayoutPanel.TabIndex = 2
|
||||||
|
'
|
||||||
|
'Button4
|
||||||
|
'
|
||||||
|
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Button4.Location = New System.Drawing.Point(246, 3)
|
||||||
|
Me.Button4.Name = "Button4"
|
||||||
|
Me.Button4.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.Button4.TabIndex = 4
|
||||||
|
Me.Button4.Tag = "RUS"
|
||||||
|
Me.Button4.UseVisualStyleBackColor = True
|
||||||
|
Me.Button4.Visible = False
|
||||||
|
'
|
||||||
|
'Button5
|
||||||
|
'
|
||||||
|
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Button5.Location = New System.Drawing.Point(327, 3)
|
||||||
|
Me.Button5.Name = "Button5"
|
||||||
|
Me.Button5.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.Button5.TabIndex = 5
|
||||||
|
Me.Button5.Tag = "BG"
|
||||||
|
Me.Button5.UseVisualStyleBackColor = True
|
||||||
|
Me.Button5.Visible = False
|
||||||
|
'
|
||||||
|
'lbl
|
||||||
|
'
|
||||||
|
Me.lbl.AutoSize = True
|
||||||
|
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||||
|
Me.lbl.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.lbl.Location = New System.Drawing.Point(10, 57)
|
||||||
|
Me.lbl.Name = "lbl"
|
||||||
|
Me.lbl.Size = New System.Drawing.Size(240, 20)
|
||||||
|
Me.lbl.TabIndex = 0
|
||||||
|
Me.lbl.Text = "Bitte scannen Sie den QR-Code:"
|
||||||
|
Me.lbl.Visible = False
|
||||||
|
'
|
||||||
|
'Panel
|
||||||
|
'
|
||||||
|
Me.Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
|
Me.Panel.Controls.Add(Me.Label3)
|
||||||
|
Me.Panel.Controls.Add(Me.Label2)
|
||||||
|
Me.Panel.Controls.Add(Me.PictureBox1)
|
||||||
|
Me.Panel.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||||
|
Me.Panel.Location = New System.Drawing.Point(0, 485)
|
||||||
|
Me.Panel.Name = "Panel"
|
||||||
|
Me.Panel.Size = New System.Drawing.Size(1575, 72)
|
||||||
|
Me.Panel.TabIndex = 0
|
||||||
|
'
|
||||||
|
'Timer
|
||||||
|
'
|
||||||
|
Me.Timer.Interval = 1000
|
||||||
|
'
|
||||||
|
'Timer1
|
||||||
|
'
|
||||||
|
Me.Timer1.Enabled = True
|
||||||
|
'
|
||||||
|
'timerResetDefault
|
||||||
|
'
|
||||||
|
Me.timerResetDefault.Enabled = True
|
||||||
|
Me.timerResetDefault.Interval = 5000
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label2.AutoSize = True
|
||||||
|
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||||
|
Me.Label2.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(1387, 5)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(179, 60)
|
||||||
|
Me.Label2.TabIndex = 4
|
||||||
|
Me.Label2.Text = "Tel.: +43 7711 / 31636 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "suben@front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.front-office.eu"
|
||||||
|
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label3.AutoSize = True
|
||||||
|
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||||
|
Me.Label3.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.Label3.Location = New System.Drawing.Point(7, 6)
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Size = New System.Drawing.Size(171, 60)
|
||||||
|
Me.Label3.TabIndex = 19
|
||||||
|
Me.Label3.Text = "Front-Office Suben eG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben Nr. 14" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben"
|
||||||
|
'
|
||||||
|
'btn
|
||||||
|
'
|
||||||
|
Me.btn.BackgroundImage = CType(resources.GetObject("btn.BackgroundImage"), System.Drawing.Image)
|
||||||
|
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btn.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.btn.Location = New System.Drawing.Point(3, 3)
|
||||||
|
Me.btn.Name = "btn"
|
||||||
|
Me.btn.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.btn.TabIndex = 0
|
||||||
|
Me.btn.Tag = "DE"
|
||||||
|
Me.btn.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Button1
|
||||||
|
'
|
||||||
|
Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
|
||||||
|
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Button1.Location = New System.Drawing.Point(84, 3)
|
||||||
|
Me.Button1.Name = "Button1"
|
||||||
|
Me.Button1.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.Button1.TabIndex = 1
|
||||||
|
Me.Button1.Tag = "EN"
|
||||||
|
Me.Button1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Button2
|
||||||
|
'
|
||||||
|
Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image)
|
||||||
|
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Button2.Location = New System.Drawing.Point(165, 3)
|
||||||
|
Me.Button2.Name = "Button2"
|
||||||
|
Me.Button2.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.Button2.TabIndex = 2
|
||||||
|
Me.Button2.Tag = "SRB"
|
||||||
|
Me.Button2.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Button3
|
||||||
|
'
|
||||||
|
Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image)
|
||||||
|
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Button3.Location = New System.Drawing.Point(408, 3)
|
||||||
|
Me.Button3.Name = "Button3"
|
||||||
|
Me.Button3.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.Button3.TabIndex = 3
|
||||||
|
Me.Button3.Tag = "TR"
|
||||||
|
Me.Button3.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'PictureBox1
|
||||||
|
'
|
||||||
|
Me.PictureBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.FO_white
|
||||||
|
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.PictureBox1.Location = New System.Drawing.Point(480, 12)
|
||||||
|
Me.PictureBox1.Name = "PictureBox1"
|
||||||
|
Me.PictureBox1.Size = New System.Drawing.Size(552, 54)
|
||||||
|
Me.PictureBox1.TabIndex = 18
|
||||||
|
Me.PictureBox1.TabStop = False
|
||||||
|
'
|
||||||
|
'frmCheckIn
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(1577, 559)
|
||||||
|
Me.Controls.Add(Me.pnl)
|
||||||
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.Name = "frmCheckIn"
|
||||||
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||||
|
Me.Text = "Info"
|
||||||
|
Me.TopMost = True
|
||||||
|
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||||
|
Me.pnl.ResumeLayout(False)
|
||||||
|
Me.Panel1.ResumeLayout(False)
|
||||||
|
Me.Panel1.PerformLayout()
|
||||||
|
Me.FlowLayoutPanel.ResumeLayout(False)
|
||||||
|
Me.Panel.ResumeLayout(False)
|
||||||
|
Me.Panel.PerformLayout()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents pnl As Panel
|
||||||
|
Friend WithEvents Panel1 As Panel
|
||||||
|
Friend WithEvents lbl As Label
|
||||||
|
Friend WithEvents Panel As Panel
|
||||||
|
Friend WithEvents FlowLayoutPanel As FlowLayoutPanel
|
||||||
|
Friend WithEvents btn As Button
|
||||||
|
Friend WithEvents Timer As Timer
|
||||||
|
Friend WithEvents btnResetSearch As Button
|
||||||
|
Friend WithEvents Timer1 As Timer
|
||||||
|
Friend WithEvents Button1 As Button
|
||||||
|
Friend WithEvents Button2 As Button
|
||||||
|
Friend WithEvents Button3 As Button
|
||||||
|
Friend WithEvents Button4 As Button
|
||||||
|
Friend WithEvents Button5 As Button
|
||||||
|
Public WithEvents timerResetDefault As Timer
|
||||||
|
Friend WithEvents Panel3 As Panel
|
||||||
|
Friend WithEvents Label1 As Label
|
||||||
|
Friend WithEvents PictureBox1 As PictureBox
|
||||||
|
Friend WithEvents Label3 As Label
|
||||||
|
Friend WithEvents Label2 As Label
|
||||||
|
End Class
|
||||||
6060
AVISO_CHECKIN/frmCheckIn.resx
Normal file
6060
AVISO_CHECKIN/frmCheckIn.resx
Normal file
File diff suppressed because it is too large
Load Diff
106
AVISO_CHECKIN/frmCheckIn.vb
Normal file
106
AVISO_CHECKIN/frmCheckIn.vb
Normal file
@@ -0,0 +1,106 @@
|
|||||||
|
|
||||||
|
Public Class frmCheckIn
|
||||||
|
Dim cAvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
||||||
|
Dim LAN = "DE"
|
||||||
|
|
||||||
|
Private Sub frmInfo_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||||
|
Dim cOptionenDAL As New SDL.cOptionenDAL
|
||||||
|
If Not cOptionenDAL.checkLogin("CHECKIN", "CHECKIN", "AVISO") Then 'XXXXXX Or true
|
||||||
|
Me.Close()
|
||||||
|
End If
|
||||||
|
|
||||||
|
'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
|
||||||
|
'VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB"
|
||||||
|
|
||||||
|
SET_WELCOME()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub SET_WELCOME()
|
||||||
|
LAN = "DE"
|
||||||
|
Panel.Visible = True
|
||||||
|
btnResetSearch.Visible = False
|
||||||
|
FlowLayoutPanel.Visible = False
|
||||||
|
' PictureBox1.Visible = False
|
||||||
|
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
|
||||||
|
Dim USRCNTL As New usrCntlWelcome(Me)
|
||||||
|
setPos(USRCNTL)
|
||||||
|
Panel3.Controls.Add(USRCNTL)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SET_LANGUAGE(LAN)
|
||||||
|
Me.LAN = LAN
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SET_SEARCH()
|
||||||
|
Panel.Visible = False
|
||||||
|
btnResetSearch.Visible = True
|
||||||
|
FlowLayoutPanel.Visible = True
|
||||||
|
' PictureBox1.Visible = True
|
||||||
|
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
|
||||||
|
Dim USRCNTL As New usrCntlSearch(Me)
|
||||||
|
setPos(USRCNTL)
|
||||||
|
Panel3.Controls.Add(USRCNTL)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SET_FOUND(AvisoId)
|
||||||
|
Panel.Visible = False
|
||||||
|
btnResetSearch.Visible = True
|
||||||
|
FlowLayoutPanel.Visible = True
|
||||||
|
' PictureBox1.Visible = True
|
||||||
|
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
|
||||||
|
Dim USRCNTL As New usrCntlFound(Me, cAvisoDAL.LesenAviso(AvisoId, ""))
|
||||||
|
setPos(USRCNTL)
|
||||||
|
Panel3.Controls.Add(USRCNTL)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SET_FINISH(AVISO)
|
||||||
|
Panel.Visible = False
|
||||||
|
btnResetSearch.Visible = True
|
||||||
|
FlowLayoutPanel.Visible = True
|
||||||
|
' PictureBox1.Visible = True
|
||||||
|
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
|
||||||
|
Dim USRCNTL As New usrCntlFinish(Me, AVISO)
|
||||||
|
setPos(USRCNTL, True)
|
||||||
|
Panel3.Controls.Add(USRCNTL)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub TRANSLATE(CNTL As Control, Optional forceDETraslation As Boolean = False)
|
||||||
|
If LAN = "DE" And Not forceDETraslation Then Exit Sub
|
||||||
|
Exit Sub 'TEST
|
||||||
|
For Each c As Control In CNTL.Controls
|
||||||
|
If c.Controls.Count > 0 Then
|
||||||
|
TRANSLATE(c)
|
||||||
|
Else
|
||||||
|
Select Case c.GetType.ToString
|
||||||
|
Case GetType(TextBox).ToString
|
||||||
|
'NIX
|
||||||
|
Case GetType(Label).ToString, GetType(CheckBox).ToString, GetType(Button).ToString
|
||||||
|
c.Text = "OOO"
|
||||||
|
End Select
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub setPos(ByRef USRCNTL As Control, Optional fill As Boolean = False)
|
||||||
|
If fill Then
|
||||||
|
USRCNTL.Dock = DockStyle.Fill
|
||||||
|
Else
|
||||||
|
USRCNTL.Left = (Panel3.Width - USRCNTL.Width) / 2
|
||||||
|
USRCNTL.Top = 0
|
||||||
|
USRCNTL.Height = Panel3.Height
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnResetSearch_Click(sender As Object, e As EventArgs) Handles btnResetSearch.Click
|
||||||
|
SET_WELCOME()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click
|
||||||
|
LAN = sender.tag
|
||||||
|
TRANSLATE(Me)
|
||||||
|
End Sub '
|
||||||
|
End Class
|
||||||
160
AVISO_CHECKIN/usrCntlFinish.Designer.vb
generated
Normal file
160
AVISO_CHECKIN/usrCntlFinish.Designer.vb
generated
Normal file
@@ -0,0 +1,160 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
|
Partial Class usrCntlFinish
|
||||||
|
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()
|
||||||
|
Me.lblKennzeichen = New System.Windows.Forms.Label()
|
||||||
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.btn = New System.Windows.Forms.Button()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label4 = New System.Windows.Forms.Label()
|
||||||
|
Me.Timer = New System.Windows.Forms.Timer(Me.components)
|
||||||
|
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||||
|
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'lblKennzeichen
|
||||||
|
'
|
||||||
|
Me.lblKennzeichen.BackColor = System.Drawing.Color.SeaGreen
|
||||||
|
Me.lblKennzeichen.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.lblKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 60.0!, System.Drawing.FontStyle.Bold)
|
||||||
|
Me.lblKennzeichen.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.lblKennzeichen.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.lblKennzeichen.Name = "lblKennzeichen"
|
||||||
|
Me.lblKennzeichen.Size = New System.Drawing.Size(1562, 165)
|
||||||
|
Me.lblKennzeichen.TabIndex = 4
|
||||||
|
Me.lblKennzeichen.Text = "FERTIG!"
|
||||||
|
Me.lblKennzeichen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label3.Location = New System.Drawing.Point(785, 200)
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Size = New System.Drawing.Size(293, 46)
|
||||||
|
Me.Label3.TabIndex = 10
|
||||||
|
Me.Label3.Text = "2. AKT:"
|
||||||
|
'
|
||||||
|
'btn
|
||||||
|
'
|
||||||
|
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
|
||||||
|
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
|
||||||
|
Me.btn.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.btn.Location = New System.Drawing.Point(605, 788)
|
||||||
|
Me.btn.Name = "btn"
|
||||||
|
Me.btn.Size = New System.Drawing.Size(347, 87)
|
||||||
|
Me.btn.TabIndex = 19
|
||||||
|
Me.btn.Text = "RESET (30)"
|
||||||
|
Me.btn.UseVisualStyleBackColor = False
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(72, 200)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(293, 46)
|
||||||
|
Me.Label1.TabIndex = 20
|
||||||
|
Me.Label1.Text = "1. TICKET:"
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(72, 647)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(682, 46)
|
||||||
|
Me.Label2.TabIndex = 22
|
||||||
|
Me.Label2.Text = "TICKET BITTE BEHALTEN"
|
||||||
|
'
|
||||||
|
'Label4
|
||||||
|
'
|
||||||
|
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label4.Location = New System.Drawing.Point(785, 647)
|
||||||
|
Me.Label4.Name = "Label4"
|
||||||
|
Me.Label4.Size = New System.Drawing.Size(688, 121)
|
||||||
|
Me.Label4.TabIndex = 23
|
||||||
|
Me.Label4.Text = "BITTE ALLE UNTERLAGEN IN DEN AKT GEBEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UND INS FRONT-OFFICE BRINGEN"
|
||||||
|
'
|
||||||
|
'Timer
|
||||||
|
'
|
||||||
|
Me.Timer.Enabled = True
|
||||||
|
Me.Timer.Interval = 1000
|
||||||
|
'
|
||||||
|
'PictureBox2
|
||||||
|
'
|
||||||
|
Me.PictureBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.PictureBox2.Location = New System.Drawing.Point(792, 249)
|
||||||
|
Me.PictureBox2.Name = "PictureBox2"
|
||||||
|
Me.PictureBox2.Size = New System.Drawing.Size(681, 395)
|
||||||
|
Me.PictureBox2.TabIndex = 24
|
||||||
|
Me.PictureBox2.TabStop = False
|
||||||
|
'
|
||||||
|
'PictureBox1
|
||||||
|
'
|
||||||
|
Me.PictureBox1.Location = New System.Drawing.Point(79, 249)
|
||||||
|
Me.PictureBox1.Name = "PictureBox1"
|
||||||
|
Me.PictureBox1.Size = New System.Drawing.Size(675, 395)
|
||||||
|
Me.PictureBox1.TabIndex = 21
|
||||||
|
Me.PictureBox1.TabStop = False
|
||||||
|
'
|
||||||
|
'usrCntlFinish
|
||||||
|
'
|
||||||
|
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.PictureBox2)
|
||||||
|
Me.Controls.Add(Me.Label4)
|
||||||
|
Me.Controls.Add(Me.Label2)
|
||||||
|
Me.Controls.Add(Me.PictureBox1)
|
||||||
|
Me.Controls.Add(Me.Label1)
|
||||||
|
Me.Controls.Add(Me.btn)
|
||||||
|
Me.Controls.Add(Me.Label3)
|
||||||
|
Me.Controls.Add(Me.lblKennzeichen)
|
||||||
|
Me.Name = "usrCntlFinish"
|
||||||
|
Me.Size = New System.Drawing.Size(1562, 878)
|
||||||
|
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents lblKennzeichen As Label
|
||||||
|
Friend WithEvents Label3 As Label
|
||||||
|
Friend WithEvents PictureBox2 As PictureBox
|
||||||
|
Friend WithEvents btn As Button
|
||||||
|
Friend WithEvents PictureBox1 As PictureBox
|
||||||
|
Friend WithEvents Label1 As Label
|
||||||
|
Friend WithEvents Label2 As Label
|
||||||
|
Friend WithEvents Label4 As Label
|
||||||
|
Friend WithEvents Timer As Timer
|
||||||
|
End Class
|
||||||
123
AVISO_CHECKIN/usrCntlFinish.resx
Normal file
123
AVISO_CHECKIN/usrCntlFinish.resx
Normal file
@@ -0,0 +1,123 @@
|
|||||||
|
<?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="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>17, 17</value>
|
||||||
|
</metadata>
|
||||||
|
</root>
|
||||||
55
AVISO_CHECKIN/usrCntlFinish.vb
Normal file
55
AVISO_CHECKIN/usrCntlFinish.vb
Normal file
@@ -0,0 +1,55 @@
|
|||||||
|
Imports AVISO
|
||||||
|
|
||||||
|
Public Class usrCntlFinish
|
||||||
|
|
||||||
|
Dim MAIN As frmCheckIn
|
||||||
|
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
|
||||||
|
|
||||||
|
Sub New(MAIN, AVISO)
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
Me.MAIN = MAIN
|
||||||
|
Me.AVISO = AVISO
|
||||||
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub usrCntlFound_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
MAIN.TRANSLATE(Me)
|
||||||
|
If AVISO IsNot Nothing Then
|
||||||
|
|
||||||
|
Dim printerINFO = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
|
||||||
|
Dim printerStandard = SDL.cProgramFunctions.getDruckernameBySearch("XXXXXXX", True)
|
||||||
|
|
||||||
|
' If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Then
|
||||||
|
Dim rpt As New rptQRAviso(AVISO)
|
||||||
|
If printerINFO <> "" Then
|
||||||
|
SDL.cProgramFunctions.printRpt(rpt, printerINFO, True)
|
||||||
|
Else
|
||||||
|
SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
|
||||||
|
End If
|
||||||
|
'End If
|
||||||
|
|
||||||
|
SDL.FormularManagerNEU.Sammelakt_CheckIn(AVISO, Nothing, True, printerStandard)
|
||||||
|
|
||||||
|
Else
|
||||||
|
MAIN.SET_WELCOME()
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||||
|
MAIN.SET_WELCOME()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Dim cnt = 30
|
||||||
|
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
|
||||||
|
If cnt = 0 Then
|
||||||
|
MAIN.SET_WELCOME()
|
||||||
|
End If
|
||||||
|
btn.Text = "RESET (" & cnt & ")"
|
||||||
|
cnt -= 1
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
410
AVISO_CHECKIN/usrCntlFound.Designer.vb
generated
Normal file
410
AVISO_CHECKIN/usrCntlFound.Designer.vb
generated
Normal file
@@ -0,0 +1,410 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
|
Partial Class usrCntlFound
|
||||||
|
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.lblKennzeichen = New System.Windows.Forms.Label()
|
||||||
|
Me.txtFahrername = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label4 = New System.Windows.Forms.Label()
|
||||||
|
Me.txtHandy = New System.Windows.Forms.TextBox()
|
||||||
|
Me.cbxHandyKeineAngabe = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.Label5 = New System.Windows.Forms.Label()
|
||||||
|
Me.lblAvisierer = New System.Windows.Forms.Label()
|
||||||
|
Me.lblFraechter = New System.Windows.Forms.Label()
|
||||||
|
Me.btn = New System.Windows.Forms.Button()
|
||||||
|
Me.lblErrName = New System.Windows.Forms.Label()
|
||||||
|
Me.lblErrHandy = New System.Windows.Forms.Label()
|
||||||
|
Me.lblErrFahrzeugtyp = New System.Windows.Forms.Label()
|
||||||
|
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.pic = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.lblErrSpedition = New System.Windows.Forms.Label()
|
||||||
|
Me.pnl = New System.Windows.Forms.Panel()
|
||||||
|
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.pnl.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'lblKennzeichen
|
||||||
|
'
|
||||||
|
Me.lblKennzeichen.BackColor = System.Drawing.Color.PapayaWhip
|
||||||
|
Me.lblKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 60.0!, System.Drawing.FontStyle.Bold)
|
||||||
|
Me.lblKennzeichen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||||
|
Me.lblKennzeichen.Location = New System.Drawing.Point(675, 58)
|
||||||
|
Me.lblKennzeichen.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.lblKennzeichen.Name = "lblKennzeichen"
|
||||||
|
Me.lblKennzeichen.Size = New System.Drawing.Size(1560, 195)
|
||||||
|
Me.lblKennzeichen.TabIndex = 4
|
||||||
|
Me.lblKennzeichen.Text = "34SD123AD/34SD123AD"
|
||||||
|
Me.lblKennzeichen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
|
'
|
||||||
|
'txtFahrername
|
||||||
|
'
|
||||||
|
Me.txtFahrername.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
|
||||||
|
Me.txtFahrername.Location = New System.Drawing.Point(1110, 475)
|
||||||
|
Me.txtFahrername.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.txtFahrername.Name = "txtFahrername"
|
||||||
|
Me.txtFahrername.Size = New System.Drawing.Size(1123, 75)
|
||||||
|
Me.txtFahrername.TabIndex = 5
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(54, 45)
|
||||||
|
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(520, 71)
|
||||||
|
Me.Label2.TabIndex = 9
|
||||||
|
Me.Label2.Text = "Bitte Typ auswählen:"
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label3.Location = New System.Drawing.Point(662, 475)
|
||||||
|
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Size = New System.Drawing.Size(440, 71)
|
||||||
|
Me.Label3.TabIndex = 10
|
||||||
|
Me.Label3.Text = "Soför Name:"
|
||||||
|
'
|
||||||
|
'Label4
|
||||||
|
'
|
||||||
|
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label4.Location = New System.Drawing.Point(662, 566)
|
||||||
|
Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.Label4.Name = "Label4"
|
||||||
|
Me.Label4.Size = New System.Drawing.Size(440, 71)
|
||||||
|
Me.Label4.TabIndex = 12
|
||||||
|
Me.Label4.Text = "Handy-Nr (SMS):"
|
||||||
|
'
|
||||||
|
'txtHandy
|
||||||
|
'
|
||||||
|
Me.txtHandy.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
|
||||||
|
Me.txtHandy.Location = New System.Drawing.Point(1110, 566)
|
||||||
|
Me.txtHandy.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.txtHandy.Name = "txtHandy"
|
||||||
|
Me.txtHandy.Size = New System.Drawing.Size(1123, 75)
|
||||||
|
Me.txtHandy.TabIndex = 11
|
||||||
|
'
|
||||||
|
'cbxHandyKeineAngabe
|
||||||
|
'
|
||||||
|
Me.cbxHandyKeineAngabe.AutoSize = True
|
||||||
|
Me.cbxHandyKeineAngabe.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.cbxHandyKeineAngabe.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.cbxHandyKeineAngabe.Location = New System.Drawing.Point(1110, 657)
|
||||||
|
Me.cbxHandyKeineAngabe.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.cbxHandyKeineAngabe.Name = "cbxHandyKeineAngabe"
|
||||||
|
Me.cbxHandyKeineAngabe.Size = New System.Drawing.Size(365, 62)
|
||||||
|
Me.cbxHandyKeineAngabe.TabIndex = 13
|
||||||
|
Me.cbxHandyKeineAngabe.Text = "Keine Angabe"
|
||||||
|
Me.cbxHandyKeineAngabe.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Label5
|
||||||
|
'
|
||||||
|
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
|
||||||
|
Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label5.Location = New System.Drawing.Point(1102, 715)
|
||||||
|
Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.Label5.Name = "Label5"
|
||||||
|
Me.Label5.Size = New System.Drawing.Size(854, 51)
|
||||||
|
Me.Label5.TabIndex = 14
|
||||||
|
Me.Label5.Text = "(Sie erhalen keine Nachrichten, wenn der LKW fertig ist)"
|
||||||
|
'
|
||||||
|
'lblAvisierer
|
||||||
|
'
|
||||||
|
Me.lblAvisierer.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold)
|
||||||
|
Me.lblAvisierer.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.lblAvisierer.Location = New System.Drawing.Point(672, 354)
|
||||||
|
Me.lblAvisierer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.lblAvisierer.Name = "lblAvisierer"
|
||||||
|
Me.lblAvisierer.Size = New System.Drawing.Size(1563, 71)
|
||||||
|
Me.lblAvisierer.TabIndex = 18
|
||||||
|
Me.lblAvisierer.Text = "Avisierer"
|
||||||
|
Me.lblAvisierer.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
|
Me.lblAvisierer.Visible = False
|
||||||
|
'
|
||||||
|
'lblFraechter
|
||||||
|
'
|
||||||
|
Me.lblFraechter.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold)
|
||||||
|
Me.lblFraechter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.lblFraechter.Location = New System.Drawing.Point(672, 263)
|
||||||
|
Me.lblFraechter.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.lblFraechter.Name = "lblFraechter"
|
||||||
|
Me.lblFraechter.Size = New System.Drawing.Size(1563, 71)
|
||||||
|
Me.lblFraechter.TabIndex = 17
|
||||||
|
Me.lblFraechter.Text = "Firma"
|
||||||
|
Me.lblFraechter.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
|
'
|
||||||
|
'btn
|
||||||
|
'
|
||||||
|
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
|
||||||
|
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
|
||||||
|
Me.btn.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.btn.Location = New System.Drawing.Point(1818, 1092)
|
||||||
|
Me.btn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.btn.Name = "btn"
|
||||||
|
Me.btn.Size = New System.Drawing.Size(520, 134)
|
||||||
|
Me.btn.TabIndex = 19
|
||||||
|
Me.btn.Text = "WEITER >>"
|
||||||
|
Me.btn.UseVisualStyleBackColor = False
|
||||||
|
'
|
||||||
|
'lblErrName
|
||||||
|
'
|
||||||
|
Me.lblErrName.BackColor = System.Drawing.Color.Red
|
||||||
|
Me.lblErrName.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
|
||||||
|
Me.lblErrName.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.lblErrName.Location = New System.Drawing.Point(1612, 420)
|
||||||
|
Me.lblErrName.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.lblErrName.Name = "lblErrName"
|
||||||
|
Me.lblErrName.Size = New System.Drawing.Size(622, 51)
|
||||||
|
Me.lblErrName.TabIndex = 20
|
||||||
|
Me.lblErrName.Text = "Bitte geben Sie Ihren Namen ein!"
|
||||||
|
Me.lblErrName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
Me.lblErrName.Visible = False
|
||||||
|
'
|
||||||
|
'lblErrHandy
|
||||||
|
'
|
||||||
|
Me.lblErrHandy.BackColor = System.Drawing.Color.Red
|
||||||
|
Me.lblErrHandy.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
|
||||||
|
Me.lblErrHandy.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.lblErrHandy.Location = New System.Drawing.Point(1612, 652)
|
||||||
|
Me.lblErrHandy.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.lblErrHandy.Name = "lblErrHandy"
|
||||||
|
Me.lblErrHandy.Size = New System.Drawing.Size(622, 51)
|
||||||
|
Me.lblErrHandy.TabIndex = 21
|
||||||
|
Me.lblErrHandy.Text = "Bitte geben Sie Ihre Handy-Nr. ein!"
|
||||||
|
Me.lblErrHandy.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
Me.lblErrHandy.Visible = False
|
||||||
|
'
|
||||||
|
'lblErrFahrzeugtyp
|
||||||
|
'
|
||||||
|
Me.lblErrFahrzeugtyp.BackColor = System.Drawing.Color.Red
|
||||||
|
Me.lblErrFahrzeugtyp.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
|
||||||
|
Me.lblErrFahrzeugtyp.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.lblErrFahrzeugtyp.Location = New System.Drawing.Point(64, 1120)
|
||||||
|
Me.lblErrFahrzeugtyp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.lblErrFahrzeugtyp.Name = "lblErrFahrzeugtyp"
|
||||||
|
Me.lblErrFahrzeugtyp.Padding = New System.Windows.Forms.Padding(8, 8, 8, 8)
|
||||||
|
Me.lblErrFahrzeugtyp.Size = New System.Drawing.Size(474, 95)
|
||||||
|
Me.lblErrFahrzeugtyp.TabIndex = 22
|
||||||
|
Me.lblErrFahrzeugtyp.Text = "Bitte geben Sie den " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Fahrzeugtyp an!"
|
||||||
|
Me.lblErrFahrzeugtyp.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
Me.lblErrFahrzeugtyp.Visible = False
|
||||||
|
'
|
||||||
|
'PictureBox2
|
||||||
|
'
|
||||||
|
Me.PictureBox2.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.Sprinter1
|
||||||
|
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.PictureBox2.Location = New System.Drawing.Point(64, 772)
|
||||||
|
Me.PictureBox2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.PictureBox2.Name = "PictureBox2"
|
||||||
|
Me.PictureBox2.Size = New System.Drawing.Size(474, 317)
|
||||||
|
Me.PictureBox2.TabIndex = 16
|
||||||
|
Me.PictureBox2.TabStop = False
|
||||||
|
'
|
||||||
|
'PictureBox1
|
||||||
|
'
|
||||||
|
Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.LKW
|
||||||
|
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.PictureBox1.Location = New System.Drawing.Point(64, 446)
|
||||||
|
Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.PictureBox1.Name = "PictureBox1"
|
||||||
|
Me.PictureBox1.Size = New System.Drawing.Size(474, 317)
|
||||||
|
Me.PictureBox1.TabIndex = 15
|
||||||
|
Me.PictureBox1.TabStop = False
|
||||||
|
'
|
||||||
|
'pic
|
||||||
|
'
|
||||||
|
Me.pic.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.LKW_mit_Aufleger
|
||||||
|
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.pic.Location = New System.Drawing.Point(64, 120)
|
||||||
|
Me.pic.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.pic.Name = "pic"
|
||||||
|
Me.pic.Size = New System.Drawing.Size(474, 317)
|
||||||
|
Me.pic.TabIndex = 8
|
||||||
|
Me.pic.TabStop = False
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(3, 7)
|
||||||
|
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(440, 71)
|
||||||
|
Me.Label1.TabIndex = 23
|
||||||
|
Me.Label1.Text = "Spedition:"
|
||||||
|
'
|
||||||
|
'CheckBox1
|
||||||
|
'
|
||||||
|
Me.CheckBox1.AutoSize = True
|
||||||
|
Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.CheckBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.CheckBox1.Location = New System.Drawing.Point(451, 6)
|
||||||
|
Me.CheckBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.CheckBox1.Name = "CheckBox1"
|
||||||
|
Me.CheckBox1.Size = New System.Drawing.Size(225, 62)
|
||||||
|
Me.CheckBox1.TabIndex = 24
|
||||||
|
Me.CheckBox1.Text = "VERAG"
|
||||||
|
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'CheckBox2
|
||||||
|
'
|
||||||
|
Me.CheckBox2.AutoSize = True
|
||||||
|
Me.CheckBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.CheckBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.CheckBox2.Location = New System.Drawing.Point(451, 78)
|
||||||
|
Me.CheckBox2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.CheckBox2.Name = "CheckBox2"
|
||||||
|
Me.CheckBox2.Size = New System.Drawing.Size(272, 62)
|
||||||
|
Me.CheckBox2.TabIndex = 25
|
||||||
|
Me.CheckBox2.Text = "UNISPED"
|
||||||
|
Me.CheckBox2.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'CheckBox3
|
||||||
|
'
|
||||||
|
Me.CheckBox3.AutoSize = True
|
||||||
|
Me.CheckBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.CheckBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.CheckBox3.Location = New System.Drawing.Point(451, 150)
|
||||||
|
Me.CheckBox3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.CheckBox3.Name = "CheckBox3"
|
||||||
|
Me.CheckBox3.Size = New System.Drawing.Size(173, 62)
|
||||||
|
Me.CheckBox3.TabIndex = 26
|
||||||
|
Me.CheckBox3.Text = "IMEX"
|
||||||
|
Me.CheckBox3.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'CheckBox4
|
||||||
|
'
|
||||||
|
Me.CheckBox4.AutoSize = True
|
||||||
|
Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.CheckBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.CheckBox4.Location = New System.Drawing.Point(451, 222)
|
||||||
|
Me.CheckBox4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.CheckBox4.Name = "CheckBox4"
|
||||||
|
Me.CheckBox4.Size = New System.Drawing.Size(292, 62)
|
||||||
|
Me.CheckBox4.TabIndex = 27
|
||||||
|
Me.CheckBox4.Text = "(ANDERE)"
|
||||||
|
Me.CheckBox4.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'lblErrSpedition
|
||||||
|
'
|
||||||
|
Me.lblErrSpedition.BackColor = System.Drawing.Color.Red
|
||||||
|
Me.lblErrSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
|
||||||
|
Me.lblErrSpedition.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.lblErrSpedition.Location = New System.Drawing.Point(659, 1120)
|
||||||
|
Me.lblErrSpedition.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||||
|
Me.lblErrSpedition.Name = "lblErrSpedition"
|
||||||
|
Me.lblErrSpedition.Size = New System.Drawing.Size(875, 51)
|
||||||
|
Me.lblErrSpedition.TabIndex = 28
|
||||||
|
Me.lblErrSpedition.Text = "Bitte wählen Sie eine Spedition aus!"
|
||||||
|
Me.lblErrSpedition.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
Me.lblErrSpedition.Visible = False
|
||||||
|
'
|
||||||
|
'pnl
|
||||||
|
'
|
||||||
|
Me.pnl.BackColor = System.Drawing.Color.PapayaWhip
|
||||||
|
Me.pnl.Controls.Add(Me.CheckBox4)
|
||||||
|
Me.pnl.Controls.Add(Me.CheckBox3)
|
||||||
|
Me.pnl.Controls.Add(Me.CheckBox2)
|
||||||
|
Me.pnl.Controls.Add(Me.CheckBox1)
|
||||||
|
Me.pnl.Controls.Add(Me.Label1)
|
||||||
|
Me.pnl.Location = New System.Drawing.Point(659, 823)
|
||||||
|
Me.pnl.Name = "pnl"
|
||||||
|
Me.pnl.Size = New System.Drawing.Size(875, 297)
|
||||||
|
Me.pnl.TabIndex = 29
|
||||||
|
'
|
||||||
|
'usrCntlFound
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.BackColor = System.Drawing.Color.White
|
||||||
|
Me.Controls.Add(Me.pnl)
|
||||||
|
Me.Controls.Add(Me.lblErrSpedition)
|
||||||
|
Me.Controls.Add(Me.lblErrFahrzeugtyp)
|
||||||
|
Me.Controls.Add(Me.lblErrHandy)
|
||||||
|
Me.Controls.Add(Me.lblErrName)
|
||||||
|
Me.Controls.Add(Me.btn)
|
||||||
|
Me.Controls.Add(Me.lblAvisierer)
|
||||||
|
Me.Controls.Add(Me.lblFraechter)
|
||||||
|
Me.Controls.Add(Me.PictureBox2)
|
||||||
|
Me.Controls.Add(Me.PictureBox1)
|
||||||
|
Me.Controls.Add(Me.cbxHandyKeineAngabe)
|
||||||
|
Me.Controls.Add(Me.Label4)
|
||||||
|
Me.Controls.Add(Me.txtHandy)
|
||||||
|
Me.Controls.Add(Me.Label3)
|
||||||
|
Me.Controls.Add(Me.Label2)
|
||||||
|
Me.Controls.Add(Me.pic)
|
||||||
|
Me.Controls.Add(Me.txtFahrername)
|
||||||
|
Me.Controls.Add(Me.lblKennzeichen)
|
||||||
|
Me.Controls.Add(Me.Label5)
|
||||||
|
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||||
|
Me.Name = "usrCntlFound"
|
||||||
|
Me.Size = New System.Drawing.Size(2343, 1249)
|
||||||
|
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.pnl.ResumeLayout(False)
|
||||||
|
Me.pnl.PerformLayout()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents lblKennzeichen As Label
|
||||||
|
Friend WithEvents txtFahrername As TextBox
|
||||||
|
Friend WithEvents pic As PictureBox
|
||||||
|
Friend WithEvents Label2 As Label
|
||||||
|
Friend WithEvents Label3 As Label
|
||||||
|
Friend WithEvents Label4 As Label
|
||||||
|
Friend WithEvents txtHandy As TextBox
|
||||||
|
Friend WithEvents cbxHandyKeineAngabe As CheckBox
|
||||||
|
Friend WithEvents Label5 As Label
|
||||||
|
Friend WithEvents PictureBox1 As PictureBox
|
||||||
|
Friend WithEvents PictureBox2 As PictureBox
|
||||||
|
Friend WithEvents lblAvisierer As Label
|
||||||
|
Friend WithEvents lblFraechter As Label
|
||||||
|
Friend WithEvents btn As Button
|
||||||
|
Friend WithEvents lblErrName As Label
|
||||||
|
Friend WithEvents lblErrHandy As Label
|
||||||
|
Friend WithEvents lblErrFahrzeugtyp As Label
|
||||||
|
Friend WithEvents Label1 As Label
|
||||||
|
Friend WithEvents CheckBox1 As CheckBox
|
||||||
|
Friend WithEvents CheckBox2 As CheckBox
|
||||||
|
Friend WithEvents CheckBox3 As CheckBox
|
||||||
|
Friend WithEvents CheckBox4 As CheckBox
|
||||||
|
Friend WithEvents lblErrSpedition As Label
|
||||||
|
Friend WithEvents pnl As Panel
|
||||||
|
End Class
|
||||||
120
AVISO_CHECKIN/usrCntlFound.resx
Normal file
120
AVISO_CHECKIN/usrCntlFound.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>
|
||||||
85
AVISO_CHECKIN/usrCntlFound.vb
Normal file
85
AVISO_CHECKIN/usrCntlFound.vb
Normal file
@@ -0,0 +1,85 @@
|
|||||||
|
Public Class usrCntlFound
|
||||||
|
|
||||||
|
Dim MAIN As frmCheckIn
|
||||||
|
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
|
||||||
|
Dim FTYP As eFahrzeugtyp = eFahrzeugtyp.None
|
||||||
|
|
||||||
|
Sub New(MAIN, AVISO)
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
Me.MAIN = MAIN
|
||||||
|
Me.AVISO = AVISO
|
||||||
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub usrCntlFound_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
txtFahrername.Focus()
|
||||||
|
|
||||||
|
MAIN.TRANSLATE(Me)
|
||||||
|
If AVISO IsNot Nothing Then
|
||||||
|
lblKennzeichen.Text = AVISO.LKW_Nr
|
||||||
|
lblFraechter.Text = AVISO.Frächter
|
||||||
|
lblAvisierer.Text = AVISO.Auftraggeber
|
||||||
|
'txtFahrername.Text = AVISO.FahrerHandy
|
||||||
|
txtHandy.Text = AVISO.FahrerHandy
|
||||||
|
|
||||||
|
Else
|
||||||
|
MAIN.SET_WELCOME()
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub cbxHandyKeineAngabe_CheckedChanged(sender As Object, e As EventArgs) Handles cbxHandyKeineAngabe.CheckedChanged
|
||||||
|
txtHandy.Enabled = Not cbxHandyKeineAngabe.Checked
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||||
|
lblErrName.Visible = False
|
||||||
|
lblErrHandy.Visible = False
|
||||||
|
lblErrFahrzeugtyp.Visible = False
|
||||||
|
|
||||||
|
If txtFahrername.Text.Trim = "" Then
|
||||||
|
lblErrName.Visible = True
|
||||||
|
txtFahrername.Focus()
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Not cbxHandyKeineAngabe.Checked AndAlso txtHandy.Text.Trim = "" Then
|
||||||
|
lblErrHandy.Visible = True
|
||||||
|
txtHandy.Focus()
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If FTYP = eFahrzeugtyp.None Then
|
||||||
|
lblErrFahrzeugtyp.Visible = True : Exit Sub
|
||||||
|
End If
|
||||||
|
MAIN.SET_FINISH(AVISO)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Enum eFahrzeugtyp
|
||||||
|
None = 0
|
||||||
|
LKW_Auflieger = 1
|
||||||
|
LKW = 2
|
||||||
|
Sprinter = 3
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, PictureBox1.Click, PictureBox2.Click
|
||||||
|
pic.BackColor = Color.White
|
||||||
|
PictureBox1.BackColor = Color.White
|
||||||
|
PictureBox2.BackColor = Color.White
|
||||||
|
pic.BorderStyle = BorderStyle.None
|
||||||
|
PictureBox1.BorderStyle = BorderStyle.None
|
||||||
|
PictureBox2.BorderStyle = BorderStyle.None
|
||||||
|
|
||||||
|
If sender Is pic Then FTYP = 1 : pic.BorderStyle = BorderStyle.FixedSingle
|
||||||
|
If sender Is PictureBox1 Then FTYP = 2 : PictureBox1.BorderStyle = BorderStyle.FixedSingle
|
||||||
|
If sender Is PictureBox2 Then FTYP = 3 : PictureBox2.BorderStyle = BorderStyle.FixedSingle
|
||||||
|
|
||||||
|
sender.BackColor = Color.PapayaWhip
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
169
AVISO_CHECKIN/usrCntlSearch.Designer.vb
generated
Normal file
169
AVISO_CHECKIN/usrCntlSearch.Designer.vb
generated
Normal file
@@ -0,0 +1,169 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
|
Partial Class usrCntlSearch
|
||||||
|
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(usrCntlSearch))
|
||||||
|
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.txt = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Button1 = New System.Windows.Forms.Button()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.btn = New System.Windows.Forms.Button()
|
||||||
|
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(3, 85)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(1556, 46)
|
||||||
|
Me.Label1.TabIndex = 4
|
||||||
|
Me.Label1.Text = "Bitte geben Sie das Kennzeichen oder den Frächter ein und wählen Sie einen Eintra" &
|
||||||
|
"g aus:"
|
||||||
|
'
|
||||||
|
'txt
|
||||||
|
'
|
||||||
|
Me.txt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.txt.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
|
||||||
|
Me.txt.Location = New System.Drawing.Point(3, 134)
|
||||||
|
Me.txt.Name = "txt"
|
||||||
|
Me.txt.Size = New System.Drawing.Size(1475, 53)
|
||||||
|
Me.txt.TabIndex = 5
|
||||||
|
'
|
||||||
|
'Button1
|
||||||
|
'
|
||||||
|
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
|
||||||
|
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
|
||||||
|
Me.Button1.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.Button1.Location = New System.Drawing.Point(1212, 613)
|
||||||
|
Me.Button1.Name = "Button1"
|
||||||
|
Me.Button1.Size = New System.Drawing.Size(347, 87)
|
||||||
|
Me.Button1.TabIndex = 20
|
||||||
|
Me.Button1.Text = "WEITER >>"
|
||||||
|
Me.Button1.UseVisualStyleBackColor = False
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(152, 597)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(986, 116)
|
||||||
|
Me.Label2.TabIndex = 22
|
||||||
|
Me.Label2.Text = "Sie können Ihr Fahrzeug nicht finden?" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Bitte melden Sie sich am Schalter."
|
||||||
|
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
|
'
|
||||||
|
'PictureBox1
|
||||||
|
'
|
||||||
|
Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.fragezeichen
|
||||||
|
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.PictureBox1.Location = New System.Drawing.Point(10, 597)
|
||||||
|
Me.PictureBox1.Name = "PictureBox1"
|
||||||
|
Me.PictureBox1.Size = New System.Drawing.Size(124, 116)
|
||||||
|
Me.PictureBox1.TabIndex = 21
|
||||||
|
Me.PictureBox1.TabStop = False
|
||||||
|
'
|
||||||
|
'btn
|
||||||
|
'
|
||||||
|
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.btn.BackgroundImage = CType(resources.GetObject("btn.BackgroundImage"), System.Drawing.Image)
|
||||||
|
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btn.Location = New System.Drawing.Point(1484, 134)
|
||||||
|
Me.btn.Name = "btn"
|
||||||
|
Me.btn.Size = New System.Drawing.Size(75, 53)
|
||||||
|
Me.btn.TabIndex = 6
|
||||||
|
Me.btn.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'MyDatagridview1
|
||||||
|
'
|
||||||
|
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
|
||||||
|
Me.MyDatagridview1.AllowUserToAddRows = False
|
||||||
|
Me.MyDatagridview1.AllowUserToDeleteRows = False
|
||||||
|
Me.MyDatagridview1.AllowUserToResizeColumns = False
|
||||||
|
Me.MyDatagridview1.AllowUserToResizeRows = False
|
||||||
|
Me.MyDatagridview1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.WhiteSmoke
|
||||||
|
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
|
Me.MyDatagridview1.ColumnHeadersVisible = False
|
||||||
|
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
|
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
|
||||||
|
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
|
||||||
|
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
|
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
|
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
|
Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle1
|
||||||
|
Me.MyDatagridview1.Location = New System.Drawing.Point(3, 194)
|
||||||
|
Me.MyDatagridview1.Name = "MyDatagridview1"
|
||||||
|
Me.MyDatagridview1.ReadOnly = True
|
||||||
|
Me.MyDatagridview1.RowHeadersVisible = False
|
||||||
|
Me.MyDatagridview1.RowTemplate.Height = 60
|
||||||
|
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||||
|
Me.MyDatagridview1.Size = New System.Drawing.Size(1556, 377)
|
||||||
|
Me.MyDatagridview1.TabIndex = 7
|
||||||
|
'
|
||||||
|
'usrCntlSearch
|
||||||
|
'
|
||||||
|
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.Label2)
|
||||||
|
Me.Controls.Add(Me.PictureBox1)
|
||||||
|
Me.Controls.Add(Me.Button1)
|
||||||
|
Me.Controls.Add(Me.MyDatagridview1)
|
||||||
|
Me.Controls.Add(Me.btn)
|
||||||
|
Me.Controls.Add(Me.txt)
|
||||||
|
Me.Controls.Add(Me.Label1)
|
||||||
|
Me.Name = "usrCntlSearch"
|
||||||
|
Me.Size = New System.Drawing.Size(1562, 713)
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents Label1 As Label
|
||||||
|
Friend WithEvents txt As TextBox
|
||||||
|
Friend WithEvents btn As Button
|
||||||
|
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||||
|
Friend WithEvents Button1 As Button
|
||||||
|
Friend WithEvents PictureBox1 As PictureBox
|
||||||
|
Friend WithEvents Label2 As Label
|
||||||
|
End Class
|
||||||
278
AVISO_CHECKIN/usrCntlSearch.resx
Normal file
278
AVISO_CHECKIN/usrCntlSearch.resx
Normal file
@@ -0,0 +1,278 @@
|
|||||||
|
<?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="btn.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAI19JREFUeF7t
|
||||||
|
3f+Z1Dj2L+DdjoAQOgQy+JLBkMGQwZDBTgZLBkMGQwaQAWQAGUAG957TdrM9xgXdVbZLR3rf5/n8cX/s
|
||||||
|
IFfL9rEsyf+CRj2P/N+c3yP/ydzc3Pz33//+9/sT+X+PzNr/9n3+t+//nfnfvP/3sy0AwAbyxvpb5OFN
|
||||||
|
/WNk7YbdUrKND4uFPIY8FgBg9iySN8c/4ob5V944H9xIe00WB3/lMc/Hnr8BAHQrh8nvhurzJhj5+uCm
|
||||||
|
OHryt3ifv838G3mlAEBZ+XSbN/u/5xvc2o1PTid/s7/zN5x/SwBoTg5j//bgXf3aDU0uz/3cgpxX4NUB
|
||||||
|
AFeRw9T5hF9hYl6v+Zh/g/lvAQC7yCfO3+fJeob028vXeXJhziEwOgDARW4jf8TNxVN+veToQK40yL8h
|
||||||
|
APySm35/UQwAsMpNf5woBgD41+9xQzBrf9zkMsOcMwDAAG7n5Xom8sl9cgJhLi80KgDQmbsZ/HGh97Qv
|
||||||
|
v0ruSGhUAKC4fNq3bE/Oyf2yQqMCAIW8iAt4bsG7dmEXeWpyrsCLqWsB0CLD/LJnvB4AaMj9+/3Pi4u1
|
||||||
|
yF75nH1u7nsAHCwvvrkXv/f7cq18zT4490UAdubGL61FIQCwsxzqd+OXVnP/agCAjXjHL5WiEAC40Mu8
|
||||||
|
mC4uriJVkoXAy6krA/AYz+PiaTmf9JJcPvh86toArHk279y3dhEVKZ15Z0ETBQEWzOyXEXK/YgBgeN7z
|
||||||
|
y4jJ+QG2FwaG9Cwugvbrl9GT3xnwWgAYhvX8Iv9LvhawbBDo2m1c7MzuF1lPrhbw+WGgO3/EBc5Tv8jP
|
||||||
|
k6MBf0ynDEBtuab/4+IiJyI/z8c8d6ZTCKAeT/0i58doAFCOGf4i28VKAaCEF3HB8tQvsm1yNMC+AUCb
|
||||||
|
bm5u/rty4RKRjZLn2Hy6ATTBRD+R42KCINCE3MrXkL/IsclXAj41DFyHIX+R68YrAeBoOcvfjn4ibSR3
|
||||||
|
ELRKANhdvu/39b528inyIfIungb/vE/8nXLG+MM85Z1x/v/9x//+4X87/63538x/e61Ncnzy64LmBQC7
|
||||||
|
ebVy4ZF98y3yIW68b+Ybe773zZtyS0982ZZs08u5SHiTbZ7bvnZMslPib/Aq/yAAm4mL+l9rFxzZNJ/i
|
||||||
|
d3473+jzhtrDh2HyGO5HEN7mMS6OWTZOnqvTTw9wGbv67ZN8Or4bto/fOG/2o7krCvI3mH+Ltd9Izo/d
|
||||||
|
A4GL5M3f+v5tcnfDj980h2h98vVH+f46XzEpCLZL7hegCACezGS/y5ND+vmEb3LW0z2fRwi8MrgsJgcC
|
||||||
|
T2I///Nz/5TvyWs7+Vvejw6s/eby8/iOAPAoZvo/PW76x1EMnJn83e5+QYAVbv6Pj5v+9SkGnpj8ve5+
|
||||||
|
OYAH3Px/nS/zO32T+NpzO88Z+LL4m8ki8VspAoBJXDit8f9J4vd5Gz+Td6h15BLD3HNg9e8p9goAgpv/
|
||||||
|
yXyL3yaf9g3x1/Us/4b5t1z8bSWiCICBufmv5kv8NIZI+5OvuLweWEQRAANy8/8hH+JnMczfv1zimt8p
|
||||||
|
WOsDQ0YRAANx8/9H3PjHpBB4EEUADMDN/3vc+EkKgTmKAOiYm/9d3PhZoxCIKAKgQ27+d5P73Pj5lSwE
|
||||||
|
hp4sqAiAvoy8yc+3OP7X088Aj/Y6+86iLw2TPP7pZwAqG/bmH08yb+L4rePnXLmPwJu1vjVC4vgth4XC
|
||||||
|
Rr3553t+2/WyldvsU4s+NkTi2BUBUFC+y1w9qTtODve7YLGXLKiHey0Qx23uDBTyPE7c0b7nn1/nM9zP
|
||||||
|
3p5lX1v0vd7zNY77+XT4QMvyAvV5cQL3HLP7uYbRVgt8jmNWYEPD8ub/cXHidhuT/Liy0SYJfsxjng4d
|
||||||
|
aEqcoH8vTthek+/6X05HDVf3Mvvkoo/2mr/nYwZakZt3rJysPSZn+HsKoTU5+jbESoG81szHDDRghOV+
|
||||||
|
NvShgiE2EIrjtNoGGpAz/ldP0o7yKY9zOlxoXp6TnxZ9uLvkcU6HC1zDCDP+Le+johGWC1oZANcSJ+D7
|
||||||
|
xQnZVeIQDflTXb4SWO3fneT9fJzAUTpffpTv+63tpxe5Z0C38wLm5bjAQXLZ0erJ2EHyfb9hRXqT3xPo
|
||||||
|
dl5AHJ9luXCAbrf5jSeJt3F8bv70qud5AbYLhr3FidblTn/zzR+6l3197RzoILlTILCHXt/7x6FZU8xo
|
||||||
|
uty7w3wA2EePn/e1pS8j63IL4TguE3hhQ/nusLf3/nnz986Q0eWcnt6KgJwPYC4PbCFOqN4+8uPmD//T
|
||||||
|
YxHgo0Gwgd42EnHzhx91VwTEMdnICy7Q25I/a/zhtN72CrA0EM4VJ1BPS/7c/OHXcr5PT0WApYFwhp6G
|
||||||
|
/t384fG6KgLieLwKgCfIocBehv7d/OHpeioC8lXA7XRYwE/FCdPLV/5ywp8TH86TDwK9TAz01UB4hF4+
|
||||||
|
9GO2P1yum9UBcSx2/ISf6GXDHzd/2E4vRYANguCUOEF62PDHzR+210sRYIMgWNHFXv9xHPb2h3108QGh
|
||||||
|
OA7XCHgoTozPyxOlWuIwvOODffVQBHyejwUI5df8+54/HCPPtbVzsFLiGP6cDweGVn7in5s/HCvOu3fL
|
||||||
|
87BYTAiEuHm+WTk5KsVGP3C88hsFeXBgdDmzd/XkKBIb/cD1lN8oKI7BiiHGFCdA6R3/4hBeTEcCXEn1
|
||||||
|
1UN2CGRIpXf8i/b7wAc0ICfUrZ2jVRKHYFkgY4mOX3nZ37v5MIAG5Dm5OEcrxbJAhlJ5La9Jf9Ce0pMC
|
||||||
|
o/32EGEM0eGrPv3b5hfaVXm7YKMADKHs03+03Xt/aFvZTcWy7dMhQKeio1d9+v8wHwLQsDxXF+duldgc
|
||||||
|
iK5Vrc5z6N+JCTXkfICSrwJsEUyvym75G223TAdqqbrM2CgA/am6Vje3Kp4PASgkt9pdO6dbj1EAelP1
|
||||||
|
6f9Ltn06BKCYvO58WZzTFWIUgK6UnPkf7bbVL9RW8lVAtNuKAPoQHbrizH+7/UEH8lxenNsVYl8AulCx
|
||||||
|
AjfrH/pRclVAtNvugNQWHbncF/+i2YbfoC8VlyB/nNsOJVX8VKcNf6BDeW4vzvXmE802D4maKi7DiWbf
|
||||||
|
Tq0HOnO7ds43nvdz26GUciebNf/QNw8lcIC8ma515oZj4h/0r9yEwCxa5rZDDdFxS238E0028Q8GEDfU
|
||||||
|
aruS2hiIUqpt/JM7/gGDyHN+cQ1oOtFkSwKpITpsqaV/0WQf+4GxVNufxJJASqg2+c+yPxhQnvuLa0HT
|
||||||
|
iSY/n1oOjao2+S+abJ0tjKnUPiUmA9K86KiVJv95+oeB5TVgcU1oOTkZEJpVavJftNfTP4yt1ChAtNdk
|
||||||
|
QNoUHbTSV7c8/QPVRgHsDEiTcoONtQ7bZKK9nv6BVG0UwM6ANKfS8L+nf+C7vCYsrhHNJppr0zLaEh3z
|
||||||
|
47KjtppornX/wEOV9gWwJwBNqbT2365/wA/y2rC4VjSbaK7XADTj9VonbTHRVrNogTVlXmNGW70GoA3R
|
||||||
|
IasM//viH3BKpS8Feg1AE8oM/+dXwOY2A/yg0pcCo7leA3B1lYb/nTDAz5R5oIm2eg3AdUVHLDH8bx9t
|
||||||
|
4DHielFlQzOvAbiqMpv/RFst/QMeo8ySwGirUU2upsqsWUv/gEfLa8biGtJkoqlWNXEdOay+1ilbi8l/
|
||||||
|
wFMUmgz4bm4yHCs63+dFZ2wy0VTDZMBTVJkM6BPBXMXzlc7YYuz7DzxZXjsW15ImE031YTMOV2L5X7TT
|
||||||
|
OzLgHCXmON3c3LyZ2wvHiI5XpTq28x9wjiqrnCwH5FBVTgwTZICz5TVkcU1pMtFU85w4TIl1stFOw//A
|
||||||
|
JUq8Bsh2Ts2FnVVZIhNNNfwPXKLEaKd5ABwmOlyF9/+G/4GL5bVkcW1pMeYBcIyVztdcopmGxIAtVHkN
|
||||||
|
YMST3b1Y63ytJdrpZAC2UOI1QLTTfgDsrsL6/09zWwEulteUxTWmudjynN1FR2v+fZgTAdhSTrJbu9Y0
|
||||||
|
Fruesq/oZF8Xna65RDMNhQFbqvLqE3ZT4QMZ3+a2Amwmry2La01ziWY+n1oL26swG9byP2BzeW1ZXGua
|
||||||
|
SzTz9dRa2FiFDYCimU4AYA/NT4C2IRC7iQ7W/AZA0UxDYMAeKnwC3URA9hGd6/Ois7UW7/+B3eQ1ZnHN
|
||||||
|
aS5zU2FTFTbDUP0Cu8lrzOKa01yimb4MyOaaXwZj/T+wpyLzoF5OrYXtND8BJtpo/T+wJw9CjCc61du1
|
||||||
|
ztZSopn2/wf2VOFVqKXQbCs6Vevvvuz/D+wurzWLa09r8WlgtrXSyZpKjlDMTQXYTZHRUNjOWidrKd57
|
||||||
|
AUfIa83aNailRDOtBGAzzU98yTZOTQXYleshQ6nQ4VW8wBGa/yhatPHV1FS4UJEhL4BDrF2DWopXomym
|
||||||
|
QAFgB0DgMHnNWVyDWoulgGwjOlPTnT0KFF/AAg4T15zWVwJ4KGIb0Zk+LjpXUzHcBRypwKjo17mpcJmV
|
||||||
|
ztVUoon2vgaO9HLtWtRS5nbCZdY6V0uJJlryAhypwsqo51NT4XzP1zpXS4k2+gYAcKTmvwkQbfRgxMUq
|
||||||
|
VLoAh1q7FrWUaKICgIu1XgD4CBBwuLz2LK5FTSWaaDMgLvZqrXM1FMtdgMPltWdxLWoqVkdxsQLLXWx4
|
||||||
|
ARwurz2La1FTUQBwsdYLAJ0cuIYC10YbpHGZ7ERrnauVKACAa2i9AIh4PcplshMtOlVTUQAA16AAoHvZ
|
||||||
|
iRadqqlEE+0CCFxD67sBKgC4THaiRadqKtFEa12Ba2h9ifTHuZ1wnuhECgCAH9kkjb5FJ1IAAPxIAUDf
|
||||||
|
ohO1XgD44AVwDQoA+rbWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZNailzM+E8a52qpczNBDjc2jWp
|
||||||
|
pczNhPOsdaqWMjcT4HBr16SWMjcTzrPWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZNailzM+E8a52q
|
||||||
|
pczNBDjc2jWppczNhPOsdaqWMjcT4HBr16SWMjcTzrPWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZN
|
||||||
|
ailzM+E80YlsBQzwI1sB07foRD4GBPAjBQB9i06kAAD4kQKAvkUnUgAA/Kj1AuDb3E44T3QiBQDAj1ov
|
||||||
|
AD7M7YTzZCdadKqmcnNz8+fcVIDD5LVn7ZrUUBQAXCY6+ZuVjtVMFADANSgA6F7rnVwBAFxDgQLg3dxU
|
||||||
|
OE+BAuDt3FSAw+S1Z+2a1Eo8HLGF12udq6EY5gIOl9eexbWoqSgA2IKZrgALce35uLgWNRUFAFuw2QXA
|
||||||
|
wtq1qKVEE19NLYXzKQAA/unZ2rWopUQb7ZHC5dY6V0uJJurowJEqPBj5UBqXW+tcLSWaqAAAjmRklDFE
|
||||||
|
Z/q07FwtxWQX4Eh5zVm7FrWUualwmehMrS93eTM3FWB3ec1ZuxY1FKuj2IbODvA/ec1ZXINai2si2ygw
|
||||||
|
3PV1birA7vKas7gGNZW4Ztshlc28XOtkLSXa+GxqKsCuml8CmA9tc1vhYhVmvFoJAByhwvXw5dRUuFyF
|
||||||
|
TS9eT00F2FXr30fJ66E9ANjOWidrKd55AUfIa83aNailzE2FbUSnanovgIhZr8Du8lqzuPa0li9zU2Eb
|
||||||
|
ql6A9kdDIx6G2FbOKl3paE0lmmkiILCn5icAxrXaxmhsrsLMVxMBgT1VmADoOsjmbtc6W2N5N7cVYHN5
|
||||||
|
jVlcc5pLNNNIKNuLzvVt2dkaix0Bgd3kNWZxzWkuc1NhW9G5Wp/9mp3/dmotwKYqjIJ+mtsK28rJJSsd
|
||||||
|
rqlEM19NrQXY1Ku1a05j8RqU3TR/AuRyxbmtAJupsBQ6V2vNzYXNPV/rdI3FPABgc3ltWVxrmks00wRA
|
||||||
|
9rPW6VpLNNM+2MCWKjz85LXPV1HZT3SyChMBrYMFttT8+v+ILYDZV75jWul4rcVWmMBm8pqyuMY0F/Of
|
||||||
|
OELzOwJmop2GwoAtNP859Ey00woodlflZHg5NRfgIi/XrjGtJdppDxT2F52t9U8DGw4DNlFh+V/k29xc
|
||||||
|
2FecEM1vCBSxHBC4WF5LFteWFmMDIA5TYUcsrwGAS1UZ/rfyicNU2BPbawDgIkWG/7MAsPcJx4lO1/w8
|
||||||
|
gIjXAMDZ8hqyuKa0GO//OVaReQBeAwDnKjH8b6STayixH0DE5BjgyfLasbiWNJloqvX/HC8637dlZ2wx
|
||||||
|
0VSbAgFPUWK/k0y2dWoyHCg6X5UK2QxZ4Ckq7P2f+TS3Fw5XYjlg5PPcXoBfymvG4hrSZG5ubv6cmwyH
|
||||||
|
K7EcMBNttUwGeIwSn/7NZFunJsMVRCessBzQTFngUaqs/Y9Y/sd1VVkOGMk9AUyWAX4mJ/9VWPvvoYYm
|
||||||
|
VBouMxkQ+Jkqk//yemaPE64vOmOJ1wARkwGBk/IasbhmtBrD/zSjUtVs0wxgTZVVTYb/aUqZ1QCR93Ob
|
||||||
|
Ab7La8PiWtFsormG/2lHdMoqrwHy5HkxtRrgTpWtzTOG/2lOmdcAhs+Ahwot/XP9okmVXgPkKMDt1Gxg
|
||||||
|
cNWuXTb/oT3ROcu8BlBFA6nS03/ky9xsaE6ZWbSZaK9RABhbtad/e5nQrNxFq8Qnguf8PbcbGFCxp38P
|
||||||
|
LbSt4AllRQCMqdTTf+TD3G5oVpmtgefYFwAGVPBhxSZmtC8665dl52050WSjADCWSuv+M7n238fMKKHM
|
||||||
|
ngBzPs7tBgYQ53yZXf8yNzc3b+amQ/NyMuBqR2410WbDazCGUquVMtFmk/+oo9r7tUh+KdAQG3Quz/XF
|
||||||
|
ud963s1NhzKqvWPLYbY/57YDHcpzfO3cbznRbHOUqCc674dlZ248X6PZhtqgT/lq8uvinG89dv6jrJcr
|
||||||
|
Hbr12BwIOpTn9uJcbz7RbDv/UVd04lJLAjPRbN/ahr6UeyUZsfSP8srNuI2YEAj9yKH/ahP/zEmiD9GZ
|
||||||
|
K30f4C7W3UIfKk78y0TTPYRQX+ET0OxbqK3a1uR3iWumz5XTjXIbA82xQyAUlufw4pwukWi61Uj0I4fU
|
||||||
|
1zp668nRi/kQgEKqjjx6+qdHOQpQbi5AJtruVQDUUnLoPxNt9/RPf6pW5BGrAqCOfNgoOfTv6Z+elR0F
|
||||||
|
iNggCAqIm2jJ142ZaL6nf/pVeBQgT04bBEHbKu4+ehdP/4yg8iiAbwVAu/LaUm2v/++J9ru20L/KowAR
|
||||||
|
SwOhQXFuvl+cq2Xi6Z+RVB4FyJP1r/k4gAbEOVn2vX8k9/z39M9QXq+cCGUS7X81HQZwZWXf+2dyRHQ+
|
||||||
|
DhhHdP5yXwp8mDiE59ORAFeS6/3LvveP+OIfw6r4ic6HsT8AXE/Z9f73iWMwksi44iT4sDwpiuX9fCjA
|
||||||
|
geLc+3txLlbLp/lQYFi3KydGqZgUCMcqPunvLnEYthiHnASzdoJUShzG6+logJ29WjsHi+XdfCwwvNLL
|
||||||
|
Au8Tx+F9Huyr9Iz/OZb9wUIPVb2VAbCf6jP+72LZH6yIk6P6hMBMbhesCIBtld7m90FM/IMTyk8InJNF
|
||||||
|
gOWBsI3yy/3uE8di4h+c0sOEwDn5zQBFAFymm5t/rlyYjwk4JU6WT8uTp2gUAXC+bm7+ETv+wSPlZJ+1
|
||||||
|
k6hiFAHwdD3d/HPo/+V0WMAv9bDRx4MoAuAJ4vz/a+U8qhpr/uGJ8gmg9MeCFlEEwCN0dvM39A9nqv6x
|
||||||
|
oGUUAXBaV8P+mTgmQ/9wrs5eBWQUAfCj7m7+ce16Ox8bcK44mXpZFXAfRQD8T3c3/8iXPK7p8IBL5KqA
|
||||||
|
8t8KWMSOgdDnzd+GP7Cx12snWvEoAhhZFvafF+dE+eRry/n4gK3EyfVuebJ1kCwCfEWQ0eQE3x729l/G
|
||||||
|
Xv+wkxwu7O1VwF3i2P6YDhG618WXP1fiM7+ws96WBn5Prn+ejxF69Z+1vt9D4tgs+YMD9Dgf4D7v4/jM
|
||||||
|
HqY3zzrb4Ocf8d4fDhQnXY/zAe7zOQ7R5EB6kZ/57m6m/4N47w8Hy/kAve0P8DAmB9KDl9mXF327q3h1
|
||||||
|
B9fR4/4A/4iLC4V1+75/GecpXEc+YayelB3FzoFUkqNzfy/6cPdRBMAV5ASctROys+QrAbOMaV2u0ulu
|
||||||
|
c5/HRhEAVxAnX8+TAr9nvsAYDaA50Tf/u9ZnR4siAI7X+6TAh7FKgJbkXJyeZ/k/OYoAOF63OwWuJY73
|
||||||
|
P9Nhw9X8EX2x61n+50YRAMfrfmXAIjlB0GgAR8u1/e8XfVEWUQTA8UZYGfCP5PvXOG5zAzhCLu/z1P/I
|
||||||
|
KALgeL1+cORnybkBvkPOXnKGv3f9Z0QRAAeLk26E5YFr+TsO32gAW8l9/M3wvzCKADhYnHRv107GAZL7
|
||||||
|
BpgkyKV+z7606FtyZhQBcLCBi4BMvhawgRBPZbh/pygC4GCDFwGZ/Myw+QH8itn9B0QRAAeLE2+UjYJO
|
||||||
|
Zr7w3E6/CHx3m31jrc/IPlEEwLFG2i3wp1EIMHPjv2IUAXAsRcCDKASG5cbfSBQBcCxFwCLzRciOgv1z
|
||||||
|
428wigA4liJgPTlZ8LfpJ6IjOat/uG/0V4oiAI6lCDidXD74e/5Gd78UVeU6fsv5ikQRAAeLk270JYI/
|
||||||
|
y9f4ffI7A+YJ1JF/q9yv//PibykFogiAgykCHpX88qBRgXbl0741/B1EEQAHUwQ8OjkqkBcoGwtd3/P8
|
||||||
|
W+TfZPE3kuJRBMDBFAFPzuf4zfIVgYmDx8mbfn6cxxB/51EEwPFG/JTwFrkfGVAMbM9Nf9AoAuB4L+Pk
|
||||||
|
+7Y8GeXRySHp/CxxzhkwgfDp8jf7PS/+82+59hvLIFEEwPGex8mnCNgmD18VmES47rf5Kd+yPfkhigA4
|
||||||
|
Xn4dzV4B2+fjfEHLEYIRdyC8f8J3w5dHRxEAx8sNgz4sT0bZNDnMnbsQ/ifSW1GQx5IjH7k2P3fjM6Qv
|
||||||
|
Z0cRAFcQJ54VAscnn45zLsF9YfB/kRbnFORrjWzbwxu9J3vZJYoAuI5cIWBeQBvJGfHv54thFgiZPyJ5
|
||||||
|
I77PJfMN7m/q98n/9t2/k/9m/ttzG9baJrJrrlQEfD8P4t/POT33552VPwwjJwd+WZ6QIiJH5oAiIEfb
|
||||||
|
/oh/6zEfksrvh7y6+19B58wLELl+coLu0JN0dyoCfov/9llfj5xHBqB/0dn/XDsJRGTfxLn3Zj4Nh/+q
|
||||||
|
54ZFQH5P4uLXWjsVJdAkmwaJHJdvec5Np953ioDLbro5zL/pfBZFACPJ/QK8EhDZN5/yXJtOuR8oAp5+
|
||||||
|
093kif9UFAEMJTq8VwIiOyTOrfsh/59RBDzuppsTmQ/5dLQigNFYJSCyXXLI/ymfnlYEnL7pPov/t9x9
|
||||||
|
cvV/t1cUAYwmT7Q3ayeDiDw67/Jcmk6pJ1EE/HjTfRH/91fbt0IRwIhMEBR5etYm+j2VImC66V7lqX8t
|
||||||
|
igBGlBeid8uTQURW8yHPmenUudjwRUCkqW9PKAIYVQ7BmRsgsp586t9jJzlFQGNRBDAqcwNEFolz4m2e
|
||||||
|
G9MpsgujcI1FEcDIcjTAU4mMni95LkynxP6y0Fhpg1wpigCGFidA7htgkqAMl+z782lwKEVAW1EEMLpb
|
||||||
|
FyUZKDnJ79RufodwvrUVRQBMrwVsJyy95tDh/l9RBLQVRQBMXsUJYbWA9JKc3f966tptUQS0FUUATHK1
|
||||||
|
gO8KSOlEH879+/ec3X8xRUBbUQTA/5gfIOWSfTb77tSF2+ccayuKAPgnhYA0n2o3/oecX21FEQA/UghI
|
||||||
|
i8mZ/c+nLlqXc6utKAJgnUJAWkh+ra+Zmf1bcF61FUUAnKYQkMOTfS773tQF++OcaiuKAPi5LATsKih7
|
||||||
|
5lvvN/6HFAFtRREAv5ZLruwjIFvmSxaXc98aiiKgrSgC4PGyELCzoJybnNi3x+d5S1EEtBVFADzN8zhp
|
||||||
|
8hPEXg/IrzLUMP9jKQLaiiIAzmNUQNbyKftGZLhh/sdSBLQVRQCcLycNGhUYO/luP7fq9bT/SIqAtqII
|
||||||
|
gMu9nC9sioEBkn/r/JtPf3qeShHQVhQBsB3FQH/Jv2Vu2GOIfyOKgLaiCIDtKQbq5n4ynyf9nSgC2ooi
|
||||||
|
APbzIk6wnDPwaXniSTO5f6fvpn8QRUBbUQTA/nLSWK4meBcxOnDd5ND+6/lvwhUoAtqKIgCOlaMDuQ2x
|
||||||
|
5YX750P+1vmbTz89LVAEtBVFAFxPfhb2dZyIOUJgS+Lzcz95L5/w3fAbpwhoK4oAaMPdK4M4IXMOQY4S
|
||||||
|
eG3wY/I3uX+6z3f45b+tPyJFQFtRBECbcjna3auD+aI50uTCLILePbjZe3/fEUVAW1EEQB15M8zh7td5
|
||||||
|
g4wTOF8jVBw1yDbfP9HfD+G70Q9CEdBWFAHQhxwaz5vp/ejBXeIkvy8UMnvMO8gRivv/ft7Y39z/29GW
|
||||||
|
fIp3g+cfom8oAhpK/D0UAcBUQKzEDZxNKQLaiiIAgKM8ixvP1+WNSK4XRQAAu4ubTa58Wb0RyfWiCABg
|
||||||
|
Ty/Wbj7SRhQBAOwhh/4/L2860lYUAQBsKm4suTJl9aYjbUURAMBWbtduNNJuFAEAXCxuKO+XNxhpP4oA
|
||||||
|
AC5h4l/hKAIAOEvcREz8Kx5FAABP9WrthiL1oggA4NHixuHpv6MoAgB4DE//HUYRAMBPxc3i4/LmIX1E
|
||||||
|
EQDAKWb+dx5FAAA/iJuDT/4OEEUAAA/53O9AUQQAcM/kv8GiCADA8P+gUQQADC5uBob/B40iAGBcvvo3
|
||||||
|
eBQBAGN6uXZTkLGiCAAYTFz4/1y7Ich4UQQADEQBIA+jCAAYhAJAllEEAIzh9dpNQMaOIgCgf8/XbgAi
|
||||||
|
igCAzsXF/svy4i+SUQQA9M2XAOVkFAEAffM9ADkZRQBA3xQBcjKKAIC+KQLkZBQBAH1TBMjJKAIA+qYI
|
||||||
|
kJNRBAD0TREgJ6MIAOibIkBORhEA0DdFgJyMIgCgb4oAORlFAEDfFAFyMooAgL4pAuRkFAEAfVMEyMko
|
||||||
|
AgD6pgiQk1EEAPRNESAnowgA6JsiQE5GEQDQN0WAnIwiAKBvigA5GUUAQN8UAXIyigCAvikC5GQUAQB9
|
||||||
|
UwTIySgCAPqmCJCTUQQA9E0RICejCADomyJATkYRANA3RYCcjCIAoG+KADkZRQBA3xQBcjKKAIC+KQLk
|
||||||
|
ZBQBAH1TBMjJKAIA+qYIkJNRBAD0TREgJ6MIAOibIkBORhEA0DdFgJyMIgCgb4oAORlFAEDfFAFyMooA
|
||||||
|
gL4pAuRkFAEAfVMEyMkoAgD6pgiQk1EEAPRNESAnowgA6JsiQE5GEQDQN0WAnIwiAKBvigA5GUUAQN8U
|
||||||
|
AXIyigCAvikC5GQUAQB9UwTIySgCAPqmCJCTUQQA9E0RICcT/eP11E0A6JEiQE4m+sft1E0A6JEiQFZz
|
||||||
|
c3PzZu4jAHRKESBr+Tj3DwA6pgiQHzL3DQA6pwiQf2TuFwAMQBEg3zP3CQAGoQiQzIe5PwAwEEXA4Lm5
|
||||||
|
uXk79wUABqMIGDhRAPw59wMABqQIGDTxt38+dQEARqUIGC9f5r89AINTBAwU7/8BeEgRMEjib/1y+pMD
|
||||||
|
wEQR0H8M/wOwShHQceLv61PAAJykCOgz3+Jv+2z6EwPAOkVAZ7H2H4DHUgR0lPh7evoH4NEUAR3E0z8A
|
||||||
|
51AE1I53/wCcTRFQNPm3m/6EAHAeRUC9WPcPwCYUAYUSf68X058NAC6nCKiRd/PfCwA2owhoOyb+AbAb
|
||||||
|
RUCjib+ND/4AsCtFQHsx9A/AIRQB7cTQPwCHUgQ0kPg7GPoH4HCKgCvm5ubmzfx3AIDDKQKuk0/z7w8A
|
||||||
|
V6MIODb53v92+ukB4LoUAQclfmvv/QFoiiJg5/jMLwCtUgTslLj5v51/YwBokiJg++SkP+v9AWieImC7
|
||||||
|
2OwHgFIUAZcnb/7Pp58TAOpQBFyQ+P3M+AegLEXAGcnfbfr5AKAuRcATkr/X9LMBQH2KgEfEHv8A9EgR
|
||||||
|
8JNY6w9AzxQBK3HzB2AEioAHcfMHYCSKgIibPwAjGroIcPMHYGRDFgFx8zfbH4DhDVUE5PFOhw0ADFEE
|
||||||
|
5HFOhwsA3Ou5CMgP+9jbHwBO6LEI8FU/AHiEnoqAT3E8vucPAI9UvgiYl/m5+QPAE5UtAuLm/+d8DADA
|
||||||
|
GaoVASb7AcBGqhQB+b7/dmoyALCFposAO/sBwH5aLAIM+QPAAVoqAt5Fe8zyB4CDXLsI8NQPAFdyrSLA
|
||||||
|
Uz8AXNmRRcCX+PdeTP8sAHBtexcBOdz/evqnAICW7FIEzLv5Ge4HgIZtVQR8m2/8NvQBgCIuKQLyHX8O
|
||||||
|
9XviB4CCsgj4tri5n0o+7ecX+yzpA4AO3ObWvHGD/7S44ef/+d08xD/QTf9f//r/oSs8kHKK7soAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
64
AVISO_CHECKIN/usrCntlSearch.vb
Normal file
64
AVISO_CHECKIN/usrCntlSearch.vb
Normal file
@@ -0,0 +1,64 @@
|
|||||||
|
Public Class usrCntlSearch
|
||||||
|
|
||||||
|
Dim MAIN As frmCheckIn
|
||||||
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||||
|
|
||||||
|
|
||||||
|
Sub New(MAIN)
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
Me.MAIN = MAIN
|
||||||
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub txt_TextChanged(sender As Object, e As EventArgs) Handles txt.TextChanged
|
||||||
|
initDGV()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Sub initDGV()
|
||||||
|
|
||||||
|
With MyDatagridview1
|
||||||
|
|
||||||
|
Dim search = txt.Text
|
||||||
|
If search.Length <= 2 Then .Columns.Clear() : Exit Sub
|
||||||
|
|
||||||
|
Dim sqlstr = "SELECT TOP (20) [AvisoID],[LKW_Nr] LKW,[Frächter],Auftraggeber Avisierer
|
||||||
|
FROM [Aviso]
|
||||||
|
WHERE ((LKW_Nr LIKE '%" & search & "%') OR (Frächter LIKE '%" & search & "%') OR (Auftraggeber LIKE '%" & search & "%')) AND Status NOT IN (1,2) AND Datum > DATEADD(MONTH,-1 ,GETDATE())
|
||||||
|
order by DATUM DESC"
|
||||||
|
|
||||||
|
' .SET_SQL(sqlstr, "AVISO")
|
||||||
|
'.LOAD()
|
||||||
|
.DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
|
||||||
|
|
||||||
|
If .RowCount = 0 Then
|
||||||
|
.Columns.Clear() : Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
.Columns("AvisoID").Visible = False
|
||||||
|
.Columns("LKW").Width = 400
|
||||||
|
.Columns("Frächter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||||
|
'.loa.Columns("Avisierer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||||
|
.Columns("Avisierer").Visible = False
|
||||||
|
|
||||||
|
' MsgBox(dt.Rows(0)("AvisoID"))
|
||||||
|
|
||||||
|
End With
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||||
|
If MyDatagridview1.SelectedRows.Count > 0 Then
|
||||||
|
MAIN.SET_FOUND(MyDatagridview1.SelectedRows(0).Cells("AvisoId").Value)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub usrCntlSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
txt.Focus()
|
||||||
|
MAIN.TRANSLATE(Me)
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
263
AVISO_CHECKIN/usrCntlWelcome.Designer.vb
generated
Normal file
263
AVISO_CHECKIN/usrCntlWelcome.Designer.vb
generated
Normal file
@@ -0,0 +1,263 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
|
Partial Class usrCntlWelcome
|
||||||
|
Inherits System.Windows.Forms.UserControl
|
||||||
|
|
||||||
|
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()>
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlWelcome))
|
||||||
|
Me.Button4 = New System.Windows.Forms.Button()
|
||||||
|
Me.Button5 = New System.Windows.Forms.Button()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label4 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label5 = New System.Windows.Forms.Label()
|
||||||
|
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.btn = New System.Windows.Forms.Button()
|
||||||
|
Me.Button1 = New System.Windows.Forms.Button()
|
||||||
|
Me.Button2 = New System.Windows.Forms.Button()
|
||||||
|
Me.Button3 = New System.Windows.Forms.Button()
|
||||||
|
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'Button4
|
||||||
|
'
|
||||||
|
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button4.ForeColor = System.Drawing.Color.AliceBlue
|
||||||
|
Me.Button4.Location = New System.Drawing.Point(123, 501)
|
||||||
|
Me.Button4.Name = "Button4"
|
||||||
|
Me.Button4.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.Button4.TabIndex = 10
|
||||||
|
Me.Button4.Tag = "RUS"
|
||||||
|
Me.Button4.UseVisualStyleBackColor = True
|
||||||
|
Me.Button4.Visible = False
|
||||||
|
'
|
||||||
|
'Button5
|
||||||
|
'
|
||||||
|
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button5.ForeColor = System.Drawing.Color.AliceBlue
|
||||||
|
Me.Button5.Location = New System.Drawing.Point(123, 570)
|
||||||
|
Me.Button5.Name = "Button5"
|
||||||
|
Me.Button5.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.Button5.TabIndex = 11
|
||||||
|
Me.Button5.Tag = "BG"
|
||||||
|
Me.Button5.UseVisualStyleBackColor = True
|
||||||
|
Me.Button5.Visible = False
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
|
||||||
|
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(384, 262)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(514, 63)
|
||||||
|
Me.Label1.TabIndex = 12
|
||||||
|
Me.Label1.Tag = "DE"
|
||||||
|
Me.Label1.Text = "WILLKOMMEN!"
|
||||||
|
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
|
||||||
|
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(384, 331)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(514, 63)
|
||||||
|
Me.Label2.TabIndex = 13
|
||||||
|
Me.Label2.Tag = "EN"
|
||||||
|
Me.Label2.Text = "WELCOME!"
|
||||||
|
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
|
||||||
|
Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label3.Location = New System.Drawing.Point(384, 400)
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
|
||||||
|
Me.Label3.Size = New System.Drawing.Size(514, 63)
|
||||||
|
Me.Label3.TabIndex = 14
|
||||||
|
Me.Label3.Tag = "YU"
|
||||||
|
Me.Label3.Text = "DOBRODOŠLI!"
|
||||||
|
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
|
'
|
||||||
|
'Label4
|
||||||
|
'
|
||||||
|
Me.Label4.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
|
||||||
|
Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label4.Location = New System.Drawing.Point(384, 469)
|
||||||
|
Me.Label4.Name = "Label4"
|
||||||
|
Me.Label4.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
|
||||||
|
Me.Label4.Size = New System.Drawing.Size(514, 63)
|
||||||
|
Me.Label4.TabIndex = 15
|
||||||
|
Me.Label4.Text = "HOŞGELDINIZ!"
|
||||||
|
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
|
'
|
||||||
|
'Label5
|
||||||
|
'
|
||||||
|
Me.Label5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
|
||||||
|
Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
|
Me.Label5.Location = New System.Drawing.Point(303, 173)
|
||||||
|
Me.Label5.Name = "Label5"
|
||||||
|
Me.Label5.Size = New System.Drawing.Size(481, 46)
|
||||||
|
Me.Label5.TabIndex = 16
|
||||||
|
Me.Label5.Text = "Please select Language:"
|
||||||
|
'
|
||||||
|
'PictureBox3
|
||||||
|
'
|
||||||
|
Me.PictureBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.PictureBox3.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.IMEX_LOGO_simple
|
||||||
|
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.PictureBox3.Location = New System.Drawing.Point(824, 582)
|
||||||
|
Me.PictureBox3.Name = "PictureBox3"
|
||||||
|
Me.PictureBox3.Size = New System.Drawing.Size(385, 93)
|
||||||
|
Me.PictureBox3.TabIndex = 19
|
||||||
|
Me.PictureBox3.TabStop = False
|
||||||
|
'
|
||||||
|
'PictureBox2
|
||||||
|
'
|
||||||
|
Me.PictureBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.PictureBox2.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.Unisped_logo
|
||||||
|
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.PictureBox2.Location = New System.Drawing.Point(414, 582)
|
||||||
|
Me.PictureBox2.Name = "PictureBox2"
|
||||||
|
Me.PictureBox2.Size = New System.Drawing.Size(385, 93)
|
||||||
|
Me.PictureBox2.TabIndex = 18
|
||||||
|
Me.PictureBox2.TabStop = False
|
||||||
|
'
|
||||||
|
'PictureBox1
|
||||||
|
'
|
||||||
|
Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.Verag_AG_Logopng
|
||||||
|
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.PictureBox1.Location = New System.Drawing.Point(0, 582)
|
||||||
|
Me.PictureBox1.Name = "PictureBox1"
|
||||||
|
Me.PictureBox1.Size = New System.Drawing.Size(385, 93)
|
||||||
|
Me.PictureBox1.TabIndex = 17
|
||||||
|
Me.PictureBox1.TabStop = False
|
||||||
|
'
|
||||||
|
'btn
|
||||||
|
'
|
||||||
|
Me.btn.BackgroundImage = CType(resources.GetObject("btn.BackgroundImage"), System.Drawing.Image)
|
||||||
|
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btn.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.btn.Location = New System.Drawing.Point(310, 262)
|
||||||
|
Me.btn.Name = "btn"
|
||||||
|
Me.btn.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.btn.TabIndex = 6
|
||||||
|
Me.btn.Tag = "DE"
|
||||||
|
Me.btn.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Button1
|
||||||
|
'
|
||||||
|
Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
|
||||||
|
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button1.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.Button1.Location = New System.Drawing.Point(310, 331)
|
||||||
|
Me.Button1.Name = "Button1"
|
||||||
|
Me.Button1.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.Button1.TabIndex = 7
|
||||||
|
Me.Button1.Tag = "EN"
|
||||||
|
Me.Button1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Button2
|
||||||
|
'
|
||||||
|
Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image)
|
||||||
|
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button2.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.Button2.Location = New System.Drawing.Point(310, 400)
|
||||||
|
Me.Button2.Name = "Button2"
|
||||||
|
Me.Button2.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.Button2.TabIndex = 8
|
||||||
|
Me.Button2.Tag = "YU"
|
||||||
|
Me.Button2.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Button3
|
||||||
|
'
|
||||||
|
Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image)
|
||||||
|
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button3.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.Button3.Location = New System.Drawing.Point(310, 469)
|
||||||
|
Me.Button3.Name = "Button3"
|
||||||
|
Me.Button3.Size = New System.Drawing.Size(75, 63)
|
||||||
|
Me.Button3.TabIndex = 9
|
||||||
|
Me.Button3.Tag = "TR"
|
||||||
|
Me.Button3.Text = "TR"
|
||||||
|
Me.Button3.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'usrCntlWelcome
|
||||||
|
'
|
||||||
|
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.PictureBox3)
|
||||||
|
Me.Controls.Add(Me.PictureBox2)
|
||||||
|
Me.Controls.Add(Me.PictureBox1)
|
||||||
|
Me.Controls.Add(Me.Label5)
|
||||||
|
Me.Controls.Add(Me.Label4)
|
||||||
|
Me.Controls.Add(Me.Label3)
|
||||||
|
Me.Controls.Add(Me.Label2)
|
||||||
|
Me.Controls.Add(Me.Label1)
|
||||||
|
Me.Controls.Add(Me.btn)
|
||||||
|
Me.Controls.Add(Me.Button1)
|
||||||
|
Me.Controls.Add(Me.Button2)
|
||||||
|
Me.Controls.Add(Me.Button4)
|
||||||
|
Me.Controls.Add(Me.Button5)
|
||||||
|
Me.Controls.Add(Me.Button3)
|
||||||
|
Me.Name = "usrCntlWelcome"
|
||||||
|
Me.Size = New System.Drawing.Size(1212, 678)
|
||||||
|
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents btn As Button
|
||||||
|
Friend WithEvents Button1 As Button
|
||||||
|
Friend WithEvents Button2 As Button
|
||||||
|
Friend WithEvents Button4 As Button
|
||||||
|
Friend WithEvents Button5 As Button
|
||||||
|
Friend WithEvents Button3 As Button
|
||||||
|
Friend WithEvents Label1 As Label
|
||||||
|
Friend WithEvents Label2 As Label
|
||||||
|
Friend WithEvents Label3 As Label
|
||||||
|
Friend WithEvents Label4 As Label
|
||||||
|
Friend WithEvents Label5 As Label
|
||||||
|
Friend WithEvents PictureBox1 As PictureBox
|
||||||
|
Friend WithEvents PictureBox2 As PictureBox
|
||||||
|
Friend WithEvents PictureBox3 As PictureBox
|
||||||
|
End Class
|
||||||
4919
AVISO_CHECKIN/usrCntlWelcome.resx
Normal file
4919
AVISO_CHECKIN/usrCntlWelcome.resx
Normal file
File diff suppressed because it is too large
Load Diff
26
AVISO_CHECKIN/usrCntlWelcome.vb
Normal file
26
AVISO_CHECKIN/usrCntlWelcome.vb
Normal file
@@ -0,0 +1,26 @@
|
|||||||
|
Public Class usrCntlWelcome
|
||||||
|
|
||||||
|
Dim MAIN As frmCheckIn
|
||||||
|
Sub New(MAIN)
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
Me.MAIN = MAIN
|
||||||
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, Label1.Click, Button1.Click, Label2.Click, Button2.Click, Label3.Click, Button3.Click, Label4.Click
|
||||||
|
MAIN.SET_LANGUAGE(sender.tag)
|
||||||
|
MAIN.SET_SEARCH()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
@@ -207,5 +207,15 @@
|
|||||||
<Install>false</Install>
|
<Install>false</Install>
|
||||||
</BootstrapperPackage>
|
</BootstrapperPackage>
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
|
||||||
|
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
|
||||||
|
<Name>VERAG_PROG_ALLGEMEIN</Name>
|
||||||
|
</ProjectReference>
|
||||||
|
<ProjectReference Include="..\Gemeinsames\Gemeinsames.vbproj">
|
||||||
|
<Project>{110c923b-cb02-4fd0-af24-95e0f0eeeff5}</Project>
|
||||||
|
<Name>Gemeinsames</Name>
|
||||||
|
</ProjectReference>
|
||||||
|
</ItemGroup>
|
||||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
</Project>
|
</Project>
|
||||||
14
Aviso.sln
14
Aviso.sln
@@ -25,6 +25,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISO_INFO", "AVISO_INFO\AV
|
|||||||
EndProject
|
EndProject
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "..\..\ADMIN\ADMIN\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj", "{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}"
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "..\..\ADMIN\ADMIN\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj", "{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}"
|
||||||
EndProject
|
EndProject
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISO_CHECKIN", "AVISO_CHECKIN\AVISO_CHECKIN.vbproj", "{CB95CC0E-D73A-4D11-9FF8-197A392D831F}"
|
||||||
|
EndProject
|
||||||
Global
|
Global
|
||||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||||
Debug|Any CPU = Debug|Any CPU
|
Debug|Any CPU = Debug|Any CPU
|
||||||
@@ -151,6 +153,18 @@ Global
|
|||||||
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Mixed Platforms.Build.0 = Release|Any CPU
|
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Mixed Platforms.Build.0 = Release|Any CPU
|
||||||
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x86.ActiveCfg = Release|Any CPU
|
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x86.ActiveCfg = Release|Any CPU
|
||||||
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x86.Build.0 = Release|Any CPU
|
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x86.Build.0 = Release|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|x86.ActiveCfg = Debug|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|x86.Build.0 = Debug|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x86.ActiveCfg = Release|Any CPU
|
||||||
|
{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x86.Build.0 = Release|Any CPU
|
||||||
EndGlobalSection
|
EndGlobalSection
|
||||||
GlobalSection(SolutionProperties) = preSolution
|
GlobalSection(SolutionProperties) = preSolution
|
||||||
HideSolutionNode = FALSE
|
HideSolutionNode = FALSE
|
||||||
|
|||||||
@@ -465,6 +465,12 @@
|
|||||||
<Compile Include="frmAvisoWeiterleiten.vb">
|
<Compile Include="frmAvisoWeiterleiten.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
|
<Compile Include="frmAviso_Vorpapiere.Designer.vb">
|
||||||
|
<DependentUpon>frmAviso_Vorpapiere.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmAviso_Vorpapiere.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
<Compile Include="frmDokumenteSchicken.Designer.vb">
|
<Compile Include="frmDokumenteSchicken.Designer.vb">
|
||||||
<DependentUpon>frmDokumenteSchicken.vb</DependentUpon>
|
<DependentUpon>frmDokumenteSchicken.vb</DependentUpon>
|
||||||
</Compile>
|
</Compile>
|
||||||
@@ -739,6 +745,12 @@
|
|||||||
<Compile Include="usrCntlAvisoAnhang.vb">
|
<Compile Include="usrCntlAvisoAnhang.vb">
|
||||||
<SubType>UserControl</SubType>
|
<SubType>UserControl</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
|
<Compile Include="usrCntlAviso_Vorpapiere.Designer.vb">
|
||||||
|
<DependentUpon>usrCntlAviso_Vorpapiere.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="usrCntlAviso_Vorpapiere.vb">
|
||||||
|
<SubType>UserControl</SubType>
|
||||||
|
</Compile>
|
||||||
<Compile Include="usrCntlBenachrichtigungen.Designer.vb">
|
<Compile Include="usrCntlBenachrichtigungen.Designer.vb">
|
||||||
<DependentUpon>usrCntlBenachrichtigungen.vb</DependentUpon>
|
<DependentUpon>usrCntlBenachrichtigungen.vb</DependentUpon>
|
||||||
</Compile>
|
</Compile>
|
||||||
@@ -874,6 +886,9 @@
|
|||||||
<EmbeddedResource Include="frmAvisoWeiterleiten.resx">
|
<EmbeddedResource Include="frmAvisoWeiterleiten.resx">
|
||||||
<DependentUpon>frmAvisoWeiterleiten.vb</DependentUpon>
|
<DependentUpon>frmAvisoWeiterleiten.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="frmAviso_Vorpapiere.resx">
|
||||||
|
<DependentUpon>frmAviso_Vorpapiere.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="frmDokumenteSchicken.resx">
|
<EmbeddedResource Include="frmDokumenteSchicken.resx">
|
||||||
<DependentUpon>frmDokumenteSchicken.vb</DependentUpon>
|
<DependentUpon>frmDokumenteSchicken.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
@@ -1011,6 +1026,9 @@
|
|||||||
<EmbeddedResource Include="usrCntlAvisoAnhang.resx">
|
<EmbeddedResource Include="usrCntlAvisoAnhang.resx">
|
||||||
<DependentUpon>usrCntlAvisoAnhang.vb</DependentUpon>
|
<DependentUpon>usrCntlAvisoAnhang.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="usrCntlAviso_Vorpapiere.resx">
|
||||||
|
<DependentUpon>usrCntlAviso_Vorpapiere.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="usrCntlBenachrichtigungen.resx">
|
<EmbeddedResource Include="usrCntlBenachrichtigungen.resx">
|
||||||
<DependentUpon>usrCntlBenachrichtigungen.vb</DependentUpon>
|
<DependentUpon>usrCntlBenachrichtigungen.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
@@ -1154,7 +1172,9 @@
|
|||||||
<EmbeddedResource Include="My Project\license.elic.xml" />
|
<EmbeddedResource Include="My Project\license.elic.xml" />
|
||||||
<Content Include="My Project\Telefonliste_small.png" />
|
<Content Include="My Project\Telefonliste_small.png" />
|
||||||
<None Include="Resources\Telefonliste_small.png" />
|
<None Include="Resources\Telefonliste_small.png" />
|
||||||
<None Include="Resources\Logo_blue_globe_Horizontal.jpg" />
|
<None Include="Resources\Logo_blue_globe_Horizontal.jpg">
|
||||||
|
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||||
|
</None>
|
||||||
<None Include="Resources\fakturiertInaktiv.jpg" />
|
<None Include="Resources\fakturiertInaktiv.jpg" />
|
||||||
<None Include="Resources\fakturiertAktiv.jpg" />
|
<None Include="Resources\fakturiertAktiv.jpg" />
|
||||||
<None Include="Resources\mitarbeiter.png" />
|
<None Include="Resources\mitarbeiter.png" />
|
||||||
|
|||||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
|||||||
' übernehmen, indem Sie "*" eingeben:
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
' <Assembly: AssemblyVersion("1.0.*")>
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
<Assembly: AssemblyVersion("3.5.6.4")>
|
<Assembly: AssemblyVersion("3.5.7.8")>
|
||||||
<Assembly: AssemblyFileVersion("3.5.6.4")>
|
<Assembly: AssemblyFileVersion("3.5.7.8")>
|
||||||
|
|||||||
2
Aviso/My Project/Resources.Designer.vb
generated
2
Aviso/My Project/Resources.Designer.vb
generated
@@ -1429,7 +1429,7 @@ Namespace My.Resources
|
|||||||
End Property
|
End Property
|
||||||
|
|
||||||
'''<summary>
|
'''<summary>
|
||||||
''' Sucht eine lokalisierte Zeichenfolge, die 3.5.6.4 ähnelt.
|
''' Sucht eine lokalisierte Zeichenfolge, die 3.5.7.8 ähnelt.
|
||||||
'''</summary>
|
'''</summary>
|
||||||
Friend ReadOnly Property Version() As String
|
Friend ReadOnly Property Version() As String
|
||||||
Get
|
Get
|
||||||
|
|||||||
@@ -536,7 +536,7 @@
|
|||||||
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="Version" xml:space="preserve">
|
<data name="Version" xml:space="preserve">
|
||||||
<value>3.5.6.4</value>
|
<value>3.5.7.8</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
|||||||
@@ -64,6 +64,7 @@ Public Class frmAddAktenvermerkShort
|
|||||||
|
|
||||||
btnVorgeschrieben.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Vorgeschrieben", Me.FindForm)
|
btnVorgeschrieben.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Vorgeschrieben", Me.FindForm)
|
||||||
btnVorbereitet.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_VorbQS", Me.FindForm)
|
btnVorbereitet.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_VorbQS", Me.FindForm)
|
||||||
|
btnErfasst.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", Me.FindForm)
|
||||||
|
|
||||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||||
Dim de = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=17", "AVISO") -
|
Dim de = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=17", "AVISO") -
|
||||||
|
|||||||
65
Aviso/frmAviso_Vorpapiere.Designer.vb
generated
Normal file
65
Aviso/frmAviso_Vorpapiere.Designer.vb
generated
Normal file
@@ -0,0 +1,65 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmAviso_Vorpapiere
|
||||||
|
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(frmAviso_Vorpapiere))
|
||||||
|
Me.UsrCntlAviso_Vorpapiere1 = New AVISO.usrCntlAviso_Vorpapiere()
|
||||||
|
Me.btn = New System.Windows.Forms.Button()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'UsrCntlAviso_Vorpapiere1
|
||||||
|
'
|
||||||
|
Me.UsrCntlAviso_Vorpapiere1.BackColor = System.Drawing.Color.White
|
||||||
|
Me.UsrCntlAviso_Vorpapiere1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.UsrCntlAviso_Vorpapiere1.Name = "UsrCntlAviso_Vorpapiere1"
|
||||||
|
Me.UsrCntlAviso_Vorpapiere1.Size = New System.Drawing.Size(410, 157)
|
||||||
|
Me.UsrCntlAviso_Vorpapiere1.TabIndex = 64
|
||||||
|
'
|
||||||
|
'btn
|
||||||
|
'
|
||||||
|
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btn.Location = New System.Drawing.Point(289, 163)
|
||||||
|
Me.btn.Name = "btn"
|
||||||
|
Me.btn.Size = New System.Drawing.Size(109, 33)
|
||||||
|
Me.btn.TabIndex = 65
|
||||||
|
Me.btn.Text = "OK"
|
||||||
|
Me.btn.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'frmAviso_Vorpapiere
|
||||||
|
'
|
||||||
|
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(410, 207)
|
||||||
|
Me.Controls.Add(Me.btn)
|
||||||
|
Me.Controls.Add(Me.UsrCntlAviso_Vorpapiere1)
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.Name = "frmAviso_Vorpapiere"
|
||||||
|
Me.Text = "frmAviso_Vorpapiere"
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents UsrCntlAviso_Vorpapiere1 As usrCntlAviso_Vorpapiere
|
||||||
|
Friend WithEvents btn As Button
|
||||||
|
End Class
|
||||||
1253
Aviso/frmAviso_Vorpapiere.resx
Normal file
1253
Aviso/frmAviso_Vorpapiere.resx
Normal file
File diff suppressed because it is too large
Load Diff
28
Aviso/frmAviso_Vorpapiere.vb
Normal file
28
Aviso/frmAviso_Vorpapiere.vb
Normal file
@@ -0,0 +1,28 @@
|
|||||||
|
Public Class frmAviso_Vorpapiere
|
||||||
|
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
|
||||||
|
|
||||||
|
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso)
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
Me.AVISO = AVISO
|
||||||
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||||
|
If UsrCntlAviso_Vorpapiere1.checkDouble() Then
|
||||||
|
MsgBox("Doppelte Einträge!")
|
||||||
|
Me.DialogResult = DialogResult.None
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
UsrCntlAviso_Vorpapiere1.getVorpapiere(AVISO)
|
||||||
|
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
||||||
|
If AvisoDAL.SpeichernAvisoVorpapiere(AVISO.AvisoID, AVISO.VORPAPIERE) Then
|
||||||
|
Me.Close()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub frmAviso_Vorpapiere_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
UsrCntlAviso_Vorpapiere1.setVorpapiere(AVISO)
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
114
Aviso/frmEintragAviso.designer.vb
generated
114
Aviso/frmEintragAviso.designer.vb
generated
@@ -75,6 +75,7 @@ Partial Class frmEintragAviso
|
|||||||
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
|
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
|
||||||
Me.Label15 = New System.Windows.Forms.Label()
|
Me.Label15 = New System.Windows.Forms.Label()
|
||||||
Me.grpAviso = New System.Windows.Forms.GroupBox()
|
Me.grpAviso = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||||
Me.lblErr_KdNr = New System.Windows.Forms.Label()
|
Me.lblErr_KdNr = New System.Windows.Forms.Label()
|
||||||
Me.Button5 = New System.Windows.Forms.Button()
|
Me.Button5 = New System.Windows.Forms.Button()
|
||||||
Me.lblErrVorraussuchtlEintreffen = New System.Windows.Forms.Label()
|
Me.lblErrVorraussuchtlEintreffen = New System.Windows.Forms.Label()
|
||||||
@@ -103,7 +104,6 @@ Partial Class frmEintragAviso
|
|||||||
Me.lblErr_LKW = New System.Windows.Forms.Label()
|
Me.lblErr_LKW = New System.Windows.Forms.Label()
|
||||||
Me.lblErr_Grenzstelle = New System.Windows.Forms.Label()
|
Me.lblErr_Grenzstelle = New System.Windows.Forms.Label()
|
||||||
Me.Button1 = New System.Windows.Forms.Button()
|
Me.Button1 = New System.Windows.Forms.Button()
|
||||||
Me.btnAbsSrch = New System.Windows.Forms.Button()
|
|
||||||
Me.lblAtrAvis = New System.Windows.Forms.Label()
|
Me.lblAtrAvis = New System.Windows.Forms.Label()
|
||||||
Me.lblAtr = New System.Windows.Forms.Label()
|
Me.lblAtr = New System.Windows.Forms.Label()
|
||||||
Me.Label17 = New System.Windows.Forms.Label()
|
Me.Label17 = New System.Windows.Forms.Label()
|
||||||
@@ -115,6 +115,7 @@ Partial Class frmEintragAviso
|
|||||||
Me.cbxWarenort = New System.Windows.Forms.CheckBox()
|
Me.cbxWarenort = New System.Windows.Forms.CheckBox()
|
||||||
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||||
Me.lblZA = New System.Windows.Forms.Label()
|
Me.lblZA = New System.Windows.Forms.Label()
|
||||||
|
Me.btnAbsSrch = New System.Windows.Forms.Button()
|
||||||
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
|
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
|
||||||
Me.lblErrFmZollKdNr = New System.Windows.Forms.Label()
|
Me.lblErrFmZollKdNr = New System.Windows.Forms.Label()
|
||||||
Me.grp = New System.Windows.Forms.GroupBox()
|
Me.grp = New System.Windows.Forms.GroupBox()
|
||||||
@@ -145,13 +146,10 @@ Partial Class frmEintragAviso
|
|||||||
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
|
Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
|
||||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
Me.UsrCntlAviso_Vorpapiere1 = New AVISO.usrCntlAviso_Vorpapiere()
|
||||||
Me.dgvVorpapier = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
|
||||||
Me.clmnArt = New System.Windows.Forms.DataGridViewComboBoxColumn()
|
|
||||||
Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
|
||||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
|
||||||
Me.panAdmin.SuspendLayout()
|
Me.panAdmin.SuspendLayout()
|
||||||
Me.grpAviso.SuspendLayout()
|
Me.grpAviso.SuspendLayout()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.pnl.SuspendLayout()
|
Me.pnl.SuspendLayout()
|
||||||
Me.grp.SuspendLayout()
|
Me.grp.SuspendLayout()
|
||||||
@@ -159,9 +157,6 @@ Partial Class frmEintragAviso
|
|||||||
Me.grpAktVerzollung.SuspendLayout()
|
Me.grpAktVerzollung.SuspendLayout()
|
||||||
Me.pnlSBG.SuspendLayout()
|
Me.pnlSBG.SuspendLayout()
|
||||||
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.GroupBox1.SuspendLayout()
|
|
||||||
CType(Me.dgvVorpapier, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.SuspendLayout()
|
Me.SuspendLayout()
|
||||||
'
|
'
|
||||||
'btnOK
|
'btnOK
|
||||||
@@ -779,6 +774,16 @@ Partial Class frmEintragAviso
|
|||||||
Me.grpAviso.TabStop = False
|
Me.grpAviso.TabStop = False
|
||||||
Me.grpAviso.Text = "Aviso"
|
Me.grpAviso.Text = "Aviso"
|
||||||
'
|
'
|
||||||
|
'PictureBox1
|
||||||
|
'
|
||||||
|
Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.lorry
|
||||||
|
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.PictureBox1.Location = New System.Drawing.Point(3, 143)
|
||||||
|
Me.PictureBox1.Name = "PictureBox1"
|
||||||
|
Me.PictureBox1.Size = New System.Drawing.Size(22, 24)
|
||||||
|
Me.PictureBox1.TabIndex = 48
|
||||||
|
Me.PictureBox1.TabStop = False
|
||||||
|
'
|
||||||
'lblErr_KdNr
|
'lblErr_KdNr
|
||||||
'
|
'
|
||||||
Me.lblErr_KdNr.AutoSize = True
|
Me.lblErr_KdNr.AutoSize = True
|
||||||
@@ -1176,18 +1181,6 @@ Partial Class frmEintragAviso
|
|||||||
Me.Button1.UseVisualStyleBackColor = True
|
Me.Button1.UseVisualStyleBackColor = True
|
||||||
Me.Button1.Visible = False
|
Me.Button1.Visible = False
|
||||||
'
|
'
|
||||||
'btnAbsSrch
|
|
||||||
'
|
|
||||||
Me.btnAbsSrch.FlatAppearance.BorderSize = 0
|
|
||||||
Me.btnAbsSrch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
|
||||||
Me.btnAbsSrch.Image = CType(resources.GetObject("btnAbsSrch.Image"), System.Drawing.Image)
|
|
||||||
Me.btnAbsSrch.Location = New System.Drawing.Point(447, 411)
|
|
||||||
Me.btnAbsSrch.Name = "btnAbsSrch"
|
|
||||||
Me.btnAbsSrch.Size = New System.Drawing.Size(37, 20)
|
|
||||||
Me.btnAbsSrch.TabIndex = 12
|
|
||||||
Me.btnAbsSrch.UseVisualStyleBackColor = True
|
|
||||||
Me.btnAbsSrch.Visible = False
|
|
||||||
'
|
|
||||||
'lblAtrAvis
|
'lblAtrAvis
|
||||||
'
|
'
|
||||||
Me.lblAtrAvis.AutoSize = True
|
Me.lblAtrAvis.AutoSize = True
|
||||||
@@ -1324,6 +1317,18 @@ Partial Class frmEintragAviso
|
|||||||
Me.lblZA.TabIndex = 0
|
Me.lblZA.TabIndex = 0
|
||||||
Me.lblZA.Text = "Zollamt:"
|
Me.lblZA.Text = "Zollamt:"
|
||||||
'
|
'
|
||||||
|
'btnAbsSrch
|
||||||
|
'
|
||||||
|
Me.btnAbsSrch.FlatAppearance.BorderSize = 0
|
||||||
|
Me.btnAbsSrch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btnAbsSrch.Image = CType(resources.GetObject("btnAbsSrch.Image"), System.Drawing.Image)
|
||||||
|
Me.btnAbsSrch.Location = New System.Drawing.Point(447, 411)
|
||||||
|
Me.btnAbsSrch.Name = "btnAbsSrch"
|
||||||
|
Me.btnAbsSrch.Size = New System.Drawing.Size(37, 20)
|
||||||
|
Me.btnAbsSrch.TabIndex = 12
|
||||||
|
Me.btnAbsSrch.UseVisualStyleBackColor = True
|
||||||
|
Me.btnAbsSrch.Visible = False
|
||||||
|
'
|
||||||
'UsrCntlTestsystem1
|
'UsrCntlTestsystem1
|
||||||
'
|
'
|
||||||
Me.UsrCntlTestsystem1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
Me.UsrCntlTestsystem1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
@@ -1717,57 +1722,13 @@ Partial Class frmEintragAviso
|
|||||||
Me.UsrCntlEintragAvisoAtilla.TabIndex = 6
|
Me.UsrCntlEintragAvisoAtilla.TabIndex = 6
|
||||||
Me.UsrCntlEintragAvisoAtilla.Visible = False
|
Me.UsrCntlEintragAvisoAtilla.Visible = False
|
||||||
'
|
'
|
||||||
'GroupBox1
|
'UsrCntlAviso_Vorpapiere1
|
||||||
'
|
'
|
||||||
Me.GroupBox1.Controls.Add(Me.dgvVorpapier)
|
Me.UsrCntlAviso_Vorpapiere1.BackColor = System.Drawing.Color.White
|
||||||
Me.GroupBox1.Location = New System.Drawing.Point(12, 455)
|
Me.UsrCntlAviso_Vorpapiere1.Location = New System.Drawing.Point(12, 462)
|
||||||
Me.GroupBox1.Name = "GroupBox1"
|
Me.UsrCntlAviso_Vorpapiere1.Name = "UsrCntlAviso_Vorpapiere1"
|
||||||
Me.GroupBox1.Size = New System.Drawing.Size(403, 150)
|
Me.UsrCntlAviso_Vorpapiere1.Size = New System.Drawing.Size(410, 157)
|
||||||
Me.GroupBox1.TabIndex = 56
|
Me.UsrCntlAviso_Vorpapiere1.TabIndex = 63
|
||||||
Me.GroupBox1.TabStop = False
|
|
||||||
Me.GroupBox1.Text = "Vorpapiere"
|
|
||||||
'
|
|
||||||
'dgvVorpapier
|
|
||||||
'
|
|
||||||
Me.dgvVorpapier.AKTUALISIERUNGS_INTERVALL = -1
|
|
||||||
Me.dgvVorpapier.AllowUserToResizeColumns = False
|
|
||||||
Me.dgvVorpapier.AllowUserToResizeRows = False
|
|
||||||
Me.dgvVorpapier.BackgroundColor = System.Drawing.Color.White
|
|
||||||
Me.dgvVorpapier.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
|
||||||
Me.dgvVorpapier.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.clmnMRN})
|
|
||||||
Me.dgvVorpapier.Location = New System.Drawing.Point(9, 19)
|
|
||||||
Me.dgvVorpapier.Name = "dgvVorpapier"
|
|
||||||
Me.dgvVorpapier.RowHeadersWidth = 25
|
|
||||||
Me.dgvVorpapier.Size = New System.Drawing.Size(388, 126)
|
|
||||||
Me.dgvVorpapier.TabIndex = 36
|
|
||||||
'
|
|
||||||
'clmnArt
|
|
||||||
'
|
|
||||||
Me.clmnArt.DisplayStyle = System.Windows.Forms.DataGridViewComboBoxDisplayStyle.ComboBox
|
|
||||||
Me.clmnArt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
|
||||||
Me.clmnArt.HeaderText = "Art"
|
|
||||||
Me.clmnArt.Items.AddRange(New Object() {"ATA", "MRN", "CRN"})
|
|
||||||
Me.clmnArt.Name = "clmnArt"
|
|
||||||
Me.clmnArt.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
|
|
||||||
Me.clmnArt.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
|
|
||||||
Me.clmnArt.Visible = False
|
|
||||||
Me.clmnArt.Width = 60
|
|
||||||
'
|
|
||||||
'clmnMRN
|
|
||||||
'
|
|
||||||
Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
|
||||||
Me.clmnMRN.HeaderText = "T1 MRN"
|
|
||||||
Me.clmnMRN.Name = "clmnMRN"
|
|
||||||
'
|
|
||||||
'PictureBox1
|
|
||||||
'
|
|
||||||
Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.lorry
|
|
||||||
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
|
||||||
Me.PictureBox1.Location = New System.Drawing.Point(3, 143)
|
|
||||||
Me.PictureBox1.Name = "PictureBox1"
|
|
||||||
Me.PictureBox1.Size = New System.Drawing.Size(22, 24)
|
|
||||||
Me.PictureBox1.TabIndex = 48
|
|
||||||
Me.PictureBox1.TabStop = False
|
|
||||||
'
|
'
|
||||||
'frmEintragAviso
|
'frmEintragAviso
|
||||||
'
|
'
|
||||||
@@ -1776,9 +1737,9 @@ Partial Class frmEintragAviso
|
|||||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
Me.BackColor = System.Drawing.Color.White
|
Me.BackColor = System.Drawing.Color.White
|
||||||
Me.ClientSize = New System.Drawing.Size(792, 728)
|
Me.ClientSize = New System.Drawing.Size(792, 728)
|
||||||
|
Me.Controls.Add(Me.UsrCntlAviso_Vorpapiere1)
|
||||||
Me.Controls.Add(Me.btnAbsSrch)
|
Me.Controls.Add(Me.btnAbsSrch)
|
||||||
Me.Controls.Add(Me.panAdmin)
|
Me.Controls.Add(Me.panAdmin)
|
||||||
Me.Controls.Add(Me.GroupBox1)
|
|
||||||
Me.Controls.Add(Me.grp)
|
Me.Controls.Add(Me.grp)
|
||||||
Me.Controls.Add(Me.txtDyRef)
|
Me.Controls.Add(Me.txtDyRef)
|
||||||
Me.Controls.Add(Me.picDy)
|
Me.Controls.Add(Me.picDy)
|
||||||
@@ -1817,6 +1778,7 @@ Partial Class frmEintragAviso
|
|||||||
Me.panAdmin.PerformLayout()
|
Me.panAdmin.PerformLayout()
|
||||||
Me.grpAviso.ResumeLayout(False)
|
Me.grpAviso.ResumeLayout(False)
|
||||||
Me.grpAviso.PerformLayout()
|
Me.grpAviso.PerformLayout()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
Me.pnl.ResumeLayout(False)
|
Me.pnl.ResumeLayout(False)
|
||||||
Me.pnl.PerformLayout()
|
Me.pnl.PerformLayout()
|
||||||
@@ -1828,9 +1790,6 @@ Partial Class frmEintragAviso
|
|||||||
Me.pnlSBG.ResumeLayout(False)
|
Me.pnlSBG.ResumeLayout(False)
|
||||||
Me.pnlSBG.PerformLayout()
|
Me.pnlSBG.PerformLayout()
|
||||||
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
Me.GroupBox1.ResumeLayout(False)
|
|
||||||
CType(Me.dgvVorpapier, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.ResumeLayout(False)
|
Me.ResumeLayout(False)
|
||||||
Me.PerformLayout()
|
Me.PerformLayout()
|
||||||
|
|
||||||
@@ -1957,9 +1916,6 @@ Partial Class frmEintragAviso
|
|||||||
Friend WithEvents lblErr_KdNr As Label
|
Friend WithEvents lblErr_KdNr As Label
|
||||||
Friend WithEvents cbxWarenort As CheckBox
|
Friend WithEvents cbxWarenort As CheckBox
|
||||||
Friend WithEvents pnl As Panel
|
Friend WithEvents pnl As Panel
|
||||||
Friend WithEvents GroupBox1 As GroupBox
|
|
||||||
Friend WithEvents dgvVorpapier As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
|
||||||
Friend WithEvents clmnArt As DataGridViewComboBoxColumn
|
|
||||||
Friend WithEvents clmnMRN As DataGridViewTextBoxColumn
|
|
||||||
Friend WithEvents PictureBox1 As PictureBox
|
Friend WithEvents PictureBox1 As PictureBox
|
||||||
|
Friend WithEvents UsrCntlAviso_Vorpapiere1 As usrCntlAviso_Vorpapiere
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -216,24 +216,6 @@
|
|||||||
<metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
<metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
<value>True</value>
|
<value>True</value>
|
||||||
</metadata>
|
</metadata>
|
||||||
<metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
|
||||||
<value>True</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
|
||||||
<value>True</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
|
||||||
<value>True</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
|
||||||
<value>True</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
|
||||||
<value>True</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
|
||||||
<value>True</value>
|
|
||||||
</metadata>
|
|
||||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA
|
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA
|
||||||
|
|||||||
@@ -396,11 +396,7 @@ Public Class frmEintragAviso
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'Vorpapier laden
|
'Vorpapier laden
|
||||||
dgvVorpapier.Rows.Clear()
|
UsrCntlAviso_Vorpapiere1.setVorpapiere(myAviso)
|
||||||
myAviso.LOAD_Vorpapiere()
|
|
||||||
For Each VP In myAviso.VORPAPIERE
|
|
||||||
dgvVorpapier.Rows.Add({VP.vp_Art, VP.vp_Nr})
|
|
||||||
Next
|
|
||||||
|
|
||||||
|
|
||||||
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
|
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
|
||||||
@@ -782,8 +778,11 @@ Public Class frmEintragAviso
|
|||||||
If optOhneAviso.Checked Then myAviso.Telefonisch = ""
|
If optOhneAviso.Checked Then myAviso.Telefonisch = ""
|
||||||
' myAviso.Info = txtInfo.Text.Trim ' jetzt in Vermerke gespeichert!!
|
' myAviso.Info = txtInfo.Text.Trim ' jetzt in Vermerke gespeichert!!
|
||||||
myAviso.Info = ""
|
myAviso.Info = ""
|
||||||
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
||||||
myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
If Neuanlage Then
|
||||||
|
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||||
|
myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
||||||
|
End If
|
||||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
|
||||||
myAviso.Grenzstelle = "SUB"
|
myAviso.Grenzstelle = "SUB"
|
||||||
Else
|
Else
|
||||||
@@ -928,17 +927,15 @@ Public Class frmEintragAviso
|
|||||||
myAviso.AvisoID = tmpId
|
myAviso.AvisoID = tmpId
|
||||||
AvisoDAL.addAenderung(tmpId, aendart, aendText)
|
AvisoDAL.addAenderung(tmpId, aendart, aendText)
|
||||||
|
|
||||||
'VORPAPIERE
|
'VORPAPIER
|
||||||
myAviso.VORPAPIERE.Clear()
|
If UsrCntlAviso_Vorpapiere1.checkDouble() Then
|
||||||
For Each r As DataGridViewRow In dgvVorpapier.Rows
|
MsgBox("Vorpapiere: Doppelte Einträge!")
|
||||||
If r.Cells("clmnMRN").Value IsNot Nothing AndAlso r.Cells("clmnMRN").Value <> "" Then
|
Me.DialogResult = DialogResult.None
|
||||||
Dim VP As New cAvisoVorpapier
|
Me.Cursor = Cursors.Default
|
||||||
VP.vp_AvisoId = tmpId
|
Exit Sub
|
||||||
VP.vp_Nr = r.Cells("clmnMRN").Value
|
End If
|
||||||
VP.vp_Art = "T1" 'r.Cells("clmnMRN").Value
|
|
||||||
myAviso.VORPAPIERE.Add(VP)
|
UsrCntlAviso_Vorpapiere1.getVorpapiere(myAviso)
|
||||||
End If
|
|
||||||
Next
|
|
||||||
AvisoDAL.SpeichernAvisoVorpapiere(tmpId, myAviso.VORPAPIERE)
|
AvisoDAL.SpeichernAvisoVorpapiere(tmpId, myAviso.VORPAPIERE)
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
10
Aviso/frmHauptfenster.Designer.vb
generated
10
Aviso/frmHauptfenster.Designer.vb
generated
@@ -289,6 +289,7 @@ Partial Class frmHauptfenster
|
|||||||
Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
|
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
|
||||||
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
|
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
|
||||||
|
Me.MRNBarcodedruckToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.conMenuAviso.SuspendLayout()
|
Me.conMenuAviso.SuspendLayout()
|
||||||
Me.MenuStrip1.SuspendLayout()
|
Me.MenuStrip1.SuspendLayout()
|
||||||
Me.Top.SuspendLayout()
|
Me.Top.SuspendLayout()
|
||||||
@@ -669,7 +670,7 @@ Partial Class frmHauptfenster
|
|||||||
'
|
'
|
||||||
'FunktionenToolStripMenuItem
|
'FunktionenToolStripMenuItem
|
||||||
'
|
'
|
||||||
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem})
|
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem})
|
||||||
Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
|
Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
|
||||||
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20)
|
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20)
|
||||||
Me.FunktionenToolStripMenuItem.Text = "Funktionen"
|
Me.FunktionenToolStripMenuItem.Text = "Funktionen"
|
||||||
@@ -2863,6 +2864,12 @@ Partial Class frmHauptfenster
|
|||||||
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
|
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
|
||||||
Me.UsrCntlTestsystem1.TabIndex = 8
|
Me.UsrCntlTestsystem1.TabIndex = 8
|
||||||
'
|
'
|
||||||
|
'MRNBarcodedruckToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem"
|
||||||
|
Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||||
|
Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck"
|
||||||
|
'
|
||||||
'frmHauptfenster
|
'frmHauptfenster
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
@@ -3194,4 +3201,5 @@ Partial Class frmHauptfenster
|
|||||||
Friend WithEvents NKDToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents NKDToolStripMenuItem As ToolStripMenuItem
|
||||||
Friend WithEvents NEUToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents NEUToolStripMenuItem As ToolStripMenuItem
|
||||||
Friend WithEvents AMBToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents AMBToolStripMenuItem As ToolStripMenuItem
|
||||||
|
Friend WithEvents MRNBarcodedruckToolStripMenuItem As ToolStripMenuItem
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -2487,7 +2487,10 @@ Public Class frmHauptfenster
|
|||||||
|
|
||||||
End Function
|
End Function
|
||||||
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
|
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
|
||||||
|
Dim ep As New SDL.cEORIWebService
|
||||||
|
MsgBox(ep.ValidateEoriNumber("ATEOS1000000199").Result(0).Name)
|
||||||
|
|
||||||
|
Exit Sub
|
||||||
'Dim cRKSV_DE As New VERAG_PROG_ALLGEMEIN.cRKSV_DE
|
'Dim cRKSV_DE As New VERAG_PROG_ALLGEMEIN.cRKSV_DE
|
||||||
|
|
||||||
'cRKSV_DE.SignRKSV_DE()
|
'cRKSV_DE.SignRKSV_DE()
|
||||||
@@ -3543,6 +3546,14 @@ Public Class frmHauptfenster
|
|||||||
MsgBox("Keine Berechtigung!")
|
MsgBox("Keine Berechtigung!")
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub MRNBarcodedruckToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MRNBarcodedruckToolStripMenuItem.Click
|
||||||
|
|
||||||
|
Dim MRN = InputBox("Bitte geben Sie die MRN-Nummer ein:")
|
||||||
|
SDL.FormularManagerNEU.printMRN(MRN)
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
Public Class AvisoStatusFunctions
|
Public Class AvisoStatusFunctions
|
||||||
@@ -3566,7 +3577,41 @@ Public Class AvisoStatusFunctions
|
|||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub sendAnkunftBenachrichtigung(AvisoId)
|
||||||
|
'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
|
||||||
|
Dim alreadySent As New List(Of Integer)
|
||||||
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||||
|
For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId).Rows
|
||||||
|
SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
|
||||||
|
Next
|
||||||
|
For Each s In SENDUNG_LIST
|
||||||
|
'Keine Fremdspedition / Handling + nicht vorgeschrieben
|
||||||
|
If Not s.tblSnd_Fremdspedition And s.tblSnd_Abfertigungsart_ID <> "23" And s.tblSnd_Vorgeschrieben = Nothing Then
|
||||||
|
'Avisierer vorhanden
|
||||||
|
Dim TeamId = ""
|
||||||
|
'Zugeordnetes Team anhand von Avisierer...
|
||||||
|
If s.tblSnd_AvisiererKdNr IsNot Nothing AndAlso s.tblSnd_AvisiererKdNr > 0 Then
|
||||||
|
TeamId = SQL.getValueTxtBySql("SELECT TOP 1 kde_TeamId FROM [tblKundenErweitert] where kde_KundenNr ='" & s.tblSnd_AvisiererKdNr & "'", "FMZOLL")
|
||||||
|
End If
|
||||||
|
'...wenn nicht --> Team aus Sendung
|
||||||
|
'If TeamId = "" And If(s.tblSnd_TeamId, "") <> "" Then TeamId = s.tblSnd_TeamId 'derzeit nicht..
|
||||||
|
|
||||||
|
If TeamId <> "" Then
|
||||||
|
Dim sent = False
|
||||||
|
For Each i In alreadySent
|
||||||
|
If i = TeamId Then sent = True
|
||||||
|
Next
|
||||||
|
If Not sent Then
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamId, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
|
||||||
|
alreadySent.Add(TeamId)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
Public Function setAnkunft(AvisoID) As Boolean
|
Public Function setAnkunft(AvisoID) As Boolean
|
||||||
|
|
||||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
||||||
MsgBox("Keine Berechtigung!")
|
MsgBox("Keine Berechtigung!")
|
||||||
Return False
|
Return False
|
||||||
@@ -3594,6 +3639,13 @@ Public Class AvisoStatusFunctions
|
|||||||
MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation)
|
MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation)
|
||||||
Return False
|
Return False
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
'Wenn Aviserer einem Team zugeordnet, aber noch nicht "vorgeschrieben", dann bekommt das Team eine Nachricht!
|
||||||
|
' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
|
||||||
|
'Sendungsbasis
|
||||||
|
sendAnkunftBenachrichtigung(Aviso.AvisoID)
|
||||||
|
' End If
|
||||||
|
|
||||||
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
|
||||||
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
|
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
|
||||||
"Soll es jetzt trotzdem auf ANKUNFT (zurück)gesetzt werden?"
|
"Soll es jetzt trotzdem auf ANKUNFT (zurück)gesetzt werden?"
|
||||||
@@ -3604,7 +3656,7 @@ Public Class AvisoStatusFunctions
|
|||||||
|
|
||||||
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
||||||
msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf &
|
msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf &
|
||||||
"Soll der Status wieder auf ANKUNFT geändert werden?"
|
"Soll der Status wieder auf ANKUNFT geändert werden?"
|
||||||
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), "Status-Änderung")
|
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), "Status-Änderung")
|
||||||
If antwort = vbNo Then Return False
|
If antwort = vbNo Then Return False
|
||||||
'Status ist offen - jetzt auf Ankunft setzen
|
'Status ist offen - jetzt auf Ankunft setzen
|
||||||
@@ -4139,7 +4191,9 @@ Public Class AvisoStatusFunctions
|
|||||||
|
|
||||||
|
|
||||||
Public Function setErfasst(AvisoID) As Boolean
|
Public Function setErfasst(AvisoID) As Boolean
|
||||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
|
||||||
|
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
||||||
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", "AVISO") Then
|
||||||
MsgBox("Keine Berechtigung!")
|
MsgBox("Keine Berechtigung!")
|
||||||
Return False
|
Return False
|
||||||
End If
|
End If
|
||||||
@@ -4791,7 +4845,7 @@ Public Class AvisoStatusFunctions
|
|||||||
|
|
||||||
|
|
||||||
Aviso.LetzterMitarbeiterId = -1
|
Aviso.LetzterMitarbeiterId = -1
|
||||||
Aviso.letzterMitarbeiter = "-" ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
Aviso.letzterMitarbeiter = "Weiterleitung" ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||||
Aviso.TeamId = -1 'VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
Aviso.TeamId = -1 'VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
546
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
546
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -117,9 +117,6 @@
|
|||||||
<resheader name="writer">
|
<resheader name="writer">
|
||||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<metadata name="cntxtAnh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>496, 17</value>
|
|
||||||
</metadata>
|
|
||||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
<data name="btnEORIPruef.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="btnEORIPruef.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
@@ -1494,6 +1491,25 @@
|
|||||||
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
<value>296, 17</value>
|
<value>296, 17</value>
|
||||||
</metadata>
|
</metadata>
|
||||||
|
<data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
|
||||||
|
kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
|
||||||
|
zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
|
||||||
|
fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
|
||||||
|
N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
|
||||||
|
AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
|
||||||
|
/pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
|
||||||
|
7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
|
||||||
|
F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
|
||||||
|
pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
|
||||||
|
uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
|
||||||
|
9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
|
||||||
|
Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
|
||||||
|
hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
|
||||||
|
GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
<data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
|
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
|
||||||
@@ -1742,6 +1758,9 @@
|
|||||||
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
|
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
|
<metadata name="cntxtAnh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>496, 17</value>
|
||||||
|
</metadata>
|
||||||
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||||
|
|||||||
@@ -241,11 +241,7 @@ Public Class frmSendungsdetailsNEU
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
cboVorpapier.Items.Clear()
|
initVorpapiere()
|
||||||
AVISO.LOAD_Vorpapiere()
|
|
||||||
For Each VP In AVISO.VORPAPIERE
|
|
||||||
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
|
||||||
Next
|
|
||||||
|
|
||||||
If AVISO.Abgeschlossen Then
|
If AVISO.Abgeschlossen Then
|
||||||
Label8.Visible = True
|
Label8.Visible = True
|
||||||
@@ -579,7 +575,7 @@ Public Class frmSendungsdetailsNEU
|
|||||||
lbleori_Pruef.Text = "-"
|
lbleori_Pruef.Text = "-"
|
||||||
If kdSB IsNot Nothing Then
|
If kdSB IsNot Nothing Then
|
||||||
If kdSB.KdData_KUNDE IsNot Nothing AndAlso kdSB.KdData_KUNDE.EORITIN IsNot Nothing Then
|
If kdSB.KdData_KUNDE IsNot Nothing AndAlso kdSB.KdData_KUNDE.EORITIN IsNot Nothing Then
|
||||||
lbleori_Pruef.Text = kdSB.KdData_KUNDE.EORITIN & If(kdSB.KdData_KUNDE.EORITIN_NL, "")
|
lbleori_Pruef.Text = kdSB.KdData_KUNDE.EORITIN ' & If(kdSB.KdData_KUNDE.EORITIN_NL, "")
|
||||||
btnEORIPruef.Visible = True
|
btnEORIPruef.Visible = True
|
||||||
End If
|
End If
|
||||||
If kdSB.KdData_ADRESSEN IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdKz IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdNr IsNot Nothing Then
|
If kdSB.KdData_ADRESSEN IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdKz IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdNr IsNot Nothing Then
|
||||||
@@ -878,7 +874,7 @@ Public Class frmSendungsdetailsNEU
|
|||||||
newRow.tblSnd_Gewicht = ""
|
newRow.tblSnd_Gewicht = ""
|
||||||
newRow.tblSnd_Colli = ""
|
newRow.tblSnd_Colli = ""
|
||||||
newRow.tblSnd_SendungID = -1
|
newRow.tblSnd_SendungID = -1
|
||||||
|
newRow.ABRECHNUNG.Clear()
|
||||||
SENDUNG_LIST.Add(newRow)
|
SENDUNG_LIST.Add(newRow)
|
||||||
|
|
||||||
SAVE_ME()
|
SAVE_ME()
|
||||||
@@ -1136,9 +1132,7 @@ Public Class frmSendungsdetailsNEU
|
|||||||
txtFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer)
|
txtFrachtfuehrer.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer 'IIf(SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer Is Nothing, "", SENDUNG_LIST(CURRENT_INDEX).tblSnd_frachtfuehrer)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
setVorpapiere()
|
||||||
cboVorpapier.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier
|
|
||||||
txtVorpapierPos.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos
|
|
||||||
|
|
||||||
|
|
||||||
initFraechterAvisererFromAkt()
|
initFraechterAvisererFromAkt()
|
||||||
@@ -1273,6 +1267,33 @@ Public Class frmSendungsdetailsNEU
|
|||||||
' GEAENDERT = False
|
' GEAENDERT = False
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Sub initVorpapiere()
|
||||||
|
cboVorpapier.Items.Clear()
|
||||||
|
cboVorpapier2.Items.Clear()
|
||||||
|
cboVorpapier3.Items.Clear()
|
||||||
|
|
||||||
|
AVISO.LOAD_Vorpapiere()
|
||||||
|
|
||||||
|
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||||
|
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||||
|
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||||
|
For Each VP In AVISO.VORPAPIERE
|
||||||
|
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||||
|
cboVorpapier2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||||
|
cboVorpapier3.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub setVorpapiere()
|
||||||
|
|
||||||
|
cboVorpapier.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier
|
||||||
|
txtVorpapierPos.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos
|
||||||
|
cboVorpapier2.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier2
|
||||||
|
txtVorpapier2Pos.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier2_Pos
|
||||||
|
cboVorpapier3.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3
|
||||||
|
txtVorpapier3Pos.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3_Pos
|
||||||
|
End Sub
|
||||||
|
|
||||||
Sub initFraechterAvisererFromAkt()
|
Sub initFraechterAvisererFromAkt()
|
||||||
|
|
||||||
'Übergangsphase Aviso/Sendung
|
'Übergangsphase Aviso/Sendung
|
||||||
@@ -1554,8 +1575,12 @@ Public Class frmSendungsdetailsNEU
|
|||||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrFrachtfuehrer = txtKdAuftragsNrFrachtfuehrer.Text
|
SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrFrachtfuehrer = txtKdAuftragsNrFrachtfuehrer.Text
|
||||||
|
|
||||||
|
|
||||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier = cboVorpapier.Text
|
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier = cboVorpapier.Text.Trim
|
||||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos = txtVorpapierPos.Text
|
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos = txtVorpapierPos.Text.Trim
|
||||||
|
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier2 = cboVorpapier2.Text.Trim
|
||||||
|
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier2_Pos = txtVorpapier2Pos.Text.Trim
|
||||||
|
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3 = cboVorpapier3.Text.Trim
|
||||||
|
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3_Pos = txtVorpapier3Pos.Text.Trim
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
@@ -2813,7 +2838,7 @@ Public Class frmSendungsdetailsNEU
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Sub initAnhang()
|
Sub initAnhang()
|
||||||
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck FROM [tblAvisoAnhaenge]
|
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen FROM [tblAvisoAnhaenge]
|
||||||
WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
|
WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
|
||||||
ORDER BY anh_SendungsId desc,
|
ORDER BY anh_SendungsId desc,
|
||||||
case
|
case
|
||||||
@@ -2874,6 +2899,11 @@ Public Class frmSendungsdetailsNEU
|
|||||||
.Columns("anh_LaufzettelDruck").Width = 150
|
.Columns("anh_LaufzettelDruck").Width = 150
|
||||||
.Columns("anh_LaufzettelDruck").HeaderText = "Laufzettel-Druck"
|
.Columns("anh_LaufzettelDruck").HeaderText = "Laufzettel-Druck"
|
||||||
|
|
||||||
|
|
||||||
|
.Columns("anh_GestellungslisteAnfuegen").Width = 150
|
||||||
|
.Columns("anh_GestellungslisteAnfuegen").HeaderText = "GestListe anfügen"
|
||||||
|
|
||||||
|
.ClearSelection()
|
||||||
End With
|
End With
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
@@ -3977,37 +4007,132 @@ Public Class frmSendungsdetailsNEU
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles btnEORIPruef.Click
|
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles btnEORIPruef.Click
|
||||||
MsgBox("Noch nicht verfügbar!")
|
|
||||||
Exit sub
|
|
||||||
Me.Cursor = Cursors.WaitCursor
|
Me.Cursor = Cursors.WaitCursor
|
||||||
Try
|
Try
|
||||||
If lbleori_Pruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub
|
|
||||||
|
|
||||||
Dim url = "https://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & lbleori_Pruef.Text.Replace(" ", "") & "&Expand=true"
|
Dim EORI_NR = lbleori_Pruef.Text.Replace("-", "").Replace(" ", "").Trim
|
||||||
Dim path = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
|
|
||||||
|
If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
|
||||||
|
|
||||||
|
Dim EORI_ERG As Integer = -1
|
||||||
|
Dim path = SDL.cEORIWebService.genEORI_Formular(EORI_NR, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, EORI_ERG)
|
||||||
|
|
||||||
btnEORIPruef.BackgroundImage = My.Resources.fragezeichen
|
btnEORIPruef.BackgroundImage = My.Resources.fragezeichen
|
||||||
MsgBox("1:" & path)
|
Select Case EORI_ERG
|
||||||
|
Case 0 : btnEORIPruef.BackgroundImage = My.Resources.ok
|
||||||
If path <> "" AndAlso IO.File.Exists(path) Then 'ADD
|
'If path <> "" AndAlso IO.File.Exists(path) Then 'ADD
|
||||||
Dim fi As New IO.FileInfo(path)
|
' Dim fi As New IO.FileInfo(path)
|
||||||
Dim filename = fi.Name
|
' Dim filename = fi.Name
|
||||||
If filename = "" Then
|
' If filename = "" Then
|
||||||
MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path)
|
' MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path)
|
||||||
Else
|
' Else
|
||||||
MsgBox("2:" & path)
|
' If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "UID", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then
|
||||||
If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "EORI", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then
|
' initAnhang()
|
||||||
initAnhang()
|
' End If
|
||||||
End If
|
' End If
|
||||||
End If
|
'End If
|
||||||
End If
|
initAnhang()
|
||||||
|
Case 1 : btnEORIPruef.BackgroundImage = My.Resources.del
|
||||||
|
End Select
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
MsgBox(ex.Message & ex.StackTrace)
|
MsgBox(ex.Message & ex.StackTrace)
|
||||||
End Try
|
End Try
|
||||||
Me.Cursor = Cursors.Default
|
Me.Cursor = Cursors.Default
|
||||||
|
|
||||||
|
'MsgBox("Noch nicht verfügbar!")
|
||||||
|
'Exit sub
|
||||||
|
'Me.Cursor = Cursors.WaitCursor
|
||||||
|
'Try
|
||||||
|
' If lbleori_Pruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub
|
||||||
|
|
||||||
|
' Dim url = "https://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & lbleori_Pruef.Text.Replace(" ", "") & "&Expand=true"
|
||||||
|
' Dim path = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
|
||||||
|
|
||||||
|
' btnEORIPruef.BackgroundImage = My.Resources.fragezeichen
|
||||||
|
' MsgBox("1:" & path)
|
||||||
|
|
||||||
|
' If path <> "" AndAlso IO.File.Exists(path) Then 'ADD
|
||||||
|
' Dim fi As New IO.FileInfo(path)
|
||||||
|
' Dim filename = fi.Name
|
||||||
|
' If filename = "" Then
|
||||||
|
' MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path)
|
||||||
|
' Else
|
||||||
|
' MsgBox("2:" & path)
|
||||||
|
' If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "EORI", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then
|
||||||
|
' initAnhang()
|
||||||
|
' End If
|
||||||
|
' End If
|
||||||
|
' End If
|
||||||
|
|
||||||
|
|
||||||
|
'Catch ex As Exception
|
||||||
|
' MsgBox(ex.Message & ex.StackTrace)
|
||||||
|
'End Try
|
||||||
|
'Me.Cursor = Cursors.Default
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Button24_Click_1(sender As Object, e As EventArgs) Handles Button24.Click
|
||||||
|
Dim f As New frmAviso_Vorpapiere(AVISO)
|
||||||
|
f.ShowDialog(Me)
|
||||||
|
initVorpapiere()
|
||||||
|
setVorpapiere()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub GestellungslisteAnfügenJANEINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GestellungslisteAnfügenJANEINToolStripMenuItem.Click
|
||||||
|
If dgvAnhang.SelectedRows.Count >= 1 Then
|
||||||
|
Dim errShown = False
|
||||||
|
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
|
||||||
|
' If r.Cells("anh_typ").Value = "PDF" Then
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.toggleGestellungslisteAnfuegen(r.Cells("anh_Id").Value)
|
||||||
|
'ElseIf Not errShown Then
|
||||||
|
' MsgBox("Nur bei PDF möglich!")
|
||||||
|
' errShown = True
|
||||||
|
'End If
|
||||||
|
Next
|
||||||
|
initAnhang()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Private Sub dgvAnhang_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvAnhang.CellMouseClick
|
||||||
|
' If e.Button = MouseButtons.Right Then
|
||||||
|
' MsgBox("HM1")
|
||||||
|
' dgvAnhang.ClearSelection()
|
||||||
|
' dgvAnhang.Rows(e.RowIndex).Selected = True
|
||||||
|
' End If
|
||||||
|
'End Sub
|
||||||
|
|
||||||
|
'Private Sub dgvAnhang_MouseClick(sender As Object, e As MouseEventArgs) Handles dgvAnhang.MouseClick
|
||||||
|
' If e.Button = MouseButtons.Right Then
|
||||||
|
' MsgBox("HM2")
|
||||||
|
' dgvAnhang.ClearSelection()
|
||||||
|
' ' dgvAnhang.Rows(e.RowIndex).Selected = True
|
||||||
|
' End If
|
||||||
|
'End Sub
|
||||||
|
|
||||||
|
Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvAnhang.CellMouseClick
|
||||||
|
If e.Button = MouseButtons.Right Then
|
||||||
|
If Not dgvAnhang.Rows(e.RowIndex).Selected Then
|
||||||
|
If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
||||||
|
dgvAnhang.ClearSelection()
|
||||||
|
dgvAnhang.Rows(e.RowIndex).Selected = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
cntxtAnh.Show(Cursor.Position)
|
||||||
|
End If
|
||||||
|
'If e.Button = MouseButtons.Right Then
|
||||||
|
' If AVISO.Abgeschlossen Then Exit Sub
|
||||||
|
|
||||||
|
' If sender Is gridVermerke Then
|
||||||
|
' If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
|
||||||
|
' ' AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells("AvisoId").Value)
|
||||||
|
' gridVermerke.CurrentCell = gridVermerke.Rows(e.RowIndex).Cells(e.ColumnIndex)
|
||||||
|
' conMenuVermerke.Show(Cursor.Position)
|
||||||
|
|
||||||
|
' ToolUeberweisungsBeleg.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13")
|
||||||
|
' toolVkReminder.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13")
|
||||||
|
|
||||||
|
' End If
|
||||||
|
|
||||||
|
'End If
|
||||||
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
94
Aviso/usrCntlAviso_Vorpapiere.Designer.vb
generated
Normal file
94
Aviso/usrCntlAviso_Vorpapiere.Designer.vb
generated
Normal file
@@ -0,0 +1,94 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class usrCntlAviso_Vorpapiere
|
||||||
|
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()
|
||||||
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.dgvVorpapier = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||||
|
Me.clmnArt = New System.Windows.Forms.DataGridViewComboBoxColumn()
|
||||||
|
Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
|
Me.GroupBox1.SuspendLayout()
|
||||||
|
CType(Me.dgvVorpapier, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'GroupBox1
|
||||||
|
'
|
||||||
|
Me.GroupBox1.Controls.Add(Me.dgvVorpapier)
|
||||||
|
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GroupBox1.Name = "GroupBox1"
|
||||||
|
Me.GroupBox1.Size = New System.Drawing.Size(403, 150)
|
||||||
|
Me.GroupBox1.TabIndex = 57
|
||||||
|
Me.GroupBox1.TabStop = False
|
||||||
|
Me.GroupBox1.Text = "Vorpapiere"
|
||||||
|
'
|
||||||
|
'dgvVorpapier
|
||||||
|
'
|
||||||
|
Me.dgvVorpapier.AKTUALISIERUNGS_INTERVALL = -1
|
||||||
|
Me.dgvVorpapier.AllowUserToResizeColumns = False
|
||||||
|
Me.dgvVorpapier.AllowUserToResizeRows = False
|
||||||
|
Me.dgvVorpapier.BackgroundColor = System.Drawing.Color.White
|
||||||
|
Me.dgvVorpapier.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
|
Me.dgvVorpapier.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.clmnMRN})
|
||||||
|
Me.dgvVorpapier.Location = New System.Drawing.Point(9, 19)
|
||||||
|
Me.dgvVorpapier.Name = "dgvVorpapier"
|
||||||
|
Me.dgvVorpapier.RowHeadersWidth = 25
|
||||||
|
Me.dgvVorpapier.Size = New System.Drawing.Size(388, 126)
|
||||||
|
Me.dgvVorpapier.TabIndex = 36
|
||||||
|
'
|
||||||
|
'clmnArt
|
||||||
|
'
|
||||||
|
Me.clmnArt.DisplayStyle = System.Windows.Forms.DataGridViewComboBoxDisplayStyle.ComboBox
|
||||||
|
Me.clmnArt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.clmnArt.HeaderText = "Art"
|
||||||
|
Me.clmnArt.Items.AddRange(New Object() {"ATA", "MRN", "CRN"})
|
||||||
|
Me.clmnArt.Name = "clmnArt"
|
||||||
|
Me.clmnArt.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
|
Me.clmnArt.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
|
||||||
|
Me.clmnArt.Visible = False
|
||||||
|
Me.clmnArt.Width = 60
|
||||||
|
'
|
||||||
|
'clmnMRN
|
||||||
|
'
|
||||||
|
Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||||
|
Me.clmnMRN.HeaderText = "T1 MRN"
|
||||||
|
Me.clmnMRN.Name = "clmnMRN"
|
||||||
|
'
|
||||||
|
'usrCntlAviso_Vorpapiere
|
||||||
|
'
|
||||||
|
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.GroupBox1)
|
||||||
|
Me.Name = "usrCntlAviso_Vorpapiere"
|
||||||
|
Me.Size = New System.Drawing.Size(410, 157)
|
||||||
|
Me.GroupBox1.ResumeLayout(False)
|
||||||
|
CType(Me.dgvVorpapier, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents GroupBox1 As GroupBox
|
||||||
|
Friend WithEvents dgvVorpapier As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||||
|
Friend WithEvents clmnArt As DataGridViewComboBoxColumn
|
||||||
|
Friend WithEvents clmnMRN As DataGridViewTextBoxColumn
|
||||||
|
End Class
|
||||||
126
Aviso/usrCntlAviso_Vorpapiere.resx
Normal file
126
Aviso/usrCntlAviso_Vorpapiere.resx
Normal file
@@ -0,0 +1,126 @@
|
|||||||
|
<?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="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
|
<value>True</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
|
<value>True</value>
|
||||||
|
</metadata>
|
||||||
|
</root>
|
||||||
40
Aviso/usrCntlAviso_Vorpapiere.vb
Normal file
40
Aviso/usrCntlAviso_Vorpapiere.vb
Normal file
@@ -0,0 +1,40 @@
|
|||||||
|
Public Class usrCntlAviso_Vorpapiere
|
||||||
|
|
||||||
|
|
||||||
|
Sub setVorpapiere(ByRef myAviso As VERAG_PROG_ALLGEMEIN.cAviso)
|
||||||
|
'Vorpapier laden
|
||||||
|
dgvVorpapier.Rows.Clear()
|
||||||
|
myAviso.LOAD_Vorpapiere()
|
||||||
|
For Each VP In myAviso.VORPAPIERE
|
||||||
|
dgvVorpapier.Rows.Add({VP.vp_Art, VP.vp_Nr})
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Function checkDouble()
|
||||||
|
For Each r As DataGridViewRow In dgvVorpapier.Rows
|
||||||
|
|
||||||
|
For Each r2 As DataGridViewRow In dgvVorpapier.Rows
|
||||||
|
If r.Index <> r2.Index Then
|
||||||
|
If r.Cells("clmnMRN").Value = r2.Cells("clmnMRN").Value Then
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
Return False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Sub getVorpapiere(ByRef myAviso As VERAG_PROG_ALLGEMEIN.cAviso)
|
||||||
|
'VORPAPIERE
|
||||||
|
myAviso.VORPAPIERE.Clear()
|
||||||
|
For Each r As DataGridViewRow In dgvVorpapier.Rows
|
||||||
|
If r.Cells("clmnMRN").Value IsNot Nothing AndAlso r.Cells("clmnMRN").Value <> "" Then
|
||||||
|
Dim VP As New VERAG_PROG_ALLGEMEIN.cAvisoVorpapier
|
||||||
|
VP.vp_AvisoId = myAviso.AvisoID
|
||||||
|
VP.vp_Nr = r.Cells("clmnMRN").Value
|
||||||
|
VP.vp_Art = "T1" 'r.Cells("clmnMRN").Value
|
||||||
|
myAviso.VORPAPIERE.Add(VP)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
306
Aviso/usrcntlAktDetails.Designer.vb
generated
306
Aviso/usrcntlAktDetails.Designer.vb
generated
@@ -45,17 +45,13 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
|
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
|
||||||
Me.Label11 = New System.Windows.Forms.Label()
|
Me.Label11 = New System.Windows.Forms.Label()
|
||||||
Me.lnlSendungText = New System.Windows.Forms.Label()
|
Me.lnlSendungText = New System.Windows.Forms.Label()
|
||||||
Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
|
||||||
Me.pnlSBG = New System.Windows.Forms.Panel()
|
Me.pnlSBG = New System.Windows.Forms.Panel()
|
||||||
Me.lblSndFremd = New System.Windows.Forms.Label()
|
Me.lblSndFremd = New System.Windows.Forms.Label()
|
||||||
Me.Label21 = New System.Windows.Forms.Label()
|
Me.Label21 = New System.Windows.Forms.Label()
|
||||||
Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
|
||||||
Me.Label20 = New System.Windows.Forms.Label()
|
Me.Label20 = New System.Windows.Forms.Label()
|
||||||
Me.Label19 = New System.Windows.Forms.Label()
|
Me.Label19 = New System.Windows.Forms.Label()
|
||||||
Me.lblFiskde = New System.Windows.Forms.Label()
|
Me.lblFiskde = New System.Windows.Forms.Label()
|
||||||
Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
|
||||||
Me.lblFiskAT = New System.Windows.Forms.Label()
|
Me.lblFiskAT = New System.Windows.Forms.Label()
|
||||||
Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
|
||||||
Me.cbxSammelakt = New System.Windows.Forms.CheckBox()
|
Me.cbxSammelakt = New System.Windows.Forms.CheckBox()
|
||||||
Me.Button5 = New System.Windows.Forms.Button()
|
Me.Button5 = New System.Windows.Forms.Button()
|
||||||
Me.Button3 = New System.Windows.Forms.Button()
|
Me.Button3 = New System.Windows.Forms.Button()
|
||||||
@@ -70,14 +66,11 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.Button12 = New System.Windows.Forms.Button()
|
Me.Button12 = New System.Windows.Forms.Button()
|
||||||
Me.Button11 = New System.Windows.Forms.Button()
|
Me.Button11 = New System.Windows.Forms.Button()
|
||||||
Me.btnKasse_User = New System.Windows.Forms.Button()
|
Me.btnKasse_User = New System.Windows.Forms.Button()
|
||||||
Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
|
||||||
Me.Label4 = New System.Windows.Forms.Label()
|
Me.Label4 = New System.Windows.Forms.Label()
|
||||||
Me.Button8 = New System.Windows.Forms.Button()
|
Me.Button8 = New System.Windows.Forms.Button()
|
||||||
Me.Button10 = New System.Windows.Forms.Button()
|
Me.Button10 = New System.Windows.Forms.Button()
|
||||||
Me.Button9 = New System.Windows.Forms.Button()
|
Me.Button9 = New System.Windows.Forms.Button()
|
||||||
Me.btnKasse_LG = New System.Windows.Forms.Button()
|
Me.btnKasse_LG = New System.Windows.Forms.Button()
|
||||||
Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
|
|
||||||
Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
|
|
||||||
Me.Button18 = New System.Windows.Forms.Button()
|
Me.Button18 = New System.Windows.Forms.Button()
|
||||||
Me.gridVermerke = New System.Windows.Forms.DataGridView()
|
Me.gridVermerke = New System.Windows.Forms.DataGridView()
|
||||||
Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
|
Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
|
||||||
@@ -158,6 +151,14 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.btnLöschen = New System.Windows.Forms.Button()
|
Me.btnLöschen = New System.Windows.Forms.Button()
|
||||||
Me.btnÄndern = New System.Windows.Forms.Button()
|
Me.btnÄndern = New System.Windows.Forms.Button()
|
||||||
Me.btnTV = New System.Windows.Forms.Button()
|
Me.btnTV = New System.Windows.Forms.Button()
|
||||||
|
Me.cbxVPSplit = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
|
Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
|
Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
|
Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
|
Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
|
Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
|
||||||
|
Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
|
||||||
Me.pnlDetailsRechts.SuspendLayout()
|
Me.pnlDetailsRechts.SuspendLayout()
|
||||||
Me.Panel3.SuspendLayout()
|
Me.Panel3.SuspendLayout()
|
||||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
@@ -348,30 +349,6 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.lnlSendungText.TabIndex = 2
|
Me.lnlSendungText.TabIndex = 2
|
||||||
Me.lnlSendungText.Text = "Sendung"
|
Me.lnlSendungText.Text = "Sendung"
|
||||||
'
|
'
|
||||||
'txtSendungen
|
|
||||||
'
|
|
||||||
Me.txtSendungen._DateTimeOnly = False
|
|
||||||
Me.txtSendungen._numbersOnly = True
|
|
||||||
Me.txtSendungen._numbersOnlyKommastellen = ""
|
|
||||||
Me.txtSendungen._Prozent = False
|
|
||||||
Me.txtSendungen._ShortDateNew = False
|
|
||||||
Me.txtSendungen._ShortDateOnly = False
|
|
||||||
Me.txtSendungen._TimeOnly = False
|
|
||||||
Me.txtSendungen._value = ""
|
|
||||||
Me.txtSendungen._Waehrung = False
|
|
||||||
Me.txtSendungen._WaehrungZeichen = True
|
|
||||||
Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.txtSendungen.ForeColor = System.Drawing.Color.Black
|
|
||||||
Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
|
|
||||||
Me.txtSendungen.MaxLineLength = -1
|
|
||||||
Me.txtSendungen.MaxLines_Warning = ""
|
|
||||||
Me.txtSendungen.MaxLines_Warning_Label = Nothing
|
|
||||||
Me.txtSendungen.Name = "txtSendungen"
|
|
||||||
Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
|
|
||||||
Me.txtSendungen.TabIndex = 1
|
|
||||||
Me.txtSendungen.Text = "1"
|
|
||||||
Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
|
||||||
'
|
|
||||||
'pnlSBG
|
'pnlSBG
|
||||||
'
|
'
|
||||||
Me.pnlSBG.Controls.Add(Me.lblSndFremd)
|
Me.pnlSBG.Controls.Add(Me.lblSndFremd)
|
||||||
@@ -408,31 +385,6 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.Label21.Text = "1"
|
Me.Label21.Text = "1"
|
||||||
Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight
|
Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
'
|
'
|
||||||
'txtSndFremd
|
|
||||||
'
|
|
||||||
Me.txtSndFremd._DateTimeOnly = False
|
|
||||||
Me.txtSndFremd._numbersOnly = True
|
|
||||||
Me.txtSndFremd._numbersOnlyKommastellen = ""
|
|
||||||
Me.txtSndFremd._Prozent = False
|
|
||||||
Me.txtSndFremd._ShortDateNew = False
|
|
||||||
Me.txtSndFremd._ShortDateOnly = False
|
|
||||||
Me.txtSndFremd._TimeOnly = False
|
|
||||||
Me.txtSndFremd._value = ""
|
|
||||||
Me.txtSndFremd._Waehrung = False
|
|
||||||
Me.txtSndFremd._WaehrungZeichen = True
|
|
||||||
Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
|
|
||||||
Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
|
|
||||||
Me.txtSndFremd.MaxLineLength = -1
|
|
||||||
Me.txtSndFremd.MaxLines_Warning = ""
|
|
||||||
Me.txtSndFremd.MaxLines_Warning_Label = Nothing
|
|
||||||
Me.txtSndFremd.Name = "txtSndFremd"
|
|
||||||
Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
|
|
||||||
Me.txtSndFremd.TabIndex = 83
|
|
||||||
Me.txtSndFremd.Text = "0"
|
|
||||||
Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
|
||||||
Me.txtSndFremd.Visible = False
|
|
||||||
'
|
|
||||||
'Label20
|
'Label20
|
||||||
'
|
'
|
||||||
Me.Label20.AutoSize = True
|
Me.Label20.AutoSize = True
|
||||||
@@ -460,30 +412,6 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.lblFiskde.TabIndex = 6
|
Me.lblFiskde.TabIndex = 6
|
||||||
Me.lblFiskde.Text = "Fiskal DE"
|
Me.lblFiskde.Text = "Fiskal DE"
|
||||||
'
|
'
|
||||||
'txtSndFiskalDE
|
|
||||||
'
|
|
||||||
Me.txtSndFiskalDE._DateTimeOnly = False
|
|
||||||
Me.txtSndFiskalDE._numbersOnly = True
|
|
||||||
Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
|
|
||||||
Me.txtSndFiskalDE._Prozent = False
|
|
||||||
Me.txtSndFiskalDE._ShortDateNew = False
|
|
||||||
Me.txtSndFiskalDE._ShortDateOnly = False
|
|
||||||
Me.txtSndFiskalDE._TimeOnly = False
|
|
||||||
Me.txtSndFiskalDE._value = ""
|
|
||||||
Me.txtSndFiskalDE._Waehrung = False
|
|
||||||
Me.txtSndFiskalDE._WaehrungZeichen = True
|
|
||||||
Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
|
|
||||||
Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
|
|
||||||
Me.txtSndFiskalDE.MaxLineLength = -1
|
|
||||||
Me.txtSndFiskalDE.MaxLines_Warning = ""
|
|
||||||
Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
|
|
||||||
Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
|
|
||||||
Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
|
|
||||||
Me.txtSndFiskalDE.TabIndex = 5
|
|
||||||
Me.txtSndFiskalDE.Text = "0"
|
|
||||||
Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
|
||||||
'
|
|
||||||
'lblFiskAT
|
'lblFiskAT
|
||||||
'
|
'
|
||||||
Me.lblFiskAT.AutoSize = True
|
Me.lblFiskAT.AutoSize = True
|
||||||
@@ -493,30 +421,6 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.lblFiskAT.TabIndex = 4
|
Me.lblFiskAT.TabIndex = 4
|
||||||
Me.lblFiskAT.Text = "Fiskal AT"
|
Me.lblFiskAT.Text = "Fiskal AT"
|
||||||
'
|
'
|
||||||
'txtSndFiskalAT
|
|
||||||
'
|
|
||||||
Me.txtSndFiskalAT._DateTimeOnly = False
|
|
||||||
Me.txtSndFiskalAT._numbersOnly = True
|
|
||||||
Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
|
|
||||||
Me.txtSndFiskalAT._Prozent = False
|
|
||||||
Me.txtSndFiskalAT._ShortDateNew = False
|
|
||||||
Me.txtSndFiskalAT._ShortDateOnly = False
|
|
||||||
Me.txtSndFiskalAT._TimeOnly = False
|
|
||||||
Me.txtSndFiskalAT._value = ""
|
|
||||||
Me.txtSndFiskalAT._Waehrung = False
|
|
||||||
Me.txtSndFiskalAT._WaehrungZeichen = True
|
|
||||||
Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
|
|
||||||
Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
|
|
||||||
Me.txtSndFiskalAT.MaxLineLength = -1
|
|
||||||
Me.txtSndFiskalAT.MaxLines_Warning = ""
|
|
||||||
Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
|
|
||||||
Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
|
|
||||||
Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
|
|
||||||
Me.txtSndFiskalAT.TabIndex = 3
|
|
||||||
Me.txtSndFiskalAT.Text = "0"
|
|
||||||
Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
|
||||||
'
|
|
||||||
'cbxSammelakt
|
'cbxSammelakt
|
||||||
'
|
'
|
||||||
Me.cbxSammelakt.AutoSize = True
|
Me.cbxSammelakt.AutoSize = True
|
||||||
@@ -653,6 +557,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.Panel4.BackColor = System.Drawing.Color.PapayaWhip
|
Me.Panel4.BackColor = System.Drawing.Color.PapayaWhip
|
||||||
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
|
Me.Panel4.Controls.Add(Me.cbxVPSplit)
|
||||||
Me.Panel4.Controls.Add(Me.Button15)
|
Me.Panel4.Controls.Add(Me.Button15)
|
||||||
Me.Panel4.Controls.Add(Me.btnSendungslisteUNISPED)
|
Me.Panel4.Controls.Add(Me.btnSendungslisteUNISPED)
|
||||||
Me.Panel4.Controls.Add(Me.cbxAlleFirmen)
|
Me.Panel4.Controls.Add(Me.cbxAlleFirmen)
|
||||||
@@ -713,7 +618,7 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.cbxAlleFirmen.Checked = True
|
Me.cbxAlleFirmen.Checked = True
|
||||||
Me.cbxAlleFirmen.CheckState = System.Windows.Forms.CheckState.Checked
|
Me.cbxAlleFirmen.CheckState = System.Windows.Forms.CheckState.Checked
|
||||||
Me.cbxAlleFirmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.cbxAlleFirmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.cbxAlleFirmen.Location = New System.Drawing.Point(184, 5)
|
Me.cbxAlleFirmen.Location = New System.Drawing.Point(134, 5)
|
||||||
Me.cbxAlleFirmen.Name = "cbxAlleFirmen"
|
Me.cbxAlleFirmen.Name = "cbxAlleFirmen"
|
||||||
Me.cbxAlleFirmen.Size = New System.Drawing.Size(76, 17)
|
Me.cbxAlleFirmen.Size = New System.Drawing.Size(76, 17)
|
||||||
Me.cbxAlleFirmen.TabIndex = 111
|
Me.cbxAlleFirmen.TabIndex = 111
|
||||||
@@ -768,17 +673,6 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.btnKasse_User.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.btnKasse_User.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.btnKasse_User.UseVisualStyleBackColor = False
|
Me.btnKasse_User.UseVisualStyleBackColor = False
|
||||||
'
|
'
|
||||||
'cboFormulareRgAn
|
|
||||||
'
|
|
||||||
Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
|
|
||||||
Me.cboFormulareRgAn._allowFreiText = False
|
|
||||||
Me.cboFormulareRgAn._value = ""
|
|
||||||
Me.cboFormulareRgAn.FormattingEnabled = True
|
|
||||||
Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
|
|
||||||
Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
|
|
||||||
Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
|
|
||||||
Me.cboFormulareRgAn.TabIndex = 108
|
|
||||||
'
|
|
||||||
'Label4
|
'Label4
|
||||||
'
|
'
|
||||||
Me.Label4.AutoSize = True
|
Me.Label4.AutoSize = True
|
||||||
@@ -853,35 +747,6 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.btnKasse_LG.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)"
|
Me.btnKasse_LG.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)"
|
||||||
Me.btnKasse_LG.UseVisualStyleBackColor = False
|
Me.btnKasse_LG.UseVisualStyleBackColor = False
|
||||||
'
|
'
|
||||||
'cbxLZRg
|
|
||||||
'
|
|
||||||
Me.cbxLZRg._value = ""
|
|
||||||
Me.cbxLZRg.AutoSize = True
|
|
||||||
Me.cbxLZRg.Checked = True
|
|
||||||
Me.cbxLZRg.Checked_value = False
|
|
||||||
Me.cbxLZRg.CheckedValue = False
|
|
||||||
Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
|
|
||||||
Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
|
|
||||||
Me.cbxLZRg.Name = "cbxLZRg"
|
|
||||||
Me.cbxLZRg.Size = New System.Drawing.Size(88, 17)
|
|
||||||
Me.cbxLZRg.TabIndex = 115
|
|
||||||
Me.cbxLZRg.Text = "Rechnungen"
|
|
||||||
Me.cbxLZRg.UseVisualStyleBackColor = True
|
|
||||||
'
|
|
||||||
'cbxLZT1
|
|
||||||
'
|
|
||||||
Me.cbxLZT1._value = ""
|
|
||||||
Me.cbxLZT1.AutoSize = True
|
|
||||||
Me.cbxLZT1.Checked_value = False
|
|
||||||
Me.cbxLZT1.CheckedValue = False
|
|
||||||
Me.cbxLZT1.Location = New System.Drawing.Point(223, 93)
|
|
||||||
Me.cbxLZT1.Name = "cbxLZT1"
|
|
||||||
Me.cbxLZT1.Size = New System.Drawing.Size(39, 17)
|
|
||||||
Me.cbxLZT1.TabIndex = 114
|
|
||||||
Me.cbxLZT1.Text = "T1"
|
|
||||||
Me.cbxLZT1.UseVisualStyleBackColor = True
|
|
||||||
Me.cbxLZT1.Visible = False
|
|
||||||
'
|
|
||||||
'Button18
|
'Button18
|
||||||
'
|
'
|
||||||
Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
@@ -1847,7 +1712,7 @@ Partial Class usrcntlAktDetails
|
|||||||
'
|
'
|
||||||
'MitarbeiterAnzeigenToolStripMenuItem
|
'MitarbeiterAnzeigenToolStripMenuItem
|
||||||
'
|
'
|
||||||
Me.MitarbeiterAnzeigenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
|
Me.MitarbeiterAnzeigenToolStripMenuItem.Image = CType(resources.GetObject("MitarbeiterAnzeigenToolStripMenuItem.Image"), System.Drawing.Image)
|
||||||
Me.MitarbeiterAnzeigenToolStripMenuItem.Name = "MitarbeiterAnzeigenToolStripMenuItem"
|
Me.MitarbeiterAnzeigenToolStripMenuItem.Name = "MitarbeiterAnzeigenToolStripMenuItem"
|
||||||
Me.MitarbeiterAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(251, 30)
|
Me.MitarbeiterAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(251, 30)
|
||||||
Me.MitarbeiterAnzeigenToolStripMenuItem.Text = "Mitarbeiter anzeigen"
|
Me.MitarbeiterAnzeigenToolStripMenuItem.Text = "Mitarbeiter anzeigen"
|
||||||
@@ -1965,6 +1830,154 @@ Partial Class usrcntlAktDetails
|
|||||||
Me.btnTV.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
Me.btnTV.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
Me.btnTV.UseVisualStyleBackColor = False
|
Me.btnTV.UseVisualStyleBackColor = False
|
||||||
'
|
'
|
||||||
|
'cbxVPSplit
|
||||||
|
'
|
||||||
|
Me.cbxVPSplit.AutoSize = True
|
||||||
|
Me.cbxVPSplit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.cbxVPSplit.Location = New System.Drawing.Point(207, 5)
|
||||||
|
Me.cbxVPSplit.Name = "cbxVPSplit"
|
||||||
|
Me.cbxVPSplit.Size = New System.Drawing.Size(51, 17)
|
||||||
|
Me.cbxVPSplit.TabIndex = 116
|
||||||
|
Me.cbxVPSplit.Text = "je VP"
|
||||||
|
Me.cbxVPSplit.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'txtSendungen
|
||||||
|
'
|
||||||
|
Me.txtSendungen._DateTimeOnly = False
|
||||||
|
Me.txtSendungen._numbersOnly = True
|
||||||
|
Me.txtSendungen._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtSendungen._Prozent = False
|
||||||
|
Me.txtSendungen._ShortDateNew = False
|
||||||
|
Me.txtSendungen._ShortDateOnly = False
|
||||||
|
Me.txtSendungen._TimeOnly = False
|
||||||
|
Me.txtSendungen._value = ""
|
||||||
|
Me.txtSendungen._Waehrung = False
|
||||||
|
Me.txtSendungen._WaehrungZeichen = True
|
||||||
|
Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.txtSendungen.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
|
||||||
|
Me.txtSendungen.MaxLineLength = -1
|
||||||
|
Me.txtSendungen.MaxLines_Warning = ""
|
||||||
|
Me.txtSendungen.MaxLines_Warning_Label = Nothing
|
||||||
|
Me.txtSendungen.Name = "txtSendungen"
|
||||||
|
Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
|
||||||
|
Me.txtSendungen.TabIndex = 1
|
||||||
|
Me.txtSendungen.Text = "1"
|
||||||
|
Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||||
|
'
|
||||||
|
'txtSndFremd
|
||||||
|
'
|
||||||
|
Me.txtSndFremd._DateTimeOnly = False
|
||||||
|
Me.txtSndFremd._numbersOnly = True
|
||||||
|
Me.txtSndFremd._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtSndFremd._Prozent = False
|
||||||
|
Me.txtSndFremd._ShortDateNew = False
|
||||||
|
Me.txtSndFremd._ShortDateOnly = False
|
||||||
|
Me.txtSndFremd._TimeOnly = False
|
||||||
|
Me.txtSndFremd._value = ""
|
||||||
|
Me.txtSndFremd._Waehrung = False
|
||||||
|
Me.txtSndFremd._WaehrungZeichen = True
|
||||||
|
Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
|
||||||
|
Me.txtSndFremd.MaxLineLength = -1
|
||||||
|
Me.txtSndFremd.MaxLines_Warning = ""
|
||||||
|
Me.txtSndFremd.MaxLines_Warning_Label = Nothing
|
||||||
|
Me.txtSndFremd.Name = "txtSndFremd"
|
||||||
|
Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
|
||||||
|
Me.txtSndFremd.TabIndex = 83
|
||||||
|
Me.txtSndFremd.Text = "0"
|
||||||
|
Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||||
|
Me.txtSndFremd.Visible = False
|
||||||
|
'
|
||||||
|
'txtSndFiskalDE
|
||||||
|
'
|
||||||
|
Me.txtSndFiskalDE._DateTimeOnly = False
|
||||||
|
Me.txtSndFiskalDE._numbersOnly = True
|
||||||
|
Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtSndFiskalDE._Prozent = False
|
||||||
|
Me.txtSndFiskalDE._ShortDateNew = False
|
||||||
|
Me.txtSndFiskalDE._ShortDateOnly = False
|
||||||
|
Me.txtSndFiskalDE._TimeOnly = False
|
||||||
|
Me.txtSndFiskalDE._value = ""
|
||||||
|
Me.txtSndFiskalDE._Waehrung = False
|
||||||
|
Me.txtSndFiskalDE._WaehrungZeichen = True
|
||||||
|
Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
|
||||||
|
Me.txtSndFiskalDE.MaxLineLength = -1
|
||||||
|
Me.txtSndFiskalDE.MaxLines_Warning = ""
|
||||||
|
Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
|
||||||
|
Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
|
||||||
|
Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
|
||||||
|
Me.txtSndFiskalDE.TabIndex = 5
|
||||||
|
Me.txtSndFiskalDE.Text = "0"
|
||||||
|
Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||||
|
'
|
||||||
|
'txtSndFiskalAT
|
||||||
|
'
|
||||||
|
Me.txtSndFiskalAT._DateTimeOnly = False
|
||||||
|
Me.txtSndFiskalAT._numbersOnly = True
|
||||||
|
Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtSndFiskalAT._Prozent = False
|
||||||
|
Me.txtSndFiskalAT._ShortDateNew = False
|
||||||
|
Me.txtSndFiskalAT._ShortDateOnly = False
|
||||||
|
Me.txtSndFiskalAT._TimeOnly = False
|
||||||
|
Me.txtSndFiskalAT._value = ""
|
||||||
|
Me.txtSndFiskalAT._Waehrung = False
|
||||||
|
Me.txtSndFiskalAT._WaehrungZeichen = True
|
||||||
|
Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
|
||||||
|
Me.txtSndFiskalAT.MaxLineLength = -1
|
||||||
|
Me.txtSndFiskalAT.MaxLines_Warning = ""
|
||||||
|
Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
|
||||||
|
Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
|
||||||
|
Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
|
||||||
|
Me.txtSndFiskalAT.TabIndex = 3
|
||||||
|
Me.txtSndFiskalAT.Text = "0"
|
||||||
|
Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||||
|
'
|
||||||
|
'cboFormulareRgAn
|
||||||
|
'
|
||||||
|
Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
|
||||||
|
Me.cboFormulareRgAn._allowFreiText = False
|
||||||
|
Me.cboFormulareRgAn._value = ""
|
||||||
|
Me.cboFormulareRgAn.FormattingEnabled = True
|
||||||
|
Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
|
||||||
|
Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
|
||||||
|
Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
|
||||||
|
Me.cboFormulareRgAn.TabIndex = 108
|
||||||
|
'
|
||||||
|
'cbxLZRg
|
||||||
|
'
|
||||||
|
Me.cbxLZRg._value = ""
|
||||||
|
Me.cbxLZRg.AutoSize = True
|
||||||
|
Me.cbxLZRg.Checked = True
|
||||||
|
Me.cbxLZRg.Checked_value = False
|
||||||
|
Me.cbxLZRg.CheckedValue = False
|
||||||
|
Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
|
||||||
|
Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
|
||||||
|
Me.cbxLZRg.Name = "cbxLZRg"
|
||||||
|
Me.cbxLZRg.Size = New System.Drawing.Size(88, 17)
|
||||||
|
Me.cbxLZRg.TabIndex = 115
|
||||||
|
Me.cbxLZRg.Text = "Rechnungen"
|
||||||
|
Me.cbxLZRg.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'cbxLZT1
|
||||||
|
'
|
||||||
|
Me.cbxLZT1._value = ""
|
||||||
|
Me.cbxLZT1.AutoSize = True
|
||||||
|
Me.cbxLZT1.Checked_value = False
|
||||||
|
Me.cbxLZT1.CheckedValue = False
|
||||||
|
Me.cbxLZT1.Location = New System.Drawing.Point(223, 93)
|
||||||
|
Me.cbxLZT1.Name = "cbxLZT1"
|
||||||
|
Me.cbxLZT1.Size = New System.Drawing.Size(39, 17)
|
||||||
|
Me.cbxLZT1.TabIndex = 114
|
||||||
|
Me.cbxLZT1.Text = "T1"
|
||||||
|
Me.cbxLZT1.UseVisualStyleBackColor = True
|
||||||
|
Me.cbxLZT1.Visible = False
|
||||||
|
'
|
||||||
'usrcntlAktDetails
|
'usrcntlAktDetails
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
|
||||||
@@ -2150,4 +2163,5 @@ Partial Class usrcntlAktDetails
|
|||||||
Friend WithEvents Button15 As Button
|
Friend WithEvents Button15 As Button
|
||||||
Friend WithEvents cbxLZRg As VERAG_PROG_ALLGEMEIN.MyCheckbox
|
Friend WithEvents cbxLZRg As VERAG_PROG_ALLGEMEIN.MyCheckbox
|
||||||
Friend WithEvents cbxLZT1 As VERAG_PROG_ALLGEMEIN.MyCheckbox
|
Friend WithEvents cbxLZT1 As VERAG_PROG_ALLGEMEIN.MyCheckbox
|
||||||
|
Friend WithEvents cbxVPSplit As CheckBox
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -212,6 +212,37 @@
|
|||||||
rGp33g/w9ql7NoGnXyWw0LUP726+A48ybH5BknCWWY7Lq2TVaSzNVMvnjcLjoYqrHD5NUxOdyqYOtXoR
|
rGp33g/w9ql7NoGnXyWw0LUP726+A48ybH5BknCWWY7Lq2TVaSzNVMvnjcLjoYqrHD5NUxOdyqYOtXoR
|
||||||
rY7H4jHYSnSdT2lHL8uwNOUI/FU+hyHGUMfjc2xVDEQxsJvDOOIVCrQdKLqYyNPBKNaFOo4UMPToVZT5
|
rY7H4jHYSnSdT2lHL8uwNOUI/FU+hyHGUMfjc2xVDEQxsJvDOOIVCrQdKLqYyNPBKNaFOo4UMPToVZT5
|
||||||
eWpiMRXkm9o//9k=
|
eWpiMRXkm9o//9k=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="MitarbeiterAnzeigenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAACMAAAAjCAYAAAAe2bNZAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||||
|
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAXLSURBVFhHzVhncFVFFI69jr33rjOOOjpjL2P54Ywj
|
||||||
|
AQkKhCIqCIoIKk3AQURaEMShSBsERFCaiKaQ8FJfCkle3oOENBNIQl4qqaS3437nupe99+0LGJzRH1+S
|
||||||
|
8+3es3tP+XZvAojofwMt6Q/dPT10rLqVfo4vo1HLDtKjExPo2uFRdM2wKP79yMcJNGKph36K9VJxVQt1
|
||||||
|
dfeIx/S+dNCS/lBZ307rI0to6GI3XTk0kgL6hfrg8sH76K1FGbQ2ooTKatvEY3pfOmhJOxpbOmnmj3n8
|
||||||
|
9ljwsUlO+vD7LJqzLZ82R5fSbwcq+DfsCWsO0xOfJfK8K4ZE0ozNuVTT2CHc6H2r0JIqwl1VdP+4WHY+
|
||||||
|
aV02xWbWCFo/V0V8Vg1N+SGHn7trTAztSakQtH6uhJaUmL01n85/I5z6zU0jz5EGQenn9YaDRxtpcEgG
|
||||||
|
ndM/jKaKzdnHVWhJYPKGHHbwpdhQR5dvIXYKrvZEBxfz9E25nMaw9CoCb5+Lwg/ZVcj+kF77uISWRETw
|
||||||
|
4EbHMWH6jq+JKKbhSzx0n0jfuQPCOBUAoohuSsmrE9N8n9sS4+01Qj4EagKOERH7GOAubODClBvQ4caR
|
||||||
|
+6lESID9WWDx7kKeE5pWJUzrmMWobmin29+LpldmpQjT4OqaOjj80I4q0dqJObV0mWhf+wZUXDwogiJE
|
||||||
|
4VfUtdEmRyk5s2tNf0D/r9N5w+W21jf/ANCacIZFYe9MLKfnpiWZi/ySUEZtHd103d8t7g+InLfGEEfY
|
||||||
|
FwwMp9HLD1Frezf7Pd7YzjxqDbYE/0CBQqCgI2NXZvIEPHh1sHVRCBnGbnnHYeHtuOltB89Dzan8uFWZ
|
||||||
|
hGLGGPQIyl1U2ULtncYmeTMIl3wwNb+eB060drE+qM5Whhbx2D3vW3k77hwdw/Og1iqP4s33NvEYpALc
|
||||||
|
6vBis754M9udZSzhUE55niBaz0w5maKrgiMps6iRfk+tpIuCIkxeh/NEhyGlf5Y1c21I/uzAMPo1+aT4
|
||||||
|
PTs1iV7/Ks3sWibRpihKhA42gLw+9FG86ejlmUZRvzo71eR6wwvTk3k+BFNy2CReHDwwce1hrqegBS7m
|
||||||
|
mJSLQl9gA3hIOgEe+CCO8z1tY66F94cxKw6xL5zkksNmdjjLzTUW7ixgXqaVyetHGKGEKMEGkNNL37Sm
|
||||||
|
A22KMTV9OmADSDO6UeXPCgyl7/YeNdfYlWSMo/tgMymvA9AT2BIboqzdcNu70ZQhRA8FBy1Rx1RgvL65
|
||||||
|
k+4daxywKlCXaHv4j3RXMwepgM2L6iIj8dKMFIuzF4WNdA1b4rbwEoMWuqi5rcs86XWQ6+zWRebhCb41
|
||||||
|
I2GvHRyIOAwhASovkVfaxPcXtYuApyYn8hGDqwWUGb4XicMTY3cI1YfNCwZ/4+b6QHXDVoG3UJ1CpcE3
|
||||||
|
iDSgINUxHJrgMb5M1IY6tjXON+q4H8HHgHnpPMbktngvDZzv4nzChiLizXG6yiJGKtHWOCgxZ7/nOBek
|
||||||
|
uiBs6BDGC8ub6bU5qWaEkAr4S86t4yMFc9D+8Llun6HsvBkcBegUPLR0zxG+bMsF0HbjV2eZDrCZ+TsK
|
||||||
|
6AZbGiRwhCB6rgJDySGiiPjdipqj3lb8UcR/44ixKDAKEiKHu618AG+J+yvGARTbkBB90foDoq2KHGpG
|
||||||
|
Te2D4+O4fqTq8yQJRAWTcI2Qd1ZctE+lK6cC0g+ZgD/Ih4wSRA+chGUz6AJoSeBco6D8tW9fgbaH35Hf
|
||||||
|
eriW8OkDW8KyGQA3sFvFFQGHmM7hmeJpEWW8sHosSFgMidM9f/oK9UBW4UNIzNqSp3V0psBXh7xg2eFD
|
||||||
|
qJi3vYAusR2WfcWFQeH0hXhB+xoqtKQKiJj8XO0r8A8CSIPdtx1a0g58ay8QQofi0y3mD49/6iRE91/7
|
||||||
|
1lYBp7iDfLI+m29yN49y8L0WAolzCRfx5wWPAoXYya+M04WW7A24vO89UMnqDN1AtJ4UaYQwQnE/F58f
|
||||||
|
SIm8s/wTaMn/BhTwFyTS58zDvQ4BAAAAAElFTkSuQmCC
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
<metadata name="cntxtFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
<metadata name="cntxtFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
|||||||
@@ -191,6 +191,14 @@ Public Class usrcntlAktDetails
|
|||||||
btnVorbereitet.Visible = True
|
btnVorbereitet.Visible = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", Me.FindForm) Then
|
||||||
|
lblTimeErfasst.Visible = False
|
||||||
|
btnErfasst.Visible = False
|
||||||
|
Else
|
||||||
|
lblTimeErfasst.Visible = True
|
||||||
|
btnErfasst.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
|
'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
|
||||||
' tbcntlVermerke.TabPages.Remove(tbAnhang)
|
' tbcntlVermerke.TabPages.Remove(tbAnhang)
|
||||||
'End If
|
'End If
|
||||||
@@ -1037,6 +1045,11 @@ Public Class usrcntlAktDetails
|
|||||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||||
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
|
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
|
||||||
|
|
||||||
|
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||||
|
sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1 where avisoid=" & AvisoID, "AVISO")
|
||||||
|
|
||||||
|
|
||||||
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
|
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
|
||||||
'Vermerke_aktualisieren()
|
'Vermerke_aktualisieren()
|
||||||
init = True ' Vermerke_anzeigen(e.RowIndex)
|
init = True ' Vermerke_anzeigen(e.RowIndex)
|
||||||
@@ -2656,16 +2669,20 @@ Public Class usrcntlAktDetails
|
|||||||
Next
|
Next
|
||||||
|
|
||||||
'DIGITALE ABFERTIGUNG:
|
'DIGITALE ABFERTIGUNG:
|
||||||
If (sender Is Button15) Then
|
If (sender Is Button15) Or cbxVPSplit.Checked Then ' digital oder splittung --> per Vorpapier
|
||||||
Try
|
Try
|
||||||
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
|
||||||
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
|
||||||
|
|
||||||
For Each s In SENDUNG_LIST
|
For Each s In SENDUNG_LIST
|
||||||
If If(s.tblSnd_Vorpapier, "") = "" Then
|
Select Case s.tblSnd_Abfertigungsart_ID.ToString
|
||||||
MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Laufzettelerstellung wird abgebrochen.")
|
Case "38", "26" 'AT - Keine Prüfung
|
||||||
Exit Sub : pnlDetailsRechts.Cursor = Cursors.Default
|
Case Else
|
||||||
End If
|
If If(s.tblSnd_Vorpapier, "") = "" Then
|
||||||
|
MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Laufzettelerstellung wird abgebrochen.")
|
||||||
|
pnlDetailsRechts.Cursor = Cursors.Default : Exit Sub
|
||||||
|
End If
|
||||||
|
End Select
|
||||||
Next
|
Next
|
||||||
AVISO.LOAD_Vorpapiere()
|
AVISO.LOAD_Vorpapiere()
|
||||||
Dim VP_Enum = VERAG_PROG_ALLGEMEIN.cSendungen.VP_Enum(SENDUNG_LIST) 'Filtert nach eindeutigen Vorpapieren
|
Dim VP_Enum = VERAG_PROG_ALLGEMEIN.cSendungen.VP_Enum(SENDUNG_LIST) 'Filtert nach eindeutigen Vorpapieren
|
||||||
@@ -2675,58 +2692,98 @@ Public Class usrcntlAktDetails
|
|||||||
paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP))
|
paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP))
|
||||||
Next
|
Next
|
||||||
|
|
||||||
Dim outl As New Outlook.Application
|
If (sender Is Button15) Then 'NUR BEI DIGITALANMELDUNG!
|
||||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
|
||||||
Mail = outl.CreateItem(0)
|
|
||||||
|
|
||||||
Select Case AVISO.Grenzstelle
|
Dim outl As New Outlook.Application
|
||||||
Case "SUB"
|
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||||
Mail.To = "abfertigung.za-suben@zoll.bund.de"
|
Mail = outl.CreateItem(0)
|
||||||
End Select
|
|
||||||
|
|
||||||
Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
Dim tX As VERAG_PROG_ALLGEMEIN.cTextkonserve = Nothing
|
||||||
Dim MAIL_SUBJ = tX.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
Select Case AVISO.Grenzstelle
|
||||||
Dim MAIL_BODY = tX.txt_text.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
Case "SUB"
|
||||||
|
Mail.To = "abfertigung.za-suben@zoll.bund.de"
|
||||||
|
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||||
|
Case "WAI"
|
||||||
|
Mail.To = ""
|
||||||
|
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_WAI", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||||
|
Case "SBG"
|
||||||
|
Mail.To = ""
|
||||||
|
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SBG", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||||
|
Case Else
|
||||||
|
Mail.To = ""
|
||||||
|
tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||||
|
End Select
|
||||||
|
|
||||||
addVPList(MAIL_BODY, VP_Enum)
|
Dim MAIL_SUBJ = tx.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & MAIL_BODY & SDL.cFakturierung.getSignature("DE", tX.txt_firmaSig, True) & "</div>"
|
Dim MAIL_BODY = tX.txt_text.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||||
Mail.Subject = MAIL_SUBJ
|
|
||||||
|
|
||||||
For Each p In paths
|
addVPList(MAIL_BODY, VP_Enum)
|
||||||
Mail.Attachments.Add(p, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Gestellungsliste.pdf")
|
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & MAIL_BODY & SDL.cFakturierung.getSignature("DE", tX.txt_firmaSig, True, True) & "</div>"
|
||||||
Next
|
Mail.Subject = MAIL_SUBJ
|
||||||
|
If VP_Enum.Count > 1 Then
|
||||||
|
Mail.Subject &= ", " & VP_Enum.Count & "x Vorpapier"
|
||||||
If loadAttachRg Then
|
ElseIf VP_Enum.Count = 1 Then
|
||||||
If cbxLZT1.Visible AndAlso cbxLZT1.Checked Then
|
Mail.Subject &= ", " & VP_Enum(0)
|
||||||
'Falls CMR, Vorpapier in den Unterlagen vorhanden, werden diese beigefügt
|
|
||||||
For Each l In ANH_LIST
|
|
||||||
Select Case l.anh_Art.ToString.ToUpper
|
|
||||||
Case "VORPAPIER" ', "CMR"
|
|
||||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
|
||||||
End Select
|
|
||||||
Next
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If cbxLZRg.Visible AndAlso cbxLZRg.Checked Then
|
For Each p In paths
|
||||||
For Each s In SENDUNG_LIST
|
Mail.Attachments.Add(p, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Gestellungsliste.pdf")
|
||||||
Select Case s.tblSnd_Abfertigungsart_ID
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
If loadAttachRg Then
|
||||||
|
If cbxLZT1.Visible AndAlso cbxLZT1.Checked Then
|
||||||
|
'Falls CMR, Vorpapier in den Unterlagen vorhanden, werden diese beigefügt
|
||||||
|
For Each l In ANH_LIST
|
||||||
|
Select Case l.anh_Art.ToString.ToUpper
|
||||||
|
Case "VORPAPIER" ', "CMR"
|
||||||
|
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||||
|
End Select
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
If cbxLZRg.Visible AndAlso cbxLZRg.Checked Then
|
||||||
|
For Each s In SENDUNG_LIST
|
||||||
|
Select Case s.tblSnd_Abfertigungsart_ID
|
||||||
'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
|
'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
|
||||||
Case "5", "45", "28" 'T1, Ü-T1, DE-FISK
|
Case "5", "45", "28", "26", "38" 'T1, Ü-T1, DE-FISK
|
||||||
Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
|
Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
|
||||||
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
|
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
|
||||||
For Each l In ANH_LIST_SND
|
For Each l In ANH_LIST_SND
|
||||||
Select Case l.anh_Art.ToString.ToUpper
|
Select Case l.anh_Art.ToString.ToUpper
|
||||||
Case "RECHNUNG", "HANDELSRECHNUNG"
|
Case "RECHNUNG", "HANDELSRECHNUNG"
|
||||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||||
End Select
|
End Select
|
||||||
Next
|
Next
|
||||||
End Select
|
End Select
|
||||||
Next
|
Next
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
'Markierte Anhänge
|
||||||
|
For Each l In ANH_LIST
|
||||||
|
'Markierte:
|
||||||
|
If l.anh_GestellungslisteAnfuegen Then
|
||||||
|
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Mail.Display()
|
||||||
|
|
||||||
|
Else 'Keine Digitalabfertigung
|
||||||
|
Try
|
||||||
|
If paths.Count = 1 Then '1 Gestellungsliste
|
||||||
|
Process.Start(paths(0))
|
||||||
|
ElseIf paths.Count > 0 Then 'Mehrere Gestellungslisten zusammenführen
|
||||||
|
Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Gestellungsliste_Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf"
|
||||||
|
VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(paths, outputFile)
|
||||||
|
Process.Start(outputFile)
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message & ex.StackTrace)
|
||||||
|
End Try
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Mail.Display()
|
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message & ex.StackTrace)
|
MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message & ex.StackTrace)
|
||||||
|
|||||||
Reference in New Issue
Block a user