update nach Bedingt Retournierbar
This commit is contained in:
Binary file not shown.
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}" />
|
||||
@@ -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
@@ -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
|
||||
@@ -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
@@ -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
|
||||
@@ -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>
|
||||
@@ -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>
|
||||
@@ -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>
|
||||
@@ -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,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
|
||||
@@ -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
|
||||
@@ -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
@@ -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
|
||||
|
||||
@@ -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>
|
||||
@@ -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
@@ -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
|
||||
@@ -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
@@ -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
|
||||
@@ -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>
|
||||
Binary file not shown.
@@ -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>
|
||||
Binary file not shown.
@@ -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.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@@ -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
|
||||
Binary file not shown.
@@ -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>
|
||||
Binary file not shown.
@@ -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.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
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.
Binary file not shown.
Binary file not shown.
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.
@@ -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.
Binary file not shown.
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.
@@ -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,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>
|
||||
@@ -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>
|
||||
@@ -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>
|
||||
@@ -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
@@ -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
|
||||
|
||||
@@ -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>
|
||||
@@ -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")>
|
||||
Generated
+62
@@ -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
|
||||
@@ -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>
|
||||
Generated
+133
@@ -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
|
||||
@@ -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>
|
||||
Binary file not shown.
@@ -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>
|
||||
Binary file not shown.
@@ -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>
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
@@ -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>
|
||||
Binary file not shown.
@@ -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>
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@@ -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