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"?>
|
||||
<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>
|
||||
<ProjectType>Local</ProjectType>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
@@ -19,7 +19,7 @@
|
||||
</ApplicationIcon>
|
||||
<AssemblyKeyContainerName>
|
||||
</AssemblyKeyContainerName>
|
||||
<AssemblyName>EDKB08_DMS</AssemblyName>
|
||||
<AssemblyName>EDKB02_DMS</AssemblyName>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
||||
@@ -31,15 +31,15 @@
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<RootNamespace>EDKB08_DMS</RootNamespace>
|
||||
<StartupObject>EDKB08_DMS.Service1</StartupObject>
|
||||
<RootNamespace>EDKB02_DMS</RootNamespace>
|
||||
<StartupObject>EDKB02_DMS.EDKB02DMSIL</StartupObject>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<MyType>Console</MyType>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
|
||||
<OldToolsVersion>2.0</OldToolsVersion>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
@@ -55,10 +55,11 @@
|
||||
<ApplicationVersion>2.0.0.%2a</ApplicationVersion>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>EDKB08_DMS.xml</DocumentationFile>
|
||||
<DocumentationFile>EDKB02_DMS.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
@@ -75,10 +76,11 @@
|
||||
<NoWarn>42016,42017,42018,42019,42032,42353,42354,42355</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>EDKB08_DMS.xml</DocumentationFile>
|
||||
<DocumentationFile>EDKB02_DMS.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
@@ -95,14 +97,36 @@
|
||||
<NoWarn>42016,42017,42018,42019,42032,42353,42354,42355</NoWarn>
|
||||
<DebugType>None</DebugType>
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<Prefer32Bit>false</Prefer32Bit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
</PropertyGroup>
|
||||
<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>
|
||||
<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 Include="System">
|
||||
<Name>System</Name>
|
||||
@@ -118,6 +142,7 @@
|
||||
<Reference Include="System.Drawing">
|
||||
<Name>System.Drawing</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Net.Http" />
|
||||
<Reference Include="System.ServiceProcess">
|
||||
<Name>System.ServiceProcess</Name>
|
||||
</Reference>
|
||||
@@ -139,95 +164,10 @@
|
||||
<Compile Include="AssemblyInfo.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\clsCheckandImport.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="edkb08\clsDivFnkt.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="Klassen\clsexcel.vb" />
|
||||
<Compile Include="Klassen\clsParams.vb" />
|
||||
<Compile Include="Klassen\clsdb.vb" />
|
||||
<Compile Include="Klassen\clsOnBaseDokument.vb" />
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
@@ -236,7 +176,7 @@
|
||||
<Compile Include="ProjectInstaller.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Service1.vb">
|
||||
<Compile Include="EDKB02DMSIL.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Settings.vb" />
|
||||
@@ -244,21 +184,17 @@
|
||||
<DependentUpon>ProjectInstaller.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Service1.resx">
|
||||
<DependentUpon>Service1.vb</DependentUpon>
|
||||
<EmbeddedResource Include="EDKB02DMSIL.resx">
|
||||
<DependentUpon>EDKB02DMSIL.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<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\Settings.settings">
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="packages.config" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<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