shu/EDKB08_DMS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update nach Bedingt Retournierbar

Browse Source
This commit is contained in:
Stefan Hutter
2023-06-16 07:28:30 +02:00
parent 1f4e3a6a57
commit 584a947572
382 changed files with 2593860 additions and 21657 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
EDOKA_IL_Manuell/App.config Normal file
View File

@@ -0,0 +1,48 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="EDOKA_IL_Manuell.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
</startup>
<userSettings>
<EDOKA_IL_Manuell.My.MySettings>
<setting name="Entrypoint_IL" serializeAs="String">
<value />
</setting>
<setting name="Connectionstring_EDOKA" serializeAs="String">
<value> data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
</value>
</setting>
<setting name="Connectionstring_Journale" serializeAs="String">
<value>
data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
</value>
</setting>
<setting name="BCK_Intervall" serializeAs="String">
<value>100000</value>
</setting>
<setting name="Dokument_Intervall" serializeAs="String">
<value>4</value>
</setting>
<setting name="Watch_Dir" serializeAs="String">
<value>K:\EDOKA\__OnBase\ManualImport</value>
</setting>
<setting name="TempDir" serializeAs="String">
<value>K:\EDOKA\__OnBase\TempDir</value>
</setting>
<setting name="TempDirOffice" serializeAs="String">
<value>K:\EDOKA\__OnBase\TempDirOffice</value>
</setting>
<setting name="OfficeFormat" serializeAs="String">
<value />
</setting>
<setting name="Demo" serializeAs="String">
<value>1</value>
</setting>
</EDOKA_IL_Manuell.My.MySettings>
</userSettings>
</configuration>

142
EDOKA_IL_Manuell/EDOKA_IL_Manuell.vbproj Normal file
View File

@@ -0,0 +1,142 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{27DD387D-0B52-44B2-B2E2-E2B0ED434098}</ProjectGuid>
<OutputType>Exe</OutputType>
<StartupObject>EDOKA_IL_Manuell.Module1</StartupObject>
<RootNamespace>EDOKA_IL_Manuell</RootNamespace>
<AssemblyName>EDOKA_IL_Manuell</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>EDOKA_IL_Manuell.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>EDOKA_IL_Manuell.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<EmbedInteropTypes>True</EmbedInteropTypes>
<HintPath>..\bin\Microsoft.Office.Interop.Excel.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Office.Interop.Word, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<EmbedInteropTypes>True</EmbedInteropTypes>
<HintPath>..\bin\Microsoft.Office.Interop.Word.dll</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\bin\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="Syncfusion.Compression.Base, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\bin\Syncfusion.Compression.Base.dll</HintPath>
</Reference>
<Reference Include="Syncfusion.Licensing, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=632609b4d040f6b4, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\bin\Syncfusion.Licensing.dll</HintPath>
</Reference>
<Reference Include="Syncfusion.Pdf.Base, Version=19.1460.0.54, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\bin\Syncfusion.Pdf.Base.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Web" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Klassen\clsdb.vb" />
<Compile Include="Klassen\clsOnBaseDokument.vb" />
<Compile Include="Klassen\clsParams.vb" />
<Compile Include="Module1.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

6
EDOKA_IL_Manuell/EDOKA_IL_Manuell.vbproj.user Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
<StartArguments>-t1 -OOFFEDK0002015002399697 -D -Fd:\edoka_il.log</StartArguments>
</PropertyGroup>
</Project>

16
EDOKA_IL_Manuell/Klassen/clsOnBaseDokument.vb Normal file
View File

@@ -0,0 +1,16 @@
Imports System.Collections.Generic
Public Class OnBaseDokument
Public Property dokumentTyp As String
Public Property dokumentDatum As String
Public Property dateiTyp As String
Public Property bpNummer As String
Public Property personNummer As String
Public Property dokumentDatei As String
Public Property attributes As List(Of attribute)
End Class
Public Class attribute
Public Property fieldname As String
Public Property fieldvalue As String
End Class

112
EDOKA_IL_Manuell/Klassen/clsParams.vb Normal file
View File

@@ -0,0 +1,112 @@
Public Class clsParams
Dim mConnectionstring_EDOKA As String
Property Connectionstring_EDOKA As String
Get
Return mConnectionstring_EDOKA
End Get
Set(value As String)
mConnectionstring_EDOKA = value
End Set
End Property
Dim mconnectionstring_Journale As String
Property Connectionstring_Journale As String
Get
Return mconnectionstring_Journale
End Get
Set(value As String)
mconnectionstring_Journale = value
End Set
End Property
Dim mEntrypPoint_IL As String
Property EntryPoint_IL As String
Get
Return mEntrypPoint_IL
End Get
Set(value As String)
mEntrypPoint_IL = value
End Set
End Property
Dim mBCK_TimerInterval As Integer
Property BCK_TimerInterval As Integer
Get
Return mBCK_TimerInterval
End Get
Set(value As Integer)
mBCK_TimerInterval = value
End Set
End Property
Dim mDocument_TimerInterval As Integer
Property Document_Timerinterval As Integer
Get
Return mDocument_TimerInterval
End Get
Set(value As Integer)
mDocument_TimerInterval = value
End Set
End Property
Dim mWachDir As String
Property WachDir As String
Get
Return mWachDir
End Get
Set(value As String)
mWachDir = value
End Set
End Property
Dim mmTempDir As String
Property TempDir As String
Get
Return mmTempDir
End Get
Set(value As String)
mmTempDir = value
End Set
End Property
Dim mTempDirOffice As String
Property TempDirOffice As String
Get
Return mTempDirOffice
End Get
Set(value As String)
mTempDirOffice = value
End Set
End Property
Dim mAsOffice As String
Property AsOffice As String
Get
Return mAsOffice
End Get
Set(value As String)
mAsOffice = value
End Set
End Property
Dim mdemo As String
Property Demo As String
Get
Return mdemo
End Get
Set(value As String)
mdemo = value
End Set
End Property
Public Sub get_params()
Me.Connectionstring_EDOKA = My.Settings.Connectionstring_EDOKA
Me.Connectionstring_Journale = My.Settings.Connectionstring_Journale
Me.EntryPoint_IL = My.Settings.Entrypoint_IL
Me.BCK_TimerInterval = My.Settings.BCK_Intervall
Me.Document_Timerinterval = My.Settings.Dokument_Intervall
Me.WachDir = My.Settings.Watch_Dir
Me.TempDir = My.Settings.TempDir
Me.TempDirOffice = My.Settings.TempDirOffice
Me.AsOffice = My.Settings.OfficeFormat
Me.Demo = My.Settings.Demo
End Sub
End Class

