neu
This commit is contained in:
@@ -33,7 +33,6 @@ Public Class UPDATERfrm
|
||||
|
||||
If PARAM = "full" Then
|
||||
CopyIncremental = False
|
||||
|
||||
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>
|
||||
</BootstrapperPackage>
|
||||
</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" />
|
||||
</Project>
|
||||
14
Aviso.sln
14
Aviso.sln
@@ -25,6 +25,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISO_INFO", "AVISO_INFO\AV
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "..\..\ADMIN\ADMIN\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj", "{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}"
|
||||
EndProject
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AVISO_CHECKIN", "AVISO_CHECKIN\AVISO_CHECKIN.vbproj", "{CB95CC0E-D73A-4D11-9FF8-197A392D831F}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
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|x86.ActiveCfg = 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
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
|
||||
@@ -465,6 +465,12 @@
|
||||
<Compile Include="frmAvisoWeiterleiten.vb">
|
||||
<SubType>Form</SubType>
|
||||
</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">
|
||||
<DependentUpon>frmDokumenteSchicken.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -739,6 +745,12 @@
|
||||
<Compile Include="usrCntlAvisoAnhang.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</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">
|
||||
<DependentUpon>usrCntlBenachrichtigungen.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -874,6 +886,9 @@
|
||||
<EmbeddedResource Include="frmAvisoWeiterleiten.resx">
|
||||
<DependentUpon>frmAvisoWeiterleiten.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmAviso_Vorpapiere.resx">
|
||||
<DependentUpon>frmAviso_Vorpapiere.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmDokumenteSchicken.resx">
|
||||
<DependentUpon>frmDokumenteSchicken.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
@@ -1011,6 +1026,9 @@
|
||||
<EmbeddedResource Include="usrCntlAvisoAnhang.resx">
|
||||
<DependentUpon>usrCntlAvisoAnhang.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="usrCntlAviso_Vorpapiere.resx">
|
||||
<DependentUpon>usrCntlAviso_Vorpapiere.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="usrCntlBenachrichtigungen.resx">
|
||||
<DependentUpon>usrCntlBenachrichtigungen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
@@ -1154,7 +1172,9 @@
|
||||
<EmbeddedResource Include="My Project\license.elic.xml" />
|
||||
<Content Include="My Project\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\fakturiertAktiv.jpg" />
|
||||
<None Include="Resources\mitarbeiter.png" />
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("3.5.6.4")>
|
||||
<Assembly: AssemblyFileVersion("3.5.6.4")>
|
||||
<Assembly: AssemblyVersion("3.5.7.8")>
|
||||
<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
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 3.5.6.4 ähnelt.
|
||||
''' Sucht eine lokalisierte Zeichenfolge, die 3.5.7.8 ähnelt.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Version() As String
|
||||
Get
|
||||
|
||||
@@ -536,7 +536,7 @@
|
||||
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Version" xml:space="preserve">
|
||||
<value>3.5.6.4</value>
|
||||
<value>3.5.7.8</value>
|
||||
</data>
|
||||
<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>
|
||||
|
||||
@@ -64,6 +64,7 @@ Public Class frmAddAktenvermerkShort
|
||||
|
||||
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)
|
||||
btnErfasst.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", Me.FindForm)
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
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.Label15 = New System.Windows.Forms.Label()
|
||||
Me.grpAviso = New System.Windows.Forms.GroupBox()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.lblErr_KdNr = New System.Windows.Forms.Label()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.lblErrVorraussuchtlEintreffen = New System.Windows.Forms.Label()
|
||||
@@ -103,7 +104,6 @@ Partial Class frmEintragAviso
|
||||
Me.lblErr_LKW = New System.Windows.Forms.Label()
|
||||
Me.lblErr_Grenzstelle = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.btnAbsSrch = New System.Windows.Forms.Button()
|
||||
Me.lblAtrAvis = New System.Windows.Forms.Label()
|
||||
Me.lblAtr = 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.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.lblZA = New System.Windows.Forms.Label()
|
||||
Me.btnAbsSrch = New System.Windows.Forms.Button()
|
||||
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
|
||||
Me.lblErrFmZollKdNr = New System.Windows.Forms.Label()
|
||||
Me.grp = New System.Windows.Forms.GroupBox()
|
||||
@@ -145,13 +146,10 @@ Partial Class frmEintragAviso
|
||||
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
|
||||
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.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.UsrCntlAviso_Vorpapiere1 = New AVISO.usrCntlAviso_Vorpapiere()
|
||||
Me.panAdmin.SuspendLayout()
|
||||
Me.grpAviso.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.grp.SuspendLayout()
|
||||
@@ -159,9 +157,6 @@ Partial Class frmEintragAviso
|
||||
Me.grpAktVerzollung.SuspendLayout()
|
||||
Me.pnlSBG.SuspendLayout()
|
||||
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()
|
||||
'
|
||||
'btnOK
|
||||
@@ -779,6 +774,16 @@ Partial Class frmEintragAviso
|
||||
Me.grpAviso.TabStop = False
|
||||
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
|
||||
'
|
||||
Me.lblErr_KdNr.AutoSize = True
|
||||
@@ -1176,18 +1181,6 @@ Partial Class frmEintragAviso
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
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
|
||||
'
|
||||
Me.lblAtrAvis.AutoSize = True
|
||||
@@ -1324,6 +1317,18 @@ Partial Class frmEintragAviso
|
||||
Me.lblZA.TabIndex = 0
|
||||
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
|
||||
'
|
||||
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.Visible = False
|
||||
'
|
||||
'GroupBox1
|
||||
'UsrCntlAviso_Vorpapiere1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.dgvVorpapier)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(12, 455)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(403, 150)
|
||||
Me.GroupBox1.TabIndex = 56
|
||||
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
|
||||
Me.UsrCntlAviso_Vorpapiere1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlAviso_Vorpapiere1.Location = New System.Drawing.Point(12, 462)
|
||||
Me.UsrCntlAviso_Vorpapiere1.Name = "UsrCntlAviso_Vorpapiere1"
|
||||
Me.UsrCntlAviso_Vorpapiere1.Size = New System.Drawing.Size(410, 157)
|
||||
Me.UsrCntlAviso_Vorpapiere1.TabIndex = 63
|
||||
'
|
||||
'frmEintragAviso
|
||||
'
|
||||
@@ -1776,9 +1737,9 @@ Partial Class frmEintragAviso
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(792, 728)
|
||||
Me.Controls.Add(Me.UsrCntlAviso_Vorpapiere1)
|
||||
Me.Controls.Add(Me.btnAbsSrch)
|
||||
Me.Controls.Add(Me.panAdmin)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.grp)
|
||||
Me.Controls.Add(Me.txtDyRef)
|
||||
Me.Controls.Add(Me.picDy)
|
||||
@@ -1817,6 +1778,7 @@ Partial Class frmEintragAviso
|
||||
Me.panAdmin.PerformLayout()
|
||||
Me.grpAviso.ResumeLayout(False)
|
||||
Me.grpAviso.PerformLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
@@ -1828,9 +1790,6 @@ Partial Class frmEintragAviso
|
||||
Me.pnlSBG.ResumeLayout(False)
|
||||
Me.pnlSBG.PerformLayout()
|
||||
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.PerformLayout()
|
||||
|
||||
@@ -1957,9 +1916,6 @@ Partial Class frmEintragAviso
|
||||
Friend WithEvents lblErr_KdNr As Label
|
||||
Friend WithEvents cbxWarenort As CheckBox
|
||||
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 UsrCntlAviso_Vorpapiere1 As usrCntlAviso_Vorpapiere
|
||||
End Class
|
||||
|
||||
@@ -216,24 +216,6 @@
|
||||
<metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</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">
|
||||
<value>
|
||||
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA
|
||||
|
||||
@@ -396,11 +396,7 @@ Public Class frmEintragAviso
|
||||
End If
|
||||
|
||||
'Vorpapier laden
|
||||
dgvVorpapier.Rows.Clear()
|
||||
myAviso.LOAD_Vorpapiere()
|
||||
For Each VP In myAviso.VORPAPIERE
|
||||
dgvVorpapier.Rows.Add({VP.vp_Art, VP.vp_Nr})
|
||||
Next
|
||||
UsrCntlAviso_Vorpapiere1.setVorpapiere(myAviso)
|
||||
|
||||
|
||||
' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
|
||||
@@ -782,8 +778,11 @@ Public Class frmEintragAviso
|
||||
If optOhneAviso.Checked Then myAviso.Telefonisch = ""
|
||||
' myAviso.Info = txtInfo.Text.Trim ' jetzt in Vermerke gespeichert!!
|
||||
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
|
||||
myAviso.Grenzstelle = "SUB"
|
||||
Else
|
||||
@@ -928,17 +927,15 @@ Public Class frmEintragAviso
|
||||
myAviso.AvisoID = tmpId
|
||||
AvisoDAL.addAenderung(tmpId, aendart, aendText)
|
||||
|
||||
'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 cAvisoVorpapier
|
||||
VP.vp_AvisoId = tmpId
|
||||
VP.vp_Nr = r.Cells("clmnMRN").Value
|
||||
VP.vp_Art = "T1" 'r.Cells("clmnMRN").Value
|
||||
myAviso.VORPAPIERE.Add(VP)
|
||||
End If
|
||||
Next
|
||||
'VORPAPIER
|
||||
If UsrCntlAviso_Vorpapiere1.checkDouble() Then
|
||||
MsgBox("Vorpapiere: Doppelte Einträge!")
|
||||
Me.DialogResult = DialogResult.None
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
UsrCntlAviso_Vorpapiere1.getVorpapiere(myAviso)
|
||||
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.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
|
||||
Me.MRNBarcodedruckToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.conMenuAviso.SuspendLayout()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.Top.SuspendLayout()
|
||||
@@ -669,7 +670,7 @@ Partial Class frmHauptfenster
|
||||
'
|
||||
'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.Size = New System.Drawing.Size(79, 20)
|
||||
Me.FunktionenToolStripMenuItem.Text = "Funktionen"
|
||||
@@ -2863,6 +2864,12 @@ Partial Class frmHauptfenster
|
||||
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
|
||||
Me.UsrCntlTestsystem1.TabIndex = 8
|
||||
'
|
||||
'MRNBarcodedruckToolStripMenuItem
|
||||
'
|
||||
Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem"
|
||||
Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck"
|
||||
'
|
||||
'frmHauptfenster
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -3194,4 +3201,5 @@ Partial Class frmHauptfenster
|
||||
Friend WithEvents NKDToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents NEUToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents AMBToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents MRNBarcodedruckToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -2487,7 +2487,10 @@ Public Class frmHauptfenster
|
||||
|
||||
End Function
|
||||
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
|
||||
|
||||
'cRKSV_DE.SignRKSV_DE()
|
||||
@@ -3543,6 +3546,14 @@ Public Class frmHauptfenster
|
||||
MsgBox("Keine Berechtigung!")
|
||||
End If
|
||||
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
|
||||
|
||||
Public Class AvisoStatusFunctions
|
||||
@@ -3566,7 +3577,41 @@ Public Class AvisoStatusFunctions
|
||||
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
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
|
||||
MsgBox("Keine Berechtigung!")
|
||||
Return False
|
||||
@@ -3594,6 +3639,13 @@ Public Class AvisoStatusFunctions
|
||||
MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation)
|
||||
Return False
|
||||
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
|
||||
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
|
||||
"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
|
||||
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")
|
||||
If antwort = vbNo Then Return False
|
||||
'Status ist offen - jetzt auf Ankunft setzen
|
||||
@@ -4139,7 +4191,9 @@ Public Class AvisoStatusFunctions
|
||||
|
||||
|
||||
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!")
|
||||
Return False
|
||||
End If
|
||||
@@ -4791,7 +4845,7 @@ Public Class AvisoStatusFunctions
|
||||
|
||||
|
||||
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
|
||||
|
||||
|
||||
|
||||
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">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</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" />
|
||||
<data name="btnEORIPruef.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
@@ -1494,6 +1491,25 @@
|
||||
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>296, 17</value>
|
||||
</metadata>
|
||||
<data name="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">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
|
||||
@@ -1742,6 +1758,9 @@
|
||||
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</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">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
|
||||
|
||||
@@ -241,11 +241,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
End If
|
||||
|
||||
cboVorpapier.Items.Clear()
|
||||
AVISO.LOAD_Vorpapiere()
|
||||
For Each VP In AVISO.VORPAPIERE
|
||||
cboVorpapier.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VP.vp_Nr, VP.vp_Nr))
|
||||
Next
|
||||
initVorpapiere()
|
||||
|
||||
If AVISO.Abgeschlossen Then
|
||||
Label8.Visible = True
|
||||
@@ -579,7 +575,7 @@ Public Class frmSendungsdetailsNEU
|
||||
lbleori_Pruef.Text = "-"
|
||||
If kdSB 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
|
||||
End If
|
||||
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_Colli = ""
|
||||
newRow.tblSnd_SendungID = -1
|
||||
|
||||
newRow.ABRECHNUNG.Clear()
|
||||
SENDUNG_LIST.Add(newRow)
|
||||
|
||||
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)
|
||||
End If
|
||||
|
||||
|
||||
cboVorpapier.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier
|
||||
txtVorpapierPos.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos
|
||||
setVorpapiere()
|
||||
|
||||
|
||||
initFraechterAvisererFromAkt()
|
||||
@@ -1273,6 +1267,33 @@ Public Class frmSendungsdetailsNEU
|
||||
' GEAENDERT = False
|
||||
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()
|
||||
|
||||
'Übergangsphase Aviso/Sendung
|
||||
@@ -1554,8 +1575,12 @@ Public Class frmSendungsdetailsNEU
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_KdAuftragsNrFrachtfuehrer = txtKdAuftragsNrFrachtfuehrer.Text
|
||||
|
||||
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier = cboVorpapier.Text
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier_Pos = txtVorpapierPos.Text
|
||||
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier = cboVorpapier.Text.Trim
|
||||
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
|
||||
@@ -2813,7 +2838,7 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
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 & ")
|
||||
ORDER BY anh_SendungsId desc,
|
||||
case
|
||||
@@ -2874,6 +2899,11 @@ Public Class frmSendungsdetailsNEU
|
||||
.Columns("anh_LaufzettelDruck").Width = 150
|
||||
.Columns("anh_LaufzettelDruck").HeaderText = "Laufzettel-Druck"
|
||||
|
||||
|
||||
.Columns("anh_GestellungslisteAnfuegen").Width = 150
|
||||
.Columns("anh_GestellungslisteAnfuegen").HeaderText = "GestListe anfügen"
|
||||
|
||||
.ClearSelection()
|
||||
End With
|
||||
|
||||
End Sub
|
||||
@@ -3977,37 +4007,132 @@ Public Class frmSendungsdetailsNEU
|
||||
End Sub
|
||||
|
||||
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles btnEORIPruef.Click
|
||||
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)
|
||||
Dim EORI_NR = lbleori_Pruef.Text.Replace("-", "").Replace(" ", "").Trim
|
||||
|
||||
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
|
||||
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
|
||||
|
||||
|
||||
Select Case EORI_ERG
|
||||
Case 0 : btnEORIPruef.BackgroundImage = My.Resources.ok
|
||||
'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
|
||||
' If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "UID", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then
|
||||
' initAnhang()
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
initAnhang()
|
||||
Case 1 : btnEORIPruef.BackgroundImage = My.Resources.del
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
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.Label11 = 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.lblSndFremd = 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.Label19 = 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.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cbxSammelakt = New System.Windows.Forms.CheckBox()
|
||||
Me.Button5 = 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.Button11 = 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.Button8 = New System.Windows.Forms.Button()
|
||||
Me.Button10 = New System.Windows.Forms.Button()
|
||||
Me.Button9 = 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.gridVermerke = New System.Windows.Forms.DataGridView()
|
||||
Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
|
||||
@@ -158,6 +151,14 @@ Partial Class usrcntlAktDetails
|
||||
Me.btnLöschen = New System.Windows.Forms.Button()
|
||||
Me.btnÄndern = New System.Windows.Forms.Button()
|
||||
Me.btnTV = New System.Windows.Forms.Button()
|
||||
Me.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.Panel3.SuspendLayout()
|
||||
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -348,30 +349,6 @@ Partial Class usrcntlAktDetails
|
||||
Me.lnlSendungText.TabIndex = 2
|
||||
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
|
||||
'
|
||||
Me.pnlSBG.Controls.Add(Me.lblSndFremd)
|
||||
@@ -408,31 +385,6 @@ Partial Class usrcntlAktDetails
|
||||
Me.Label21.Text = "1"
|
||||
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
|
||||
'
|
||||
Me.Label20.AutoSize = True
|
||||
@@ -460,30 +412,6 @@ Partial Class usrcntlAktDetails
|
||||
Me.lblFiskde.TabIndex = 6
|
||||
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
|
||||
'
|
||||
Me.lblFiskAT.AutoSize = True
|
||||
@@ -493,30 +421,6 @@ Partial Class usrcntlAktDetails
|
||||
Me.lblFiskAT.TabIndex = 4
|
||||
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
|
||||
'
|
||||
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.BackColor = System.Drawing.Color.PapayaWhip
|
||||
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.btnSendungslisteUNISPED)
|
||||
Me.Panel4.Controls.Add(Me.cbxAlleFirmen)
|
||||
@@ -713,7 +618,7 @@ Partial Class usrcntlAktDetails
|
||||
Me.cbxAlleFirmen.Checked = True
|
||||
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.Location = New System.Drawing.Point(184, 5)
|
||||
Me.cbxAlleFirmen.Location = New System.Drawing.Point(134, 5)
|
||||
Me.cbxAlleFirmen.Name = "cbxAlleFirmen"
|
||||
Me.cbxAlleFirmen.Size = New System.Drawing.Size(76, 17)
|
||||
Me.cbxAlleFirmen.TabIndex = 111
|
||||
@@ -768,17 +673,6 @@ Partial Class usrcntlAktDetails
|
||||
Me.btnKasse_User.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
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
|
||||
'
|
||||
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.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
|
||||
'
|
||||
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
|
||||
'
|
||||
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.Size = New System.Drawing.Size(251, 30)
|
||||
Me.MitarbeiterAnzeigenToolStripMenuItem.Text = "Mitarbeiter anzeigen"
|
||||
@@ -1965,6 +1830,154 @@ Partial Class usrcntlAktDetails
|
||||
Me.btnTV.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
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
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
|
||||
@@ -2150,4 +2163,5 @@ Partial Class usrcntlAktDetails
|
||||
Friend WithEvents Button15 As Button
|
||||
Friend WithEvents cbxLZRg As VERAG_PROG_ALLGEMEIN.MyCheckbox
|
||||
Friend WithEvents cbxLZT1 As VERAG_PROG_ALLGEMEIN.MyCheckbox
|
||||
Friend WithEvents cbxVPSplit As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -212,6 +212,37 @@
|
||||
rGp33g/w9ql7NoGnXyWw0LUP726+A48ybH5BknCWWY7Lq2TVaSzNVMvnjcLjoYqrHD5NUxOdyqYOtXoR
|
||||
rY7H4jHYSnSdT2lHL8uwNOUI/FU+hyHGUMfjc2xVDEQxsJvDOOIVCrQdKLqYyNPBKNaFOo4UMPToVZT5
|
||||
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>
|
||||
</data>
|
||||
<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
|
||||
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
|
||||
' tbcntlVermerke.TabPages.Remove(tbAnhang)
|
||||
'End If
|
||||
@@ -1037,6 +1045,11 @@ Public Class usrcntlAktDetails
|
||||
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
|
||||
VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
|
||||
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1 where avisoid=" & AvisoID, "AVISO")
|
||||
|
||||
|
||||
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
|
||||
'Vermerke_aktualisieren()
|
||||
init = True ' Vermerke_anzeigen(e.RowIndex)
|
||||
@@ -2655,17 +2668,21 @@ Public Class usrcntlAktDetails
|
||||
End If
|
||||
Next
|
||||
|
||||
'DIGITALE ABFERTIGUNG:
|
||||
If (sender Is Button15) Then
|
||||
'DIGITALE ABFERTIGUNG:
|
||||
If (sender Is Button15) Or cbxVPSplit.Checked Then ' digital oder splittung --> per Vorpapier
|
||||
Try
|
||||
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
|
||||
|
||||
For Each s In SENDUNG_LIST
|
||||
If If(s.tblSnd_Vorpapier, "") = "" Then
|
||||
MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Laufzettelerstellung wird abgebrochen.")
|
||||
Exit Sub : pnlDetailsRechts.Cursor = Cursors.Default
|
||||
End If
|
||||
Select Case s.tblSnd_Abfertigungsart_ID.ToString
|
||||
Case "38", "26" 'AT - Keine Prüfung
|
||||
Case Else
|
||||
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
|
||||
AVISO.LOAD_Vorpapiere()
|
||||
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))
|
||||
Next
|
||||
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
If (sender Is Button15) Then 'NUR BEI DIGITALANMELDUNG!
|
||||
|
||||
Select Case AVISO.Grenzstelle
|
||||
Case "SUB"
|
||||
Mail.To = "abfertigung.za-suben@zoll.bund.de"
|
||||
End Select
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
Dim MAIL_SUBJ = tX.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
Dim MAIL_BODY = tX.txt_text.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
Dim tX As VERAG_PROG_ALLGEMEIN.cTextkonserve = Nothing
|
||||
Select Case AVISO.Grenzstelle
|
||||
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)
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & MAIL_BODY & SDL.cFakturierung.getSignature("DE", tX.txt_firmaSig, True) & "</div>"
|
||||
Mail.Subject = MAIL_SUBJ
|
||||
Dim MAIL_SUBJ = tx.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
Dim MAIL_BODY = tX.txt_text.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
|
||||
For Each p In paths
|
||||
Mail.Attachments.Add(p, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Gestellungsliste.pdf")
|
||||
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
|
||||
addVPList(MAIL_BODY, VP_Enum)
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & MAIL_BODY & SDL.cFakturierung.getSignature("DE", tX.txt_firmaSig, True, True) & "</div>"
|
||||
Mail.Subject = MAIL_SUBJ
|
||||
If VP_Enum.Count > 1 Then
|
||||
Mail.Subject &= ", " & VP_Enum.Count & "x Vorpapier"
|
||||
ElseIf VP_Enum.Count = 1 Then
|
||||
Mail.Subject &= ", " & VP_Enum(0)
|
||||
End If
|
||||
|
||||
If cbxLZRg.Visible AndAlso cbxLZRg.Checked Then
|
||||
For Each s In SENDUNG_LIST
|
||||
Select Case s.tblSnd_Abfertigungsart_ID
|
||||
For Each p In paths
|
||||
Mail.Attachments.Add(p, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Gestellungsliste.pdf")
|
||||
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
|
||||
Case "5", "45", "28" 'T1, Ü-T1, DE-FISK
|
||||
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
|
||||
For Each l In ANH_LIST_SND
|
||||
Select Case l.anh_Art.ToString.ToUpper
|
||||
Case "RECHNUNG", "HANDELSRECHNUNG"
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
End Select
|
||||
Next
|
||||
End Select
|
||||
Next
|
||||
Case "5", "45", "28", "26", "38" 'T1, Ü-T1, DE-FISK
|
||||
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
|
||||
For Each l In ANH_LIST_SND
|
||||
Select Case l.anh_Art.ToString.ToUpper
|
||||
Case "RECHNUNG", "HANDELSRECHNUNG"
|
||||
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
End Select
|
||||
Next
|
||||
End Select
|
||||
Next
|
||||
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
|
||||
|
||||
Mail.Display()
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message & ex.StackTrace)
|
||||
|
||||
Reference in New Issue
Block a user