update nach Bedingt Retournierbar
This commit is contained in:
0
.vs/EDKB02_DMS/FileContentIndex/read.lock
Normal file
0
.vs/EDKB02_DMS/FileContentIndex/read.lock
Normal file
BIN
.vs/EDKB02_DMS/v16/.suo
Normal file
BIN
.vs/EDKB02_DMS/v16/.suo
Normal file
Binary file not shown.
BIN
.vs/EDKB02_DMS/v17/.suo
Normal file
BIN
.vs/EDKB02_DMS/v17/.suo
Normal file
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,5 +1,5 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
|
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="12.0">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectType>Local</ProjectType>
|
<ProjectType>Local</ProjectType>
|
||||||
<ProductVersion>8.0.50727</ProductVersion>
|
<ProductVersion>8.0.50727</ProductVersion>
|
||||||
@@ -19,7 +19,7 @@
|
|||||||
</ApplicationIcon>
|
</ApplicationIcon>
|
||||||
<AssemblyKeyContainerName>
|
<AssemblyKeyContainerName>
|
||||||
</AssemblyKeyContainerName>
|
</AssemblyKeyContainerName>
|
||||||
<AssemblyName>EDKB08_DMS</AssemblyName>
|
<AssemblyName>EDKB02_DMS</AssemblyName>
|
||||||
<AssemblyOriginatorKeyFile>
|
<AssemblyOriginatorKeyFile>
|
||||||
</AssemblyOriginatorKeyFile>
|
</AssemblyOriginatorKeyFile>
|
||||||
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
||||||
@@ -31,15 +31,15 @@
|
|||||||
<OptionCompare>Binary</OptionCompare>
|
<OptionCompare>Binary</OptionCompare>
|
||||||
<OptionExplicit>On</OptionExplicit>
|
<OptionExplicit>On</OptionExplicit>
|
||||||
<OptionStrict>Off</OptionStrict>
|
<OptionStrict>Off</OptionStrict>
|
||||||
<RootNamespace>EDKB08_DMS</RootNamespace>
|
<RootNamespace>EDKB02_DMS</RootNamespace>
|
||||||
<StartupObject>EDKB08_DMS.Service1</StartupObject>
|
<StartupObject>EDKB02_DMS.EDKB02DMSIL</StartupObject>
|
||||||
<FileUpgradeFlags>
|
<FileUpgradeFlags>
|
||||||
</FileUpgradeFlags>
|
</FileUpgradeFlags>
|
||||||
<MyType>Console</MyType>
|
<MyType>Console</MyType>
|
||||||
<UpgradeBackupLocation>
|
<UpgradeBackupLocation>
|
||||||
</UpgradeBackupLocation>
|
</UpgradeBackupLocation>
|
||||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||||
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
|
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
|
||||||
<OldToolsVersion>2.0</OldToolsVersion>
|
<OldToolsVersion>2.0</OldToolsVersion>
|
||||||
<PublishUrl>publish\</PublishUrl>
|
<PublishUrl>publish\</PublishUrl>
|
||||||
<Install>true</Install>
|
<Install>true</Install>
|
||||||
@@ -55,10 +55,11 @@
|
|||||||
<ApplicationVersion>2.0.0.%2a</ApplicationVersion>
|
<ApplicationVersion>2.0.0.%2a</ApplicationVersion>
|
||||||
<UseApplicationTrust>false</UseApplicationTrust>
|
<UseApplicationTrust>false</UseApplicationTrust>
|
||||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||||
|
<TargetFrameworkProfile />
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
<OutputPath>bin\</OutputPath>
|
<OutputPath>bin\</OutputPath>
|
||||||
<DocumentationFile>EDKB08_DMS.xml</DocumentationFile>
|
<DocumentationFile>EDKB02_DMS.xml</DocumentationFile>
|
||||||
<BaseAddress>285212672</BaseAddress>
|
<BaseAddress>285212672</BaseAddress>
|
||||||
<ConfigurationOverrideFile>
|
<ConfigurationOverrideFile>
|
||||||
</ConfigurationOverrideFile>
|
</ConfigurationOverrideFile>
|
||||||
@@ -75,10 +76,11 @@
|
|||||||
<NoWarn>42016,42017,42018,42019,42032,42353,42354,42355</NoWarn>
|
<NoWarn>42016,42017,42018,42019,42032,42353,42354,42355</NoWarn>
|
||||||
<DebugType>full</DebugType>
|
<DebugType>full</DebugType>
|
||||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||||
|
<Prefer32Bit>false</Prefer32Bit>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
<OutputPath>bin\</OutputPath>
|
<OutputPath>bin\</OutputPath>
|
||||||
<DocumentationFile>EDKB08_DMS.xml</DocumentationFile>
|
<DocumentationFile>EDKB02_DMS.xml</DocumentationFile>
|
||||||
<BaseAddress>285212672</BaseAddress>
|
<BaseAddress>285212672</BaseAddress>
|
||||||
<ConfigurationOverrideFile>
|
<ConfigurationOverrideFile>
|
||||||
</ConfigurationOverrideFile>
|
</ConfigurationOverrideFile>
|
||||||
@@ -95,14 +97,36 @@
|
|||||||
<NoWarn>42016,42017,42018,42019,42032,42353,42354,42355</NoWarn>
|
<NoWarn>42016,42017,42018,42019,42032,42353,42354,42355</NoWarn>
|
||||||
<DebugType>None</DebugType>
|
<DebugType>None</DebugType>
|
||||||
<PlatformTarget>x86</PlatformTarget>
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<Prefer32Bit>false</Prefer32Bit>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<Reference Include="EDKB08_GSF, Version=2.0.5833.25097, Culture=neutral, processorArchitecture=MSIL">
|
<Reference Include="csvadapter">
|
||||||
|
<HintPath>..\..\EDKB02\bin\csvadapter.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\..\EDKB02\bin\Microsoft.Office.Interop.Excel.dll</HintPath>
|
||||||
<SpecificVersion>False</SpecificVersion>
|
<SpecificVersion>False</SpecificVersion>
|
||||||
<HintPath>..\EDKB08_GSF\bin\EDKB08_GSF.dll</HintPath>
|
<EmbedInteropTypes>False</EmbedInteropTypes>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Microsoft.Office.Interop.Word, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<EmbedInteropTypes>False</EmbedInteropTypes>
|
||||||
|
<HintPath>..\..\EDKB02\bin\Microsoft.Office.Interop.Word.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
|
||||||
|
<HintPath>packages\Newtonsoft.Json.13.0.2\lib\net20\Newtonsoft.Json.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Syncfusion.Compression.Base, Version=20.4200.0.43, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
|
||||||
|
<HintPath>packages\Syncfusion.Compression.Base.20.4.0.43\lib\net20\Syncfusion.Compression.Base.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Syncfusion.Licensing, Version=20.4200.0.43, Culture=neutral, PublicKeyToken=632609b4d040f6b4, processorArchitecture=MSIL">
|
||||||
|
<HintPath>packages\Syncfusion.Licensing.20.4.0.43\lib\net20\Syncfusion.Licensing.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Syncfusion.Pdf.Base, Version=20.4200.0.43, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
|
||||||
|
<HintPath>packages\Syncfusion.Pdf.WinForms.20.4.0.43\lib\net20\Syncfusion.Pdf.Base.dll</HintPath>
|
||||||
</Reference>
|
</Reference>
|
||||||
<Reference Include="System">
|
<Reference Include="System">
|
||||||
<Name>System</Name>
|
<Name>System</Name>
|
||||||
@@ -118,6 +142,7 @@
|
|||||||
<Reference Include="System.Drawing">
|
<Reference Include="System.Drawing">
|
||||||
<Name>System.Drawing</Name>
|
<Name>System.Drawing</Name>
|
||||||
</Reference>
|
</Reference>
|
||||||
|
<Reference Include="System.Net.Http" />
|
||||||
<Reference Include="System.ServiceProcess">
|
<Reference Include="System.ServiceProcess">
|
||||||
<Name>System.ServiceProcess</Name>
|
<Name>System.ServiceProcess</Name>
|
||||||
</Reference>
|
</Reference>
|
||||||
@@ -139,95 +164,10 @@
|
|||||||
<Compile Include="AssemblyInfo.vb">
|
<Compile Include="AssemblyInfo.vb">
|
||||||
<SubType>Code</SubType>
|
<SubType>Code</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="edkb08\clsCheckandImport.vb">
|
<Compile Include="Klassen\clsexcel.vb" />
|
||||||
<SubType>Code</SubType>
|
<Compile Include="Klassen\clsParams.vb" />
|
||||||
</Compile>
|
<Compile Include="Klassen\clsdb.vb" />
|
||||||
<Compile Include="edkb08\clsDivFnkt.vb">
|
<Compile Include="Klassen\clsOnBaseDokument.vb" />
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\clsIndexData.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\clsParameter.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsAvaloq.vb" />
|
|
||||||
<Compile Include="edkb08\Datenbank\clsConnectionProvider.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsDBInteractionBase.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsDokument.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsDokumentcoldindexwert.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsDokumenttyp.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsDokument_status.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsEdex_sb_serienbrief.vb" />
|
|
||||||
<Compile Include="edkb08\Datenbank\clsFA_APPL.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsFA_BCImport.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsFA_Dokumenttyp.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsKey_tabelle.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsMehrfachscann.vb" />
|
|
||||||
<Compile Include="edkb08\Datenbank\clsMitarbeiter.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsMyKey_Tabelle.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsMyMitarbeiter.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsPartner.vb" />
|
|
||||||
<Compile Include="edkb08\Datenbank\clsPartner_sik.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsStatushistory.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\clsVv.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\db_connection.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\Journale\clsImport_Daten.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\Journale\clsImport_Eintrag.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Datenbank\Journale\clsImport_Job.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Globals.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\log_report\Class1.vb" />
|
|
||||||
<Compile Include="edkb08\log_report\clsJournal.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\log_report\Export.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="edkb08\Main.vb">
|
|
||||||
<SubType>Code</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="My Project\Settings.Designer.vb">
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
<AutoGen>True</AutoGen>
|
<AutoGen>True</AutoGen>
|
||||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
@@ -236,7 +176,7 @@
|
|||||||
<Compile Include="ProjectInstaller.vb">
|
<Compile Include="ProjectInstaller.vb">
|
||||||
<SubType>Component</SubType>
|
<SubType>Component</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="Service1.vb">
|
<Compile Include="EDKB02DMSIL.vb">
|
||||||
<SubType>Component</SubType>
|
<SubType>Component</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="Settings.vb" />
|
<Compile Include="Settings.vb" />
|
||||||
@@ -244,21 +184,17 @@
|
|||||||
<DependentUpon>ProjectInstaller.vb</DependentUpon>
|
<DependentUpon>ProjectInstaller.vb</DependentUpon>
|
||||||
<SubType>Designer</SubType>
|
<SubType>Designer</SubType>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="Service1.resx">
|
<EmbeddedResource Include="EDKB02DMSIL.resx">
|
||||||
<DependentUpon>Service1.vb</DependentUpon>
|
<DependentUpon>EDKB02DMSIL.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<None Include="app.config" />
|
<None Include="app.config" />
|
||||||
<None Include="edkb08\log_report\Dataset1.xsd.bak" />
|
|
||||||
<None Include="edkb08\log_report\Journal.xsx">
|
|
||||||
<DependentUpon>Journal.xsd</DependentUpon>
|
|
||||||
</None>
|
|
||||||
<Content Include="edkb08\log_report\Journal.xsd" />
|
|
||||||
<None Include="My Project\app.manifest" />
|
<None Include="My Project\app.manifest" />
|
||||||
<None Include="My Project\Settings.settings">
|
<None Include="My Project\Settings.settings">
|
||||||
<CustomToolNamespace>My</CustomToolNamespace>
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
<Generator>SettingsSingleFileGenerator</Generator>
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
</None>
|
</None>
|
||||||
|
<None Include="packages.config" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<Service Include="{967B4E0D-AD0C-4609-AB67-0FA40C0206D8}" />
|
<Service Include="{967B4E0D-AD0C-4609-AB67-0FA40C0206D8}" />
|
||||||
174
EDKB02DMSIL.resx
Normal file
174
EDKB02DMSIL.resx
Normal file
@@ -0,0 +1,174 @@
|
|||||||
|
<?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="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>126, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||||
|
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||||
|
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABg
|
||||||
|
CQAAAk1TRnQBSQFMAgEBAwEAAQwBAAEMAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||||
|
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||||
|
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||||
|
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||||
|
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||||
|
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||||
|
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||||
|
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||||
|
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||||
|
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||||
|
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||||
|
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||||
|
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||||
|
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||||
|
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||||
|
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||||
|
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||||
|
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||||
|
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||||
|
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||||
|
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||||
|
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||||
|
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||||
|
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||||
|
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||||
|
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||||
|
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||||
|
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||||
|
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/4cAAewC+wHsDAAB7AIC
|
||||||
|
AewMAAHsAgIB7BsAAewB+wL6AfsB7AoAAewEAgHsCgAB7AQCAewXAAPsAQAB+wL6AfsBAAPsBAAB7AEA
|
||||||
|
AewBAAQCAQAB7AEAAewEAAHsAQAB7AEABAIBAAHsAQAB7BcAAewBAAL7AQAB7AoAAewBAAICAQAB7AoA
|
||||||
|
AewBAAICAQAB7CsAAewCAwHsDAAB7AIAAewbAAHsAQACAwEAAewKAAHsAQMC+wEDAewKAAHsAQACAwEA
|
||||||
|
AewXAAPsAQAEAwEAA+wEAAHsAQAB7AEABPsBAAHsAQAB7AQAAewBAAHsAQAEAwEAAewBAAHsGQACAwwA
|
||||||
|
AewBAwL7AQMB7AoAAewBAAIDAQAB7BoAAewEAAHsCwAB7AIDAewMAAHsAgAB7B0AAgEMAAHsAQACAQEA
|
||||||
|
AewKAAHsAQAC+QEAAewaAAHsBAEB7AsABAEMAAT5GAAD7AEABAEBAAPsBQAB7AEAAewEAQHsAQAB7AYA
|
||||||
|
AewBAAHsBPkB7AEAAewYAALsAgEC7AsAAewCAQHsDAAB7AL5AexWAAFCAU0BPgcAAT4DAAEoAwABQAMA
|
||||||
|
ARADAAEBAQABAQUAAYAXAAP/AQAB/AE/AfwBPwH8AT8CAAH4AR8B+AEfAfgBHwIAAeABBwHgAQcB4AEH
|
||||||
|
AgABwAEDAcABAwHAAQMCAAGAAQEBgAEBAYABAQIAAYABAQGAAQEBgAEBAgAB8AEPAfABDwHwAQ8CAAHA
|
||||||
|
AQMBwAEDAcABAwIAAYABAQGAAQEBgAEBAgABgAEBAYABAQGAAQECAAHwAQ8B8AEPAfABDwIAAeABBwHg
|
||||||
|
AQcB4AEHAgABwAEDAcABAwHAAQMCAAGAAQEBgAEBAYABAQIAAYABAQGAAQEBgAEBAgAB+AEfAfgBHwH4
|
||||||
|
AR8CAAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
|
<value>False</value>
|
||||||
|
</metadata>
|
||||||
|
</root>
|
||||||
754
EDKB02DMSIL.vb
Normal file
754
EDKB02DMSIL.vb
Normal file
@@ -0,0 +1,754 @@
|
|||||||
|
Imports System.ServiceProcess
|
||||||
|
Imports System.Threading
|
||||||
|
Imports System.IO
|
||||||
|
|
||||||
|
Imports System.Collections.Generic
|
||||||
|
Imports Syncfusion.Pdf
|
||||||
|
Imports Syncfusion.Pdf.Parsing
|
||||||
|
Imports Syncfusion.Pdf.Graphics
|
||||||
|
Imports Syncfusion.Pdf.Grid
|
||||||
|
Imports System.Drawing
|
||||||
|
Imports Newtonsoft
|
||||||
|
Imports Microsoft.Office.Interop
|
||||||
|
Imports System.Text
|
||||||
|
Imports System.Net
|
||||||
|
Imports Newtonsoft.Json
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
Imports System.Diagnostics.Eventing.Reader
|
||||||
|
|
||||||
|
'''<summary></summary>
|
||||||
|
Public Class EDKB02DMSIL
|
||||||
|
Inherits System.ServiceProcess.ServiceBase
|
||||||
|
|
||||||
|
#Region " Vom Component Designer generierter Code "
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
MyBase.New()
|
||||||
|
|
||||||
|
' Dieser Aufruf wird vom Komponenten-Designer benötigt.
|
||||||
|
InitializeComponent()
|
||||||
|
|
||||||
|
|
||||||
|
' Fügen Sie Initialisierungscode hinter dem InitializeComponent()-Aufruf ein
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'UserService überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
|
||||||
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
If disposing Then
|
||||||
|
If Not (components Is Nothing) Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
' Der Haupteinstiegspunkt für den Vorgang
|
||||||
|
<MTAThread()>
|
||||||
|
Shared Sub Main()
|
||||||
|
|
||||||
|
#If CONFIG = "Release" Then
|
||||||
|
Dim ServicesToRun() As System.ServiceProcess.ServiceBase
|
||||||
|
ServicesToRun = New System.ServiceProcess.ServiceBase() {New EDKB02DMSIL()}
|
||||||
|
System.ServiceProcess.ServiceBase.Run(ServicesToRun)
|
||||||
|
#Else
|
||||||
|
|
||||||
|
Dim myServ As New EDKB02DMSIL
|
||||||
|
myServ.OnStart({""})
|
||||||
|
While (True)
|
||||||
|
System.Threading.Thread.Sleep(2000)
|
||||||
|
End While
|
||||||
|
#End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
' Für Komponenten-Designer erforderlich
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
' HINWEIS: Die folgende Prozedur wird vom Komponenten-Designer benötigt.
|
||||||
|
' Sie kann mit dem Komponenten-Designer modifiziert werden. Verwenden Sie nicht
|
||||||
|
' den Code-Editor zur Bearbeitung.
|
||||||
|
'Friend WithEvents ServiceIcon As System.Windows.Forms.NotifyIcon
|
||||||
|
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||||
|
Me.components = New System.ComponentModel.Container()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(EDKB02DMSIL))
|
||||||
|
|
||||||
|
'
|
||||||
|
|
||||||
|
'
|
||||||
|
'EDKB02DMSIL
|
||||||
|
'
|
||||||
|
Me.ServiceName = "EDKB02DMSIL"
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "Deklarationen"
|
||||||
|
Private StopThread As Boolean = False
|
||||||
|
Dim WithEvents BCK_Timer As New Timers.Timer()
|
||||||
|
Dim WithEvents Dokument_Timer As New Timers.Timer
|
||||||
|
Dim Watch_Directory As String
|
||||||
|
Dim FileWatch As New FileSystemWatcher()
|
||||||
|
Dim EventStopped As Boolean = False
|
||||||
|
Dim db As New clsdb
|
||||||
|
Dim Base64_File As String
|
||||||
|
Dim JsonString As String
|
||||||
|
Dim mimetype As String
|
||||||
|
Dim OutputFile As String
|
||||||
|
Dim SendError As String = ""
|
||||||
|
|
||||||
|
Dim debug As Boolean = False
|
||||||
|
Dim logfile As String = ""
|
||||||
|
Dim sendtoonbase As Boolean = False
|
||||||
|
Dim updateedoka As Boolean = False
|
||||||
|
Dim OnBaseFiletype As String = ""
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'Dim w As New Microsoft.Office.Interop.Word.Application
|
||||||
|
'Dim x As New Microsoft.Office.Interop.Excel.Application
|
||||||
|
|
||||||
|
Dim w As Microsoft.Office.Interop.Word.Application
|
||||||
|
Dim x As Microsoft.Office.Interop.Excel.Application
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "Hauptverarbeitung"
|
||||||
|
|
||||||
|
Dim Parameters As New clsParams
|
||||||
|
|
||||||
|
Protected Overrides Sub OnStart(ByVal args() As String)
|
||||||
|
Try
|
||||||
|
Parameters.get_params()
|
||||||
|
Me.BCK_Timer.Interval = Parameters.BCK_TimerInterval * 1000
|
||||||
|
Me.Dokument_Timer.Interval = Parameters.Document_Timerinterval * 1000
|
||||||
|
Me.BCK_Timer.Enabled = True
|
||||||
|
Me.BCK_Timer.Start()
|
||||||
|
Me.Dokument_Timer.Enabled = True
|
||||||
|
Me.Dokument_Timer.Start()
|
||||||
|
Me.debug = Parameters.Debug = "1"
|
||||||
|
Me.logfile = Parameters.LogFilename
|
||||||
|
Me.sendtoonbase = Parameters.SendToOnBase = "1"
|
||||||
|
Me.updateedoka = Parameters.updateedoka = "1"
|
||||||
|
db.Connectionstring = Parameters.Connectionstring_EDOKA
|
||||||
|
db.Connectionstring_DokTypMapping = Parameters.Connectionstring_DokTypMapping
|
||||||
|
db.Debug = Parameters.Debug
|
||||||
|
db.Logfile = Parameters.LogFilename
|
||||||
|
|
||||||
|
|
||||||
|
Syncfusion.Licensing.SyncfusionLicenseProvider.RegisterLicense("OTU3NTQ3QDMyMzAyZTM0MmUzMFhyMnhJK1JNSCtETllyc1k5d0lyYzBBR1NQK2JDQlhpamFLdTN4UjNnenc9 ")
|
||||||
|
'Convert_Doc("1234")
|
||||||
|
' test_excel_csv()
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Overrides Sub OnStop()
|
||||||
|
'w.Quit(SaveChanges:=False)
|
||||||
|
'w = Nothing
|
||||||
|
'x.Quit()
|
||||||
|
'x = Nothing
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "TimerHandling"
|
||||||
|
Public Sub BCKTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles BCK_Timer.Elapsed
|
||||||
|
If EventStopped = True Then Exit Sub
|
||||||
|
Parameters.Loglevel = My.Settings.LogLevel
|
||||||
|
Parameters.Debug = My.Settings.Debug
|
||||||
|
EventStopped = True
|
||||||
|
BCK_Verarbeitung()
|
||||||
|
EventStopped = False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub DokumentTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Dokument_Timer.Elapsed
|
||||||
|
If EventStopped = True Then Exit Sub
|
||||||
|
Parameters.Loglevel = My.Settings.LogLevel
|
||||||
|
Parameters.Debug = My.Settings.Debug
|
||||||
|
EventStopped = True
|
||||||
|
Archivierung_Verarbeitung()
|
||||||
|
EventStopped = False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "SendMail"
|
||||||
|
Public Function send_mail(ByVal ErrorText As String)
|
||||||
|
Dim s As String = My.Settings.SendMail_PS
|
||||||
|
s = s.Replace("&sender&", My.Settings.Sender)
|
||||||
|
s = s.Replace("&recipient&", My.Settings.Recipient)
|
||||||
|
s = s.Replace("&body&", ErrorText)
|
||||||
|
Dim write As IO.StreamWriter
|
||||||
|
write = New IO.StreamWriter(My.Settings.SendMailPath & "" & My.Settings.SendMailFile)
|
||||||
|
write.Write(s)
|
||||||
|
write.Close()
|
||||||
|
s = My.Settings.SendMailCmd
|
||||||
|
s = s + My.Settings.SendMailPath + "" + My.Settings.SendMailFile
|
||||||
|
|
||||||
|
PDebug("Mailversand: " + s, 1)
|
||||||
|
Process.Start("powershell.exe", s)
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "FileWatcher"
|
||||||
|
|
||||||
|
#Region "Verarbeitungen"
|
||||||
|
Public Sub deleteTempFiles()
|
||||||
|
If Parameters.DeleteTempFiles = True Then
|
||||||
|
Dim directoryName As String = Parameters.TempDir
|
||||||
|
For Each deleteFile As String In Directory.GetFiles(directoryName, "*.*", SearchOption.TopDirectoryOnly)
|
||||||
|
Try
|
||||||
|
File.Delete(deleteFile)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
directoryName = Parameters.TempDirOffice
|
||||||
|
For Each deleteFile As String In Directory.GetFiles(directoryName, "*.*", SearchOption.TopDirectoryOnly)
|
||||||
|
Try
|
||||||
|
File.Delete(deleteFile)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Next
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Public Sub BCK_Verarbeitung()
|
||||||
|
Try
|
||||||
|
PDebug("BCK verarbeiten", 1)
|
||||||
|
deleteTempFiles()
|
||||||
|
Dim dt As New DataTable
|
||||||
|
OnBaseFiletype = "PDF"
|
||||||
|
dt = db.Get_Pendente_BCK()
|
||||||
|
For Each r As DataRow In dt.Rows
|
||||||
|
OutputFile = Parameters.TempDir + "\" + r("dokumentid") + ".pdf"
|
||||||
|
PDebug("Generiertes PDF: " + OutputFile, 1)
|
||||||
|
If Create_BCK_Dummy(r("dokumentid"), r("barcodenr")) Then
|
||||||
|
PDebug("Base-64 Convert", 2)
|
||||||
|
Base64_File = ConvertFileToBase64(OutputFile)
|
||||||
|
JsonString = ""
|
||||||
|
PDebug("Create OnBase-Daten", 2)
|
||||||
|
Create_OnBase_Datastream(r("dokumentid"))
|
||||||
|
PDebug(JsonString, 3)
|
||||||
|
If JsonString <> "" Then
|
||||||
|
If Transfer_Onbase(r("dokumentid")) = True Then
|
||||||
|
Dim stnr As Integer
|
||||||
|
If updateedoka Then
|
||||||
|
PDebug("Update EDOKA-Datenbank", 2)
|
||||||
|
stnr = update_status(r("dokumentid"))
|
||||||
|
db.update_dokument(stnr, r("dokumentid"))
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
send_mail("Dokument nicht nach OnBase übergeben: " + r("dokumentid"))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
PDebug("BCK verarbeiten ende", 1)
|
||||||
|
Catch ex As Exception
|
||||||
|
PDebug(ex.Message, 1)
|
||||||
|
send_mail(ex.Message)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Archivierung_Verarbeitung()
|
||||||
|
w = New Microsoft.Office.Interop.Word.Application
|
||||||
|
x = New Microsoft.Office.Interop.Excel.Application
|
||||||
|
PDebug("Standard verarbeiten", 1)
|
||||||
|
deleteTempFiles()
|
||||||
|
Dim dt As New DataTable
|
||||||
|
Dim dd As New DataTable
|
||||||
|
dt = db.Get_Archivdokumente
|
||||||
|
|
||||||
|
For Each r As DataRow In dt.Rows
|
||||||
|
Try
|
||||||
|
Dim ofile As String
|
||||||
|
dd = db.Get_Dokument(r("dokumentid"))
|
||||||
|
If dd.Rows(0).Item("dokumenttypnr") = Parameters.ExcelDokTyp Then
|
||||||
|
Dim excellib As New clsexcel(Parameters.ExcelCSV)
|
||||||
|
excellib.Connectionstring = Parameters.Connectionstring_EDOKA
|
||||||
|
excellib.dokumenttypnr = Parameters.ExcelDokTyp
|
||||||
|
excellib.CSVPath = Parameters.ExcelCSV
|
||||||
|
mimetype = GetDocType(dd.Rows(0).Item("dokumentname"))
|
||||||
|
PDebug(mimetype, 2)
|
||||||
|
Dim filename As String
|
||||||
|
filename = Parameters.TempDirOffice + "\" + r("dokumentid") + "." + mimetype
|
||||||
|
If File.Exists(filename) Then
|
||||||
|
File.Delete(filename)
|
||||||
|
Thread.Sleep(500)
|
||||||
|
End If
|
||||||
|
db.Get_From_DB(r("dokumentid"), filename)
|
||||||
|
excellib.Excelfile = filename
|
||||||
|
excellib.Get_Excel_Values(r("dokumentid"))
|
||||||
|
End If
|
||||||
|
|
||||||
|
ofile = Convert_Doc(r("dokumentid"))
|
||||||
|
If ofile <> "" Then
|
||||||
|
PDebug("Base-64 Convert", 2)
|
||||||
|
Base64_File = ConvertFileToBase64(ofile)
|
||||||
|
|
||||||
|
JsonString = ""
|
||||||
|
PDebug("Create OnBase-Daten", 2)
|
||||||
|
Create_OnBase_Datastream(r("dokumentid"))
|
||||||
|
If JsonString <> "" Then
|
||||||
|
PDebug(JsonString, 3)
|
||||||
|
If Transfer_Onbase(r("dokumentid")) = True Then
|
||||||
|
Dim stnr As Integer
|
||||||
|
|
||||||
|
If updateedoka = True Then
|
||||||
|
PDebug("Update EDOKA-Datenbank", 2)
|
||||||
|
stnr = update_status(r("dokumentid"))
|
||||||
|
db.update_dokument(stnr, r("dokumentid"))
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
send_mail("Dokument nicht nach OnBase übergeben: " + r("dokumentid"))
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
send_mail(ex.Message)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
w.Quit(SaveChanges:=False)
|
||||||
|
'w = Nothing
|
||||||
|
x.Quit()
|
||||||
|
'x = Nothing
|
||||||
|
Marshal.ReleaseComObject(w)
|
||||||
|
Marshal.ReleaseComObject(x)
|
||||||
|
x = Nothing
|
||||||
|
w = Nothing
|
||||||
|
|
||||||
|
If Parameters.KillCmd <> "" Then
|
||||||
|
Process.Start(Parameters.KillCmd)
|
||||||
|
End If
|
||||||
|
|
||||||
|
PDebug("Standard verarbeiten ende", 1)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function Create_BCK_Dummy(ByVal Dokumentid As String, ByVal barcodenr As String) As Boolean
|
||||||
|
Try
|
||||||
|
Dim document As New PdfDocument()
|
||||||
|
Dim page As PdfPage = document.Pages.Add()
|
||||||
|
Dim graphics As PdfGraphics = page.Graphics
|
||||||
|
Dim font As PdfFont = New PdfStandardFont(PdfFontFamily.Helvetica, 20)
|
||||||
|
If barcodenr = "" Then
|
||||||
|
graphics.DrawString("Bedingt retournierbares-Dokument - nicht eingescannt", font, PdfBrushes.Black, New PointF(0, 0))
|
||||||
|
graphics.DrawString("Dokument-ID: " + Dokumentid, font, PdfBrushes.Black, New PointF(0, 50))
|
||||||
|
|
||||||
|
Else
|
||||||
|
graphics.DrawString("EDOKA-Barcode-Dokument - noch nicht eingescannt", font, PdfBrushes.Black, New PointF(0, 0))
|
||||||
|
graphics.DrawString("Dokument-ID: " + Dokumentid, font, PdfBrushes.Black, New PointF(0, 50))
|
||||||
|
graphics.DrawString("Barcode-Kleber: " + barcodenr, font, PdfBrushes.Black, New PointF(0, 75))
|
||||||
|
End If
|
||||||
|
|
||||||
|
document.Save(Parameters.TempDir + "\" + Dokumentid + ".pdf")
|
||||||
|
document.Close(True)
|
||||||
|
PDebug("Dummy-PDF erfolgreich erstellt: " + Parameters.TempDir + "\" + Dokumentid + ".pdf", 3)
|
||||||
|
Return True
|
||||||
|
Catch
|
||||||
|
PDebug("Dummy-PDF konnte nicht erstellt werden", 1)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function update_status(ByVal dokumentid As String) As Integer
|
||||||
|
Dim da As New DataTable
|
||||||
|
da = db.Get_Status(dokumentid)
|
||||||
|
For i As Integer = 0 To da.Rows.Count - 1
|
||||||
|
If da.Rows(i).Item("status_bezeichnungnr") = 3 Then
|
||||||
|
For i1 As Integer = 0 To da.Rows.Count - 1
|
||||||
|
If da.Rows(i1).Item("status_bezeichnungnr") = 4 Or
|
||||||
|
da.Rows(i1).Item("status_bezeichnungnr") = 5 Then
|
||||||
|
db.insert_history_status(da.Rows(i1).Item("dokument_statusnr"), dokumentid)
|
||||||
|
Return da.Rows(i1).Item("dokument_statusnr")
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
If da.Rows(i).Item("status_bezeichnungnr") = 11 Then
|
||||||
|
For i1 As Integer = 0 To da.Rows.Count - 1
|
||||||
|
If da.Rows(i1).Item("status_bezeichnungnr") = 6 Then
|
||||||
|
db.insert_history_status(da.Rows(i1).Item("dokument_statusnr"), dokumentid)
|
||||||
|
Return da.Rows(i1).Item("dokument_statusnr")
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Sub Create_OnBase_Datastream(ByVal dokumentid As String)
|
||||||
|
Dim ds As New DataSet
|
||||||
|
ds = db.Get_OnBase_Datastream(dokumentid)
|
||||||
|
Dim od As New OnBaseDokument
|
||||||
|
od.dokumentTyp = ds.Tables(0).Rows(0).Item("Dokumenttyp")
|
||||||
|
od.bpNummer = ds.Tables(0).Rows(0).Item("BPNummer")
|
||||||
|
od.personNummer = ds.Tables(0).Rows(0).Item("PersonNummer")
|
||||||
|
od.dokumentDatei = Base64_File
|
||||||
|
od.dokumentDatum = ds.Tables(0).Rows(0).Item("Dokumentdatum")
|
||||||
|
od.dateiTyp = UCase(OnBaseFiletype)
|
||||||
|
|
||||||
|
Dim Attribute As New List(Of attribute)
|
||||||
|
For Each rw As DataRow In ds.Tables(1).Rows
|
||||||
|
Dim p As New attribute With
|
||||||
|
{
|
||||||
|
.fieldname = rw("fieldname"),
|
||||||
|
.fieldvalue = rw("fieldvalue")
|
||||||
|
}
|
||||||
|
Attribute.Add(p)
|
||||||
|
Next
|
||||||
|
od.attributes = Attribute
|
||||||
|
JsonString = ""
|
||||||
|
JsonString = Newtonsoft.Json.JsonConvert.SerializeObject(od, Newtonsoft.Json.Formatting.Indented)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function ConvertFileToBase64(ByVal fileName As String) As String
|
||||||
|
|
||||||
|
Dim ReturnValue As String = ""
|
||||||
|
|
||||||
|
If My.Computer.FileSystem.FileExists(fileName) Then
|
||||||
|
Using BinaryFile As FileStream = New FileStream(fileName, FileMode.Open)
|
||||||
|
Dim BinRead As BinaryReader = New BinaryReader(BinaryFile)
|
||||||
|
Dim BinBytes As Byte() = BinRead.ReadBytes(CInt(BinaryFile.Length))
|
||||||
|
ReturnValue = Convert.ToBase64String(BinBytes)
|
||||||
|
BinaryFile.Close()
|
||||||
|
End Using
|
||||||
|
End If
|
||||||
|
Return ReturnValue
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Transfer_Onbase(ByVal dokumentid As String) As Boolean
|
||||||
|
Try
|
||||||
|
PDebug("Transfer OnBase", 2)
|
||||||
|
If sendtoonbase = True Then
|
||||||
|
PDebug("OnBase", 3)
|
||||||
|
Dim myUri As New Uri(Parameters.EntryPoint_IL)
|
||||||
|
Dim data = Encoding.UTF8.GetBytes(JsonString)
|
||||||
|
Dim response As String
|
||||||
|
response = SendRequest_A(myUri, data, "application/json", "POST")
|
||||||
|
PDebug("IL-Response", 3)
|
||||||
|
PDebug(response, 1)
|
||||||
|
'Dim db As New clsdb
|
||||||
|
PDebug("JSON-Datei: " + Parameters.TempDir & "\" + dokumentid + ".json", 2)
|
||||||
|
File.WriteAllText(Parameters.TempDir & "\" + dokumentid + ".json", JsonString)
|
||||||
|
PDebug("Status in EDOKA-Journal nachführen", 2)
|
||||||
|
db.Update_EDOKA_IL_Status(dokumentid, response, SendError)
|
||||||
|
If SendError = "1" Then Return False Else Return True
|
||||||
|
Else
|
||||||
|
PDebug("Kein OnBase-Transfer", 1)
|
||||||
|
PDebug("JSON-Datei: " + Parameters.TempDir & "\" + dokumentid + ".json", 1)
|
||||||
|
|
||||||
|
File.WriteAllText(Parameters.TempDir & "\" + dokumentid + ".json", JsonString)
|
||||||
|
db.Update_EDOKA_IL_Status(dokumentid, "DEMO:" + dokumentid, "0")
|
||||||
|
End If
|
||||||
|
PDebug("Ende Transfer OnBase", 1)
|
||||||
|
Catch
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function SendRequest_A(uri As Uri, jsonDataBytes As Byte(), contentType As String, method As String) As String
|
||||||
|
Dim response As String
|
||||||
|
Dim request As WebRequest
|
||||||
|
|
||||||
|
request = WebRequest.Create(uri)
|
||||||
|
request.ContentLength = jsonDataBytes.Length
|
||||||
|
request.ContentType = contentType
|
||||||
|
request.Method = method
|
||||||
|
Try
|
||||||
|
|
||||||
|
Using requestStream As Stream = request.GetRequestStream
|
||||||
|
requestStream.Write(jsonDataBytes, 0, jsonDataBytes.Length)
|
||||||
|
requestStream.Close()
|
||||||
|
|
||||||
|
Using responseStream As Stream = request.GetResponse.GetResponseStream
|
||||||
|
Using reader As New StreamReader(responseStream)
|
||||||
|
response = reader.ReadToEnd()
|
||||||
|
End Using
|
||||||
|
End Using
|
||||||
|
End Using
|
||||||
|
SendError = "0"
|
||||||
|
Return response
|
||||||
|
Catch ex As Exception
|
||||||
|
SendError = "1"
|
||||||
|
Return ex.Message
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
'''<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||||
|
'''<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||||
|
'''Dateifilter-Angaben initialisiert.</remarks>
|
||||||
|
Private Function Init_Filewatcher() As Boolean
|
||||||
|
Try
|
||||||
|
FileWatch.Path = Watch_Directory
|
||||||
|
FileWatch.IncludeSubdirectories = False
|
||||||
|
FileWatch.Filter = "*.*"
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
'Printout("Fehler bei der Initialisierung des Filewacherobjekts auf " + Watch_Directory + ex.Message, EventLogEntryType.Error)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
'''<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||||
|
Private Function Start_Watching() As Boolean
|
||||||
|
Try
|
||||||
|
AddHandler FileWatch.Created, New FileSystemEventHandler(AddressOf OnFileEvent)
|
||||||
|
AddHandler FileWatch.Renamed, AddressOf OnFileEventRename
|
||||||
|
FileWatch.EnableRaisingEvents = True
|
||||||
|
'PrintOut("Filewatch Event-Handler initialisiert: " + Me.Watch_Directory)
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
'Printout("Fehler bei der Event-Initialisierung " + ex.Message, EventLogEntryType.Error)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
'''<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||||
|
'''<remarks>Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler
|
||||||
|
'''gestoppt und die anstehenden Dokumente verarbeitet.
|
||||||
|
'''
|
||||||
|
'''Nach abgeschlossener Verarbeitung wird der Eventhandler wieder
|
||||||
|
'''eingeschaltet</remarks>
|
||||||
|
'''<param name="source"></param>
|
||||||
|
'''<param name="e"></param>
|
||||||
|
Private Sub OnFileEvent(ByVal source As Object, ByVal e As FileSystemEventArgs)
|
||||||
|
If EventStopped = True Then Exit Sub
|
||||||
|
|
||||||
|
|
||||||
|
If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".IND" Or UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".XML" Then
|
||||||
|
FileWatch.EnableRaisingEvents = False
|
||||||
|
EventStopped = True
|
||||||
|
|
||||||
|
'IntSleep(Params.WaitAfterFileevent)
|
||||||
|
'If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".XML" Then
|
||||||
|
' IntSleep(Params.Wait_before_xmlind_ren)
|
||||||
|
' Rename(e.FullPath, e.FullPath + ".ind")
|
||||||
|
' PrintTempJournal("Fileevent Rename XML: " + e.FullPath + " -> " + e.FullPath + ".ind")
|
||||||
|
'End If
|
||||||
|
'PrintOut("Neue Datei " + e.FullPath)
|
||||||
|
|
||||||
|
FileWatch.EnableRaisingEvents = True
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub OnFileEventRename(ByVal source As Object, ByVal e As RenamedEventArgs)
|
||||||
|
'If Params.UseFileEventRename = False Then Exit Sub
|
||||||
|
'If EventStopped = True Then Exit Sub
|
||||||
|
'If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".IND" Then
|
||||||
|
' FileWatch.EnableRaisingEvents = False
|
||||||
|
' EventStopped = True
|
||||||
|
' PrintOut("Neue Datei " + e.FullPath)
|
||||||
|
' '20130131 - Sleep von 1000 auf 3000 geändert, damit bei FinFox-Dokumente die Verarbeitung nicht aussteigt, sofern die Datei noch nicht angeliefert wurde
|
||||||
|
|
||||||
|
' FileWatch.EnableRaisingEvents = True
|
||||||
|
'End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
#Region "Converter"
|
||||||
|
Public Function Convert_Doc(ByVal dokumentid As String) As String
|
||||||
|
Try
|
||||||
|
PDebug("Start Convert Doc", 2)
|
||||||
|
Dim dok As New DataTable
|
||||||
|
dok = db.Get_Dokument(dokumentid)
|
||||||
|
PDebug("Dok Read OK", 2)
|
||||||
|
mimetype = GetDocType(dok.Rows(0).Item("dokumentname"))
|
||||||
|
'mimetype = UCase(mimetype)
|
||||||
|
|
||||||
|
|
||||||
|
PDebug(mimetype, 2)
|
||||||
|
Dim filename As String
|
||||||
|
filename = Parameters.TempDirOffice + "\" + dokumentid + "." + mimetype
|
||||||
|
If File.Exists(filename) Then
|
||||||
|
File.Delete(filename)
|
||||||
|
Thread.Sleep(500)
|
||||||
|
End If
|
||||||
|
db.Get_From_DB(dokumentid, filename)
|
||||||
|
OutputFile = ""
|
||||||
|
Select Case UCase(mimetype)
|
||||||
|
Case "DOC", "DOCX", "DOCM", "DOT", "DOTX", "DOTM"
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + ".pdf"
|
||||||
|
If Parameters.AsOffice.IndexOf(";" & dok.Rows(0).Item("dokumenttypnr").ToString & ";") > -1 Then
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
|
||||||
|
OnBaseFiletype = mimetype
|
||||||
|
FileCopy(filename, OutputFile)
|
||||||
|
PDebug("Datei kopieren: " + filename + " nach " + OutputFile, 2)
|
||||||
|
Return OutputFile
|
||||||
|
End If
|
||||||
|
'filename = "K:\EDOKA\__OnBase\dok1.docm"
|
||||||
|
PDebug("Word-Dokument konvertieren: " + filename + " nach " + OutputFile, 2)
|
||||||
|
OnBaseFiletype = "PDF"
|
||||||
|
If Convert_Word(filename, OutputFile) Then Return OutputFile Else Return ""
|
||||||
|
|
||||||
|
Case "XLS", "XLSX", "XLSM", "XLT", "XLTX", "XLTM"
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + ".pdf"
|
||||||
|
If Parameters.AsOffice.IndexOf(";" & dok.Rows(0).Item("dokumenttypnr").ToString & ";") > -1 Then
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
|
||||||
|
OnBaseFiletype = mimetype
|
||||||
|
FileCopy(filename, OutputFile)
|
||||||
|
PDebug("Datei kopieren: " + filename + " nach " + OutputFile, 2)
|
||||||
|
Return OutputFile
|
||||||
|
End If
|
||||||
|
PDebug("Excel-Dokument konvertieren: " + filename + " nach " + OutputFile, 2)
|
||||||
|
If Convert_Excel(filename, OutputFile) Then Return OutputFile Else Return ""
|
||||||
|
OnBaseFiletype = "PDF"
|
||||||
|
Case "PDF", "JPG", "TIF"
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
|
||||||
|
OnBaseFiletype = mimetype
|
||||||
|
FileCopy(filename, OutputFile)
|
||||||
|
PDebug("Datei kopieren: " + filename + " nach " + OutputFile, 2)
|
||||||
|
Return OutputFile
|
||||||
|
Case Else
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
|
||||||
|
OnBaseFiletype = mimetype
|
||||||
|
FileCopy(filename, OutputFile)
|
||||||
|
PDebug("Datei kopieren: " + filename + " nach " + OutputFile, 2)
|
||||||
|
Return OutputFile
|
||||||
|
End Select
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
PDebug(ex.Message, 1)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Dim WithEvents WordTimer As New Timers.Timer
|
||||||
|
Dim WithEvents ExcelTimer As New Timers.Timer
|
||||||
|
Public Function Convert_Word(ByVal filename As String, ByVal outputfile As String) As Boolean
|
||||||
|
|
||||||
|
WordTimer.Interval = 20000
|
||||||
|
WordTimer.Enabled = True
|
||||||
|
Try
|
||||||
|
If w.Documents.Count > 0 Then
|
||||||
|
For i As Integer = 1 To w.Documents.Count
|
||||||
|
w.Documents(i).Saved = True
|
||||||
|
w.Documents(i).Close(SaveChanges:=False)
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
w = Nothing
|
||||||
|
w = New Microsoft.Office.Interop.Word.Application
|
||||||
|
End Try
|
||||||
|
Try
|
||||||
|
w.Documents.Open(FileName:=filename.ToString, ReadOnly:=True)
|
||||||
|
w.ActiveDocument.ExportAsFixedFormat(outputfile.ToString, Word.WdExportFormat.wdExportFormatPDF, , Word.WdExportOptimizeFor.wdExportOptimizeForPrint, Word.WdExportRange.wdExportAllDocument, , , Word.WdExportItem.wdExportDocumentContent, True, True, Word.WdExportCreateBookmarks.wdExportCreateNoBookmarks, True, False, False)
|
||||||
|
w.ActiveDocument.Saved = True
|
||||||
|
w.ActiveDocument.Close(SaveChanges:=False)
|
||||||
|
WordTimer.Enabled = False
|
||||||
|
Thread.Sleep(100)
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
Try
|
||||||
|
w.Quit(SaveChanges:=False)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Try
|
||||||
|
w = Nothing
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Try
|
||||||
|
w = New Microsoft.Office.Interop.Word.Application
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
WordTimer.Enabled = False
|
||||||
|
End Function
|
||||||
|
Public Sub WordTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles WordTimer.Elapsed
|
||||||
|
Dim processArray As Process() = Process.GetProcessesByName("winword")
|
||||||
|
For Each p As Process In processArray
|
||||||
|
p.Kill()
|
||||||
|
Next
|
||||||
|
WordTimer.Enabled = False
|
||||||
|
End Sub
|
||||||
|
Public Sub ExcelTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles WordTimer.Elapsed
|
||||||
|
Dim processArray As Process() = Process.GetProcessesByName("excel")
|
||||||
|
For Each p As Process In processArray
|
||||||
|
p.Kill()
|
||||||
|
Next
|
||||||
|
ExcelTimer.Enabled = False
|
||||||
|
End Sub
|
||||||
|
Public Function Convert_Excel(ByVal filename As String, ByVal outputfile As String) As Boolean
|
||||||
|
ExcelTimer.Interval = 40000
|
||||||
|
ExcelTimer.Enabled = True
|
||||||
|
Try
|
||||||
|
If x.Workbooks.Count > 0 Then
|
||||||
|
For i As Integer = 1 To x.Workbooks.Count
|
||||||
|
x.Workbooks(i).Close(SaveChanges:=False)
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
x.Workbooks.Open(filename.ToString)
|
||||||
|
x.ActiveWorkbook.ExportAsFixedFormat(Microsoft.Office.Interop.Excel.XlFixedFormatType.xlTypePDF, outputfile.ToString, Microsoft.Office.Interop.Excel.XlFixedFormatQuality.xlQualityStandard)
|
||||||
|
x.ActiveWorkbook.Close(SaveChanges:=False)
|
||||||
|
ExcelTimer.Enabled = False
|
||||||
|
Thread.Sleep(1000)
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
PDebug("Fehler::Convert Excel: " + ex.Message, 1)
|
||||||
|
|
||||||
|
Try
|
||||||
|
x = Nothing
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Try
|
||||||
|
x = New Microsoft.Office.Interop.Excel.Application
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
ExcelTimer.Enabled = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function GetDocType(ByVal Filename As String) As String
|
||||||
|
Dim NoDot() As String
|
||||||
|
NoDot = Split(Filename, ".")
|
||||||
|
GetDocType = NoDot(UBound(NoDot))
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub PDebug(ByVal istring As String, ByVal loglevel As Integer)
|
||||||
|
Dim s As String
|
||||||
|
s = Now.ToString("u")
|
||||||
|
istring = s + " - " + istring
|
||||||
|
If debug = True Then
|
||||||
|
Console.WriteLine(istring)
|
||||||
|
If logfile <> "" Then
|
||||||
|
Try
|
||||||
|
If loglevel <= Parameters.Loglevel Then
|
||||||
|
FileOpen(1, logfile, OpenMode.Append)
|
||||||
|
WriteLine(1, istring)
|
||||||
|
FileClose(1)
|
||||||
|
End If
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
43
EDKB02_DMS.sln
Normal file
43
EDKB02_DMS.sln
Normal file
@@ -0,0 +1,43 @@
|
|||||||
|
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||||
|
# Visual Studio Version 16
|
||||||
|
VisualStudioVersion = 16.0.32630.194
|
||||||
|
MinimumVisualStudioVersion = 10.0.40219.1
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB02DMS", "EDKB02DMS.vbproj", "{1607A887-77A7-475C-BDCC-81B033A314AD}"
|
||||||
|
EndProject
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Tester", "Tester\Tester.vbproj", "{DD6DFE6D-15D5-4FB7-8814-FF17426CFCB4}"
|
||||||
|
EndProject
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ILTest", "ILTest\ILTest.vbproj", "{FB94A9CB-7938-44EC-8886-B705D7686C41}"
|
||||||
|
EndProject
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDOKA_IL_Manuell", "EDOKA_IL_Manuell\EDOKA_IL_Manuell.vbproj", "{27DD387D-0B52-44B2-B2E2-E2B0ED434098}"
|
||||||
|
EndProject
|
||||||
|
Global
|
||||||
|
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||||
|
Debug|Any CPU = Debug|Any CPU
|
||||||
|
Release|Any CPU = Release|Any CPU
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||||
|
{1607A887-77A7-475C-BDCC-81B033A314AD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{1607A887-77A7-475C-BDCC-81B033A314AD}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{1607A887-77A7-475C-BDCC-81B033A314AD}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
{1607A887-77A7-475C-BDCC-81B033A314AD}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
|
{DD6DFE6D-15D5-4FB7-8814-FF17426CFCB4}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{DD6DFE6D-15D5-4FB7-8814-FF17426CFCB4}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{DD6DFE6D-15D5-4FB7-8814-FF17426CFCB4}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
{DD6DFE6D-15D5-4FB7-8814-FF17426CFCB4}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
|
{FB94A9CB-7938-44EC-8886-B705D7686C41}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{FB94A9CB-7938-44EC-8886-B705D7686C41}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{FB94A9CB-7938-44EC-8886-B705D7686C41}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
{FB94A9CB-7938-44EC-8886-B705D7686C41}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
|
{27DD387D-0B52-44B2-B2E2-E2B0ED434098}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{27DD387D-0B52-44B2-B2E2-E2B0ED434098}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{27DD387D-0B52-44B2-B2E2-E2B0ED434098}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
{27DD387D-0B52-44B2-B2E2-E2B0ED434098}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(SolutionProperties) = preSolution
|
||||||
|
HideSolutionNode = FALSE
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(ExtensibilityGlobals) = postSolution
|
||||||
|
SolutionGuid = {45710A62-5643-4649-BA7E-B98D76FB7098}
|
||||||
|
VisualSVNWorkingCopyRoot = ..
|
||||||
|
EndGlobalSection
|
||||||
|
EndGlobal
|
||||||
42
EDKB08.sln
42
EDKB08.sln
@@ -1,42 +0,0 @@
|
|||||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
|
||||||
# Visual Studio 15
|
|
||||||
VisualStudioVersion = 15.0.26228.4
|
|
||||||
MinimumVisualStudioVersion = 10.0.40219.1
|
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08", "EDKB08.vbproj", "{1607A887-77A7-475C-BDCC-81B033A314AD}"
|
|
||||||
EndProject
|
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08_GSF", "..\EDKB08_GSF\EDKB08_GSF.vbproj", "{190A0F46-BF30-4589-8003-361256BCA6F1}"
|
|
||||||
EndProject
|
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08_GSF_Tester", "..\EDKB08_GSF_Tester\EDKB08_GSF_Tester.vbproj", "{9EA7AA49-DB0E-4962-BE9F-B03847A249C2}"
|
|
||||||
EndProject
|
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB08_VitruvTransfer", "..\EDKB08_VitruvTransfer\EDKB08_VitruvTransfer.vbproj", "{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}"
|
|
||||||
EndProject
|
|
||||||
Global
|
|
||||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
|
||||||
Debug|Any CPU = Debug|Any CPU
|
|
||||||
Release|Any CPU = Release|Any CPU
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
|
||||||
{1607A887-77A7-475C-BDCC-81B033A314AD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
|
||||||
{1607A887-77A7-475C-BDCC-81B033A314AD}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
|
||||||
{1607A887-77A7-475C-BDCC-81B033A314AD}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
|
||||||
{1607A887-77A7-475C-BDCC-81B033A314AD}.Release|Any CPU.Build.0 = Release|Any CPU
|
|
||||||
{190A0F46-BF30-4589-8003-361256BCA6F1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
|
||||||
{190A0F46-BF30-4589-8003-361256BCA6F1}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
|
||||||
{190A0F46-BF30-4589-8003-361256BCA6F1}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
|
||||||
{190A0F46-BF30-4589-8003-361256BCA6F1}.Release|Any CPU.Build.0 = Release|Any CPU
|
|
||||||
{9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
|
||||||
{9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
|
||||||
{9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
|
||||||
{9EA7AA49-DB0E-4962-BE9F-B03847A249C2}.Release|Any CPU.Build.0 = Release|Any CPU
|
|
||||||
{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
|
||||||
{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
|
||||||
{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
|
||||||
{1A22EE57-19C4-4F70-B9B9-0765B9FEA876}.Release|Any CPU.Build.0 = Release|Any CPU
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(SolutionProperties) = preSolution
|
|
||||||
HideSolutionNode = FALSE
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(ExtensibilityGlobals) = postSolution
|
|
||||||
VisualSVNWorkingCopyRoot = ..
|
|
||||||
EndGlobalSection
|
|
||||||
EndGlobal
|
|
||||||
48
EDOKA_IL_Manuell/App.config
Normal file
48
EDOKA_IL_Manuell/App.config
Normal file
@@ -0,0 +1,48 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8" ?>
|
||||||
|
<configuration>
|
||||||
|
<configSections>
|
||||||
|
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
|
||||||
|
<section name="EDOKA_IL_Manuell.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
|
||||||
|
</sectionGroup>
|
||||||
|
</configSections>
|
||||||
|
<startup>
|
||||||
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
|
||||||
|
</startup>
|
||||||
|
<userSettings>
|
||||||
|
<EDOKA_IL_Manuell.My.MySettings>
|
||||||
|
<setting name="Entrypoint_IL" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="Connectionstring_EDOKA" serializeAs="String">
|
||||||
|
<value> data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
|
||||||
|
</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Connectionstring_Journale" serializeAs="String">
|
||||||
|
<value>
|
||||||
|
data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
|
||||||
|
</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="BCK_Intervall" serializeAs="String">
|
||||||
|
<value>100000</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Dokument_Intervall" serializeAs="String">
|
||||||
|
<value>4</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Watch_Dir" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\ManualImport</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="TempDir" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\TempDir</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="TempDirOffice" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\TempDirOffice</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="OfficeFormat" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="Demo" serializeAs="String">
|
||||||
|
<value>1</value>
|
||||||
|
</setting>
|
||||||
|
</EDOKA_IL_Manuell.My.MySettings>
|
||||||
|
</userSettings>
|
||||||
|
</configuration>
|
||||||
142
EDOKA_IL_Manuell/EDOKA_IL_Manuell.vbproj
Normal file
142
EDOKA_IL_Manuell/EDOKA_IL_Manuell.vbproj
Normal file
@@ -0,0 +1,142 @@
|
|||||||
|
<?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>{27DD387D-0B52-44B2-B2E2-E2B0ED434098}</ProjectGuid>
|
||||||
|
<OutputType>Exe</OutputType>
|
||||||
|
<StartupObject>EDOKA_IL_Manuell.Module1</StartupObject>
|
||||||
|
<RootNamespace>EDOKA_IL_Manuell</RootNamespace>
|
||||||
|
<AssemblyName>EDOKA_IL_Manuell</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>Console</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.6</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>EDOKA_IL_Manuell.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>EDOKA_IL_Manuell.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="Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||||
|
<HintPath>..\bin\Microsoft.Office.Interop.Excel.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Microsoft.Office.Interop.Word, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<EmbedInteropTypes>True</EmbedInteropTypes>
|
||||||
|
<HintPath>..\bin\Microsoft.Office.Interop.Word.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>..\bin\Newtonsoft.Json.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Syncfusion.Compression.Base, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>..\bin\Syncfusion.Compression.Base.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Syncfusion.Licensing, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=632609b4d040f6b4, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>..\bin\Syncfusion.Licensing.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Syncfusion.Pdf.Base, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>..\bin\Syncfusion.Pdf.Base.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Web" />
|
||||||
|
<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.Diagnostics" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="Klassen\clsdb.vb" />
|
||||||
|
<Compile Include="Klassen\clsOnBaseDokument.vb" />
|
||||||
|
<Compile Include="Klassen\clsParams.vb" />
|
||||||
|
<Compile Include="Module1.vb" />
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</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 />
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
</Project>
|
||||||
6
EDOKA_IL_Manuell/EDOKA_IL_Manuell.vbproj.user
Normal file
6
EDOKA_IL_Manuell/EDOKA_IL_Manuell.vbproj.user
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
|
||||||
|
<StartArguments>-t1 -OOFFEDK0002015002399697 -D -Fd:\edoka_il.log</StartArguments>
|
||||||
|
</PropertyGroup>
|
||||||
|
</Project>
|
||||||
16
EDOKA_IL_Manuell/Klassen/clsOnBaseDokument.vb
Normal file
16
EDOKA_IL_Manuell/Klassen/clsOnBaseDokument.vb
Normal file
@@ -0,0 +1,16 @@
|
|||||||
|
Imports System.Collections.Generic
|
||||||
|
|
||||||
|
Public Class OnBaseDokument
|
||||||
|
Public Property dokumentTyp As String
|
||||||
|
Public Property dokumentDatum As String
|
||||||
|
Public Property dateiTyp As String
|
||||||
|
Public Property bpNummer As String
|
||||||
|
Public Property personNummer As String
|
||||||
|
Public Property dokumentDatei As String
|
||||||
|
Public Property attributes As List(Of attribute)
|
||||||
|
End Class
|
||||||
|
|
||||||
|
Public Class attribute
|
||||||
|
Public Property fieldname As String
|
||||||
|
Public Property fieldvalue As String
|
||||||
|
End Class
|
||||||
112
EDOKA_IL_Manuell/Klassen/clsParams.vb
Normal file
112
EDOKA_IL_Manuell/Klassen/clsParams.vb
Normal file
@@ -0,0 +1,112 @@
|
|||||||
|
Public Class clsParams
|
||||||
|
Dim mConnectionstring_EDOKA As String
|
||||||
|
Property Connectionstring_EDOKA As String
|
||||||
|
Get
|
||||||
|
Return mConnectionstring_EDOKA
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
mConnectionstring_EDOKA = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Dim mconnectionstring_Journale As String
|
||||||
|
Property Connectionstring_Journale As String
|
||||||
|
Get
|
||||||
|
Return mconnectionstring_Journale
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
mconnectionstring_Journale = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim mEntrypPoint_IL As String
|
||||||
|
Property EntryPoint_IL As String
|
||||||
|
Get
|
||||||
|
Return mEntrypPoint_IL
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
mEntrypPoint_IL = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim mBCK_TimerInterval As Integer
|
||||||
|
Property BCK_TimerInterval As Integer
|
||||||
|
Get
|
||||||
|
Return mBCK_TimerInterval
|
||||||
|
End Get
|
||||||
|
Set(value As Integer)
|
||||||
|
mBCK_TimerInterval = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim mDocument_TimerInterval As Integer
|
||||||
|
Property Document_Timerinterval As Integer
|
||||||
|
Get
|
||||||
|
Return mDocument_TimerInterval
|
||||||
|
End Get
|
||||||
|
Set(value As Integer)
|
||||||
|
mDocument_TimerInterval = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim mWachDir As String
|
||||||
|
Property WachDir As String
|
||||||
|
Get
|
||||||
|
Return mWachDir
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
mWachDir = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim mmTempDir As String
|
||||||
|
Property TempDir As String
|
||||||
|
Get
|
||||||
|
Return mmTempDir
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
mmTempDir = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim mTempDirOffice As String
|
||||||
|
Property TempDirOffice As String
|
||||||
|
Get
|
||||||
|
Return mTempDirOffice
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
mTempDirOffice = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim mAsOffice As String
|
||||||
|
Property AsOffice As String
|
||||||
|
Get
|
||||||
|
Return mAsOffice
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
mAsOffice = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Dim mdemo As String
|
||||||
|
Property Demo As String
|
||||||
|
Get
|
||||||
|
Return mdemo
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
mdemo = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Public Sub get_params()
|
||||||
|
Me.Connectionstring_EDOKA = My.Settings.Connectionstring_EDOKA
|
||||||
|
Me.Connectionstring_Journale = My.Settings.Connectionstring_Journale
|
||||||
|
Me.EntryPoint_IL = My.Settings.Entrypoint_IL
|
||||||
|
Me.BCK_TimerInterval = My.Settings.BCK_Intervall
|
||||||
|
Me.Document_Timerinterval = My.Settings.Dokument_Intervall
|
||||||
|
Me.WachDir = My.Settings.Watch_Dir
|
||||||
|
Me.TempDir = My.Settings.TempDir
|
||||||
|
Me.TempDirOffice = My.Settings.TempDirOffice
|
||||||
|
Me.AsOffice = My.Settings.OfficeFormat
|
||||||
|
Me.Demo = My.Settings.Demo
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
235
EDOKA_IL_Manuell/Klassen/clsdb.vb
Normal file
235
EDOKA_IL_Manuell/Klassen/clsdb.vb
Normal file
@@ -0,0 +1,235 @@
|
|||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports System.Data.SqlDbType
|
||||||
|
Imports System.IO
|
||||||
|
|
||||||
|
Public Class clsdb
|
||||||
|
|
||||||
|
Dim m_connectionstring As String
|
||||||
|
Property Connectionstring As String
|
||||||
|
Get
|
||||||
|
Return m_connectionstring
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
m_connectionstring = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Function Get_Pendente_BCK(ByVal dokumentid As String) As DataTable
|
||||||
|
Dim connection As New SqlConnection(Connectionstring)
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
Dim dtToReturn As DataTable = New DataTable()
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 1))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
scmCmdToExecute.Connection = connection
|
||||||
|
Try
|
||||||
|
sdaAdapter.Fill(ds)
|
||||||
|
Return ds.Tables(0)
|
||||||
|
Catch ex As Exception
|
||||||
|
' MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_OnBase_Datastream(ByVal dokumentid As String) As DataSet
|
||||||
|
Dim connection As New SqlConnection(Connectionstring)
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
Dim dtToReturn As DataTable = New DataTable()
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 2))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
scmCmdToExecute.Connection = connection
|
||||||
|
Try
|
||||||
|
sdaAdapter.Fill(ds)
|
||||||
|
Return ds
|
||||||
|
Catch ex As Exception
|
||||||
|
' MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_Status(ByVal Dokumentid As String)
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentstatus_statushandling_Select"
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = New DataTable()
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
Dim connection As New SqlConnection(Connectionstring)
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
|
||||||
|
scmCmdToExecute.Connection = connection
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||||
|
Finally
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub insert_history_status(ByVal statusnr As Integer, ByVal dokumentid As String)
|
||||||
|
Try
|
||||||
|
Dim connection As New SqlConnection(Connectionstring)
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
Dim dtToReturn As DataTable = New DataTable()
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 3))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, statusnr.ToString))
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
scmCmdToExecute.Connection = connection
|
||||||
|
Try
|
||||||
|
sdaAdapter.Fill(ds)
|
||||||
|
Catch ex As Exception
|
||||||
|
' MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
Threading.Thread.Sleep(1000)
|
||||||
|
|
||||||
|
'MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub update_dokument(ByVal statusnr As Integer, ByVal dokumentid As String)
|
||||||
|
Try
|
||||||
|
Dim connection As New SqlConnection(Connectionstring)
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
Dim dtToReturn As DataTable = New DataTable()
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 4))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, statusnr.ToString))
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
scmCmdToExecute.Connection = connection
|
||||||
|
Try
|
||||||
|
sdaAdapter.Fill(ds)
|
||||||
|
Catch ex As Exception
|
||||||
|
' MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
Threading.Thread.Sleep(1000)
|
||||||
|
|
||||||
|
'MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
Public Function Get_Archivdokumente(ByVal dokumentid As String) As DataTable
|
||||||
|
Try
|
||||||
|
Dim connection As New SqlConnection(Connectionstring)
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
Dim dtToReturn As DataTable = New DataTable()
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 5))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
scmCmdToExecute.Connection = connection
|
||||||
|
Try
|
||||||
|
sdaAdapter.Fill(ds)
|
||||||
|
Return ds.Tables(0)
|
||||||
|
Catch ex As Exception
|
||||||
|
' MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
Threading.Thread.Sleep(1000)
|
||||||
|
|
||||||
|
'MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_Dokument(ByVal dokumentid As String) As DataTable
|
||||||
|
Try
|
||||||
|
Dim connection As New SqlConnection(Connectionstring)
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
Dim dtToReturn As DataTable = New DataTable()
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 6))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
scmCmdToExecute.Connection = connection
|
||||||
|
Try
|
||||||
|
sdaAdapter.Fill(ds)
|
||||||
|
Return ds.Tables(0)
|
||||||
|
Catch ex As Exception
|
||||||
|
PDebug(ex.Message)
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
Threading.Thread.Sleep(1000)
|
||||||
|
PDebug(ex.Message)
|
||||||
|
'MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_From_DB(ByVal sDokumentID As String, ByVal sDokumentName As String) As Boolean
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("Select * From doks where DokumentID='" + sDokumentID + "'", connection)
|
||||||
|
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
|
||||||
|
Try
|
||||||
|
'Connectionstring zur Datenbank
|
||||||
|
connection.ConnectionString = Connectionstring
|
||||||
|
connection.Open()
|
||||||
|
da.Fill(ds, "docs")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
Dim MyData() As Byte
|
||||||
|
MyData = myRow.Item(1)
|
||||||
|
Dim K As Long
|
||||||
|
K = UBound(MyData)
|
||||||
|
Dim fs As New FileStream(sDokumentName, FileMode.OpenOrCreate, FileAccess.Write)
|
||||||
|
fs.Write(MyData, 0, K)
|
||||||
|
fs.Close()
|
||||||
|
fs = Nothing
|
||||||
|
Catch ex As Exception
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
CB = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
da = Nothing
|
||||||
|
connection.Close()
|
||||||
|
connection = Nothing
|
||||||
|
Return True
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Update_EDOKA_IL_Status(ByVal Dokumentid As String, ByVal response As String, status As String)
|
||||||
|
Try
|
||||||
|
Dim connection As New SqlConnection(Connectionstring)
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
Dim dtToReturn As DataTable = New DataTable()
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 7))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Dokumentid))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value1", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, response))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, status))
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
scmCmdToExecute.Connection = connection
|
||||||
|
Try
|
||||||
|
sdaAdapter.Fill(ds)
|
||||||
|
Return ds.Tables(0)
|
||||||
|
Catch ex As Exception
|
||||||
|
' MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
Catch ex As Exception
|
||||||
|
Threading.Thread.Sleep(1000)
|
||||||
|
|
||||||
|
'MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
End Class
|
||||||
563
EDOKA_IL_Manuell/Module1.vb
Normal file
563
EDOKA_IL_Manuell/Module1.vb
Normal file
@@ -0,0 +1,563 @@
|
|||||||
|
Imports System.ServiceProcess
|
||||||
|
Imports System.Threading
|
||||||
|
Imports System.IO
|
||||||
|
|
||||||
|
Imports System.Collections.Generic
|
||||||
|
Imports Syncfusion.Pdf
|
||||||
|
Imports Syncfusion.Pdf.Parsing
|
||||||
|
Imports Syncfusion.Pdf.Graphics
|
||||||
|
Imports Syncfusion.Pdf.Grid
|
||||||
|
Imports System.Drawing
|
||||||
|
Imports Newtonsoft
|
||||||
|
Imports Microsoft.Office.Interop
|
||||||
|
Imports System.Text
|
||||||
|
Imports System.Net
|
||||||
|
Imports Newtonsoft.Json
|
||||||
|
|
||||||
|
|
||||||
|
Module Module1
|
||||||
|
Private StopThread As Boolean = False
|
||||||
|
Dim WithEvents BCK_Timer As New Timers.Timer()
|
||||||
|
Dim WithEvents Dokument_Timer As New Timers.Timer
|
||||||
|
Dim Watch_Directory As String
|
||||||
|
Dim FileWatch As New FileSystemWatcher()
|
||||||
|
Dim EventStopped As Boolean = False
|
||||||
|
Dim db As New clsdb
|
||||||
|
Dim Base64_File As String
|
||||||
|
Dim JsonString As String
|
||||||
|
Dim mimetype As String
|
||||||
|
Dim OutputFile As String
|
||||||
|
Dim SendError As String = ""
|
||||||
|
Dim sendToOnBase As Boolean = False
|
||||||
|
Dim debug As Boolean = False
|
||||||
|
Dim w As New Microsoft.Office.Interop.Word.Application
|
||||||
|
Dim x As New Microsoft.Office.Interop.Excel.Application
|
||||||
|
Dim dbupdate As Boolean = False
|
||||||
|
Dim Parameters As New clsParams
|
||||||
|
Dim arg_verarbeitungstyp As String = ""
|
||||||
|
Dim arg_dokumentid As String
|
||||||
|
Dim arg_debugfilename As String = ""
|
||||||
|
Sub Main()
|
||||||
|
Try
|
||||||
|
'Parameters
|
||||||
|
'STD: Standard-Datei (PDF; Office)
|
||||||
|
'BCK: Barcodekleber
|
||||||
|
|
||||||
|
|
||||||
|
Dim args As String() = Environment.GetCommandLineArgs()
|
||||||
|
|
||||||
|
For i As Integer = 1 To args.Length - 1
|
||||||
|
Select Case Left(UCase(args(i)), 2)
|
||||||
|
Case "-T"
|
||||||
|
arg_verarbeitungstyp = Right(args(i), 1)
|
||||||
|
Case "-O"
|
||||||
|
arg_dokumentid = Right(args(i), 22)
|
||||||
|
Case "-D"
|
||||||
|
debug = True
|
||||||
|
Case "-S"
|
||||||
|
sendToOnBase = True
|
||||||
|
Case "-U"
|
||||||
|
dbupdate = True
|
||||||
|
Case "-F"
|
||||||
|
arg_debugfilename = Right(args(i), Len(args(i)) - 2)
|
||||||
|
Case Else
|
||||||
|
Console.WriteLine("Verwendung EDOKA_IL_Manuell")
|
||||||
|
Console.WriteLine("EDOKA_IL_Manuell.exe ")
|
||||||
|
Console.WriteLine("-T[1;2] 1=BCK, 2=Standard-Dokument")
|
||||||
|
Console.WriteLine("-O[EDOKA-DokumentID]")
|
||||||
|
Console.WriteLine("-D Debug-Modus einschalten Standard=false")
|
||||||
|
Console.WriteLine("-S Daten an OnBase senden Standard=false")
|
||||||
|
Console.WriteLine("-U EDOKA-Update durchführen Standard=fasle")
|
||||||
|
Console.WriteLine("_F[Dateiname] Debug-Datei Standard=Keine")
|
||||||
|
Console.ReadLine()
|
||||||
|
Exit Sub
|
||||||
|
End Select
|
||||||
|
Next
|
||||||
|
PDebug("Verarbeitungstyp: " + arg_verarbeitungstyp)
|
||||||
|
PDebug("Dokumentid: " + arg_dokumentid)
|
||||||
|
PDebug("Debug: " + debug.ToString)
|
||||||
|
PDebug("Debug-Filename :" + arg_debugfilename.ToString)
|
||||||
|
PDebug("Send to OnBase: " + sendToOnBase.ToString)
|
||||||
|
PDebug("EDOKA-Update: " + dbupdate.ToString)
|
||||||
|
|
||||||
|
PDebug("Start Parameter aus .config lesen")
|
||||||
|
Parameters.get_params()
|
||||||
|
db.Connectionstring = Parameters.Connectionstring_EDOKA
|
||||||
|
PDebug("DB-Connectionstring :" + db.Connectionstring)
|
||||||
|
PDebug("Entry-Point IL: " + Parameters.EntryPoint_IL)
|
||||||
|
Syncfusion.Licensing.SyncfusionLicenseProvider.RegisterLicense("OTU3NTQ3QDMyMzAyZTM0MmUzMFhyMnhJK1JNSCtETllyc1k5d0lyYzBBR1NQK2JDQlhpamFLdTN4UjNnenc9 ")
|
||||||
|
'If args(4) = "DEBUG" Then debug = True
|
||||||
|
'If args(5) = "UPDATE" Then dbupdate = True
|
||||||
|
'If args(3) = "SEND" Then sendToOnBase = True
|
||||||
|
If arg_verarbeitungstyp = 1 Then bck_verarbeiten(arg_dokumentid)
|
||||||
|
If arg_verarbeitungstyp = 2 Then std_verarbeiten(arg_dokumentid)
|
||||||
|
w.Quit(SaveChanges:=False)
|
||||||
|
x.ActiveWorkbook.Close(SaveChanges:=False)
|
||||||
|
x.Quit()
|
||||||
|
w.Quit()
|
||||||
|
x = Nothing
|
||||||
|
w = Nothing
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub PDebug(ByVal istring As String)
|
||||||
|
istring = Now.ToString("dd.mm.yyyy hh.MM.ss") + " - " + istring
|
||||||
|
If debug = True Then
|
||||||
|
Console.WriteLine(istring)
|
||||||
|
If arg_debugfilename <> "" Then
|
||||||
|
Try
|
||||||
|
FileOpen(1, arg_debugfilename, OpenMode.Append)
|
||||||
|
WriteLine(1, istring)
|
||||||
|
FileClose(1)
|
||||||
|
Catch
|
||||||
|
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
Public Sub bck_verarbeiten(ByVal dokumentid As String)
|
||||||
|
PDebug("BCK verarbeiten")
|
||||||
|
Dim dt As New DataTable
|
||||||
|
dt = db.Get_Pendente_BCK(dokumentid)
|
||||||
|
For Each r As DataRow In dt.Rows
|
||||||
|
OutputFile = Parameters.TempDir + "\" + r("dokumentid") + ".pdf"
|
||||||
|
PDebug("Generiertes PDF: " + OutputFile)
|
||||||
|
If Create_BCK_Dummy(r("dokumentid"), r("barcodenr")) Then
|
||||||
|
PDebug("Base-64 Convert")
|
||||||
|
Base64_File = ConvertFileToBase64(OutputFile)
|
||||||
|
JsonString = ""
|
||||||
|
PDebug("Create OnBase-Daten")
|
||||||
|
Create_OnBase_Datastream(r("dokumentid"))
|
||||||
|
PDebug(JsonString)
|
||||||
|
If JsonString <> "" Then
|
||||||
|
If Transfer_Onbase(r("dokumentid")) = True Then
|
||||||
|
Dim stnr As Integer
|
||||||
|
If Parameters.Demo = "0" Then
|
||||||
|
If dbupdate = True Then
|
||||||
|
PDebug("Update EDOKA-Datenbank")
|
||||||
|
stnr = update_status(r("dokumentid"))
|
||||||
|
db.update_dokument(stnr, r("dokumentid"))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
PDebug("BCK verarbeiten ende")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub std_verarbeiten(ByVal dokumentid As String)
|
||||||
|
PDebug("Standard verarbeiten")
|
||||||
|
Dim dt As New DataTable
|
||||||
|
dt = db.Get_Archivdokumente(dokumentid)
|
||||||
|
|
||||||
|
|
||||||
|
For Each r As DataRow In dt.Rows
|
||||||
|
Dim ofile As String
|
||||||
|
ofile = Convert_Doc(r("dokumentid"))
|
||||||
|
If ofile <> "" Then
|
||||||
|
PDebug("Base-64 Convert")
|
||||||
|
Base64_File = ConvertFileToBase64(ofile)
|
||||||
|
|
||||||
|
JsonString = ""
|
||||||
|
PDebug("Create OnBase-Daten")
|
||||||
|
Create_OnBase_Datastream(r("dokumentid"))
|
||||||
|
If JsonString <> "" Then
|
||||||
|
PDebug(JsonString)
|
||||||
|
If Transfer_Onbase(r("dokumentid")) = True Then
|
||||||
|
Dim stnr As Integer
|
||||||
|
If Parameters.Demo = 0 Then
|
||||||
|
If dbupdate = True Then
|
||||||
|
PDebug("Update EDOKA-Datenbank")
|
||||||
|
stnr = update_status(r("dokumentid"))
|
||||||
|
db.update_dokument(stnr, r("dokumentid"))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
PDebug("Standard verarbeiten ende")
|
||||||
|
End Sub
|
||||||
|
Public Function Create_BCK_Dummy(ByVal Dokumentid As String, ByVal barcodenr As String) As Boolean
|
||||||
|
Try
|
||||||
|
Dim document As New PdfDocument()
|
||||||
|
Dim page As PdfPage = document.Pages.Add()
|
||||||
|
Dim graphics As PdfGraphics = page.Graphics
|
||||||
|
Dim font As PdfFont = New PdfStandardFont(PdfFontFamily.Helvetica, 20)
|
||||||
|
graphics.DrawString("EDOKA-Barcode-Dokument - noch nicht eingescannt", font, PdfBrushes.Black, New PointF(0, 0))
|
||||||
|
graphics.DrawString("Dokument-ID: " + Dokumentid, font, PdfBrushes.Black, New PointF(0, 50))
|
||||||
|
graphics.DrawString("Barcode-Kleber: " + barcodenr, font, PdfBrushes.Black, New PointF(0, 75))
|
||||||
|
document.Save(Parameters.TempDir + "\" + Dokumentid + ".pdf")
|
||||||
|
document.Close(True)
|
||||||
|
PDebug("Dummy-PDF erfolgreich erstellt: " + Parameters.TempDir + "\" + Dokumentid + ".pdf")
|
||||||
|
Return True
|
||||||
|
Catch
|
||||||
|
PDebug("Dummy-PDF konnte nicht erstellt werden")
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function update_status(ByVal dokumentid As String) As Integer
|
||||||
|
PDebug("Update EDOKA-Status")
|
||||||
|
Dim da As New DataTable
|
||||||
|
da = db.Get_Status(dokumentid)
|
||||||
|
For i As Integer = 0 To da.Rows.Count - 1
|
||||||
|
If da.Rows(i).Item("status_bezeichnungnr") = 3 Then
|
||||||
|
For i1 As Integer = 0 To da.Rows.Count - 1
|
||||||
|
If da.Rows(i1).Item("status_bezeichnungnr") = 4 Or
|
||||||
|
da.Rows(i1).Item("status_bezeichnungnr") = 5 Then
|
||||||
|
db.insert_history_status(da.Rows(i1).Item("dokument_statusnr"), dokumentid)
|
||||||
|
Return da.Rows(i1).Item("dokument_statusnr")
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
If da.Rows(i).Item("status_bezeichnungnr") = 11 Then
|
||||||
|
For i1 As Integer = 0 To da.Rows.Count - 1
|
||||||
|
If da.Rows(i1).Item("status_bezeichnungnr") = 6 Then
|
||||||
|
db.insert_history_status(da.Rows(i1).Item("dokument_statusnr"), dokumentid)
|
||||||
|
Return da.Rows(i1).Item("dokument_statusnr")
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Sub Create_OnBase_Datastream(ByVal dokumentid As String)
|
||||||
|
Dim ds As New DataSet
|
||||||
|
ds = db.Get_OnBase_Datastream(dokumentid)
|
||||||
|
Dim od As New OnBaseDokument
|
||||||
|
od.dokumentTyp = ds.Tables(0).Rows(0).Item("Dokumenttyp")
|
||||||
|
od.bpNummer = ds.Tables(0).Rows(0).Item("BPNummer")
|
||||||
|
od.personNummer = ds.Tables(0).Rows(0).Item("PersonNummer")
|
||||||
|
od.dokumentDatei = Base64_File
|
||||||
|
od.dokumentDatum = ds.Tables(0).Rows(0).Item("Dokumentdatum")
|
||||||
|
od.dateiTyp = "PDF"
|
||||||
|
|
||||||
|
Dim Attribute As New List(Of attribute)
|
||||||
|
For Each rw As DataRow In ds.Tables(1).Rows
|
||||||
|
Dim p As New attribute With
|
||||||
|
{
|
||||||
|
.fieldname = rw("fieldname"),
|
||||||
|
.fieldvalue = rw("fieldvalue")
|
||||||
|
}
|
||||||
|
Attribute.Add(p)
|
||||||
|
Next
|
||||||
|
od.attributes = Attribute
|
||||||
|
JsonString = ""
|
||||||
|
JsonString = Newtonsoft.Json.JsonConvert.SerializeObject(od, Newtonsoft.Json.Formatting.Indented)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function ConvertFileToBase64(ByVal fileName As String) As String
|
||||||
|
|
||||||
|
Dim ReturnValue As String = ""
|
||||||
|
|
||||||
|
If My.Computer.FileSystem.FileExists(fileName) Then
|
||||||
|
Using BinaryFile As FileStream = New FileStream(fileName, FileMode.Open)
|
||||||
|
Dim BinRead As BinaryReader = New BinaryReader(BinaryFile)
|
||||||
|
Dim BinBytes As Byte() = BinRead.ReadBytes(CInt(BinaryFile.Length))
|
||||||
|
ReturnValue = Convert.ToBase64String(BinBytes)
|
||||||
|
BinaryFile.Close()
|
||||||
|
End Using
|
||||||
|
End If
|
||||||
|
Return ReturnValue
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Transfer_Onbase(ByVal dokumentid As String) As Boolean
|
||||||
|
Try
|
||||||
|
PDebug("Transfer OnBase")
|
||||||
|
If sendToOnBase = True Then
|
||||||
|
PDebug("OnBase")
|
||||||
|
Dim myUri As New Uri(Parameters.EntryPoint_IL)
|
||||||
|
Dim data = Encoding.UTF8.GetBytes(JsonString)
|
||||||
|
Dim response As String
|
||||||
|
response = SendRequest_A(myUri, data, "application/json", "POST")
|
||||||
|
PDebug("IL-Response")
|
||||||
|
PDebug(response)
|
||||||
|
Dim db As New clsdb
|
||||||
|
PDebug("JSON-Datei: " + Parameters.TempDir & "\" + dokumentid + ".json")
|
||||||
|
File.WriteAllText(Parameters.TempDir & "\" + dokumentid + ".json", JsonString)
|
||||||
|
db.Update_EDOKA_IL_Status(dokumentid, "DEMO:" + dokumentid, "0")
|
||||||
|
PDebug("Status in EDOKA-Journal nachführen")
|
||||||
|
db.Update_EDOKA_IL_Status(dokumentid, response, SendError)
|
||||||
|
If SendError = "1" Then Return False Else Return True
|
||||||
|
Else
|
||||||
|
PDebug("Kein OnBase-Transfer")
|
||||||
|
PDebug("JSON-Datei: " + Parameters.TempDir & "\" + dokumentid + ".json")
|
||||||
|
|
||||||
|
File.WriteAllText(Parameters.TempDir & "\" + dokumentid + ".json", JsonString)
|
||||||
|
db.Update_EDOKA_IL_Status(dokumentid, "DEMO:" + dokumentid, "0")
|
||||||
|
End If
|
||||||
|
PDebug("Ende Transfer OnBase")
|
||||||
|
Catch
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function SendRequest_A(uri As Uri, jsonDataBytes As Byte(), contentType As String, method As String) As String
|
||||||
|
Dim response As String
|
||||||
|
Dim request As WebRequest
|
||||||
|
|
||||||
|
request = WebRequest.Create(uri)
|
||||||
|
request.ContentLength = jsonDataBytes.Length
|
||||||
|
request.ContentType = contentType
|
||||||
|
request.Method = method
|
||||||
|
Try
|
||||||
|
|
||||||
|
Using requestStream As Stream = request.GetRequestStream
|
||||||
|
requestStream.Write(jsonDataBytes, 0, jsonDataBytes.Length)
|
||||||
|
requestStream.Close()
|
||||||
|
|
||||||
|
Using responseStream As Stream = request.GetResponse.GetResponseStream
|
||||||
|
Using reader As New StreamReader(responseStream)
|
||||||
|
response = reader.ReadToEnd()
|
||||||
|
End Using
|
||||||
|
End Using
|
||||||
|
End Using
|
||||||
|
SendError = "0"
|
||||||
|
Return response
|
||||||
|
Catch ex As Exception
|
||||||
|
SendError = "1"
|
||||||
|
Return ex.Message
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
'''<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||||
|
'''<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||||
|
'''Dateifilter-Angaben initialisiert.</remarks>
|
||||||
|
Private Function Init_Filewatcher() As Boolean
|
||||||
|
Try
|
||||||
|
FileWatch.Path = Watch_Directory
|
||||||
|
FileWatch.IncludeSubdirectories = False
|
||||||
|
FileWatch.Filter = "*.*"
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
'Printout("Fehler bei der Initialisierung des Filewacherobjekts auf " + Watch_Directory + ex.Message, EventLogEntryType.Error)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
'''<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||||
|
Private Function Start_Watching() As Boolean
|
||||||
|
Try
|
||||||
|
AddHandler FileWatch.Created, New FileSystemEventHandler(AddressOf OnFileEvent)
|
||||||
|
AddHandler FileWatch.Renamed, AddressOf OnFileEventRename
|
||||||
|
FileWatch.EnableRaisingEvents = True
|
||||||
|
'PrintOut("Filewatch Event-Handler initialisiert: " + Me.Watch_Directory)
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
'Printout("Fehler bei der Event-Initialisierung " + ex.Message, EventLogEntryType.Error)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
'''<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||||
|
'''<remarks>Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler
|
||||||
|
'''gestoppt und die anstehenden Dokumente verarbeitet.
|
||||||
|
'''
|
||||||
|
'''Nach abgeschlossener Verarbeitung wird der Eventhandler wieder
|
||||||
|
'''eingeschaltet</remarks>
|
||||||
|
'''<param name="source"></param>
|
||||||
|
'''<param name="e"></param>
|
||||||
|
Private Sub OnFileEvent(ByVal source As Object, ByVal e As FileSystemEventArgs)
|
||||||
|
If EventStopped = True Then Exit Sub
|
||||||
|
|
||||||
|
|
||||||
|
If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".IND" Or UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".XML" Then
|
||||||
|
FileWatch.EnableRaisingEvents = False
|
||||||
|
EventStopped = True
|
||||||
|
|
||||||
|
'IntSleep(Params.WaitAfterFileevent)
|
||||||
|
'If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".XML" Then
|
||||||
|
' IntSleep(Params.Wait_before_xmlind_ren)
|
||||||
|
' Rename(e.FullPath, e.FullPath + ".ind")
|
||||||
|
' PrintTempJournal("Fileevent Rename XML: " + e.FullPath + " -> " + e.FullPath + ".ind")
|
||||||
|
'End If
|
||||||
|
'PrintOut("Neue Datei " + e.FullPath)
|
||||||
|
|
||||||
|
FileWatch.EnableRaisingEvents = True
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub OnFileEventRename(ByVal source As Object, ByVal e As RenamedEventArgs)
|
||||||
|
'If Params.UseFileEventRename = False Then Exit Sub
|
||||||
|
'If EventStopped = True Then Exit Sub
|
||||||
|
'If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".IND" Then
|
||||||
|
' FileWatch.EnableRaisingEvents = False
|
||||||
|
' EventStopped = True
|
||||||
|
' PrintOut("Neue Datei " + e.FullPath)
|
||||||
|
' '20130131 - Sleep von 1000 auf 3000 geändert, damit bei FinFox-Dokumente die Verarbeitung nicht aussteigt, sofern die Datei noch nicht angeliefert wurde
|
||||||
|
|
||||||
|
' FileWatch.EnableRaisingEvents = True
|
||||||
|
'End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#Region "Converter"
|
||||||
|
Public Function Convert_Doc(ByVal dokumentid As String) As String
|
||||||
|
Try
|
||||||
|
PDebug("Start Convert Doc")
|
||||||
|
Dim dok As New DataTable
|
||||||
|
dok = db.Get_Dokument(dokumentid)
|
||||||
|
PDebug("Dok Read OK")
|
||||||
|
mimetype = GetDocType(dok.Rows(0).Item("dokumentname"))
|
||||||
|
PDebug(mimetype)
|
||||||
|
Dim filename As String
|
||||||
|
filename = Parameters.TempDirOffice + "\" + dokumentid + "." + mimetype
|
||||||
|
If File.Exists(filename) Then
|
||||||
|
File.Delete(filename)
|
||||||
|
Thread.Sleep(500)
|
||||||
|
End If
|
||||||
|
db.Get_From_DB(dokumentid, filename)
|
||||||
|
OutputFile = ""
|
||||||
|
Select Case UCase(mimetype)
|
||||||
|
Case "DOC", "DOCX", "DOCM", "DOT", "DOTX", "DOTM"
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + ".pdf"
|
||||||
|
If Parameters.AsOffice.IndexOf(dok.Rows(0).Item("dokumenttypnr")) > -1 Then
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
|
||||||
|
FileCopy(filename, OutputFile)
|
||||||
|
PDebug("Datei kopieren: " + filename + " nach " + OutputFile)
|
||||||
|
Return OutputFile
|
||||||
|
End If
|
||||||
|
'filename = "K:\EDOKA\__OnBase\dok1.docm"
|
||||||
|
PDebug("Word-Dokument konvertieren: " + filename + " nach " + OutputFile)
|
||||||
|
If Convert_Word(filename, OutputFile) Then Return OutputFile Else Return ""
|
||||||
|
Case "XLS", "XLSX", "XLSM", "XLT", "XLTX", "XLTM"
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + ".pdf"
|
||||||
|
If Parameters.AsOffice.IndexOf(dok.Rows(0).Item("dokumenttypnr")) > -1 Then
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
|
||||||
|
FileCopy(filename, OutputFile)
|
||||||
|
PDebug("Datei kopieren: " + filename + " nach " + OutputFile)
|
||||||
|
Return OutputFile
|
||||||
|
End If
|
||||||
|
PDebug("Excel-Dokument konvertieren: " + filename + " nach " + OutputFile)
|
||||||
|
If Convert_Excel(filename, OutputFile) Then Return OutputFile Else Return ""
|
||||||
|
Case "PDF", "JPG", "TIF"
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
|
||||||
|
FileCopy(filename, OutputFile)
|
||||||
|
PDebug("Datei kopieren: " + filename + " nach " + OutputFile)
|
||||||
|
Return OutputFile
|
||||||
|
Case Else
|
||||||
|
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
|
||||||
|
FileCopy(filename, OutputFile)
|
||||||
|
PDebug("Datei kopieren: " + filename + " nach " + OutputFile)
|
||||||
|
Return OutputFile
|
||||||
|
End Select
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
PDebug(ex.Message)
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Dim WithEvents WordTimer As New Timers.Timer
|
||||||
|
Dim WithEvents ExcelTimer As New Timers.Timer
|
||||||
|
Public Function Convert_Word(ByVal filename As String, ByVal outputfile As String) As Boolean
|
||||||
|
PDebug(filename)
|
||||||
|
PDebug(outputfile)
|
||||||
|
WordTimer.Interval = 20000
|
||||||
|
WordTimer.Enabled = True
|
||||||
|
Try
|
||||||
|
If w.Documents.Count > 0 Then
|
||||||
|
For i As Integer = 1 To w.Documents.Count
|
||||||
|
w.Documents(i).Saved = True
|
||||||
|
w.Documents(i).Close(SaveChanges:=False)
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
w = Nothing
|
||||||
|
w = New Microsoft.Office.Interop.Word.Application
|
||||||
|
End Try
|
||||||
|
Try
|
||||||
|
w.Documents.Open(FileName:=filename.ToString, ReadOnly:=True)
|
||||||
|
w.ActiveDocument.ExportAsFixedFormat(outputfile.ToString, Word.WdExportFormat.wdExportFormatPDF, , Word.WdExportOptimizeFor.wdExportOptimizeForPrint, Word.WdExportRange.wdExportAllDocument, , , Word.WdExportItem.wdExportDocumentContent, True, True, Word.WdExportCreateBookmarks.wdExportCreateNoBookmarks, True, False, False)
|
||||||
|
w.ActiveDocument.Saved = True
|
||||||
|
w.ActiveDocument.Close(SaveChanges:=False)
|
||||||
|
WordTimer.Enabled = False
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
Try
|
||||||
|
w.Quit(SaveChanges:=False)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Try
|
||||||
|
w = Nothing
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Try
|
||||||
|
w = New Microsoft.Office.Interop.Word.Application
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
WordTimer.Enabled = False
|
||||||
|
End Function
|
||||||
|
Public Sub WordTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles WordTimer.Elapsed
|
||||||
|
Dim processArray As Process() = Process.GetProcessesByName("winword")
|
||||||
|
For Each p As Process In processArray
|
||||||
|
p.Kill()
|
||||||
|
Next
|
||||||
|
WordTimer.Enabled = False
|
||||||
|
End Sub
|
||||||
|
Public Sub ExcelTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles WordTimer.Elapsed
|
||||||
|
Dim processArray As Process() = Process.GetProcessesByName("excel")
|
||||||
|
For Each p As Process In processArray
|
||||||
|
p.Kill()
|
||||||
|
Next
|
||||||
|
ExcelTimer.Enabled = False
|
||||||
|
End Sub
|
||||||
|
Public Function Convert_Excel(ByVal filename As String, ByVal outputfile As String) As Boolean
|
||||||
|
ExcelTimer.Interval = 20000
|
||||||
|
ExcelTimer.Enabled = True
|
||||||
|
Try
|
||||||
|
If x.Workbooks.Count > 0 Then
|
||||||
|
For i As Integer = 1 To x.Workbooks.Count
|
||||||
|
x.Workbooks(i).Close(SaveChanges:=False)
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
x.Workbooks.Open(filename.ToString)
|
||||||
|
x.ActiveWorkbook.ExportAsFixedFormat(Microsoft.Office.Interop.Excel.XlFixedFormatType.xlTypePDF, outputfile.ToString, Microsoft.Office.Interop.Excel.XlFixedFormatQuality.xlQualityStandard)
|
||||||
|
x.ActiveWorkbook.Close(SaveChanges:=False)
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
Try
|
||||||
|
x = Nothing
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Try
|
||||||
|
x = New Microsoft.Office.Interop.Excel.Application
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
ExcelTimer.Enabled = False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function GetDocType(ByVal Filename As String) As String
|
||||||
|
Dim NoDot() As String
|
||||||
|
NoDot = Split(Filename, ".")
|
||||||
|
GetDocType = NoDot(UBound(NoDot))
|
||||||
|
Return GetDocType
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Module
|
||||||
13
EDOKA_IL_Manuell/My Project/Application.Designer.vb
generated
Normal file
13
EDOKA_IL_Manuell/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <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
|
||||||
|
|
||||||
10
EDOKA_IL_Manuell/My Project/Application.myapp
Normal file
10
EDOKA_IL_Manuell/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>false</MySubMain>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<ApplicationType>2</ApplicationType>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
EDOKA_IL_Manuell/My Project/AssemblyInfo.vb
Normal file
35
EDOKA_IL_Manuell/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("EDOKA_IL_Manuell")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("")>
|
||||||
|
<Assembly: AssemblyProduct("EDOKA_IL_Manuell")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © 2023")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
|
||||||
|
<Assembly: Guid("680ee796-35f6-4e2b-80b8-75d785297262")>
|
||||||
|
|
||||||
|
' 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,
|
||||||
|
' indem Sie "*" wie unten gezeigt eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
62
EDOKA_IL_Manuell/My Project/Resources.Designer.vb
generated
Normal file
62
EDOKA_IL_Manuell/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,62 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <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.Resources
|
||||||
|
|
||||||
|
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||||
|
'class via a tool like ResGen or Visual Studio.
|
||||||
|
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||||
|
'with the /str option, or rebuild your VS project.
|
||||||
|
'''<summary>
|
||||||
|
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Returns the cached ResourceManager instance used by this class.
|
||||||
|
'''</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("EDOKA_IL_Manuell.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Overrides the current thread's CurrentUICulture property for all
|
||||||
|
''' resource lookups using this strongly typed resource class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
117
EDOKA_IL_Manuell/My Project/Resources.resx
Normal file
117
EDOKA_IL_Manuell/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
|||||||
|
<?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.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: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" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</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" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
197
EDOKA_IL_Manuell/My Project/Settings.Designer.vb
generated
Normal file
197
EDOKA_IL_Manuell/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,197 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.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 "Automatische My.Settings-Speicherfunktion"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
||||||
|
Public Property Entrypoint_IL() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("Entrypoint_IL"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("Entrypoint_IL") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute(" data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist sec"& _
|
||||||
|
"urity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||||
|
" ")> _
|
||||||
|
Public Property Connectionstring_EDOKA() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("Connectionstring_EDOKA"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("Connectionstring_EDOKA") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" data source=shu00;initial catalog=edoka_journale;integrated security="& _
|
||||||
|
"SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;pas"& _
|
||||||
|
"sword=*shu29"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")> _
|
||||||
|
Public Property Connectionstring_Journale() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("Connectionstring_Journale"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("Connectionstring_Journale") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("100000")> _
|
||||||
|
Public Property BCK_Intervall() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("BCK_Intervall"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("BCK_Intervall") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("4")> _
|
||||||
|
Public Property Dokument_Intervall() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("Dokument_Intervall"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("Dokument_Intervall") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("K:\EDOKA\__OnBase\ManualImport")> _
|
||||||
|
Public Property Watch_Dir() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("Watch_Dir"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("Watch_Dir") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("K:\EDOKA\__OnBase\TempDir")> _
|
||||||
|
Public Property TempDir() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("TempDir"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("TempDir") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("K:\EDOKA\__OnBase\TempDirOffice")> _
|
||||||
|
Public Property TempDirOffice() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("TempDirOffice"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("TempDirOffice") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
||||||
|
Public Property OfficeFormat() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("OfficeFormat"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("OfficeFormat") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("1")> _
|
||||||
|
Public Property Demo() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("Demo"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("Demo") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.EDOKA_IL_Manuell.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.EDOKA_IL_Manuell.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
39
EDOKA_IL_Manuell/My Project/Settings.settings
Normal file
39
EDOKA_IL_Manuell/My Project/Settings.settings
Normal file
@@ -0,0 +1,39 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
|
||||||
|
<Profiles />
|
||||||
|
<Settings>
|
||||||
|
<Setting Name="Entrypoint_IL" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)" />
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="Connectionstring_EDOKA" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)"> data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
|
||||||
|
</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="Connectionstring_Journale" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">
|
||||||
|
data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
|
||||||
|
</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="BCK_Intervall" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">100000</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="Dokument_Intervall" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">4</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="Watch_Dir" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">K:\EDOKA\__OnBase\ManualImport</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="TempDir" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">K:\EDOKA\__OnBase\TempDir</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="TempDirOffice" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">K:\EDOKA\__OnBase\TempDirOffice</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="OfficeFormat" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)" />
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="Demo" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">1</Value>
|
||||||
|
</Setting>
|
||||||
|
</Settings>
|
||||||
|
</SettingsFile>
|
||||||
BIN
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.exe
Normal file
BIN
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.exe
Normal file
Binary file not shown.
48
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.exe.config
Normal file
48
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.exe.config
Normal file
@@ -0,0 +1,48 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8" ?>
|
||||||
|
<configuration>
|
||||||
|
<configSections>
|
||||||
|
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
|
||||||
|
<section name="EDOKA_IL_Manuell.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
|
||||||
|
</sectionGroup>
|
||||||
|
</configSections>
|
||||||
|
<startup>
|
||||||
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
|
||||||
|
</startup>
|
||||||
|
<userSettings>
|
||||||
|
<EDOKA_IL_Manuell.My.MySettings>
|
||||||
|
<setting name="Entrypoint_IL" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="Connectionstring_EDOKA" serializeAs="String">
|
||||||
|
<value> data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
|
||||||
|
</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Connectionstring_Journale" serializeAs="String">
|
||||||
|
<value>
|
||||||
|
data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
|
||||||
|
</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="BCK_Intervall" serializeAs="String">
|
||||||
|
<value>100000</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Dokument_Intervall" serializeAs="String">
|
||||||
|
<value>4</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Watch_Dir" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\ManualImport</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="TempDir" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\TempDir</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="TempDirOffice" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\TempDirOffice</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="OfficeFormat" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="Demo" serializeAs="String">
|
||||||
|
<value>1</value>
|
||||||
|
</setting>
|
||||||
|
</EDOKA_IL_Manuell.My.MySettings>
|
||||||
|
</userSettings>
|
||||||
|
</configuration>
|
||||||
BIN
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.pdb
Normal file
BIN
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.pdb
Normal file
Binary file not shown.
44
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.xml
Normal file
44
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.xml
Normal file
@@ -0,0 +1,44 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<doc>
|
||||||
|
<assembly>
|
||||||
|
<name>
|
||||||
|
EDOKA_IL_Manuell
|
||||||
|
</name>
|
||||||
|
</assembly>
|
||||||
|
<members>
|
||||||
|
<member name="T:EDOKA_IL_Manuell.My.Resources.Resources">
|
||||||
|
<summary>
|
||||||
|
A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.ResourceManager">
|
||||||
|
<summary>
|
||||||
|
Returns the cached ResourceManager instance used by this class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.Culture">
|
||||||
|
<summary>
|
||||||
|
Overrides the current thread's CurrentUICulture property for all
|
||||||
|
resource lookups using this strongly typed resource class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.Init_Filewatcher">
|
||||||
|
<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||||
|
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||||
|
Dateifilter-Angaben initialisiert.</remarks>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.Start_Watching">
|
||||||
|
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
|
||||||
|
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||||
|
<remarks>Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler
|
||||||
|
gestoppt und die anstehenden Dokumente verarbeitet.
|
||||||
|
|
||||||
|
Nach abgeschlossener Verarbeitung wird der Eventhandler wieder
|
||||||
|
eingeschaltet</remarks>
|
||||||
|
<param name="source"></param>
|
||||||
|
<param name="e"></param>
|
||||||
|
</member>
|
||||||
|
</members>
|
||||||
|
</doc>
|
||||||
BIN
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.zip
Normal file
BIN
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.zip
Normal file
Binary file not shown.
BIN
EDOKA_IL_Manuell/bin/Debug/Newtonsoft.Json.dll
Normal file
BIN
EDOKA_IL_Manuell/bin/Debug/Newtonsoft.Json.dll
Normal file
Binary file not shown.
10393
EDOKA_IL_Manuell/bin/Debug/Newtonsoft.Json.xml
Normal file
10393
EDOKA_IL_Manuell/bin/Debug/Newtonsoft.Json.xml
Normal file
File diff suppressed because it is too large
Load Diff
BIN
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Compression.Base.dll
Normal file
BIN
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Compression.Base.dll
Normal file
Binary file not shown.
11412
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Compression.Base.xml
Normal file
11412
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Compression.Base.xml
Normal file
File diff suppressed because it is too large
Load Diff
BIN
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Licensing.dll
Normal file
BIN
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Licensing.dll
Normal file
Binary file not shown.
BIN
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Pdf.Base.dll
Normal file
BIN
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Pdf.Base.dll
Normal file
Binary file not shown.
229489
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Pdf.Base.xml
Normal file
229489
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Pdf.Base.xml
Normal file
File diff suppressed because it is too large
Load Diff
4
EDOKA_IL_Manuell/bin/Debug/_Zipit.bat
Normal file
4
EDOKA_IL_Manuell/bin/Debug/_Zipit.bat
Normal file
@@ -0,0 +1,4 @@
|
|||||||
|
delete EDOKA_IL_Manuell.zip
|
||||||
|
"C:\Program Files\7-Zip\7z.exe" -pshu*tkb98123 a EDOKA_IL_Manuell.zip EDOKA_IL_Manuell.exe EDOKA_IL_Manuell.exe.config
|
||||||
|
copy edoka_il_manuell.zip H:\NextCloud\ZZDownload
|
||||||
|
pause
|
||||||
BIN
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.exe
Normal file
BIN
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.exe
Normal file
Binary file not shown.
48
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.exe.config
Normal file
48
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.exe.config
Normal file
@@ -0,0 +1,48 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8" ?>
|
||||||
|
<configuration>
|
||||||
|
<configSections>
|
||||||
|
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
|
||||||
|
<section name="EDOKA_IL_Manuell.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
|
||||||
|
</sectionGroup>
|
||||||
|
</configSections>
|
||||||
|
<startup>
|
||||||
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
|
||||||
|
</startup>
|
||||||
|
<userSettings>
|
||||||
|
<EDOKA_IL_Manuell.My.MySettings>
|
||||||
|
<setting name="Entrypoint_IL" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="Connectionstring_EDOKA" serializeAs="String">
|
||||||
|
<value> data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
|
||||||
|
</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Connectionstring_Journale" serializeAs="String">
|
||||||
|
<value>
|
||||||
|
data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
|
||||||
|
</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="BCK_Intervall" serializeAs="String">
|
||||||
|
<value>100000</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Dokument_Intervall" serializeAs="String">
|
||||||
|
<value>4</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Watch_Dir" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\ManualImport</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="TempDir" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\TempDir</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="TempDirOffice" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\TempDirOffice</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="OfficeFormat" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="Demo" serializeAs="String">
|
||||||
|
<value>1</value>
|
||||||
|
</setting>
|
||||||
|
</EDOKA_IL_Manuell.My.MySettings>
|
||||||
|
</userSettings>
|
||||||
|
</configuration>
|
||||||
BIN
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.pdb
Normal file
BIN
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.pdb
Normal file
Binary file not shown.
44
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.xml
Normal file
44
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.xml
Normal file
@@ -0,0 +1,44 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<doc>
|
||||||
|
<assembly>
|
||||||
|
<name>
|
||||||
|
EDOKA_IL_Manuell
|
||||||
|
</name>
|
||||||
|
</assembly>
|
||||||
|
<members>
|
||||||
|
<member name="T:EDOKA_IL_Manuell.My.Resources.Resources">
|
||||||
|
<summary>
|
||||||
|
A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.ResourceManager">
|
||||||
|
<summary>
|
||||||
|
Returns the cached ResourceManager instance used by this class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.Culture">
|
||||||
|
<summary>
|
||||||
|
Overrides the current thread's CurrentUICulture property for all
|
||||||
|
resource lookups using this strongly typed resource class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.Init_Filewatcher">
|
||||||
|
<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||||
|
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||||
|
Dateifilter-Angaben initialisiert.</remarks>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.Start_Watching">
|
||||||
|
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
|
||||||
|
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||||
|
<remarks>Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler
|
||||||
|
gestoppt und die anstehenden Dokumente verarbeitet.
|
||||||
|
|
||||||
|
Nach abgeschlossener Verarbeitung wird der Eventhandler wieder
|
||||||
|
eingeschaltet</remarks>
|
||||||
|
<param name="source"></param>
|
||||||
|
<param name="e"></param>
|
||||||
|
</member>
|
||||||
|
</members>
|
||||||
|
</doc>
|
||||||
BIN
EDOKA_IL_Manuell/bin/Release/Newtonsoft.Json.dll
Normal file
BIN
EDOKA_IL_Manuell/bin/Release/Newtonsoft.Json.dll
Normal file
Binary file not shown.
10393
EDOKA_IL_Manuell/bin/Release/Newtonsoft.Json.xml
Normal file
10393
EDOKA_IL_Manuell/bin/Release/Newtonsoft.Json.xml
Normal file
File diff suppressed because it is too large
Load Diff
BIN
EDOKA_IL_Manuell/bin/Release/Syncfusion.Compression.Base.dll
Normal file
BIN
EDOKA_IL_Manuell/bin/Release/Syncfusion.Compression.Base.dll
Normal file
Binary file not shown.
11412
EDOKA_IL_Manuell/bin/Release/Syncfusion.Compression.Base.xml
Normal file
11412
EDOKA_IL_Manuell/bin/Release/Syncfusion.Compression.Base.xml
Normal file
File diff suppressed because it is too large
Load Diff
BIN
EDOKA_IL_Manuell/bin/Release/Syncfusion.Licensing.dll
Normal file
BIN
EDOKA_IL_Manuell/bin/Release/Syncfusion.Licensing.dll
Normal file
Binary file not shown.
BIN
EDOKA_IL_Manuell/bin/Release/Syncfusion.Pdf.Base.dll
Normal file
BIN
EDOKA_IL_Manuell/bin/Release/Syncfusion.Pdf.Base.dll
Normal file
Binary file not shown.
229489
EDOKA_IL_Manuell/bin/Release/Syncfusion.Pdf.Base.xml
Normal file
229489
EDOKA_IL_Manuell/bin/Release/Syncfusion.Pdf.Base.xml
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,7 @@
|
|||||||
|
' <autogenerated/>
|
||||||
|
Option Strict Off
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
<Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.6", FrameworkDisplayName:=".NET Framework 4.6")>
|
||||||
Binary file not shown.
Binary file not shown.
BIN
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.Resources.resources
Normal file
BIN
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.Resources.resources
Normal file
Binary file not shown.
BIN
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.exe
Normal file
BIN
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.exe
Normal file
Binary file not shown.
BIN
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.pdb
Normal file
BIN
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.pdb
Normal file
Binary file not shown.
Binary file not shown.
@@ -0,0 +1 @@
|
|||||||
|
ffb1f70e44aa72c6bb40b94385252dfa1ddbf492
|
||||||
@@ -0,0 +1,19 @@
|
|||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Debug\EDOKA_IL_Manuell.Resources.resources
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Debug\EDOKA_IL_Manuell.vbproj.GenerateResource.cache
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Debug\EDOKA_IL_Manuell.vbproj.CoreCompileInputs.cache
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Debug\EDOKA_IL_Manuell.exe.config
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Debug\EDOKA_IL_Manuell.exe
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Debug\EDOKA_IL_Manuell.pdb
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Debug\EDOKA_IL_Manuell.xml
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Debug\Newtonsoft.Json.dll
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Debug\Syncfusion.Compression.Base.dll
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Debug\Syncfusion.Licensing.dll
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Debug\Syncfusion.Pdf.Base.dll
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Debug\Newtonsoft.Json.xml
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Debug\Syncfusion.Compression.Base.xml
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Debug\Syncfusion.Pdf.Base.xml
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Debug\EDOKA_IL_Manuell.vbproj.CopyComplete
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Debug\EDOKA_IL_Manuell.exe
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Debug\EDOKA_IL_Manuell.xml
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Debug\EDOKA_IL_Manuell.pdb
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Debug\EDOKA_IL_Manuell.vbproj.AssemblyReference.cache
|
||||||
Binary file not shown.
44
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.xml
Normal file
44
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.xml
Normal file
@@ -0,0 +1,44 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<doc>
|
||||||
|
<assembly>
|
||||||
|
<name>
|
||||||
|
EDOKA_IL_Manuell
|
||||||
|
</name>
|
||||||
|
</assembly>
|
||||||
|
<members>
|
||||||
|
<member name="T:EDOKA_IL_Manuell.My.Resources.Resources">
|
||||||
|
<summary>
|
||||||
|
A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.ResourceManager">
|
||||||
|
<summary>
|
||||||
|
Returns the cached ResourceManager instance used by this class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.Culture">
|
||||||
|
<summary>
|
||||||
|
Overrides the current thread's CurrentUICulture property for all
|
||||||
|
resource lookups using this strongly typed resource class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.Init_Filewatcher">
|
||||||
|
<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||||
|
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||||
|
Dateifilter-Angaben initialisiert.</remarks>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.Start_Watching">
|
||||||
|
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
|
||||||
|
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||||
|
<remarks>Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler
|
||||||
|
gestoppt und die anstehenden Dokumente verarbeitet.
|
||||||
|
|
||||||
|
Nach abgeschlossener Verarbeitung wird der Eventhandler wieder
|
||||||
|
eingeschaltet</remarks>
|
||||||
|
<param name="source"></param>
|
||||||
|
<param name="e"></param>
|
||||||
|
</member>
|
||||||
|
</members>
|
||||||
|
</doc>
|
||||||
Binary file not shown.
@@ -0,0 +1,7 @@
|
|||||||
|
' <autogenerated/>
|
||||||
|
Option Strict Off
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
<Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.6", FrameworkDisplayName:=".NET Framework 4.6")>
|
||||||
Binary file not shown.
Binary file not shown.
BIN
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.exe
Normal file
BIN
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.exe
Normal file
Binary file not shown.
BIN
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.pdb
Normal file
BIN
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.pdb
Normal file
Binary file not shown.
Binary file not shown.
@@ -0,0 +1 @@
|
|||||||
|
2be4c985c431a0add4fdfba08612d98d46289e22
|
||||||
@@ -0,0 +1,19 @@
|
|||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Release\EDOKA_IL_Manuell.exe.config
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Release\EDOKA_IL_Manuell.exe
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Release\EDOKA_IL_Manuell.pdb
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Release\EDOKA_IL_Manuell.xml
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Release\Newtonsoft.Json.dll
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Release\Syncfusion.Compression.Base.dll
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Release\Syncfusion.Licensing.dll
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Release\Syncfusion.Pdf.Base.dll
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Release\Newtonsoft.Json.xml
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Release\Syncfusion.Compression.Base.xml
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\bin\Release\Syncfusion.Pdf.Base.xml
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Release\EDOKA_IL_Manuell.vbproj.AssemblyReference.cache
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Release\EDOKA_IL_Manuell.Resources.resources
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Release\EDOKA_IL_Manuell.vbproj.GenerateResource.cache
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Release\EDOKA_IL_Manuell.vbproj.CoreCompileInputs.cache
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Release\EDOKA_IL_Manuell.vbproj.CopyComplete
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Release\EDOKA_IL_Manuell.exe
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Release\EDOKA_IL_Manuell.xml
|
||||||
|
E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB02_DMS\EDOKA_IL_Manuell\obj\Release\EDOKA_IL_Manuell.pdb
|
||||||
Binary file not shown.
44
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.xml
Normal file
44
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.xml
Normal file
@@ -0,0 +1,44 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<doc>
|
||||||
|
<assembly>
|
||||||
|
<name>
|
||||||
|
EDOKA_IL_Manuell
|
||||||
|
</name>
|
||||||
|
</assembly>
|
||||||
|
<members>
|
||||||
|
<member name="T:EDOKA_IL_Manuell.My.Resources.Resources">
|
||||||
|
<summary>
|
||||||
|
A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.ResourceManager">
|
||||||
|
<summary>
|
||||||
|
Returns the cached ResourceManager instance used by this class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.Culture">
|
||||||
|
<summary>
|
||||||
|
Overrides the current thread's CurrentUICulture property for all
|
||||||
|
resource lookups using this strongly typed resource class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.Init_Filewatcher">
|
||||||
|
<summary>Initialisierung des Filewacher-Objektes</summary>
|
||||||
|
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
|
||||||
|
Dateifilter-Angaben initialisiert.</remarks>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.Start_Watching">
|
||||||
|
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
|
||||||
|
</member>
|
||||||
|
<member name="M:EDOKA_IL_Manuell.Module1.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
|
||||||
|
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
|
||||||
|
<remarks>Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler
|
||||||
|
gestoppt und die anstehenden Dokumente verarbeitet.
|
||||||
|
|
||||||
|
Nach abgeschlossener Verarbeitung wird der Eventhandler wieder
|
||||||
|
eingeschaltet</remarks>
|
||||||
|
<param name="source"></param>
|
||||||
|
<param name="e"></param>
|
||||||
|
</member>
|
||||||
|
</members>
|
||||||
|
</doc>
|
||||||
Binary file not shown.
30
ILTest/App.config
Normal file
30
ILTest/App.config
Normal file
@@ -0,0 +1,30 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8" ?>
|
||||||
|
<configuration>
|
||||||
|
<configSections>
|
||||||
|
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
|
||||||
|
<section name="ILTest.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
|
||||||
|
</sectionGroup>
|
||||||
|
</configSections>
|
||||||
|
<startup>
|
||||||
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
|
||||||
|
</startup>
|
||||||
|
<userSettings>
|
||||||
|
<ILTest.My.MySettings>
|
||||||
|
<setting name="TempDir" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\TempDir</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Filename" serializeAs="String">
|
||||||
|
<value>OFFEDK0002004000646235.pdf</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Dokumentid" serializeAs="String">
|
||||||
|
<value>OFFEDK0002004000646235</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="url" serializeAs="String">
|
||||||
|
<value>http://sxs.dd.dd/sss/</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Einstellung" serializeAs="String">
|
||||||
|
<value>http://sxs.dd.dd/sss/</value>
|
||||||
|
</setting>
|
||||||
|
</ILTest.My.MySettings>
|
||||||
|
</userSettings>
|
||||||
|
</configuration>
|
||||||
115
ILTest/ILTest.vbproj
Normal file
115
ILTest/ILTest.vbproj
Normal file
@@ -0,0 +1,115 @@
|
|||||||
|
<?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>{FB94A9CB-7938-44EC-8886-B705D7686C41}</ProjectGuid>
|
||||||
|
<OutputType>Exe</OutputType>
|
||||||
|
<StartupObject>ILTest.Module1</StartupObject>
|
||||||
|
<RootNamespace>ILTest</RootNamespace>
|
||||||
|
<AssemblyName>ILTest</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>Console</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.6</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>ILTest.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>ILTest.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="Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>..\bin\Newtonsoft.Json.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<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.Diagnostics" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="clsOnBaseDokument.vb" />
|
||||||
|
<Compile Include="Module1.vb" />
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</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>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
</Project>
|
||||||
6
ILTest/ILTest.vbproj.user
Normal file
6
ILTest/ILTest.vbproj.user
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
|
||||||
|
<StartArguments>A</StartArguments>
|
||||||
|
</PropertyGroup>
|
||||||
|
</Project>
|
||||||
124
ILTest/Module1.vb
Normal file
124
ILTest/Module1.vb
Normal file
@@ -0,0 +1,124 @@
|
|||||||
|
Imports System.Threading
|
||||||
|
Imports System.IO
|
||||||
|
|
||||||
|
Imports System.Collections.Generic
|
||||||
|
Imports System.Drawing
|
||||||
|
Imports Newtonsoft
|
||||||
|
|
||||||
|
Imports System.Text
|
||||||
|
Imports System.Web
|
||||||
|
Imports System.Net.Http
|
||||||
|
Imports System.Net
|
||||||
|
|
||||||
|
Module Module1
|
||||||
|
Dim Base64_File As String
|
||||||
|
Dim JsonString As String
|
||||||
|
Dim mimetype As String
|
||||||
|
Dim OutputFile As String
|
||||||
|
|
||||||
|
Sub Main()
|
||||||
|
Console.WriteLine(Now.ToString, "yyyy-mm-dd hh:MM:ss" + ": Start")
|
||||||
|
Dim args As String() = Environment.GetCommandLineArgs()
|
||||||
|
|
||||||
|
If IsNothing(args(1)) Then
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Console.WriteLine(Now.ToString, "yyyy-mm-dd hh:MM:ss" + ": Fileconvert")
|
||||||
|
|
||||||
|
OutputFile = My.Settings.TempDir + "\" + My.Settings.Filename
|
||||||
|
Base64_File = ConvertFileToBase64(OutputFile)
|
||||||
|
JsonString = ""
|
||||||
|
Console.WriteLine(Now.ToString, "yyyy-mm-dd hh:MM:ss" + ": Create DataStream")
|
||||||
|
Create_OnBase_Datastream(My.Settings.Dokumentid)
|
||||||
|
|
||||||
|
|
||||||
|
Console.WriteLine(Now.ToString, "yyyy-mm-dd hh:MM:ss" + ": Start UpLoad")
|
||||||
|
If args(1) = "A" Then
|
||||||
|
Dim data = Encoding.UTF8.GetBytes(JsonString)
|
||||||
|
Dim myUri As New Uri(My.Settings.url)
|
||||||
|
|
||||||
|
Dim result_post = SendRequest_A(myUri, data, "application/json", "POST")
|
||||||
|
End If
|
||||||
|
Console.WriteLine(Now.ToString, "yyyy-mm-dd hh:MM:ss" + ": Stop Upload")
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function ConvertFileToBase64(ByVal fileName As String) As String
|
||||||
|
|
||||||
|
Dim ReturnValue As String = ""
|
||||||
|
|
||||||
|
If My.Computer.FileSystem.FileExists(fileName) Then
|
||||||
|
Using BinaryFile As FileStream = New FileStream(fileName, FileMode.Open)
|
||||||
|
Dim BinRead As BinaryReader = New BinaryReader(BinaryFile)
|
||||||
|
Dim BinBytes As Byte() = BinRead.ReadBytes(CInt(BinaryFile.Length))
|
||||||
|
ReturnValue = Convert.ToBase64String(BinBytes)
|
||||||
|
BinaryFile.Close()
|
||||||
|
End Using
|
||||||
|
End If
|
||||||
|
Return ReturnValue
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Transfer_Onbase(ByVal dokumentid As String) As Boolean
|
||||||
|
Dim file As System.IO.StreamWriter
|
||||||
|
file = My.Computer.FileSystem.OpenTextFileWriter(My.Settings.TempDir + "\" + dokumentid + ".json", True)
|
||||||
|
file.Write(JsonString)
|
||||||
|
file.Close()
|
||||||
|
Return True
|
||||||
|
End Function
|
||||||
|
Private Sub Create_OnBase_Datastream(ByVal dokumentid As String)
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim od As New OnBaseDokument
|
||||||
|
od.dokumentTyp = "Brief"
|
||||||
|
od.bpNummer = "1032777"
|
||||||
|
od.personNummer = ""
|
||||||
|
od.dokumentDatei = Base64_File
|
||||||
|
|
||||||
|
od.dokumentDatum = Now.ToString("dd.mm.yyyy")
|
||||||
|
od.dateiTyp = "PDF"
|
||||||
|
|
||||||
|
Dim Attribute As New List(Of attribute)
|
||||||
|
Dim p As New attribute With
|
||||||
|
{
|
||||||
|
.fieldname = "EDOKA Dokument-ID",
|
||||||
|
.fieldvalue = dokumentid
|
||||||
|
}
|
||||||
|
Attribute.Add(p)
|
||||||
|
od.attributes = Attribute
|
||||||
|
JsonString = ""
|
||||||
|
JsonString = Newtonsoft.Json.JsonConvert.SerializeObject(od, Newtonsoft.Json.Formatting.Indented)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Private Function SendRequest_A(uri As Uri, jsonDataBytes As Byte(), contentType As String, method As String) As String
|
||||||
|
Dim response As String
|
||||||
|
Dim request As WebRequest
|
||||||
|
|
||||||
|
request = WebRequest.Create(uri)
|
||||||
|
request.ContentLength = jsonDataBytes.Length
|
||||||
|
request.ContentType = contentType
|
||||||
|
request.Method = method
|
||||||
|
Try
|
||||||
|
Using requestStream = request.GetRequestStream
|
||||||
|
requestStream.Write(jsonDataBytes, 0, jsonDataBytes.Length)
|
||||||
|
requestStream.Close()
|
||||||
|
|
||||||
|
Using responseStream = request.GetResponse.GetResponseStream
|
||||||
|
Using reader As New StreamReader(responseStream)
|
||||||
|
response = reader.ReadToEnd()
|
||||||
|
End Using
|
||||||
|
End Using
|
||||||
|
End Using
|
||||||
|
|
||||||
|
|
||||||
|
Return response
|
||||||
|
Catch ex As Exception
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Module
|
||||||
13
ILTest/My Project/Application.Designer.vb
generated
Normal file
13
ILTest/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <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
|
||||||
|
|
||||||
10
ILTest/My Project/Application.myapp
Normal file
10
ILTest/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>false</MySubMain>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<ApplicationType>2</ApplicationType>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
ILTest/My Project/AssemblyInfo.vb
Normal file
35
ILTest/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("ILTest")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("")>
|
||||||
|
<Assembly: AssemblyProduct("ILTest")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © 2023")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
|
||||||
|
<Assembly: Guid("8811aec6-ecf4-4ba2-93a6-05fcb0e6c357")>
|
||||||
|
|
||||||
|
' 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,
|
||||||
|
' indem Sie "*" wie unten gezeigt eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
62
ILTest/My Project/Resources.Designer.vb
generated
Normal file
62
ILTest/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,62 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <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.Resources
|
||||||
|
|
||||||
|
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||||
|
'class via a tool like ResGen or Visual Studio.
|
||||||
|
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||||
|
'with the /str option, or rebuild your VS project.
|
||||||
|
'''<summary>
|
||||||
|
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Returns the cached ResourceManager instance used by this class.
|
||||||
|
'''</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("ILTest.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Overrides the current thread's CurrentUICulture property for all
|
||||||
|
''' resource lookups using this strongly typed resource class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
117
ILTest/My Project/Resources.resx
Normal file
117
ILTest/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
|||||||
|
<?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.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: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" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</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" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
133
ILTest/My Project/Settings.Designer.vb
generated
Normal file
133
ILTest/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,133 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.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 "Automatische My.Settings-Speicherfunktion"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("K:\EDOKA\__OnBase\TempDir")> _
|
||||||
|
Public Property TempDir() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("TempDir"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("TempDir") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("OFFEDK0002004000646235.pdf")> _
|
||||||
|
Public Property Filename() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("Filename"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("Filename") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("OFFEDK0002004000646235")> _
|
||||||
|
Public Property Dokumentid() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("Dokumentid"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("Dokumentid") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("http://sxs.dd.dd/sss/")> _
|
||||||
|
Public Property url() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("url"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("url") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("http://sxs.dd.dd/sss/")> _
|
||||||
|
Public Property Einstellung() As String
|
||||||
|
Get
|
||||||
|
Return CType(Me("Einstellung"),String)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("Einstellung") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.ILTest.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.ILTest.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
21
ILTest/My Project/Settings.settings
Normal file
21
ILTest/My Project/Settings.settings
Normal file
@@ -0,0 +1,21 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
|
||||||
|
<Profiles />
|
||||||
|
<Settings>
|
||||||
|
<Setting Name="TempDir" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">K:\EDOKA\__OnBase\TempDir</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="Filename" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">OFFEDK0002004000646235.pdf</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="Dokumentid" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">OFFEDK0002004000646235</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="url" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">http://sxs.dd.dd/sss/</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="Einstellung" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)">http://sxs.dd.dd/sss/</Value>
|
||||||
|
</Setting>
|
||||||
|
</Settings>
|
||||||
|
</SettingsFile>
|
||||||
BIN
ILTest/bin/Debug/ILTest.exe
Normal file
BIN
ILTest/bin/Debug/ILTest.exe
Normal file
Binary file not shown.
30
ILTest/bin/Debug/ILTest.exe.config
Normal file
30
ILTest/bin/Debug/ILTest.exe.config
Normal file
@@ -0,0 +1,30 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8" ?>
|
||||||
|
<configuration>
|
||||||
|
<configSections>
|
||||||
|
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
|
||||||
|
<section name="ILTest.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
|
||||||
|
</sectionGroup>
|
||||||
|
</configSections>
|
||||||
|
<startup>
|
||||||
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
|
||||||
|
</startup>
|
||||||
|
<userSettings>
|
||||||
|
<ILTest.My.MySettings>
|
||||||
|
<setting name="TempDir" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\TempDir</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Filename" serializeAs="String">
|
||||||
|
<value>OFFEDK0002004000646235.pdf</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Dokumentid" serializeAs="String">
|
||||||
|
<value>OFFEDK0002004000646235</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="url" serializeAs="String">
|
||||||
|
<value>http://sxs.dd.dd/sss/</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Einstellung" serializeAs="String">
|
||||||
|
<value>http://sxs.dd.dd/sss/</value>
|
||||||
|
</setting>
|
||||||
|
</ILTest.My.MySettings>
|
||||||
|
</userSettings>
|
||||||
|
</configuration>
|
||||||
BIN
ILTest/bin/Debug/ILTest.pdb
Normal file
BIN
ILTest/bin/Debug/ILTest.pdb
Normal file
Binary file not shown.
26
ILTest/bin/Debug/ILTest.xml
Normal file
26
ILTest/bin/Debug/ILTest.xml
Normal file
@@ -0,0 +1,26 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<doc>
|
||||||
|
<assembly>
|
||||||
|
<name>
|
||||||
|
ILTest
|
||||||
|
</name>
|
||||||
|
</assembly>
|
||||||
|
<members>
|
||||||
|
<member name="T:ILTest.My.Resources.Resources">
|
||||||
|
<summary>
|
||||||
|
A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:ILTest.My.Resources.Resources.ResourceManager">
|
||||||
|
<summary>
|
||||||
|
Returns the cached ResourceManager instance used by this class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:ILTest.My.Resources.Resources.Culture">
|
||||||
|
<summary>
|
||||||
|
Overrides the current thread's CurrentUICulture property for all
|
||||||
|
resource lookups using this strongly typed resource class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
</members>
|
||||||
|
</doc>
|
||||||
BIN
ILTest/bin/Debug/Newtonsoft.Json.dll
Normal file
BIN
ILTest/bin/Debug/Newtonsoft.Json.dll
Normal file
Binary file not shown.
10393
ILTest/bin/Debug/Newtonsoft.Json.xml
Normal file
10393
ILTest/bin/Debug/Newtonsoft.Json.xml
Normal file
File diff suppressed because it is too large
Load Diff
BIN
ILTest/bin/Debug/edoka_il.zip
Normal file
BIN
ILTest/bin/Debug/edoka_il.zip
Normal file
Binary file not shown.
BIN
ILTest/bin/Release/ILTest.exe
Normal file
BIN
ILTest/bin/Release/ILTest.exe
Normal file
Binary file not shown.
30
ILTest/bin/Release/ILTest.exe.config
Normal file
30
ILTest/bin/Release/ILTest.exe.config
Normal file
@@ -0,0 +1,30 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8" ?>
|
||||||
|
<configuration>
|
||||||
|
<configSections>
|
||||||
|
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
|
||||||
|
<section name="ILTest.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
|
||||||
|
</sectionGroup>
|
||||||
|
</configSections>
|
||||||
|
<startup>
|
||||||
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
|
||||||
|
</startup>
|
||||||
|
<userSettings>
|
||||||
|
<ILTest.My.MySettings>
|
||||||
|
<setting name="TempDir" serializeAs="String">
|
||||||
|
<value>K:\EDOKA\__OnBase\TempDir</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Filename" serializeAs="String">
|
||||||
|
<value>OFFEDK0002004000646235.pdf</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Dokumentid" serializeAs="String">
|
||||||
|
<value>OFFEDK0002004000646235</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="url" serializeAs="String">
|
||||||
|
<value>http://sxs.dd.dd/sss/</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="Einstellung" serializeAs="String">
|
||||||
|
<value>http://sxs.dd.dd/sss/</value>
|
||||||
|
</setting>
|
||||||
|
</ILTest.My.MySettings>
|
||||||
|
</userSettings>
|
||||||
|
</configuration>
|
||||||
BIN
ILTest/bin/Release/ILTest.pdb
Normal file
BIN
ILTest/bin/Release/ILTest.pdb
Normal file
Binary file not shown.
26
ILTest/bin/Release/ILTest.xml
Normal file
26
ILTest/bin/Release/ILTest.xml
Normal file
@@ -0,0 +1,26 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<doc>
|
||||||
|
<assembly>
|
||||||
|
<name>
|
||||||
|
ILTest
|
||||||
|
</name>
|
||||||
|
</assembly>
|
||||||
|
<members>
|
||||||
|
<member name="T:ILTest.My.Resources.Resources">
|
||||||
|
<summary>
|
||||||
|
A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:ILTest.My.Resources.Resources.ResourceManager">
|
||||||
|
<summary>
|
||||||
|
Returns the cached ResourceManager instance used by this class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
<member name="P:ILTest.My.Resources.Resources.Culture">
|
||||||
|
<summary>
|
||||||
|
Overrides the current thread's CurrentUICulture property for all
|
||||||
|
resource lookups using this strongly typed resource class.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
</members>
|
||||||
|
</doc>
|
||||||
BIN
ILTest/bin/Release/Newtonsoft.Json.dll
Normal file
BIN
ILTest/bin/Release/Newtonsoft.Json.dll
Normal file
Binary file not shown.
10393
ILTest/bin/Release/Newtonsoft.Json.xml
Normal file
10393
ILTest/bin/Release/Newtonsoft.Json.xml
Normal file
File diff suppressed because it is too large
Load Diff
16
ILTest/clsOnBaseDokument.vb
Normal file
16
ILTest/clsOnBaseDokument.vb
Normal file
@@ -0,0 +1,16 @@
|
|||||||
|
Imports System.Collections.Generic
|
||||||
|
|
||||||
|
Public Class OnBaseDokument
|
||||||
|
Public Property dokumentTyp As String
|
||||||
|
Public Property dokumentDatum As String
|
||||||
|
Public Property dateiTyp As String
|
||||||
|
Public Property bpNummer As String
|
||||||
|
Public Property personNummer As String
|
||||||
|
Public Property dokumentDatei As String
|
||||||
|
Public Property attributes As List(Of attribute)
|
||||||
|
End Class
|
||||||
|
|
||||||
|
Public Class attribute
|
||||||
|
Public Property fieldname As String
|
||||||
|
Public Property fieldvalue As String
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,7 @@
|
|||||||
|
' <autogenerated/>
|
||||||
|
Option Strict Off
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
<Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.6", FrameworkDisplayName:=".NET Framework 4.6")>
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user