235
EDOKA_IL_Manuell/Klassen/clsdb.vb Normal file
View File

@@ -0,0 +1,235 @@
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlDbType
Imports System.IO
Public Class clsdb
Dim m_connectionstring As String
Property Connectionstring As String
Get
Return m_connectionstring
End Get
Set(value As String)
m_connectionstring = value
End Set
End Property
Public Function Get_Pendente_BCK(ByVal dokumentid As String) As DataTable
Dim connection As New SqlConnection(Connectionstring)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim ds As New DataSet
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 1))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = connection
Try
sdaAdapter.Fill(ds)
Return ds.Tables(0)
Catch ex As Exception
' MsgBox(ex.Message)
End Try
End Function
Public Function Get_OnBase_Datastream(ByVal dokumentid As String) As DataSet
Dim connection As New SqlConnection(Connectionstring)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim ds As New DataSet
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 2))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = connection
Try
sdaAdapter.Fill(ds)
Return ds
Catch ex As Exception
' MsgBox(ex.Message)
End Try
End Function
Public Function Get_Status(ByVal Dokumentid As String)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.SP_Dokumentstatus_statushandling_Select"
Try
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable()
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
Dim connection As New SqlConnection(Connectionstring)
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
scmCmdToExecute.Connection = connection
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
Finally
scmCmdToExecute.Dispose()
End Try
End Function
Public Sub insert_history_status(ByVal statusnr As Integer, ByVal dokumentid As String)
Try
Dim connection As New SqlConnection(Connectionstring)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim ds As New DataSet
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 3))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@value1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, statusnr.ToString))
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = connection
Try
sdaAdapter.Fill(ds)
Catch ex As Exception
' MsgBox(ex.Message)
End Try
Catch ex As Exception
Threading.Thread.Sleep(1000)
'MsgBox(ex.Message)
End Try
End Sub
Public Sub update_dokument(ByVal statusnr As Integer, ByVal dokumentid As String)
Try
Dim connection As New SqlConnection(Connectionstring)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim ds As New DataSet
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 4))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@value1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, statusnr.ToString))
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = connection
Try
sdaAdapter.Fill(ds)
Catch ex As Exception
' MsgBox(ex.Message)
End Try
Catch ex As Exception
Threading.Thread.Sleep(1000)
'MsgBox(ex.Message)
End Try
End Sub
Public Function Get_Archivdokumente(ByVal dokumentid As String) As DataTable
Try
Dim connection As New SqlConnection(Connectionstring)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim ds As New DataSet
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 5))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = connection
Try
sdaAdapter.Fill(ds)
Return ds.Tables(0)
Catch ex As Exception
' MsgBox(ex.Message)
End Try
Catch ex As Exception
Threading.Thread.Sleep(1000)
'MsgBox(ex.Message)
End Try
End Function
Public Function Get_Dokument(ByVal dokumentid As String) As DataTable
Try
Dim connection As New SqlConnection(Connectionstring)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim ds As New DataSet
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 6))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, dokumentid))
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = connection
Try
sdaAdapter.Fill(ds)
Return ds.Tables(0)
Catch ex As Exception
PDebug(ex.Message)
End Try
Catch ex As Exception
Threading.Thread.Sleep(1000)
PDebug(ex.Message)
'MsgBox(ex.Message)
End Try
End Function
Public Function Get_From_DB(ByVal sDokumentID As String, ByVal sDokumentName As String) As Boolean
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select * From doks where DokumentID='" + sDokumentID + "'", connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
'Connectionstring zur Datenbank
connection.ConnectionString = Connectionstring
connection.Open()
da.Fill(ds, "docs")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(1)
Dim K As Long
K = UBound(MyData)
Dim fs As New FileStream(sDokumentName, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Catch ex As Exception
Return False
End Try
CB = Nothing
ds = Nothing
da = Nothing
connection.Close()
connection = Nothing
Return True
End Function
Public Function Update_EDOKA_IL_Status(ByVal Dokumentid As String, ByVal response As String, status As String)
Try
Dim connection As New SqlConnection(Connectionstring)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dtToReturn As DataTable = New DataTable()
Dim ds As New DataSet
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.sp_edoka_onbase"
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, 7))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Dokumentid))
scmCmdToExecute.Parameters.Add(New SqlParameter("@value1", SqlDbType.VarChar, 4096, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, response))
scmCmdToExecute.Parameters.Add(New SqlParameter("@value2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, status))
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = connection
Try
sdaAdapter.Fill(ds)
Return ds.Tables(0)
Catch ex As Exception
' MsgBox(ex.Message)
End Try
Catch ex As Exception
Threading.Thread.Sleep(1000)
'MsgBox(ex.Message)
End Try
End Function
End Class

563
EDOKA_IL_Manuell/Module1.vb Normal file
View File

@@ -0,0 +1,563 @@
Imports System.ServiceProcess
Imports System.Threading
Imports System.IO
Imports System.Collections.Generic
Imports Syncfusion.Pdf
Imports Syncfusion.Pdf.Parsing
Imports Syncfusion.Pdf.Graphics
Imports Syncfusion.Pdf.Grid
Imports System.Drawing
Imports Newtonsoft
Imports Microsoft.Office.Interop
Imports System.Text
Imports System.Net
Imports Newtonsoft.Json
Module Module1
Private StopThread As Boolean = False
Dim WithEvents BCK_Timer As New Timers.Timer()
Dim WithEvents Dokument_Timer As New Timers.Timer
Dim Watch_Directory As String
Dim FileWatch As New FileSystemWatcher()
Dim EventStopped As Boolean = False
Dim db As New clsdb
Dim Base64_File As String
Dim JsonString As String
Dim mimetype As String
Dim OutputFile As String
Dim SendError As String = ""
Dim sendToOnBase As Boolean = False
Dim debug As Boolean = False
Dim w As New Microsoft.Office.Interop.Word.Application
Dim x As New Microsoft.Office.Interop.Excel.Application
Dim dbupdate As Boolean = False
Dim Parameters As New clsParams
Dim arg_verarbeitungstyp As String = ""
Dim arg_dokumentid As String
Dim arg_debugfilename As String = ""
Sub Main()
Try
'Parameters
'STD: Standard-Datei (PDF; Office)
'BCK: Barcodekleber
Dim args As String() = Environment.GetCommandLineArgs()
For i As Integer = 1 To args.Length - 1
Select Case Left(UCase(args(i)), 2)
Case "-T"
arg_verarbeitungstyp = Right(args(i), 1)
Case "-O"
arg_dokumentid = Right(args(i), 22)
Case "-D"
debug = True
Case "-S"
sendToOnBase = True
Case "-U"
dbupdate = True
Case "-F"
arg_debugfilename = Right(args(i), Len(args(i)) - 2)
Case Else
Console.WriteLine("Verwendung EDOKA_IL_Manuell")
Console.WriteLine("EDOKA_IL_Manuell.exe ")
Console.WriteLine("-T[1;2] 1=BCK, 2=Standard-Dokument")
Console.WriteLine("-O[EDOKA-DokumentID]")
Console.WriteLine("-D Debug-Modus einschalten Standard=false")
Console.WriteLine("-S Daten an OnBase senden Standard=false")
Console.WriteLine("-U EDOKA-Update durchführen Standard=fasle")
Console.WriteLine("_F[Dateiname] Debug-Datei Standard=Keine")
Console.ReadLine()
Exit Sub
End Select
Next
PDebug("Verarbeitungstyp: " + arg_verarbeitungstyp)
PDebug("Dokumentid: " + arg_dokumentid)
PDebug("Debug: " + debug.ToString)
PDebug("Debug-Filename :" + arg_debugfilename.ToString)
PDebug("Send to OnBase: " + sendToOnBase.ToString)
PDebug("EDOKA-Update: " + dbupdate.ToString)
PDebug("Start Parameter aus .config lesen")
Parameters.get_params()
db.Connectionstring = Parameters.Connectionstring_EDOKA
PDebug("DB-Connectionstring :" + db.Connectionstring)
PDebug("Entry-Point IL: " + Parameters.EntryPoint_IL)
Syncfusion.Licensing.SyncfusionLicenseProvider.RegisterLicense("OTU3NTQ3QDMyMzAyZTM0MmUzMFhyMnhJK1JNSCtETllyc1k5d0lyYzBBR1NQK2JDQlhpamFLdTN4UjNnenc9 ")
'If args(4) = "DEBUG" Then debug = True
'If args(5) = "UPDATE" Then dbupdate = True
'If args(3) = "SEND" Then sendToOnBase = True
If arg_verarbeitungstyp = 1 Then bck_verarbeiten(arg_dokumentid)
If arg_verarbeitungstyp = 2 Then std_verarbeiten(arg_dokumentid)
w.Quit(SaveChanges:=False)
x.ActiveWorkbook.Close(SaveChanges:=False)
x.Quit()
w.Quit()
x = Nothing
w = Nothing
Catch ex As Exception
End Try
End Sub
Public Sub PDebug(ByVal istring As String)
istring = Now.ToString("dd.mm.yyyy hh.MM.ss") + " - " + istring
If debug = True Then
Console.WriteLine(istring)
If arg_debugfilename <> "" Then
Try
FileOpen(1, arg_debugfilename, OpenMode.Append)
WriteLine(1, istring)
FileClose(1)
Catch
End Try
End If
End If
End Sub
Public Sub bck_verarbeiten(ByVal dokumentid As String)
PDebug("BCK verarbeiten")
Dim dt As New DataTable
dt = db.Get_Pendente_BCK(dokumentid)
For Each r As DataRow In dt.Rows
OutputFile = Parameters.TempDir + "\" + r("dokumentid") + ".pdf"
PDebug("Generiertes PDF: " + OutputFile)
If Create_BCK_Dummy(r("dokumentid"), r("barcodenr")) Then
PDebug("Base-64 Convert")
Base64_File = ConvertFileToBase64(OutputFile)
JsonString = ""
PDebug("Create OnBase-Daten")
Create_OnBase_Datastream(r("dokumentid"))
PDebug(JsonString)
If JsonString <> "" Then
If Transfer_Onbase(r("dokumentid")) = True Then
Dim stnr As Integer
If Parameters.Demo = "0" Then
If dbupdate = True Then
PDebug("Update EDOKA-Datenbank")
stnr = update_status(r("dokumentid"))
db.update_dokument(stnr, r("dokumentid"))
End If
End If
End If
End If
End If
Next
PDebug("BCK verarbeiten ende")
End Sub
Public Sub std_verarbeiten(ByVal dokumentid As String)
PDebug("Standard verarbeiten")
Dim dt As New DataTable
dt = db.Get_Archivdokumente(dokumentid)
For Each r As DataRow In dt.Rows
Dim ofile As String
ofile = Convert_Doc(r("dokumentid"))
If ofile <> "" Then
PDebug("Base-64 Convert")
Base64_File = ConvertFileToBase64(ofile)
JsonString = ""
PDebug("Create OnBase-Daten")
Create_OnBase_Datastream(r("dokumentid"))
If JsonString <> "" Then
PDebug(JsonString)
If Transfer_Onbase(r("dokumentid")) = True Then
Dim stnr As Integer
If Parameters.Demo = 0 Then
If dbupdate = True Then
PDebug("Update EDOKA-Datenbank")
stnr = update_status(r("dokumentid"))
db.update_dokument(stnr, r("dokumentid"))
End If
End If
End If
End If
End If
Next
PDebug("Standard verarbeiten ende")
End Sub
Public Function Create_BCK_Dummy(ByVal Dokumentid As String, ByVal barcodenr As String) As Boolean
Try
Dim document As New PdfDocument()
Dim page As PdfPage = document.Pages.Add()
Dim graphics As PdfGraphics = page.Graphics
Dim font As PdfFont = New PdfStandardFont(PdfFontFamily.Helvetica, 20)
graphics.DrawString("EDOKA-Barcode-Dokument - noch nicht eingescannt", font, PdfBrushes.Black, New PointF(0, 0))
graphics.DrawString("Dokument-ID: " + Dokumentid, font, PdfBrushes.Black, New PointF(0, 50))
graphics.DrawString("Barcode-Kleber: " + barcodenr, font, PdfBrushes.Black, New PointF(0, 75))
document.Save(Parameters.TempDir + "\" + Dokumentid + ".pdf")
document.Close(True)
PDebug("Dummy-PDF erfolgreich erstellt: " + Parameters.TempDir + "\" + Dokumentid + ".pdf")
Return True
Catch
PDebug("Dummy-PDF konnte nicht erstellt werden")
Return False
End Try
End Function
Public Function update_status(ByVal dokumentid As String) As Integer
PDebug("Update EDOKA-Status")
Dim da As New DataTable
da = db.Get_Status(dokumentid)
For i As Integer = 0 To da.Rows.Count - 1
If da.Rows(i).Item("status_bezeichnungnr") = 3 Then
For i1 As Integer = 0 To da.Rows.Count - 1
If da.Rows(i1).Item("status_bezeichnungnr") = 4 Or
da.Rows(i1).Item("status_bezeichnungnr") = 5 Then
db.insert_history_status(da.Rows(i1).Item("dokument_statusnr"), dokumentid)
Return da.Rows(i1).Item("dokument_statusnr")
End If
Next
End If
If da.Rows(i).Item("status_bezeichnungnr") = 11 Then
For i1 As Integer = 0 To da.Rows.Count - 1
If da.Rows(i1).Item("status_bezeichnungnr") = 6 Then
db.insert_history_status(da.Rows(i1).Item("dokument_statusnr"), dokumentid)
Return da.Rows(i1).Item("dokument_statusnr")
End If
Next
End If
Next
End Function
Private Sub Create_OnBase_Datastream(ByVal dokumentid As String)
Dim ds As New DataSet
ds = db.Get_OnBase_Datastream(dokumentid)
Dim od As New OnBaseDokument
od.dokumentTyp = ds.Tables(0).Rows(0).Item("Dokumenttyp")
od.bpNummer = ds.Tables(0).Rows(0).Item("BPNummer")
od.personNummer = ds.Tables(0).Rows(0).Item("PersonNummer")
od.dokumentDatei = Base64_File
od.dokumentDatum = ds.Tables(0).Rows(0).Item("Dokumentdatum")
od.dateiTyp = "PDF"
Dim Attribute As New List(Of attribute)
For Each rw As DataRow In ds.Tables(1).Rows
Dim p As New attribute With
{
.fieldname = rw("fieldname"),
.fieldvalue = rw("fieldvalue")
}
Attribute.Add(p)
Next
od.attributes = Attribute
JsonString = ""
JsonString = Newtonsoft.Json.JsonConvert.SerializeObject(od, Newtonsoft.Json.Formatting.Indented)
End Sub
Public Function ConvertFileToBase64(ByVal fileName As String) As String
Dim ReturnValue As String = ""
If My.Computer.FileSystem.FileExists(fileName) Then
Using BinaryFile As FileStream = New FileStream(fileName, FileMode.Open)
Dim BinRead As BinaryReader = New BinaryReader(BinaryFile)
Dim BinBytes As Byte() = BinRead.ReadBytes(CInt(BinaryFile.Length))
ReturnValue = Convert.ToBase64String(BinBytes)
BinaryFile.Close()
End Using
End If
Return ReturnValue
End Function
Public Function Transfer_Onbase(ByVal dokumentid As String) As Boolean
Try
PDebug("Transfer OnBase")
If sendToOnBase = True Then
PDebug("OnBase")
Dim myUri As New Uri(Parameters.EntryPoint_IL)
Dim data = Encoding.UTF8.GetBytes(JsonString)
Dim response As String
response = SendRequest_A(myUri, data, "application/json", "POST")
PDebug("IL-Response")
PDebug(response)
Dim db As New clsdb
PDebug("JSON-Datei: " + Parameters.TempDir & "\" + dokumentid + ".json")
File.WriteAllText(Parameters.TempDir & "\" + dokumentid + ".json", JsonString)
db.Update_EDOKA_IL_Status(dokumentid, "DEMO:" + dokumentid, "0")
PDebug("Status in EDOKA-Journal nachführen")
db.Update_EDOKA_IL_Status(dokumentid, response, SendError)
If SendError = "1" Then Return False Else Return True
Else
PDebug("Kein OnBase-Transfer")
PDebug("JSON-Datei: " + Parameters.TempDir & "\" + dokumentid + ".json")
File.WriteAllText(Parameters.TempDir & "\" + dokumentid + ".json", JsonString)
db.Update_EDOKA_IL_Status(dokumentid, "DEMO:" + dokumentid, "0")
End If
PDebug("Ende Transfer OnBase")
Catch
Return False
End Try
End Function
Private Function SendRequest_A(uri As Uri, jsonDataBytes As Byte(), contentType As String, method As String) As String
Dim response As String
Dim request As WebRequest
request = WebRequest.Create(uri)
request.ContentLength = jsonDataBytes.Length
request.ContentType = contentType
request.Method = method
Try
Using requestStream As Stream = request.GetRequestStream
requestStream.Write(jsonDataBytes, 0, jsonDataBytes.Length)
requestStream.Close()
Using responseStream As Stream = request.GetResponse.GetResponseStream
Using reader As New StreamReader(responseStream)
response = reader.ReadToEnd()
End Using
End Using
End Using
SendError = "0"
Return response
Catch ex As Exception
SendError = "1"
Return ex.Message
End Try
End Function
'''<summary>Initialisierung des Filewacher-Objektes</summary>
'''<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
'''Dateifilter-Angaben initialisiert.</remarks>
Private Function Init_Filewatcher() As Boolean
Try
FileWatch.Path = Watch_Directory
FileWatch.IncludeSubdirectories = False
FileWatch.Filter = "*.*"
Return True
Catch ex As Exception
'Printout("Fehler bei der Initialisierung des Filewacherobjekts auf " + Watch_Directory + ex.Message, EventLogEntryType.Error)
Return False
End Try
End Function
'''<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
Private Function Start_Watching() As Boolean
Try
AddHandler FileWatch.Created, New FileSystemEventHandler(AddressOf OnFileEvent)
AddHandler FileWatch.Renamed, AddressOf OnFileEventRename
FileWatch.EnableRaisingEvents = True
'PrintOut("Filewatch Event-Handler initialisiert: " + Me.Watch_Directory)
Return True
Catch ex As Exception
'Printout("Fehler bei der Event-Initialisierung " + ex.Message, EventLogEntryType.Error)
Return False
End Try
End Function
'''<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
'''<remarks>Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler
'''gestoppt und die anstehenden Dokumente verarbeitet.
'''
'''Nach abgeschlossener Verarbeitung wird der Eventhandler wieder
'''eingeschaltet</remarks>
'''<param name="source"></param>
'''<param name="e"></param>
Private Sub OnFileEvent(ByVal source As Object, ByVal e As FileSystemEventArgs)
If EventStopped = True Then Exit Sub
If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".IND" Or UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".XML" Then
FileWatch.EnableRaisingEvents = False
EventStopped = True
'IntSleep(Params.WaitAfterFileevent)
'If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".XML" Then
' IntSleep(Params.Wait_before_xmlind_ren)
' Rename(e.FullPath, e.FullPath + ".ind")
' PrintTempJournal("Fileevent Rename XML: " + e.FullPath + " -> " + e.FullPath + ".ind")
'End If
'PrintOut("Neue Datei " + e.FullPath)
FileWatch.EnableRaisingEvents = True
End If
End Sub
Private Sub OnFileEventRename(ByVal source As Object, ByVal e As RenamedEventArgs)
'If Params.UseFileEventRename = False Then Exit Sub
'If EventStopped = True Then Exit Sub
'If UCase(Microsoft.VisualBasic.Right(e.FullPath, 4)) = ".IND" Then
' FileWatch.EnableRaisingEvents = False
' EventStopped = True
' PrintOut("Neue Datei " + e.FullPath)
' '20130131 - Sleep von 1000 auf 3000 geändert, damit bei FinFox-Dokumente die Verarbeitung nicht aussteigt, sofern die Datei noch nicht angeliefert wurde
' FileWatch.EnableRaisingEvents = True
'End If
End Sub
#Region "Converter"
Public Function Convert_Doc(ByVal dokumentid As String) As String
Try
PDebug("Start Convert Doc")
Dim dok As New DataTable
dok = db.Get_Dokument(dokumentid)
PDebug("Dok Read OK")
mimetype = GetDocType(dok.Rows(0).Item("dokumentname"))
PDebug(mimetype)
Dim filename As String
filename = Parameters.TempDirOffice + "\" + dokumentid + "." + mimetype
If File.Exists(filename) Then
File.Delete(filename)
Thread.Sleep(500)
End If
db.Get_From_DB(dokumentid, filename)
OutputFile = ""
Select Case UCase(mimetype)
Case "DOC", "DOCX", "DOCM", "DOT", "DOTX", "DOTM"
OutputFile = Parameters.TempDir + "\" + dokumentid + ".pdf"
If Parameters.AsOffice.IndexOf(dok.Rows(0).Item("dokumenttypnr")) > -1 Then
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
FileCopy(filename, OutputFile)
PDebug("Datei kopieren: " + filename + " nach " + OutputFile)
Return OutputFile
End If
'filename = "K:\EDOKA\__OnBase\dok1.docm"
PDebug("Word-Dokument konvertieren: " + filename + " nach " + OutputFile)
If Convert_Word(filename, OutputFile) Then Return OutputFile Else Return ""
Case "XLS", "XLSX", "XLSM", "XLT", "XLTX", "XLTM"
OutputFile = Parameters.TempDir + "\" + dokumentid + ".pdf"
If Parameters.AsOffice.IndexOf(dok.Rows(0).Item("dokumenttypnr")) > -1 Then
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
FileCopy(filename, OutputFile)
PDebug("Datei kopieren: " + filename + " nach " + OutputFile)
Return OutputFile
End If
PDebug("Excel-Dokument konvertieren: " + filename + " nach " + OutputFile)
If Convert_Excel(filename, OutputFile) Then Return OutputFile Else Return ""
Case "PDF", "JPG", "TIF"
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
FileCopy(filename, OutputFile)
PDebug("Datei kopieren: " + filename + " nach " + OutputFile)
Return OutputFile
Case Else
OutputFile = Parameters.TempDir + "\" + dokumentid + "." + mimetype
FileCopy(filename, OutputFile)
PDebug("Datei kopieren: " + filename + " nach " + OutputFile)
Return OutputFile
End Select
Catch ex As Exception
PDebug(ex.Message)
End Try
End Function
Dim WithEvents WordTimer As New Timers.Timer
Dim WithEvents ExcelTimer As New Timers.Timer
Public Function Convert_Word(ByVal filename As String, ByVal outputfile As String) As Boolean
PDebug(filename)
PDebug(outputfile)
WordTimer.Interval = 20000
WordTimer.Enabled = True
Try
If w.Documents.Count > 0 Then
For i As Integer = 1 To w.Documents.Count
w.Documents(i).Saved = True
w.Documents(i).Close(SaveChanges:=False)
Next
End If
Catch ex As Exception
w = Nothing
w = New Microsoft.Office.Interop.Word.Application
End Try
Try
w.Documents.Open(FileName:=filename.ToString, ReadOnly:=True)
w.ActiveDocument.ExportAsFixedFormat(outputfile.ToString, Word.WdExportFormat.wdExportFormatPDF, , Word.WdExportOptimizeFor.wdExportOptimizeForPrint, Word.WdExportRange.wdExportAllDocument, , , Word.WdExportItem.wdExportDocumentContent, True, True, Word.WdExportCreateBookmarks.wdExportCreateNoBookmarks, True, False, False)
w.ActiveDocument.Saved = True
w.ActiveDocument.Close(SaveChanges:=False)
WordTimer.Enabled = False
Return True
Catch ex As Exception
Try
w.Quit(SaveChanges:=False)
Catch
End Try
Try
w = Nothing
Catch
End Try
Try
w = New Microsoft.Office.Interop.Word.Application
Catch
End Try
Return False
End Try
WordTimer.Enabled = False
End Function
Public Sub WordTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles WordTimer.Elapsed
Dim processArray As Process() = Process.GetProcessesByName("winword")
For Each p As Process In processArray
p.Kill()
Next
WordTimer.Enabled = False
End Sub
Public Sub ExcelTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles WordTimer.Elapsed
Dim processArray As Process() = Process.GetProcessesByName("excel")
For Each p As Process In processArray
p.Kill()
Next
ExcelTimer.Enabled = False
End Sub
Public Function Convert_Excel(ByVal filename As String, ByVal outputfile As String) As Boolean
ExcelTimer.Interval = 20000
ExcelTimer.Enabled = True
Try
If x.Workbooks.Count > 0 Then
For i As Integer = 1 To x.Workbooks.Count
x.Workbooks(i).Close(SaveChanges:=False)
Next
End If
x.Workbooks.Open(filename.ToString)
x.ActiveWorkbook.ExportAsFixedFormat(Microsoft.Office.Interop.Excel.XlFixedFormatType.xlTypePDF, outputfile.ToString, Microsoft.Office.Interop.Excel.XlFixedFormatQuality.xlQualityStandard)
x.ActiveWorkbook.Close(SaveChanges:=False)
Return True
Catch ex As Exception
Try
x = Nothing
Catch
End Try
Try
x = New Microsoft.Office.Interop.Excel.Application
Catch
End Try
Return False
End Try
ExcelTimer.Enabled = False
End Function
Public Function GetDocType(ByVal Filename As String) As String
Dim NoDot() As String
NoDot = Split(Filename, ".")
GetDocType = NoDot(UBound(NoDot))
Return GetDocType
End Function
#End Region
End Module

13
EDOKA_IL_Manuell/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

10
EDOKA_IL_Manuell/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>2</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
EDOKA_IL_Manuell/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("EDOKA_IL_Manuell")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("EDOKA_IL_Manuell")>
<Assembly: AssemblyCopyright("Copyright © 2023")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("680ee796-35f6-4e2b-80b8-75d785297262")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' indem Sie "*" wie unten gezeigt eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

62
EDOKA_IL_Manuell/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,62 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EDOKA_IL_Manuell.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
EDOKA_IL_Manuell/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,117 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

197
EDOKA_IL_Manuell/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,197 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property Entrypoint_IL() As String
Get
Return CType(Me("Entrypoint_IL"),String)
End Get
Set
Me("Entrypoint_IL") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(" data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist sec"& _
"urity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" ")> _
Public Property Connectionstring_EDOKA() As String
Get
Return CType(Me("Connectionstring_EDOKA"),String)
End Get
Set
Me("Connectionstring_EDOKA") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" data source=shu00;initial catalog=edoka_journale;integrated security="& _
"SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;pas"& _
"sword=*shu29"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")> _
Public Property Connectionstring_Journale() As String
Get
Return CType(Me("Connectionstring_Journale"),String)
End Get
Set
Me("Connectionstring_Journale") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("100000")> _
Public Property BCK_Intervall() As String
Get
Return CType(Me("BCK_Intervall"),String)
End Get
Set
Me("BCK_Intervall") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("4")> _
Public Property Dokument_Intervall() As String
Get
Return CType(Me("Dokument_Intervall"),String)
End Get
Set
Me("Dokument_Intervall") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("K:\EDOKA\__OnBase\ManualImport")> _
Public Property Watch_Dir() As String
Get
Return CType(Me("Watch_Dir"),String)
End Get
Set
Me("Watch_Dir") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("K:\EDOKA\__OnBase\TempDir")> _
Public Property TempDir() As String
Get
Return CType(Me("TempDir"),String)
End Get
Set
Me("TempDir") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("K:\EDOKA\__OnBase\TempDirOffice")> _
Public Property TempDirOffice() As String
Get
Return CType(Me("TempDirOffice"),String)
End Get
Set
Me("TempDirOffice") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property OfficeFormat() As String
Get
Return CType(Me("OfficeFormat"),String)
End Get
Set
Me("OfficeFormat") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("1")> _
Public Property Demo() As String
Get
Return CType(Me("Demo"),String)
End Get
Set
Me("Demo") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.EDOKA_IL_Manuell.My.MySettings
Get
Return Global.EDOKA_IL_Manuell.My.MySettings.Default
End Get
End Property
End Module
End Namespace

39
EDOKA_IL_Manuell/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,39 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="Entrypoint_IL" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="Connectionstring_EDOKA" Type="System.String" Scope="User">
<Value Profile="(Default)"> data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
</Value>
</Setting>
<Setting Name="Connectionstring_Journale" Type="System.String" Scope="User">
<Value Profile="(Default)">
data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
</Value>
</Setting>
<Setting Name="BCK_Intervall" Type="System.String" Scope="User">
<Value Profile="(Default)">100000</Value>
</Setting>
<Setting Name="Dokument_Intervall" Type="System.String" Scope="User">
<Value Profile="(Default)">4</Value>
</Setting>
<Setting Name="Watch_Dir" Type="System.String" Scope="User">
<Value Profile="(Default)">K:\EDOKA\__OnBase\ManualImport</Value>
</Setting>
<Setting Name="TempDir" Type="System.String" Scope="User">
<Value Profile="(Default)">K:\EDOKA\__OnBase\TempDir</Value>
</Setting>
<Setting Name="TempDirOffice" Type="System.String" Scope="User">
<Value Profile="(Default)">K:\EDOKA\__OnBase\TempDirOffice</Value>
</Setting>
<Setting Name="OfficeFormat" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="Demo" Type="System.String" Scope="User">
<Value Profile="(Default)">1</Value>
</Setting>
</Settings>
</SettingsFile>

BIN
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.exe Normal file
View File

Binary file not shown.

48
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.exe.config Normal file
View File

@@ -0,0 +1,48 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="EDOKA_IL_Manuell.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
</startup>
<userSettings>
<EDOKA_IL_Manuell.My.MySettings>
<setting name="Entrypoint_IL" serializeAs="String">
<value />
</setting>
<setting name="Connectionstring_EDOKA" serializeAs="String">
<value> data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
</value>
</setting>
<setting name="Connectionstring_Journale" serializeAs="String">
<value>
data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
</value>
</setting>
<setting name="BCK_Intervall" serializeAs="String">
<value>100000</value>
</setting>
<setting name="Dokument_Intervall" serializeAs="String">
<value>4</value>
</setting>
<setting name="Watch_Dir" serializeAs="String">
<value>K:\EDOKA\__OnBase\ManualImport</value>
</setting>
<setting name="TempDir" serializeAs="String">
<value>K:\EDOKA\__OnBase\TempDir</value>
</setting>
<setting name="TempDirOffice" serializeAs="String">
<value>K:\EDOKA\__OnBase\TempDirOffice</value>
</setting>
<setting name="OfficeFormat" serializeAs="String">
<value />
</setting>
<setting name="Demo" serializeAs="String">
<value>1</value>
</setting>
</EDOKA_IL_Manuell.My.MySettings>
</userSettings>
</configuration>

BIN
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.pdb Normal file
View File

Binary file not shown.

44
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.xml Normal file
View File

@@ -0,0 +1,44 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDOKA_IL_Manuell
</name>
</assembly>
<members>
<member name="T:EDOKA_IL_Manuell.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.Init_Filewatcher">
<summary>Initialisierung des Filewacher-Objektes</summary>
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
Dateifilter-Angaben initialisiert.</remarks>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.Start_Watching">
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
<remarks>Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler
gestoppt und die anstehenden Dokumente verarbeitet.
Nach abgeschlossener Verarbeitung wird der Eventhandler wieder
eingeschaltet</remarks>
<param name="source"></param>
<param name="e"></param>
</member>
</members>
</doc>

BIN
EDOKA_IL_Manuell/bin/Debug/EDOKA_IL_Manuell.zip Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/bin/Debug/Newtonsoft.Json.dll Normal file
View File

Binary file not shown.

10393
EDOKA_IL_Manuell/bin/Debug/Newtonsoft.Json.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Compression.Base.dll Normal file
View File

Binary file not shown.

11412
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Compression.Base.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Licensing.dll Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Pdf.Base.dll Normal file
View File

Binary file not shown.

229489
EDOKA_IL_Manuell/bin/Debug/Syncfusion.Pdf.Base.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4
EDOKA_IL_Manuell/bin/Debug/_Zipit.bat Normal file
View File

@@ -0,0 +1,4 @@
delete EDOKA_IL_Manuell.zip
"C:\Program Files\7-Zip\7z.exe" -pshu*tkb98123 a EDOKA_IL_Manuell.zip EDOKA_IL_Manuell.exe EDOKA_IL_Manuell.exe.config
copy edoka_il_manuell.zip H:\NextCloud\ZZDownload
pause

BIN
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.exe Normal file
View File

Binary file not shown.

48
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.exe.config Normal file
View File

@@ -0,0 +1,48 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="EDOKA_IL_Manuell.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
</startup>
<userSettings>
<EDOKA_IL_Manuell.My.MySettings>
<setting name="Entrypoint_IL" serializeAs="String">
<value />
</setting>
<setting name="Connectionstring_EDOKA" serializeAs="String">
<value> data source=shu00;initial catalog=edoka_dms;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
</value>
</setting>
<setting name="Connectionstring_Journale" serializeAs="String">
<value>
data source=shu00;initial catalog=edoka_journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
</value>
</setting>
<setting name="BCK_Intervall" serializeAs="String">
<value>100000</value>
</setting>
<setting name="Dokument_Intervall" serializeAs="String">
<value>4</value>
</setting>
<setting name="Watch_Dir" serializeAs="String">
<value>K:\EDOKA\__OnBase\ManualImport</value>
</setting>
<setting name="TempDir" serializeAs="String">
<value>K:\EDOKA\__OnBase\TempDir</value>
</setting>
<setting name="TempDirOffice" serializeAs="String">
<value>K:\EDOKA\__OnBase\TempDirOffice</value>
</setting>
<setting name="OfficeFormat" serializeAs="String">
<value />
</setting>
<setting name="Demo" serializeAs="String">
<value>1</value>
</setting>
</EDOKA_IL_Manuell.My.MySettings>
</userSettings>
</configuration>

BIN
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.pdb Normal file
View File

Binary file not shown.

44
EDOKA_IL_Manuell/bin/Release/EDOKA_IL_Manuell.xml Normal file
View File

@@ -0,0 +1,44 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDOKA_IL_Manuell
</name>
</assembly>
<members>
<member name="T:EDOKA_IL_Manuell.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.Init_Filewatcher">
<summary>Initialisierung des Filewacher-Objektes</summary>
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
Dateifilter-Angaben initialisiert.</remarks>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.Start_Watching">
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
<remarks>Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler
gestoppt und die anstehenden Dokumente verarbeitet.
Nach abgeschlossener Verarbeitung wird der Eventhandler wieder
eingeschaltet</remarks>
<param name="source"></param>
<param name="e"></param>
</member>
</members>
</doc>

BIN
EDOKA_IL_Manuell/bin/Release/Newtonsoft.Json.dll Normal file
View File

Binary file not shown.

10393
EDOKA_IL_Manuell/bin/Release/Newtonsoft.Json.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
EDOKA_IL_Manuell/bin/Release/Syncfusion.Compression.Base.dll Normal file
View File

Binary file not shown.

11412
EDOKA_IL_Manuell/bin/Release/Syncfusion.Compression.Base.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
EDOKA_IL_Manuell/bin/Release/Syncfusion.Licensing.dll Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/bin/Release/Syncfusion.Pdf.Base.dll Normal file
View File

Binary file not shown.

229489
EDOKA_IL_Manuell/bin/Release/Syncfusion.Pdf.Base.xml Normal file
View File

File diff suppressed because it is too large Load Diff

7
EDOKA_IL_Manuell/obj/Debug/.NETFramework,Version=v4.6.AssemblyAttributes.vb Normal file
View File

@@ -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")>

BIN
EDOKA_IL_Manuell/obj/Debug/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.Resources.resources Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.exe Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.pdb Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.vbproj.AssemblyReference.cache Normal file
View File

Binary file not shown.

0
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.vbproj.CopyComplete Normal file
View File

1
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.vbproj.CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
ffb1f70e44aa72c6bb40b94385252dfa1ddbf492

19
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.vbproj.FileListAbsolute.txt Normal file
View File

@@ -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

BIN
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.vbproj.GenerateResource.cache Normal file
View File

Binary file not shown.

44
EDOKA_IL_Manuell/obj/Debug/EDOKA_IL_Manuell.xml Normal file
View File

@@ -0,0 +1,44 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDOKA_IL_Manuell
</name>
</assembly>
<members>
<member name="T:EDOKA_IL_Manuell.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.Init_Filewatcher">
<summary>Initialisierung des Filewacher-Objektes</summary>
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
Dateifilter-Angaben initialisiert.</remarks>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.Start_Watching">
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
<remarks>Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler
gestoppt und die anstehenden Dokumente verarbeitet.
Nach abgeschlossener Verarbeitung wird der Eventhandler wieder
eingeschaltet</remarks>
<param name="source"></param>
<param name="e"></param>
</member>
</members>
</doc>

BIN
EDOKA_IL_Manuell/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.

7
EDOKA_IL_Manuell/obj/Release/.NETFramework,Version=v4.6.AssemblyAttributes.vb Normal file
View File

@@ -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")>

BIN
EDOKA_IL_Manuell/obj/Release/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.Resources.resources Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.exe Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.pdb Normal file
View File

Binary file not shown.

BIN
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.vbproj.AssemblyReference.cache Normal file
View File

Binary file not shown.

0
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.vbproj.CopyComplete Normal file
View File

1
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.vbproj.CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
2be4c985c431a0add4fdfba08612d98d46289e22

19
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.vbproj.FileListAbsolute.txt Normal file
View File

@@ -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

BIN
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.vbproj.GenerateResource.cache Normal file
View File

Binary file not shown.

44
EDOKA_IL_Manuell/obj/Release/EDOKA_IL_Manuell.xml Normal file
View File

@@ -0,0 +1,44 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
EDOKA_IL_Manuell
</name>
</assembly>
<members>
<member name="T:EDOKA_IL_Manuell.My.Resources.Resources">
<summary>
A strongly-typed resource class, for looking up localized strings, etc.
</summary>
</member>
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.ResourceManager">
<summary>
Returns the cached ResourceManager instance used by this class.
</summary>
</member>
<member name="P:EDOKA_IL_Manuell.My.Resources.Resources.Culture">
<summary>
Overrides the current thread's CurrentUICulture property for all
resource lookups using this strongly typed resource class.
</summary>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.Init_Filewatcher">
<summary>Initialisierung des Filewacher-Objektes</summary>
<remarks>Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie
Dateifilter-Angaben initialisiert.</remarks>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.Start_Watching">
<summary>Eventhandler des FileWatching-Objektes aktivieren</summary>
</member>
<member name="M:EDOKA_IL_Manuell.Module1.OnFileEvent(System.Object,System.IO.FileSystemEventArgs)">
<summary>Aktivitäten im Inputverzeichnis verarbeiten</summary>
<remarks>Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler
gestoppt und die anstehenden Dokumente verarbeitet.
Nach abgeschlossener Verarbeitung wird der Eventhandler wieder
eingeschaltet</remarks>
<param name="source"></param>
<param name="e"></param>
</member>
</members>
</doc>

BIN
EDOKA_IL_Manuell/obj/Release/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.