Compare commits

...

35 Commits

Author SHA1 Message Date
OlgunR
7694da3192 Update AssemblyVersion to 2.10.1.0
Incremented the AssemblyVersion in AssemblyInfo.vb from 2.10.0.0 to 2.10.1.0 to reflect a minor version update. No other changes were made.
2026-04-30 14:24:07 +02:00
OlgunR
eb826009f8 Remove LICENSE_MoveRename check for grpbxMORE enable state
Removed logic that enabled or disabled the grpbxMORE group box based on the LICENSE_MoveRename variable. The group box's enabled state is no longer set by default or controlled by license checks. Also updated ImageList1.ImageStream in the resource file.
2026-04-30 14:23:28 +02:00
OlgunR
018cbc5ae0 Refactor session logout logic into helper method
Extracted duplicated session logout code into a new private method, LogoutCurrentSession. This method is now used in both GetWMSessionAsUser and GetWMSession to improve code reuse and maintainability. Exception handling for session logout remains silent to avoid issues with already-terminated sessions.
2026-04-29 15:47:04 +02:00
OlgunR
e4d6734b03 Improve session management and initialization logic
Refactored ClassWindream_allgemein to enhance session lifecycle handling and robustness. Now, after successful impersonation/login, session and object type variables are set and errors are logged if loading fails. Changed impersonation/login to return Boolean for clarity. Init() now returns session creation success. Added GetWMSession to properly reset sessions. Ensured object types are loaded when reusing sessions. These changes improve error handling and maintain consistent session state.
2026-04-27 16:44:00 +02:00
OlgunR
61f6029001 Update group box texts and refresh ImageList resources
Clarified GroupBox1 and GroupBox2 text to include both re-indexing and post-processing errors. Updated ImageList1.ImageStream in the resource file, likely reflecting changes to form images.
2026-04-27 15:05:24 +02:00
OlgunR
de47ed9f3b Update assembly version to 2.10.0.0
Bumped the assembly version in AssemblyInfo.vb from 2.9.9.0 to 2.10.0.0 to reflect the new release. The file version remains at 2.9.9.0.
2026-04-27 14:57:47 +02:00
OlgunR
e9a78cf6a4 Improve error handling and logging for rights and indexing
Enhanced error handling in ClassWD_Rechte to unlock objects after exceptions and prevent resource locks. Refactored frmNIHauptseite to add detailed debug logging and robust error handling in File_SetBooleanIndex, including better handling of missing or invalid index values. Replaced SetErrorMeldung with File_SetBooleanIndex for AD post-processing errors. These changes improve traceability and reliability.
2026-04-27 11:30:37 +02:00
OlgunR
b3848af701 Improve and localize fulltext extraction log messages
Updated log messages for fulltext extraction to be clearer and localized in German. Success and failure cases now provide accurate and user-friendly information, replacing previous misleading or English-only messages.
2026-04-23 10:23:32 +02:00
OlgunR
a374b55ba2 Add extra check for Pos_From equals i before array update
Added a condition to ensure Pos_From equals i before resizing and assigning the Ergebnis array when only a single value is present. This prevents unintended execution when only one of the conditions is true.
2026-04-23 10:23:12 +02:00
OlgunR
a0ec897784 Update Label27 size and add regex group warning
Increased the width of Label27 and updated its text to include a German warning that the regular expression must contain only one matching group to prevent indexing errors.
2026-04-22 15:02:35 +02:00
OlgunR
8f894d582d Refactor Windream session initialization and login checks
Refactored Windream session management to use IsLoggedIn() for determining when to re-initialize the session, removing the previous 2-hour expiration logic. Improved IsLoggedIn() to handle null session objects safely. Also removed explicit Windream initialization from frmNIHauptseite.vb, centralizing session handling and improving robustness against session expiration and null references.
2026-04-15 17:18:59 +02:00
OlgunR
c3c214dfed Properly logout windream session on form close
Added System.ComponentModel import. Enhanced frmStart's FormClosing handler to log out of any active windream session with appropriate logging and error handling, ensuring clean session termination on application exit.
2026-04-13 16:34:00 +02:00
OlgunR
db6b5b9c0b Update interop DLL references and project content
Updated interop DLL reference paths in ToolCollection.vbproj from P: to M: drive locations. Set EmbedInteropTypes=True for Interop.WINDREAMLib and restructured its reference. Added Interop.Scripting.dll as a content file. Removed the binary Interop.WINDREAMLib.dll from the repository.
2026-04-13 16:33:32 +02:00
OlgunR
ad1e6e88ac Change oRelProperties type to Object in two methods
Changed oRelProperties from WMObjectRelationClass to Object in two methods of ClassWindream_allgemein, affecting both object type and folder type handling. No other logic was modified.
2026-04-13 16:32:30 +02:00
OlgunR
001d4f6f02 Removed chkQuellverzeichnisLoeschen form frmDIProfilhinzufügen UI 2026-04-09 16:30:12 +02:00
OlgunR
002a988dca Move and Rename made Visible = False 2026-04-08 16:10:57 +02:00
OlgunR
f71246c5a6 Update profile selection in frmNIVerknuepfungen 2026-04-08 14:53:01 +02:00
OlgunR
b7f67af9b2 Remaings of groupboxIntegration removed from frmStart 2026-04-08 13:04:59 +02:00
OlgunR
9ff5840626 Rechteverwaltung - Button in frmStart and grbxNB_AD in Profileigenschaften NI got the same naming 2026-04-08 13:03:28 +02:00
OlgunR
8488f90902 Removed DD Integration from FrmStart, From UI + logic 2026-04-08 11:11:15 +02:00
OlgunR
6012ea42cc Remove chkQuellverzeichnisLoeschen from DI Profileigenschaften, From UI + logc 2026-04-08 10:48:35 +02:00
OlgunR
2bc948d29d Removed Zusatzmodule Navision from DI Profileigenschaften, form UI + logic 2026-04-08 10:29:34 +02:00
OlgunR
3e5aeabead Remove LicenseManager form UI & Load PanelMain without License 2026-04-07 15:07:54 +02:00
OlgunR
5414e89189 Update profile selection logic and cleanup comments
Removed check preventing reload of selected profile in frmDIProfilEigenschaften.vb, always loading the chosen profile and updating _pos accordingly. Also cleaned up comments and formatting in frmNIProfileigenschaften.vb.
2026-04-02 15:36:14 +02:00
OlgunR
ee2f0bd102 NEW NUGET PACKAGE - System.Data.SQLite.Core 2026-04-02 14:16:40 +02:00
OlgunR
a75e3642fa NEW NUGET PACKAGE - System.Data.SQLite.Core 2026-04-02 14:13:49 +02:00
OlgunR
0999ba2f3d Adjust btnNachbearbeitungAD layout and update image list
Refined the position and size of btnNachbearbeitungAD in frmStart for improved UI alignment. Updated ImageList1.ImageStream in frmStart.resx, possibly reflecting changes to form images.
2026-04-01 13:02:19 +02:00
OlgunR
4daff8ad25 Refactor function retrieval and add handler for functions tab
Refactored GetMsSqlFunctions to accept multiple types and use SQL IN clause for function retrieval. Added rbFunctionsTb_CheckedChanged event handler to load MS-SQL functions into cmbDataviews and handle unsupported database types.
2026-03-16 11:28:14 +01:00
OlgunR
a90bf67575 Refactor btnLink enabling logic by profile type
EnableBtnLink() now enables/disables btnLink based on the selected profile's type, applying specific logic for "db", "activedirectory", "xml", and "fulltext". The method is also called after regex and XML tree changes to keep the button state in sync with the UI.
2026-03-16 11:17:16 +01:00
OlgunR
a55b90e352 Enable btnUnlink only when a list item is selected
btnUnlink is now disabled by default and is enabled only when an item in lvwVerknuepfungen is selected. This improves UI feedback by preventing unlink actions when no selection is made.
2026-03-13 13:11:49 +01:00
OlgunR
9613682fe0 Enable btnLink only when valid selections are made
Added EnableBtnLink method to control btnLink's enabled state based on lbxWMIndex and lbxQuelle1 selections or txtManIndexwert input. btnLink is now disabled by default and updated dynamically via selection change handlers.
2026-03-12 17:12:50 +01:00
OlgunR
3001ccf43f Move btnLink control 2px to the right
Adjusted btnLink's X coordinate from 407 to 409 for improved layout alignment.
2026-03-12 14:56:17 +01:00
OlgunR
0edae32842 Remove save prompt from link selection handler
Removed code that prompted users to save unsaved link changes in lvwVerknuepfungen_SelectedIndexChanged. The event handler now skips the save dialog and related logic, proceeding directly to profile selection handling.
2026-03-12 11:15:27 +01:00
OlgunR
1f2d1d8bfb Refactor ListView item move logic for single selection
Simplified item move code to handle only the first selected item, improving UI performance and reliability. Removed loop and cloning logic, added BeginUpdate/EndUpdate, and ensured proper selection, focus, and visibility. Early returns prevent invalid moves at boundaries.
2026-03-12 11:14:17 +01:00
OlgunR
4d201411f6 Add TimerAutostart for delayed indexing thread start
Introduce TimerAutostart to delay Nachindexierung thread start by 30s, allowing Windream drive to become available before processing. Update status messages to reflect waiting period. Add event handler for timer tick to start threads after delay. Minor designer layout adjustments. Remove obsolete database binary files.
2026-03-04 14:03:09 +01:00
94 changed files with 77870 additions and 8319 deletions

View File

@@ -14,7 +14,6 @@ Public Class ClassNIProfile
xmlConfigFile = oConfigPath
ClassNIProfile.LoadFromXmlFile()
' 3b. Windream initialisieren (Connection, Session, ... aufbauen)
_windream.Init()
End Sub
Public Shared Function IsXmlAccessable() As Boolean
Dim xml As New Xml.XmlDocument

View File

@@ -393,13 +393,13 @@ Public Class ClassWD_Rechte
End Function
Private Function WorkRight(_methode As String, createdFolder As String, _form As Boolean, oWMObject As WINDREAMLib.WMObject, deleteRights As Boolean, folgeRegel As Boolean, _UserOrGroup As String,
_GruppenUserRecht As String, _lRight As Integer) As Boolean
Dim Object2Change As WINDREAMLib.WMObject = Nothing
Try
Dim _Erfolgreich As Boolean = True
Dim UserGroupRelation
Dim UserOrGroup
Dim oGroup
Dim oUSer
Dim Object2Change As WINDREAMLib.WMObject
If _methode = "AddRightFolder" Then
Object2Change = oWMObject.aParentWMObject
ElseIf _methode = "AddRightCreatedFolder" Then
@@ -731,6 +731,13 @@ Public Class ClassWD_Rechte
Return _Erfolgreich
Catch ex As Exception
_Logger.Error(ex)
Try
If Object2Change IsNot Nothing AndAlso Object2Change.aLocked Then
Object2Change.unlock()
_Logger.Debug("WorkRight Catch: Object2Change unlocked after error.")
End If
Catch
End Try
Return False
End Try
End Function

View File

@@ -49,7 +49,20 @@ Public Class ClassWindream_allgemein
' Process.GetCurrentProcess.Kill()
End If
End Sub
Private Sub LogoutCurrentSession()
If Not IsNothing(CURRENToWMSession) Then
Try
CURRENToWMSession.Logout()
Catch
' ignorieren Session war evtl. schon tot
End Try
CURRENToWMSession = Nothing
End If
End Sub
Public Function GetWMSessionAsUser(Domain, ServerName, UserName, Password)
LogoutCurrentSession()
Dim SessionAsUser
Dim aConnect, aUserId, aSession
On Error Resume Next
@@ -95,10 +108,24 @@ Public Class ClassWindream_allgemein
SessionAsUser = aSession
If aSession.aLoggedin = True Then
_Logger.Debug($"#Impersonate login [{UserName}] successfull!")
Return SessionAsUser
Me.oWMSession = aSession
CURRENToWMSession = aSession
CURRENToWMSession_Created = Now
Me.oObjekttypen = aSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
If Err.Number <> 0 Then
_Logger.Warn("Fehler beim Laden der Objekttypen nach Impersonate-Login: " & Err.Description)
Err.Clear()
End If
Me.oOrdnerTypen = aSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityFolder)
If Err.Number <> 0 Then
_Logger.Warn("Fehler beim Laden der Ordnertypen nach Impersonate-Login: " & Err.Description)
Err.Clear()
End If
Return True
End If
End If
Return False
End Function
''' <summary>
@@ -107,25 +134,30 @@ Public Class ClassWindream_allgemein
''' <returns>Liefert True wenn das Anmelden erfolgreich war, sonst False</returns>
''' <remarks></remarks>
Public Function Init() As Boolean
Dim oHourDifference As Integer
oHourDifference = CInt(DateDiff(DateInterval.Hour, CURRENToWMSession_Created, Now))
If IsNothing(CURRENToWMSession) Or oHourDifference >= 2 Then
If IsNothing(CURRENToWMSession) OrElse Not CBool(CURRENToWMSession.aLoggedin) Then
If WMLOGIN_DOMAIN <> String.Empty Then
GetWMSessionAsUser(WMLOGIN_DOMAIN, Me.GetCurrentServer, WMLOGIN_USER, WMLOGIN_PW)
Return GetWMSessionAsUser(WMLOGIN_DOMAIN, Me.GetCurrentServer, WMLOGIN_USER, WMLOGIN_PW)
Else
GetWMSession()
Return GetWMSession()
End If
Else
If My.Settings.vLogErrorsonly = False Then _Logger.Debug("WMSession already created!")
oWMSession = CURRENToWMSession
If IsNothing(oObjekttypen) Then
oObjekttypen = oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
End If
If IsNothing(oOrdnerTypen) Then
oOrdnerTypen = oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityFolder)
End If
Return True
End If
End Function
Private Function GetWMSession()
LogoutCurrentSession()
Try
Try
' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
@@ -361,7 +393,7 @@ Public Class ClassWindream_allgemein
Dim oIndexAttributes As WMObjectRelation
Dim oIndexAttribute As WMObject
Dim oIndex As WMObject
Dim oRelProperties As WMObjectRelationClass
Dim oRelProperties As Object
' den Objekttyp laden
oObjectType = Me.oWMSession.GetWMObjectByName(WMEntityObjectType, name)
@@ -419,7 +451,7 @@ Public Class ClassWindream_allgemein
Dim oIndexAttributes As WMObjectRelation
Dim oIndexAttribute As WMObject
Dim oIndex As WMObject
Dim oRelProperties As WMObjectRelationClass
Dim oRelProperties As Object
For Each OrdnerType In Me.oOrdnerTypen
If OrdnerType.aName = Ordnertyp Then
oOrdnerType = OrdnerType
@@ -530,6 +562,9 @@ Public Class ClassWindream_allgemein
''' <remarks></remarks>
Public Function IsLoggedIn() As Boolean
Try
If IsNothing(Me.oWMSession) Then
Return False
End If
Return Me.oWMSession.aLoggedin
Catch ex As Exception
clsHelper.Add_Application_log("Unexpected error in Windream.IsLoggedIn: " & ex.Message)

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.9.9.0")>
<Assembly: AssemblyVersion("2.10.1.0")>
<Assembly: AssemblyFileVersion("2.9.9.0")>

View File

@@ -30,6 +30,8 @@
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
<TargetFrameworkProfile />
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
<PlatformTarget>x86</PlatformTarget>
@@ -114,24 +116,23 @@
<HintPath>packages\EntityFramework.6.0.2\lib\net45\EntityFramework.SqlServer.dll</HintPath>
</Reference>
<Reference Include="Interop.Scripting">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.Scripting.dll</HintPath>
<HintPath>M:\Bibliotheken\3rdParty\windream\Interop.Scripting.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="Interop.WINDREAMLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<EmbedInteropTypes>False</EmbedInteropTypes>
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
<Reference Include="Interop.WINDREAMLib">
<HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WINDREAMLib.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="Interop.WMOBRWSLib">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOBRWSLib.dll</HintPath>
<HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WMOBRWSLib.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="Interop.WMOSRCHLib">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOSRCHLib.dll</HintPath>
<HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WMOSRCHLib.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="Interop.WMOTOOLLib">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
<HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WMOTOOLLib.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="Microsoft.CSharp" />
@@ -139,7 +140,7 @@
<HintPath>..\packages\NLog.5.0.2\lib\net46\NLog.dll</HintPath>
</Reference>
<Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
<HintPath>M:\App&amp;Service\0 Partner Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />
@@ -148,15 +149,8 @@
<Reference Include="System.Data" />
<Reference Include="System.Data.Linq" />
<Reference Include="System.Data.OracleClient" />
<Reference Include="System.Data.SQLite">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\System.Data.SQLite.dll</HintPath>
</Reference>
<Reference Include="System.Data.SQLite.EF6, Version=1.0.91.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=MSIL">
<HintPath>packages\System.Data.SQLite.1.0.91.3\lib\net451\System.Data.SQLite.EF6.dll</HintPath>
</Reference>
<Reference Include="System.Data.SQLite.Linq, Version=1.0.91.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=MSIL">
<Private>True</Private>
<HintPath>packages\System.Data.SQLite.1.0.91.3\lib\net451\System.Data.SQLite.Linq.dll</HintPath>
<Reference Include="System.Data.SQLite, Version=1.0.119.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=MSIL">
<HintPath>..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\lib\net46\System.Data.SQLite.dll</HintPath>
</Reference>
<Reference Include="System.Deployment" />
<Reference Include="System.DirectoryServices" />
@@ -830,6 +824,7 @@
<None Include="Resources\database_refresh.png" />
<None Include="Resources\arrow_up.png" />
<None Include="Resources\bullet_arrow_down1.png" />
<Content Include="Interop.Scripting.dll" />
<Content Include="Interop.WINDREAMLib.dll" />
<None Include="Resources\action_add_16xMD.png" />
<None Include="Resources\folder_Closed_16xMD.png" />
@@ -837,12 +832,6 @@
<None Include="Resources\CheckConstraints_5634.png" />
<Content Include="modDateiimportConfig.xml" />
<Content Include="modNachindexierungConfig.xml" />
<Content Include="x64\SQLite.Interop.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="x86\SQLite.Interop.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<None Include="Resources\user_suit.png" />
<None Include="Resources\user.png" />
<None Include="Resources\rosette.png" />
@@ -888,6 +877,13 @@
<Folder Include="Log\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<Import Project="..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets" Condition="Exists('..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets')" />
<Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
<PropertyGroup>
<ErrorText>This project references NuGet package(s) that are missing on this computer. Use NuGet Package Restore to download them. For more information, see http://go.microsoft.com/fwlink/?LinkID=322105. The missing file is {0}.</ErrorText>
</PropertyGroup>
<Error Condition="!Exists('..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets'))" />
</Target>
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">

View File

@@ -11,8 +11,7 @@
<section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</configSections>
<connectionStrings>
<add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False"
providerName="System.Data.SqlClient" />
<add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False" providerName="System.Data.SqlClient" />
</connectionStrings>
<system.diagnostics>
<sources>
@@ -239,14 +238,7 @@
<provider invariantName="System.Data.SQLite.EF6" type="System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6" />
</providers>
</entityFramework>
<system.data>
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<add name="SQLite Data Provider" invariant="System.Data.SQLite" description=".Net Framework Data Provider for SQLite" type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)" invariant="System.Data.SQLite.EF6" description=".Net Framework Data Provider for SQLite (Entity Framework 6)" type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>

View File

@@ -87,7 +87,7 @@ Public Class clsNIFulltext
End If
Else
'Es gibt nur From, also auch nur einen Wert
If Pos_From = oCountMatchedElements Then
If Pos_From = i Then
'Das Ende ist erreicht - Ausstieg
ReDim Preserve Ergebnis(0)
Ergebnis(0) = Convert.ToString(g.ToString)

View File

@@ -24,22 +24,21 @@ Partial Class frmDIProfilEigenschaften
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDIProfilEigenschaften))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton()
Me.cmbProfilauswahl = New System.Windows.Forms.ToolStripSplitButton()
Me.tslblAnzahl = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton()
Me.lblProfil = New System.Windows.Forms.ToolStripStatusLabel()
Me.dlgQuellordner = New System.Windows.Forms.FolderBrowserDialog()
Me.dlgZielordner = New System.Windows.Forms.FolderBrowserDialog()
Me.dlgBackupordner = New System.Windows.Forms.FolderBrowserDialog()
Me.pnlProfileigenschaften = New System.Windows.Forms.Panel()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.cmbl2Nav_Index = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.cmbl2NavDokartindex = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.btnLink2Navision = New System.Windows.Forms.Button()
Me.txtLink2Navision = New System.Windows.Forms.TextBox()
Me.chkbxlink2Navision = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtlastRun = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
@@ -60,9 +59,9 @@ Partial Class frmDIProfilEigenschaften
Me.rbUV_Date1 = New System.Windows.Forms.RadioButton()
Me.chkb_DateUV = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.btnRegeln = New System.Windows.Forms.Button()
Me.boxImportoptionenLoeschen = New System.Windows.Forms.GroupBox()
Me.chkUVloeschen = New System.Windows.Forms.CheckBox()
Me.chkQuellverzeichnisLoeschen = New System.Windows.Forms.CheckBox()
Me.chkDateienLoeschen = New System.Windows.Forms.CheckBox()
Me.boxImportoptionenBackup = New System.Windows.Forms.GroupBox()
Me.txtBackupordner = New System.Windows.Forms.TextBox()
@@ -75,18 +74,8 @@ Partial Class frmDIProfilEigenschaften
Me.Label1 = New System.Windows.Forms.Label()
Me.txtProfilname = New System.Windows.Forms.TextBox()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnRegeln = New System.Windows.Forms.Button()
Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton()
Me.StatusStrip1.SuspendLayout()
Me.pnlProfileigenschaften.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.boxImportoptionenLoeschen.SuspendLayout()
@@ -107,6 +96,41 @@ Partial Class frmDIProfilEigenschaften
Me.StatusStrip1.TabIndex = 21
Me.StatusStrip1.Text = "StatusStrip1"
'
'btnSpeichern
'
Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnSpeichern.Enabled = False
Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save
Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnSpeichern.Name = "btnSpeichern"
Me.btnSpeichern.ShowDropDownArrow = False
Me.btnSpeichern.Size = New System.Drawing.Size(20, 20)
Me.btnSpeichern.Text = "Profil speichern"
'
'btnLöschen
'
Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLöschen.Enabled = False
Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete
Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLöschen.Name = "btnLöschen"
Me.btnLöschen.ShowDropDownArrow = False
Me.btnLöschen.Size = New System.Drawing.Size(20, 20)
Me.btnLöschen.Text = "Profil löschen"
'
'btnHinzufügen
'
Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add
Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnHinzufügen.Name = "btnHinzufügen"
Me.btnHinzufügen.ShowDropDownArrow = False
Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20)
Me.btnHinzufügen.Text = "Profil hinzufügen"
'
'cmbProfilauswahl
'
Me.cmbProfilauswahl.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
@@ -122,6 +146,49 @@ Partial Class frmDIProfilEigenschaften
Me.tslblAnzahl.Size = New System.Drawing.Size(94, 17)
Me.tslblAnzahl.Text = "Anzahl Profile: "
'
'tsbtnfirst
'
Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnfirst.DoubleClickEnabled = True
Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnfirst.Name = "tsbtnfirst"
Me.tsbtnfirst.ShowDropDownArrow = False
Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20)
Me.tsbtnfirst.Text = "Erstes Profil"
'
'tsbtnprevious
'
Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left
Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnprevious.Name = "tsbtnprevious"
Me.tsbtnprevious.ShowDropDownArrow = False
Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20)
Me.tsbtnprevious.Text = "ToolStripDropDownButton2"
Me.tsbtnprevious.ToolTipText = "Vorheriges Profil"
'
'tsbtnnext
'
Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnext.Name = "tsbtnnext"
Me.tsbtnnext.ShowDropDownArrow = False
Me.tsbtnnext.Size = New System.Drawing.Size(20, 20)
Me.tsbtnnext.Text = "ToolStripDropDownButton3"
Me.tsbtnnext.ToolTipText = "Nächstes Profil"
'
'tsbtnlast
'
Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnlast.Name = "tsbtnlast"
Me.tsbtnlast.ShowDropDownArrow = False
Me.tsbtnlast.Size = New System.Drawing.Size(20, 20)
Me.tsbtnlast.Text = "Letztes Profil"
'
'lblProfil
'
Me.lblProfil.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -132,7 +199,6 @@ Partial Class frmDIProfilEigenschaften
'pnlProfileigenschaften
'
Me.pnlProfileigenschaften.Controls.Add(Me.Button1)
Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox3)
Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun)
Me.pnlProfileigenschaften.Controls.Add(Me.Label7)
Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox2)
@@ -155,101 +221,17 @@ Partial Class frmDIProfilEigenschaften
Me.pnlProfileigenschaften.TabIndex = 22
Me.pnlProfileigenschaften.Visible = False
'
'GroupBox3
'Button1
'
Me.GroupBox3.Controls.Add(Me.Label10)
Me.GroupBox3.Controls.Add(Me.cmbl2Nav_Index)
Me.GroupBox3.Controls.Add(Me.Label9)
Me.GroupBox3.Controls.Add(Me.cmbl2NavDokartindex)
Me.GroupBox3.Controls.Add(Me.Label8)
Me.GroupBox3.Controls.Add(Me.btnLink2Navision)
Me.GroupBox3.Controls.Add(Me.txtLink2Navision)
Me.GroupBox3.Controls.Add(Me.chkbxlink2Navision)
Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox3.Location = New System.Drawing.Point(15, 408)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(563, 136)
Me.GroupBox3.TabIndex = 59
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Zusatzmodule/-funktionen:"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(230, 84)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(134, 13)
Me.Label10.TabIndex = 44
Me.Label10.Text = "Indexwert zur Übergabe:"
'
'cmbl2Nav_Index
'
Me.cmbl2Nav_Index.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbl2Nav_Index.FormattingEnabled = True
Me.cmbl2Nav_Index.Location = New System.Drawing.Point(233, 99)
Me.cmbl2Nav_Index.Name = "cmbl2Nav_Index"
Me.cmbl2Nav_Index.Size = New System.Drawing.Size(218, 21)
Me.cmbl2Nav_Index.TabIndex = 43
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 84)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(109, 13)
Me.Label9.TabIndex = 42
Me.Label9.Text = "Dokumentartindex: "
'
'cmbl2NavDokartindex
'
Me.cmbl2NavDokartindex.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbl2NavDokartindex.FormattingEnabled = True
Me.cmbl2NavDokartindex.Location = New System.Drawing.Point(6, 99)
Me.cmbl2NavDokartindex.Name = "cmbl2NavDokartindex"
Me.cmbl2NavDokartindex.Size = New System.Drawing.Size(218, 21)
Me.cmbl2NavDokartindex.TabIndex = 41
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(6, 40)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(138, 13)
Me.Label8.TabIndex = 40
Me.Label8.Text = "Pfad zu DDLink2Navision:"
'
'btnLink2Navision
'
Me.btnLink2Navision.Enabled = False
Me.btnLink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnLink2Navision.Location = New System.Drawing.Point(532, 54)
Me.btnLink2Navision.Name = "btnLink2Navision"
Me.btnLink2Navision.Size = New System.Drawing.Size(24, 21)
Me.btnLink2Navision.TabIndex = 4
Me.btnLink2Navision.Text = "..."
Me.btnLink2Navision.UseVisualStyleBackColor = True
'
'txtLink2Navision
'
Me.txtLink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLink2Navision.Location = New System.Drawing.Point(6, 55)
Me.txtLink2Navision.Name = "txtLink2Navision"
Me.txtLink2Navision.Size = New System.Drawing.Size(520, 22)
Me.txtLink2Navision.TabIndex = 2
'
'chkbxlink2Navision
'
Me.chkbxlink2Navision.AutoSize = True
Me.chkbxlink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkbxlink2Navision.Location = New System.Drawing.Point(6, 20)
Me.chkbxlink2Navision.Name = "chkbxlink2Navision"
Me.chkbxlink2Navision.Size = New System.Drawing.Size(406, 17)
Me.chkbxlink2Navision.TabIndex = 1
Me.chkbxlink2Navision.Text = "Link2Navision (Legt für die importierte Datei einen Link in MS Navision an)"
Me.chkbxlink2Navision.UseVisualStyleBackColor = True
Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.lines_Text_code_16xLG
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(584, 11)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(184, 23)
Me.Button1.TabIndex = 60
Me.Button1.Text = "Regular Expressions"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'txtlastRun
'
@@ -359,7 +341,7 @@ Partial Class frmDIProfilEigenschaften
'
'txtVerzoegerung
'
Me.txtVerzoegerung.Location = New System.Drawing.Point(400, 562)
Me.txtVerzoegerung.Location = New System.Drawing.Point(400, 421)
Me.txtVerzoegerung.Name = "txtVerzoegerung"
Me.txtVerzoegerung.Size = New System.Drawing.Size(45, 22)
Me.txtVerzoegerung.TabIndex = 55
@@ -368,7 +350,7 @@ Partial Class frmDIProfilEigenschaften
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(18, 558)
Me.Label6.Location = New System.Drawing.Point(18, 417)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(376, 26)
Me.Label6.TabIndex = 54
@@ -466,15 +448,26 @@ Partial Class frmDIProfilEigenschaften
Me.Label5.TabIndex = 50
Me.Label5.Text = "* bei diesem Feld handelt es sich um ein Pflichtfeld"
'
'btnRegeln
'
Me.btnRegeln.Image = Global.ToolCollection.My.Resources.Resources.f5
Me.btnRegeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRegeln.Location = New System.Drawing.Point(774, 10)
Me.btnRegeln.Name = "btnRegeln"
Me.btnRegeln.Size = New System.Drawing.Size(155, 49)
Me.btnRegeln.TabIndex = 6
Me.btnRegeln.Text = "Regeln verwalten ..."
Me.btnRegeln.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRegeln.UseVisualStyleBackColor = True
'
'boxImportoptionenLoeschen
'
Me.boxImportoptionenLoeschen.Controls.Add(Me.chkUVloeschen)
Me.boxImportoptionenLoeschen.Controls.Add(Me.chkQuellverzeichnisLoeschen)
Me.boxImportoptionenLoeschen.Controls.Add(Me.chkDateienLoeschen)
Me.boxImportoptionenLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.boxImportoptionenLoeschen.Location = New System.Drawing.Point(584, 110)
Me.boxImportoptionenLoeschen.Name = "boxImportoptionenLoeschen"
Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 99)
Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 73)
Me.boxImportoptionenLoeschen.TabIndex = 46
Me.boxImportoptionenLoeschen.TabStop = False
Me.boxImportoptionenLoeschen.Text = "Löschen"
@@ -483,7 +476,7 @@ Partial Class frmDIProfilEigenschaften
'
Me.chkUVloeschen.AutoSize = True
Me.chkUVloeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkUVloeschen.Location = New System.Drawing.Point(8, 65)
Me.chkUVloeschen.Location = New System.Drawing.Point(8, 47)
Me.chkUVloeschen.Name = "chkUVloeschen"
Me.chkUVloeschen.Size = New System.Drawing.Size(230, 17)
Me.chkUVloeschen.TabIndex = 2
@@ -491,23 +484,11 @@ Partial Class frmDIProfilEigenschaften
Me.chkUVloeschen.UseVisualStyleBackColor = True
Me.chkUVloeschen.Visible = False
'
'chkQuellverzeichnisLoeschen
'
Me.chkQuellverzeichnisLoeschen.AutoSize = True
Me.chkQuellverzeichnisLoeschen.Enabled = False
Me.chkQuellverzeichnisLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(8, 42)
Me.chkQuellverzeichnisLoeschen.Name = "chkQuellverzeichnisLoeschen"
Me.chkQuellverzeichnisLoeschen.Size = New System.Drawing.Size(217, 17)
Me.chkQuellverzeichnisLoeschen.TabIndex = 1
Me.chkQuellverzeichnisLoeschen.Text = "Quellverzeichnis nach Import löschen"
Me.chkQuellverzeichnisLoeschen.UseVisualStyleBackColor = True
'
'chkDateienLoeschen
'
Me.chkDateienLoeschen.AutoSize = True
Me.chkDateienLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 19)
Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 23)
Me.chkDateienLoeschen.Name = "chkDateienLoeschen"
Me.chkDateienLoeschen.Size = New System.Drawing.Size(200, 17)
Me.chkDateienLoeschen.TabIndex = 0
@@ -629,108 +610,6 @@ Partial Class frmDIProfilEigenschaften
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'Button1
'
Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.lines_Text_code_16xLG
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(584, 11)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(184, 23)
Me.Button1.TabIndex = 60
Me.Button1.Text = "Regular Expressions"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'btnRegeln
'
Me.btnRegeln.Image = Global.ToolCollection.My.Resources.Resources.f5
Me.btnRegeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRegeln.Location = New System.Drawing.Point(774, 10)
Me.btnRegeln.Name = "btnRegeln"
Me.btnRegeln.Size = New System.Drawing.Size(155, 49)
Me.btnRegeln.TabIndex = 6
Me.btnRegeln.Text = "Regeln verwalten ..."
Me.btnRegeln.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRegeln.UseVisualStyleBackColor = True
'
'btnSpeichern
'
Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnSpeichern.Enabled = False
Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save
Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnSpeichern.Name = "btnSpeichern"
Me.btnSpeichern.ShowDropDownArrow = False
Me.btnSpeichern.Size = New System.Drawing.Size(20, 20)
Me.btnSpeichern.Text = "Profil speichern"
'
'btnLöschen
'
Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLöschen.Enabled = False
Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete
Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLöschen.Name = "btnLöschen"
Me.btnLöschen.ShowDropDownArrow = False
Me.btnLöschen.Size = New System.Drawing.Size(20, 20)
Me.btnLöschen.Text = "Profil löschen"
'
'btnHinzufügen
'
Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add
Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnHinzufügen.Name = "btnHinzufügen"
Me.btnHinzufügen.ShowDropDownArrow = False
Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20)
Me.btnHinzufügen.Text = "Profil hinzufügen"
'
'tsbtnfirst
'
Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnfirst.DoubleClickEnabled = True
Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnfirst.Name = "tsbtnfirst"
Me.tsbtnfirst.ShowDropDownArrow = False
Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20)
Me.tsbtnfirst.Text = "Erstes Profil"
'
'tsbtnprevious
'
Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left
Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnprevious.Name = "tsbtnprevious"
Me.tsbtnprevious.ShowDropDownArrow = False
Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20)
Me.tsbtnprevious.Text = "ToolStripDropDownButton2"
Me.tsbtnprevious.ToolTipText = "Vorheriges Profil"
'
'tsbtnnext
'
Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnext.Name = "tsbtnnext"
Me.tsbtnnext.ShowDropDownArrow = False
Me.tsbtnnext.Size = New System.Drawing.Size(20, 20)
Me.tsbtnnext.Text = "ToolStripDropDownButton3"
Me.tsbtnnext.ToolTipText = "Nächstes Profil"
'
'tsbtnlast
'
Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnlast.Name = "tsbtnlast"
Me.tsbtnlast.ShowDropDownArrow = False
Me.tsbtnlast.Size = New System.Drawing.Size(20, 20)
Me.tsbtnlast.Text = "Letztes Profil"
'
'frmDIProfilEigenschaften
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -750,8 +629,6 @@ Partial Class frmDIProfilEigenschaften
Me.StatusStrip1.PerformLayout()
Me.pnlProfileigenschaften.ResumeLayout(False)
Me.pnlProfileigenschaften.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
@@ -775,7 +652,6 @@ Partial Class frmDIProfilEigenschaften
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents btnRegeln As System.Windows.Forms.Button
Friend WithEvents boxImportoptionenLoeschen As System.Windows.Forms.GroupBox
Friend WithEvents chkQuellverzeichnisLoeschen As System.Windows.Forms.CheckBox
Friend WithEvents chkDateienLoeschen As System.Windows.Forms.CheckBox
Friend WithEvents boxImportoptionenBackup As System.Windows.Forms.GroupBox
Friend WithEvents txtBackupordner As System.Windows.Forms.TextBox
@@ -808,16 +684,7 @@ Partial Class frmDIProfilEigenschaften
Friend WithEvents tsbtnlast As System.Windows.Forms.ToolStripDropDownButton
Friend WithEvents tslblAnzahl As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents lblProfil As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents chkbxlink2Navision As System.Windows.Forms.CheckBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents btnLink2Navision As System.Windows.Forms.Button
Friend WithEvents txtLink2Navision As System.Windows.Forms.TextBox
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents cmbl2NavDokartindex As System.Windows.Forms.ComboBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents cmbl2Nav_Index As System.Windows.Forms.ComboBox
Friend WithEvents chkb_Subdirectories As System.Windows.Forms.CheckBox
Friend WithEvents chkUVloeschen As System.Windows.Forms.CheckBox
Friend WithEvents rbUV_Date3 As System.Windows.Forms.RadioButton

View File

@@ -138,23 +138,6 @@ Public Class frmDIProfilEigenschaften
Me.txtBackupordner.Text = Me.selectedProfile.Backupordner
Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.VerzeichnisLöschen
Me.chkbxlink2Navision.Checked = Me.selectedProfile.Link2Navision
If Me.chkbxlink2Navision.Checked = True Then
Me.txtLink2Navision.Text = My.Settings.PathLink2Navision
Me.txtLink2Navision.Enabled = True
Me.btnLink2Navision.Enabled = True
Me.cmbl2Nav_Index.Enabled = True
Me.cmbl2NavDokartindex.Enabled = True
load_indexe_inComboboxen()
Else
Me.txtLink2Navision.Enabled = False
Me.btnLink2Navision.Enabled = False
Me.cmbl2Nav_Index.Enabled = False
Me.cmbl2NavDokartindex.Enabled = False
End If
If CBool(Me.selectedProfile.Aktiv) = True Then
Me.chkbxAktiv.Checked = True
@@ -183,7 +166,6 @@ Public Class frmDIProfilEigenschaften
Me.txtBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
Me.btnBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
Me.chkDateienUeberschreiben.Enabled = Me.chkImportoptionenBackup.Checked
Me.chkQuellverzeichnisLoeschen.Enabled = Me.chkDateienLoeschen.Checked
'End If
End Sub
Sub rbBoxenenablen()
@@ -197,49 +179,14 @@ Public Class frmDIProfilEigenschaften
rbUV_Date3.Enabled = True
End If
End Sub
Sub load_indexe_inComboboxen()
Me.cmbl2NavDokartindex.Items.Clear()
Me.cmbl2Nav_Index.Items.Clear()
Dim indexe = _windream.GetIndicesByObjecttype(Me.selectedProfile.DokumenttypString, True, "DI")
If indexe IsNot Nothing Then
Me.cmbl2NavDokartindex.Items.Add("")
Me.cmbl2Nav_Index.Items.Add("")
For Each index As String In indexe
Me.cmbl2NavDokartindex.Items.Add(index)
Me.cmbl2Nav_Index.Items.Add(index)
Next
Me.cmbl2NavDokartindex.SelectedIndex = -1
Me.cmbl2NavDokartindex.SelectedItem = 0
Me.cmbl2Nav_Index.SelectedIndex = -1
Me.cmbl2Nav_Index.SelectedItem = 0
If Me.selectedProfile.Link2Navision_dokart <> "" Then
'Wenn bereits eine Dokart gewählt wurde
Me.cmbl2NavDokartindex.SelectedIndex = Me.cmbl2NavDokartindex.FindStringExact(Me.selectedProfile.Link2Navision_dokart)
Else
'Wenn noch KEINE Dokart gewählt wurde
Me.cmbl2NavDokartindex.SelectedIndex = -1
Me.cmbl2NavDokartindex.SelectedItem = ""
End If
If Me.selectedProfile.Link2Navision_Index <> "" Then
'Wenn bereits ein Index gewählt wurde
Me.cmbl2Nav_Index.SelectedIndex = Me.cmbl2Nav_Index.FindStringExact(Me.selectedProfile.Link2Navision_Index)
Else
'Wenn noch KEIN Index gewählt wurde
Me.cmbl2Nav_Index.SelectedIndex = -1
Me.cmbl2Nav_Index.SelectedItem = ""
End If
End If
End Sub
' ++++++++++++++++++++++++++++++++++++++++++++++ Events ++++++++++++++++++++++++++++++++++++++++++++++
' +++ Elemente auf Toolbar +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked
' wenn bereits ein Profil ausgewählt wurde
If Me.selectedProfile IsNot Nothing Then
' wenn es sich bei dem ausgewählten Element um das gleiche handelt wie das Aktive, dann nichts tun
If e.ClickedItem.Text = Me.selectedProfile.Profilname Then Exit Sub
If selectedProfile.HasChanges Then
@@ -251,7 +198,11 @@ Public Class frmDIProfilEigenschaften
'Dim changeProfile As Boolean = Me.AskToSaveIfNeccessary(False)
Lade_Profil(e.ClickedItem.Text)
For i = 0 To arrProfile.GetUpperBound(0)
If arrProfile(i, 0) = e.ClickedItem.Text Then
_pos = arrProfile(i, 1)
End If
Next
End Sub
@@ -340,7 +291,6 @@ Public Class frmDIProfilEigenschaften
Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
Me.chkImportoptionenBackup.Checked = Me.selectedProfile.Backup
Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.DateiLöschen
End If
End If
@@ -507,7 +457,7 @@ Public Class frmDIProfilEigenschaften
Else
MsgBox("Der angegebene Quellordner '" & txtQuellordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
End If
End If
End Sub
@@ -523,7 +473,7 @@ Public Class frmDIProfilEigenschaften
Else
MsgBox("Der angegebene Ordner '" & txtZielordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
End If
End If
End Sub
@@ -561,7 +511,7 @@ Public Class frmDIProfilEigenschaften
Else
MsgBox("Der angegebene Ordner '" & txtBackupordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
End If
End If
End Sub
@@ -587,17 +537,6 @@ Public Class frmDIProfilEigenschaften
End If
End Sub
Private Sub chkQuellverzeichnisLoeschen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkQuellverzeichnisLoeschen.CheckedChanged
If Me.selectedProfile IsNot Nothing Then
Me.selectedProfile.VerzeichnisLöschen = Me.chkQuellverzeichnisLoeschen.Checked
If Not Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.OriginalVerzeichnisLöschen Then
Me.btnSpeichern.Enabled = True
Else
Me.btnSpeichern.Enabled = False
End If
End If
End Sub
Private Sub btnRegeln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegeln.Click
'Dim regelverwaltung As Control = New pnlDateiimportRegelverwaltung()
@@ -639,7 +578,7 @@ Public Class frmDIProfilEigenschaften
rbUV_Date1.Checked = True
variante = "YYYY-MM-DD"
End Select
txtUV_Date.Text = variante
txtUV_Date.Text = variante
Else
txtUV_Date.Text = ""
End If
@@ -785,44 +724,6 @@ Public Class frmDIProfilEigenschaften
End If
End Sub
Private Sub chkbxlink2Navision_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkbxlink2Navision.CheckedChanged
If Me.selectedProfile IsNot Nothing Then
Me.selectedProfile.Link2Navision = Me.chkbxlink2Navision.Checked
If Not Me.chkbxlink2Navision.Checked = Me.selectedProfile.OriginalLink2Navision Then
Me.btnSpeichern.Enabled = True
Else
Me.btnSpeichern.Enabled = False
End If
If Me.chkbxlink2Navision.Checked Then
Me.txtLink2Navision.Enabled = True
Me.btnLink2Navision.Enabled = True
Me.cmbl2NavDokartindex.Enabled = True
Me.cmbl2Nav_Index.Enabled = True
load_indexe_inComboboxen()
Else
Me.txtLink2Navision.Enabled = False
Me.btnLink2Navision.Enabled = False
Me.cmbl2NavDokartindex.Enabled = False
Me.cmbl2Nav_Index.Enabled = False
End If
End If
End Sub
Private Sub btnLink2Navision_Click(sender As System.Object, e As System.EventArgs) Handles btnLink2Navision.Click
With OpenFileDialog1
' Do
.Filter = "NavisionLink.exe|*.exe"
.FilterIndex = 1
.Title = "Pfad zu DDNavisionLink:"
If .ShowDialog() = DialogResult.OK Then
Me.txtLink2Navision.Text = .FileName
setAppSetting("PathLink2Navision", .FileName)
Me.txtLink2Navision.Text = .FileName
End If
End With
End Sub
Private Sub setAppSetting(ByVal name As String, ByVal value As String)
Dim _folder As New IO.DirectoryInfo(System.IO.Directory.GetCurrentDirectory())
Dim aryFi1 As IO.FileInfo() = _folder.GetFiles("*.config")
@@ -841,32 +742,6 @@ Public Class frmDIProfilEigenschaften
End Sub
Private Sub cmbl2NavDokartindex_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbl2NavDokartindex.SelectedIndexChanged
If Me.selectedProfile IsNot Nothing Then
If Me.cmbl2NavDokartindex.SelectedIndex <> -1 Then
Me.selectedProfile.Link2Navision_dokart = Me.cmbl2NavDokartindex.Text
If Not Me.selectedProfile.Link2Navision_dokart = Me.selectedProfile.OriginalLink2Navision_dokart Then
Me.btnSpeichern.Enabled = True
Else
Me.btnSpeichern.Enabled = False
End If
End If
End If
End Sub
Private Sub cmbl2Nav_Index_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbl2Nav_Index.SelectedIndexChanged
If Me.selectedProfile IsNot Nothing Then
If Me.cmbl2Nav_Index.SelectedIndex <> -1 Then
Me.selectedProfile.Link2Navision_Index = Me.cmbl2Nav_Index.Text
If Not Me.selectedProfile.Link2Navision_Index = Me.selectedProfile.Link2Navision_Index Then
Me.btnSpeichern.Enabled = True
Else
Me.btnSpeichern.Enabled = False
End If
End If
End If
End Sub
Private Sub cmbProfilauswahl_ButtonClick(sender As System.Object, e As System.EventArgs) Handles cmbProfilauswahl.ButtonClick
End Sub

View File

@@ -50,9 +50,9 @@ Partial Class frmDIProfilHinzufuegen
Me.btnZielverzeichnisLöschen = New System.Windows.Forms.Button()
Me.btnQuellverzeichnisLöschen = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.chkb_DateUV = New System.Windows.Forms.CheckBox()
Me.chkb_Subdirectories = New System.Windows.Forms.CheckBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.boxImportoptionenLoeschen.SuspendLayout()
Me.boxImportoptionenBackup.SuspendLayout()
Me.GroupBox1.SuspendLayout()
@@ -74,7 +74,7 @@ Partial Class frmDIProfilHinzufuegen
'
Me.chkUVloeschen.AutoSize = True
Me.chkUVloeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkUVloeschen.Location = New System.Drawing.Point(250, 42)
Me.chkUVloeschen.Location = New System.Drawing.Point(8, 42)
Me.chkUVloeschen.Name = "chkUVloeschen"
Me.chkUVloeschen.Size = New System.Drawing.Size(230, 17)
Me.chkUVloeschen.TabIndex = 18
@@ -86,12 +86,13 @@ Partial Class frmDIProfilHinzufuegen
'
Me.chkQuellverzeichnisLoeschen.AutoSize = True
Me.chkQuellverzeichnisLoeschen.Enabled = False
Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(8, 42)
Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(250, 19)
Me.chkQuellverzeichnisLoeschen.Name = "chkQuellverzeichnisLoeschen"
Me.chkQuellverzeichnisLoeschen.Size = New System.Drawing.Size(217, 17)
Me.chkQuellverzeichnisLoeschen.TabIndex = 17
Me.chkQuellverzeichnisLoeschen.Text = "Quellverzeichnis nach Import löschen"
Me.chkQuellverzeichnisLoeschen.UseVisualStyleBackColor = True
Me.chkQuellverzeichnisLoeschen.Visible = False
'
'chkDateienLoeschen
'
@@ -326,6 +327,17 @@ Partial Class frmDIProfilHinzufuegen
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Erweiterte Ordnerstrukturen"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(28, 40)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(243, 15)
Me.Label6.TabIndex = 1
Me.Label6.Text = "Detaileinstellungen nach Speichern im Profil"
Me.Label6.Visible = False
'
'chkb_DateUV
'
Me.chkb_DateUV.AutoSize = True
@@ -346,17 +358,6 @@ Partial Class frmDIProfilHinzufuegen
Me.chkb_Subdirectories.Text = "Unterverzeichnisse einbeziehen (Ordnerstruktur wird komplett übernommen)"
Me.chkb_Subdirectories.UseVisualStyleBackColor = True
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(28, 40)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(243, 15)
Me.Label6.TabIndex = 1
Me.Label6.Text = "Detaileinstellungen nach Speichern im Profil"
Me.Label6.Visible = False
'
'frmDIProfilHinzufuegen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

View File

@@ -121,17 +121,17 @@
<data name="btnBackupverzeichnisLöschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIySURBVDhPlZJrTxNBFIaJicnG36BWiYbISkDiDaEt
C5TWBgQT6P1Cu5UC0pZe0qZQG/WDJv4SfxeIir1hpbu97Pb1TEmXbvqJD08yc2be98w5Z0YAXIvmlnhr
cK87RCZnIHhdbIBmMMzLXn+i4XCb+rGrC0ycO0Q3m4eaSA2ZNAMhvhmKoLWzh39vN77XV9cesbhOjOIn
dAk1mUFnd18zkf1bPGVHJ5YACkWw9bnVnqguWG5cGqSzXDeZUbuHH4Cv36DmC8wArZDIy74gT9nR3o8D
dC4HQzhffq1UhaWbVy8g1HiSU97HFTWTAz5/gZLOohmOgLKjvRcD8ke9dc1iI/Ei19dpBoxOdJdridtK
J3ZA5XwEjookLAC5PGRfALUlq1KdX9DEDJ0Bg57LSR6/ijyV4w0ALi+QyaK2uKxWzIJOzNBtGJLbx0YF
0DTgcAMbTuAgRXXbUJqZG5qObiO5vLzk8aEdiQKpDAnTQJzKoQbKm05UjWb8nprWmWiLhtPDS24v2uI2
QGOUXB5Qs5TynEm9WF0HojtovFlH6elznI6NayaXYoebp+xoh99R1iQkejo1SynPmrjSixnubPqZUrdY
gbCIC5sdZxOTOLk32jPpGdDPEhoOF9ohEdKmC9QspfzKqDXs18QU93P8sfLXLECyr+DP5BMc3zEImgGD
fpZQX1lDxTSvUrOGun36cIz7MfpAGRQzdJcqRrNQejk7JO5zYrjPHd++q4kZugvXByP/AXK7pMeJCyzg
AAAAAElFTkSuQmCC
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAItSURBVDhPnZHbThNhFEaJicnEZ1BRojEyEpB4QqBl
OBUbEEig9FymRU5CDzBpMxwa8UITn8TnAlGxtFSgM6Wd6TIFHanjjV58yfcn/1rJ3rsJaPqXlGdj1y6/
Gz8omWaUjPgnZMGRqKgHQomSx+ewC+pwZoNaWsVMrNkk5bAsluU5zhaXOZmc+ng8Nn7/t+AnTHaHWnYH
M6VQXVqxJHpoVixHolRXE7CVpd6LLnei0D905UKwnhZqKcWsbWzD+w+Y6lZdwJkcE/VgRCyHZSorcdjY
Ro/IFIdfGAVp8GrDCGY8JRiv44apZODtO4z1NOXoHHpolsryKqib5/1oaMQoSAOCfQfQVF1YEs5i80Z1
NQnZN7CZBXULMip6MMzRoMso9PVbsE1QTzksC5o/ZKJuQyAM3gAoaY4Ghs28U2qA/yrQfMH6qSCtgscH
UzOQXKM4PEKuq8d2nUbYGxA1f5DK3AKsKZBch3gSVuLo0zMUep187ehskFilNOMXNV+ASmweUgqa109B
GjAOexzm6dgELCxSejlB7tET9u+1WpIL2OMTNW+ASvQVJFNoHh+Fvn7jsNsh5J52CQedj43jIRdEY5yO
uDloa2fvVsu55FxwMjkllTxeKnIMbdpL3ikZh897rYV9aesQPrc+ML47JTT3KN/aH7J7o1lqGKHockvH
o+PkHX1mrqvHtu39u/eETy13jMtwg6CefK9Tyj3rtsG/std8W9i9ftOCbYL/yQ9yu6TH5dYZBAAAAABJ
RU5ErkJggg==
</value>
</data>
<metadata name="dlgQuellordner.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -146,33 +146,33 @@
<data name="btnZielverzeichnisLöschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIySURBVDhPlZJrTxNBFIaJicnG36BWiYbISkDiDaEt
C5TWBgQT6P1Cu5UC0pZe0qZQG/WDJv4SfxeIir1hpbu97Pb1TEmXbvqJD08yc2be98w5Z0YAXIvmlnhr
cK87RCZnIHhdbIBmMMzLXn+i4XCb+rGrC0ycO0Q3m4eaSA2ZNAMhvhmKoLWzh39vN77XV9cesbhOjOIn
dAk1mUFnd18zkf1bPGVHJ5YACkWw9bnVnqguWG5cGqSzXDeZUbuHH4Cv36DmC8wArZDIy74gT9nR3o8D
dC4HQzhffq1UhaWbVy8g1HiSU97HFTWTAz5/gZLOohmOgLKjvRcD8ke9dc1iI/Ei19dpBoxOdJdridtK
J3ZA5XwEjookLAC5PGRfALUlq1KdX9DEDJ0Bg57LSR6/ijyV4w0ALi+QyaK2uKxWzIJOzNBtGJLbx0YF
0DTgcAMbTuAgRXXbUJqZG5qObiO5vLzk8aEdiQKpDAnTQJzKoQbKm05UjWb8nprWmWiLhtPDS24v2uI2
QGOUXB5Qs5TynEm9WF0HojtovFlH6elznI6NayaXYoebp+xoh99R1iQkejo1SynPmrjSixnubPqZUrdY
gbCIC5sdZxOTOLk32jPpGdDPEhoOF9ohEdKmC9QspfzKqDXs18QU93P8sfLXLECyr+DP5BMc3zEImgGD
fpZQX1lDxTSvUrOGun36cIz7MfpAGRQzdJcqRrNQejk7JO5zYrjPHd++q4kZugvXByP/AXK7pMeJCyzg
AAAAAElFTkSuQmCC
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAItSURBVDhPnZHbThNhFEaJicnEZ1BRojEyEpB4QqBl
OBUbEEig9FymRU5CDzBpMxwa8UITn8TnAlGxtFSgM6Wd6TIFHanjjV58yfcn/1rJ3rsJaPqXlGdj1y6/
Gz8omWaUjPgnZMGRqKgHQomSx+ewC+pwZoNaWsVMrNkk5bAsluU5zhaXOZmc+ng8Nn7/t+AnTHaHWnYH
M6VQXVqxJHpoVixHolRXE7CVpd6LLnei0D905UKwnhZqKcWsbWzD+w+Y6lZdwJkcE/VgRCyHZSorcdjY
Ro/IFIdfGAVp8GrDCGY8JRiv44apZODtO4z1NOXoHHpolsryKqib5/1oaMQoSAOCfQfQVF1YEs5i80Z1
NQnZN7CZBXULMip6MMzRoMso9PVbsE1QTzksC5o/ZKJuQyAM3gAoaY4Ghs28U2qA/yrQfMH6qSCtgscH
UzOQXKM4PEKuq8d2nUbYGxA1f5DK3AKsKZBch3gSVuLo0zMUep187ehskFilNOMXNV+ASmweUgqa109B
GjAOexzm6dgELCxSejlB7tET9u+1WpIL2OMTNW+ASvQVJFNoHh+Fvn7jsNsh5J52CQedj43jIRdEY5yO
uDloa2fvVsu55FxwMjkllTxeKnIMbdpL3ikZh897rYV9aesQPrc+ML47JTT3KN/aH7J7o1lqGKHockvH
o+PkHX1mrqvHtu39u/eETy13jMtwg6CefK9Tyj3rtsG/std8W9i9ftOCbYL/yQ9yu6TH5dYZBAAAAABJ
RU5ErkJggg==
</value>
</data>
<data name="btnQuellverzeichnisLöschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIySURBVDhPlZJrTxNBFIaJicnG36BWiYbISkDiDaEt
C5TWBgQT6P1Cu5UC0pZe0qZQG/WDJv4SfxeIir1hpbu97Pb1TEmXbvqJD08yc2be98w5Z0YAXIvmlnhr
cK87RCZnIHhdbIBmMMzLXn+i4XCb+rGrC0ycO0Q3m4eaSA2ZNAMhvhmKoLWzh39vN77XV9cesbhOjOIn
dAk1mUFnd18zkf1bPGVHJ5YACkWw9bnVnqguWG5cGqSzXDeZUbuHH4Cv36DmC8wArZDIy74gT9nR3o8D
dC4HQzhffq1UhaWbVy8g1HiSU97HFTWTAz5/gZLOohmOgLKjvRcD8ke9dc1iI/Ei19dpBoxOdJdridtK
J3ZA5XwEjookLAC5PGRfALUlq1KdX9DEDJ0Bg57LSR6/ijyV4w0ALi+QyaK2uKxWzIJOzNBtGJLbx0YF
0DTgcAMbTuAgRXXbUJqZG5qObiO5vLzk8aEdiQKpDAnTQJzKoQbKm05UjWb8nprWmWiLhtPDS24v2uI2
QGOUXB5Qs5TynEm9WF0HojtovFlH6elznI6NayaXYoebp+xoh99R1iQkejo1SynPmrjSixnubPqZUrdY
gbCIC5sdZxOTOLk32jPpGdDPEhoOF9ohEdKmC9QspfzKqDXs18QU93P8sfLXLECyr+DP5BMc3zEImgGD
fpZQX1lDxTSvUrOGun36cIz7MfpAGRQzdJcqRrNQejk7JO5zYrjPHd++q4kZugvXByP/AXK7pMeJCyzg
AAAAAElFTkSuQmCC
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAItSURBVDhPnZHbThNhFEaJicnEZ1BRojEyEpB4QqBl
OBUbEEig9FymRU5CDzBpMxwa8UITn8TnAlGxtFSgM6Wd6TIFHanjjV58yfcn/1rJ3rsJaPqXlGdj1y6/
Gz8omWaUjPgnZMGRqKgHQomSx+ewC+pwZoNaWsVMrNkk5bAsluU5zhaXOZmc+ng8Nn7/t+AnTHaHWnYH
M6VQXVqxJHpoVixHolRXE7CVpd6LLnei0D905UKwnhZqKcWsbWzD+w+Y6lZdwJkcE/VgRCyHZSorcdjY
Ro/IFIdfGAVp8GrDCGY8JRiv44apZODtO4z1NOXoHHpolsryKqib5/1oaMQoSAOCfQfQVF1YEs5i80Z1
NQnZN7CZBXULMip6MMzRoMso9PVbsE1QTzksC5o/ZKJuQyAM3gAoaY4Ghs28U2qA/yrQfMH6qSCtgscH
UzOQXKM4PEKuq8d2nUbYGxA1f5DK3AKsKZBch3gSVuLo0zMUep187ehskFilNOMXNV+ASmweUgqa109B
GjAOexzm6dgELCxSejlB7tET9u+1WpIL2OMTNW+ASvQVJFNoHh+Fvn7jsNsh5J52CQedj43jIRdEY5yO
uDloa2fvVsu55FxwMjkllTxeKnIMbdpL3ikZh897rYV9aesQPrc+ML47JTT3KN/aH7J7o1lqGKHockvH
o+PkHX1mrqvHtu39u/eETy13jMtwg6CefK9Tyj3rtsG/std8W9i9ftOCbYL/yQ9yu6TH5dYZBAAAAABJ
RU5ErkJggg==
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

View File

@@ -69,6 +69,7 @@ Partial Class frmNIHauptseite
Me.TBTC_MOVE_RENAMEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBTC_MOVE_RENAMETableAdapter = New ToolCollection.MyDatasetTableAdapters.TBTC_MOVE_RENAMETableAdapter()
Me.TableAdapterManager1 = New ToolCollection.MyDatasetTableAdapters.TableAdapterManager()
Me.TimerAutostart = New System.Windows.Forms.Timer(Me.components)
Me.tcmain.SuspendLayout()
Me.tpMain.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
@@ -121,7 +122,7 @@ Partial Class frmNIHauptseite
Me.tpMain.Location = New System.Drawing.Point(4, 22)
Me.tpMain.Name = "tpMain"
Me.tpMain.Padding = New System.Windows.Forms.Padding(3)
Me.tpMain.Size = New System.Drawing.Size(766, 521)
Me.tpMain.Size = New System.Drawing.Size(769, 521)
Me.tpMain.TabIndex = 0
Me.tpMain.Text = "Hauptseite"
Me.tpMain.UseVisualStyleBackColor = True
@@ -143,7 +144,7 @@ Partial Class frmNIHauptseite
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblStatus})
Me.StatusStrip1.Location = New System.Drawing.Point(3, 496)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(760, 22)
Me.StatusStrip1.Size = New System.Drawing.Size(763, 22)
Me.StatusStrip1.TabIndex = 45
Me.StatusStrip1.Text = "StatusStrip1"
'
@@ -504,6 +505,9 @@ Partial Class frmNIHauptseite
Me.TableAdapterManager1.TBTC_MOVE_RENAMETableAdapter = Me.TBTC_MOVE_RENAMETableAdapter
Me.TableAdapterManager1.UpdateOrder = ToolCollection.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'TimerAutostart
'
'
'frmNIHauptseite
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -587,4 +591,5 @@ Partial Class frmNIHauptseite
Friend WithEvents btnEdit As Button
Friend WithEvents btnStartProfile As Button
Friend WithEvents pnlFooter As Panel
Friend WithEvents TimerAutostart As Timer
End Class

View File

@@ -120,9 +120,6 @@
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>248, 56</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>248, 56</value>
</metadata>
<data name="Label6.Text" xml:space="preserve">
<value>Es wird empfohlen, das Intervall nicht auf weniger als 30 Minuten zu setzen, da der nächste Nachindexierungsdurchlauf nur gestartet werden kann, wenn der vorherige beendet wurde. Wenn zu erwarten ist, dass viele Dokumente nachindexiert werden sollen, sollte der Intervall für diesen Durchlauf entsprechend hoch gesetzt werden ( &gt; 2 Stunden).</value>
</data>
@@ -162,6 +159,9 @@
<metadata name="TableAdapterManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>984, 56</value>
</metadata>
<metadata name="TimerAutostart.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1161, 56</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>132</value>
</metadata>

View File

@@ -68,17 +68,9 @@ Public Class frmNIHauptseite
_windreamNI = New ClassNIWindream(_MyLogger)
database = New ClassNIDatenbankzugriff(_MyLogger)
' 3b. Windream initialisieren (Connection, Session, ... aufbauen)
If _windreamNI.Init() = False Then
_Logger.Warn("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.")
Exit Sub
End If
'ClassMoveRenameLogger.Init("", "MoveRename_", True)
AddHandler bwProfil.DoWork, AddressOf bwProfil_DoWork
AddHandler bwProfil.RunWorkerCompleted, AddressOf bwProfil_RunWorkerCompleted
AddHandler bwProfil.ProgressChanged, AddressOf bwProfil_ProgressChanged
@@ -120,18 +112,28 @@ Public Class frmNIHauptseite
End If
If AUTOSTART_FIH Then
Start_NachindexierungThreads()
My.Settings.vNIRunning = True
My.Settings.Save()
Me.btnStartProfile.Enabled = False
_Logger.Info("AUTOSTART_FIH = True - Nachindexierung wird gestartet.")
AUTOSTART_FIH = False
_Logger.Info("AUTOSTART_FIH = True - Warte 30s auf Windream-Laufwerk.")
Me.lblStatus.Text = "(Status: Autostart ist aktiv. Warte 30s auf Windream-Laufwerk...)"
Me.tslblStatus.Text = "Status: Autostart ist aktiv. Warte 30s auf Windream-Laufwerk..."
Me.tslblStatus.Visible = True
TimerAutostart.Interval = 30000
TimerAutostart.Start()
Else
_Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.")
End If
End Sub
Private Sub TimerAutostart_Tick(sender As Object, e As EventArgs) Handles TimerAutostart.Tick
TimerAutostart.Stop()
_Logger.Info("Startverzögerung abgelaufen - Nachindexierung wird gestartet.")
Start_NachindexierungThreads()
End Sub
Private Sub LoadProfilesIntoGrid()
ClassNIProfile.Init()
@@ -922,9 +924,9 @@ Public Class frmNIHauptseite
_Logger.Debug(">> _fulltext initialized.")
fulltext = pMyWMDoc.GetVariableValue(aktivesProfil.Desk_windreamIndex)
If Len(fulltext) > 0 Then
_Logger.Info($"{aktivesProfil.Desk_windreamIndex} is empty...")
_Logger.Info($"Volltext aus [{aktivesProfil.Desk_windreamIndex}] erfolgreich extrahiert.")
Else
_Logger.Info($"## No fulltext from [{aktivesProfil.Desk_windreamIndex}] extracted!")
_Logger.Info($"## Kein Volltext aus [{aktivesProfil.Desk_windreamIndex}] extrahiert - versuche 'Manueller Volltext'...")
fulltext = pMyWMDoc.GetVariableValue("Manueller Volltext")
End If
If Len(fulltext) > 0 Then
@@ -1903,11 +1905,16 @@ Public Class frmNIHauptseite
If oUnexpectedError = False And aktivesProfil.NachbearbeitungAD = True And unvollstaendig = False Then
_Logger.Debug("Nachbearbeitung AD ist aktiviert")
Dim sw As New ClassStopwatch("AD-Rework")
Nachbearbeitung_AD(pMyWMDoc)
Dim adReworkOk As Boolean = Nachbearbeitung_AD(pMyWMDoc)
Dim msg = sw.Done
If msg <> "" Then
Stopwatch1 += vbNewLine & $"{msg}"
End If
If adReworkOk = False Then
_Logger.Warn($"## Nachbearbeitung AD für [{pMyWMDoc.aName}] fehlgeschlagen - Error-Index wird gesetzt")
File_SetBooleanIndex(True, pMyWMDoc, aktivesProfil.IndexValidation)
File_SetBooleanIndex(True, pMyWMDoc, aktivesProfil.IndexFehler)
End If
Else
If aktivesProfil.NachbearbeitungAD = True Then
_Logger.Info($"Nachbearbeitung AD ist aktiviert aber Unexpected Error ist{oUnexpectedError.ToString}")
@@ -2349,7 +2356,9 @@ Public Class frmNIHauptseite
End If
i += 1
Catch ex As Exception
_Logger.Error(ex)
_erfolgreich = False
Exit For
End Try
Next
@@ -2538,12 +2547,22 @@ Public Class frmNIHauptseite
'Ab Hier Error prüfen
Sub File_SetBooleanIndex(ByVal _value As Boolean, ByVal _dok As WINDREAMLib.WMObject, ByVal _Indexname As String)
Try
_Logger.Debug($"File_SetBooleanIndex called: Index=[{_Indexname}] Value=[{_value}] Doc=[{If(_dok IsNot Nothing, _dok.aName, "NULL")}]")
If _Indexname <> "" Then
'Überprüfen ob Boolean-Value bereits gesetzt wurde?
Dim akt_Status As Boolean = CBool(_dok.GetVariableValue(_Indexname))
Dim akt_Status As Boolean = False
Try
Dim rawValue As Object = _dok.GetVariableValue(_Indexname)
_Logger.Debug($"File_SetBooleanIndex: rawValue=[{If(rawValue IsNot Nothing, rawValue.ToString, "NULL")}]")
If rawValue IsNot Nothing Then
akt_Status = CBool(rawValue)
End If
Catch ex As Exception
_Logger.Debug($"File_SetBooleanIndex: GetVariableValue threw exception - treating as False. Error: {ex.Message}")
akt_Status = False
End Try
If akt_Status <> _value Then
'Index muß angepasst werden
_Logger.Debug("Validation Index not set to '" & _value.ToString & "'.")
_Logger.Debug($"File_SetBooleanIndex: writing [{_value}] to index [{_Indexname}]")
Dim arrIndex() As String = Nothing
Dim arrValue() As String = Nothing
'Nun die Datei indexieren
@@ -2568,6 +2587,8 @@ Public Class frmNIHauptseite
'Validation muß nicht angepasst werden
_Logger.Debug("Validation Index already set to '" & _value & "'.")
End If
Else
_Logger.Warn($"File_SetBooleanIndex: _Indexname is empty - no index written! (Doc=[{If(_dok IsNot Nothing, _dok.aName, "NULL")}] Value=[{_value}])")
End If
Catch ex As Exception
_Logger.Warn("Error in File_SetBooleanIndex")

View File

@@ -635,7 +635,7 @@ Partial Class frmNIProfileigenschaften
Me.GroupBox1.Size = New System.Drawing.Size(624, 83)
Me.GroupBox1.TabIndex = 70
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Indexname - Nachindexierung fehlerhaft:"
Me.GroupBox1.Text = "Indexname - Nachindexierung/Nachbearbeitung fehlerhaft:"
'
'Label6
'
@@ -701,7 +701,7 @@ Partial Class frmNIProfileigenschaften
Me.GroupBox2.Size = New System.Drawing.Size(624, 83)
Me.GroupBox2.TabIndex = 75
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Dauerhafte Kennzeichnung - Fehler bei Indexierung:"
Me.GroupBox2.Text = "Dauerhafte Kennzeichnung - Fehler bei Nachindexierung/Nachbearbeitung:"
'
'Label8
'
@@ -962,7 +962,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(958, 455)
Me.TabPage2.Size = New System.Drawing.Size(970, 465)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kennzeichnung und Active Directory"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -976,7 +976,7 @@ Partial Class frmNIProfileigenschaften
Me.grbxNB_AD.Size = New System.Drawing.Size(624, 50)
Me.grbxNB_AD.TabIndex = 77
Me.grbxNB_AD.TabStop = False
Me.grbxNB_AD.Text = "Indexierung AD (Rechte anpassen)"
Me.grbxNB_AD.Text = "Indexierung AD (Rechteverwaltung)"
'
'chkbxAD
'
@@ -998,7 +998,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(958, 455)
Me.TabPage3.Size = New System.Drawing.Size(970, 465)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Nachbearbeitungsfunktionen 1 (Verschieben, umbenennen)"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -1007,7 +1007,6 @@ Partial Class frmNIProfileigenschaften
'
Me.grpbxMORE.Controls.Add(Me.btnMoveRename)
Me.grpbxMORE.Controls.Add(Me.Label21)
Me.grpbxMORE.Enabled = False
Me.grpbxMORE.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.grpbxMORE.Location = New System.Drawing.Point(6, 104)
Me.grpbxMORE.Name = "grpbxMORE"
@@ -1285,7 +1284,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(958, 455)
Me.TabPage4.Size = New System.Drawing.Size(970, 465)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Nachbearbeitungsfunktionen 2 (Ordnerindizes etc)"
Me.TabPage4.UseVisualStyleBackColor = True

View File

@@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
CQAAAk1TRnQBSQFMAgEBAgEAAcgBAAHIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CQAAAk1TRnQBSQFMAgEBAgEAAeABAAHgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

View File

@@ -522,7 +522,7 @@ Public Class frmNIProfileigenschaften
Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked
' wenn bereits ein Profil ausgewählt wurde
If Me._selectedProfile IsNot Nothing Then
Me.cmbIndexValidierung.SelectedIndex = -1
If _selectedProfile.HasChanges Then
@@ -1109,11 +1109,6 @@ Public Class frmNIProfileigenschaften
End Sub
Private Sub frmNIProfileigenschaften_Load(sender As Object, e As EventArgs) Handles Me.Load
If LICENSE_MoveRename = True Then
grpbxMORE.Enabled = True
Else
grpbxMORE.Enabled = False
End If
If Me._selectedProfile Is Nothing Then
Me.pnlProfileigenschaften.Visible = False
Else

View File

@@ -1461,9 +1461,10 @@ Partial Class frmNIVerknuepfungen
Me.Label27.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label27.Location = New System.Drawing.Point(7, 14)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(120, 13)
Me.Label27.Size = New System.Drawing.Size(761, 13)
Me.Label27.TabIndex = 22
Me.Label27.Text = "2. Regular Expression:"
Me.Label27.Text = "2. Regular Expression: ACHTUNG: REGEX DARF NUR AUS EINER MATCHING GROUP BESTEHEN," &
" DA ES SONST FEHLER BEIM INDEXIEREN VERURSACHT!"
'
'GroupBox4
'
@@ -1743,6 +1744,7 @@ Partial Class frmNIVerknuepfungen
'
'btnUnlink
'
Me.btnUnlink.Enabled = False
Me.btnUnlink.Image = Global.ToolCollection.My.Resources.Resources.link_break
Me.btnUnlink.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnUnlink.Location = New System.Drawing.Point(409, 202)
@@ -1763,9 +1765,10 @@ Partial Class frmNIVerknuepfungen
'
'btnLink
'
Me.btnLink.Enabled = False
Me.btnLink.Image = Global.ToolCollection.My.Resources.Resources.link
Me.btnLink.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnLink.Location = New System.Drawing.Point(407, 167)
Me.btnLink.Location = New System.Drawing.Point(409, 167)
Me.btnLink.Name = "btnLink"
Me.btnLink.Size = New System.Drawing.Size(28, 29)
Me.btnLink.TabIndex = 15

View File

@@ -486,25 +486,23 @@ Public Class frmNIVerknuepfungen
''' </summary>
''' <remarks></remarks>
Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked
ClassNIProfile.aktivesProfil = ClassNIProfile.getProfilByName(e.ClickedItem.Text)
Me._selectedProfil = ClassNIProfile.aktivesProfil
Try
'wenn noch kein Profil geladen wurde soll das ausgewählte auf jeden Fall geladen werden
If Me._selectedProfil IsNot Nothing Then
Me.LoadSelectedProfile(e.ClickedItem.Text)
Me.pnlZielQuelle.Enabled = True
Else ' wenn bereits ein Profil geladen war
If e.ClickedItem.Text = Me._selectedProfil.Profilname Then Exit Sub
If Me._selectedProfil.HasChanges Then
Me._selectedProfil.Save(True, "profile")
End If
' wenn ein anderes Profil ausgewählt wurde
If Not e.ClickedItem.Text = Me._selectedProfil.OriginalProfilname Then
Me.LoadSelectedProfile(e.ClickedItem.Text)
Else
'MsgBox("Keine Änderung")
End If
End If
Me.LoadSelectedProfile(e.ClickedItem.Text)
Me.pnlZielQuelle.Enabled = True
For i = 0 To arrProfile.GetUpperBound(0)
If arrProfile(i, 0) = e.ClickedItem.Text Then
_pos = arrProfile(i, 1)
End If
Next
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei der Auswahl der Profile")
End Try
@@ -560,6 +558,7 @@ Public Class frmNIVerknuepfungen
Next
End If
EnableBtnLink()
End If
@@ -657,25 +656,35 @@ Public Class frmNIVerknuepfungen
If LVW.SelectedItems.Count > 0 Then
LVW.Sorting = Windows.Forms.SortOrder.None
If Down = True Then
If LVW.SelectedItems(LVW.SelectedItems.Count - 1).Index < LVW.Items.Count - 1 Then
For i = LVW.SelectedItems.Count - 1 To 0 Step -1
OldItem = LVW.Items(LVW.SelectedItems(i).Index + 1)
OldPos = LVW.Items(LVW.SelectedItems(i).Index).Index
LVW.Items(OldPos + 1) = LVW.SelectedItems(i).Clone
LVW.Items(OldPos) = OldItem
LVW.Items(OldPos + 1).Selected = True
Next
End If
If LVW.SelectedItems(0).Index = LVW.Items.Count - 1 Then Return
Dim index = LVW.SelectedItems(0).Index
LVW.BeginUpdate()
Try
Dim item = LVW.SelectedItems(0)
LVW.Items.RemoveAt(index)
LVW.Items.Insert(index + 1, item)
item.Selected = True
item.Focused = True
item.EnsureVisible()
Finally
LVW.EndUpdate()
End Try
Else
If LVW.SelectedItems(0).Index > 0 Then
For i = 0 To LVW.SelectedItems.Count - 1
OldItem = LVW.Items(LVW.SelectedItems(i).Index - 1)
OldPos = LVW.Items(LVW.SelectedItems(i).Index).Index
LVW.Items(OldPos - 1) = LVW.SelectedItems(i).Clone
LVW.Items(OldPos) = OldItem
LVW.Items(OldPos - 1).Selected = True
Next
End If
If LVW.SelectedItems(0).Index = 0 Then Return
Dim index = LVW.SelectedItems(0).Index
LVW.BeginUpdate()
Try
Dim item = LVW.SelectedItems(0)
LVW.Items.RemoveAt(index)
LVW.Items.Insert(index - 1, item)
item.Selected = True
item.Focused = True
item.EnsureVisible()
Finally
LVW.EndUpdate()
End Try
End If
'' definieren das am aktuellen Profil Änderungen vorgenommen wurden
Me._selectedProfil.setChanged()
@@ -785,70 +794,46 @@ Public Class frmNIVerknuepfungen
Return Nothing
End Try
End Function
Private Function GetMsSqlFunctions(Type As String) As String()
Private Function GetMsSqlFunctions(ParamArray types As String()) As String()
Try
Dim SqlString As String
Dim DataViews() As String = Nothing
Dim i As Integer = 0
'Dim ConnectionString As SqlConnectionStringBuilder
Dim Connection As SqlConnection
Dim Command As SqlCommand
Dim DataAdapter As SqlDataAdapter
Dim DataSet As DataSet = New DataSet()
Dim con As String
' ConnectionString aufbauen
If _selectedProfil.UserId = "WINAUTH" Then
con = "Data Source=" & _selectedProfil.DataSource & ";Initial Catalog=" & _selectedProfil.InitialCatalog & ";Trusted_Connection=True;"
Else
con = "Server=" & _selectedProfil.DataSource & ";Database=" & _selectedProfil.InitialCatalog & ";User Id=" & _selectedProfil.UserId & ";Password=" & _selectedProfil.Password & ";"
End If
'ConnectionString = New SqlConnectionStringBuilder()
'ConnectionString.DataSource = Me._selectedProfil.DataSource
'ConnectionString.UserID = Me._selectedProfil.UserId
'ConnectionString.Password = Me._selectedProfil.Password
'ConnectionString.InitialCatalog = Me._selectedProfil.InitialCatalog
' Verbindung zur DB herstellen
Connection = New SqlConnection(con)
Connection.Open()
' DB-Abfrage für alle Views definieren
SqlString = $"SELECT O.name FROM sys.sql_modules M INNER JOIN sys.objects O ON M.object_id=O.object_id WHERE O.type = '{Type}'"
Dim typeList As String = String.Join("','", types)
SqlString = $"SELECT O.name FROM sys.sql_modules M INNER JOIN sys.objects O ON M.object_id=O.object_id WHERE O.type IN ('{typeList}')"
' die DB-Abfrage erzeugen
Command = New SqlCommand(SqlString, Connection)
' die DB-Abfrage durchführen
DataAdapter = New SqlDataAdapter(Command)
' das DataSet mit den Daten füllen
DataAdapter.Fill(DataSet)
If DataSet.Tables(0).Rows.Count > 0 Then
Dim tabellenart As String = "FUNCTIONS"
' alle Ergebnisse (VIEWs) durchlaufen
For Each row As DataRow In DataSet.Tables(0).Rows
If DataViews IsNot Nothing Then ReDim Preserve DataViews(DataViews.Length) Else ReDim DataViews(0)
' View in Array schreiben
DataViews(i) = row.Item(0)
i += 1
Next
' Array zurückgeben
Return DataViews
Else
Return Nothing
End If
Catch ex As Exception
MsgBox("Die MSSQL-Datenansichten der Datenbank konnten nicht fehlerfrei ausgelesen werden." & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Fehler beim Auslesen der Datenansichten MSSQL")
Return Nothing
@@ -1383,6 +1368,34 @@ Public Class frmNIVerknuepfungen
End Try
End Function
Private Sub EnableBtnLink()
If Me._selectedProfil Is Nothing Then
btnLink.Enabled = False
Return
End If
Select Case Me._selectedProfil.Ni_Art
Case "db", "activedirectory"
btnLink.Enabled =
lbxWMIndex.SelectedItems.Count > 0 And
(lbxQuelle1.SelectedItems.Count > 0 OrElse txtManIndexwert.Text <> "")
Case "xml"
btnLink.Enabled =
lbxWMIndex.SelectedItems.Count > 0 And
(trvwxml.SelectedNode IsNot Nothing OrElse txtManIndexwert.Text <> "")
Case "fulltext"
btnLink.Enabled =
lbxWMIndex.SelectedItems.Count > 0 And
(txtregex.Text <> "" OrElse txtManIndexwert.Text <> "")
Case Else
btnLink.Enabled = False
End Select
End Sub
Private Sub btnLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLink.Click
' wenn im ListView ein Element selektiert wurde
If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
@@ -1684,24 +1697,6 @@ Public Class frmNIVerknuepfungen
Private Sub lvwVerknuepfungen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvwVerknuepfungen.SelectedIndexChanged
If Not Me._selectedProfil._links.IsSaved Then
Dim msgResult As MsgBoxResult = MsgBox("Möchten Sie die Änderungen speichern?", MsgBoxStyle.YesNoCancel, "Änderungen übernehmen?")
If msgResult = MsgBoxResult.Yes Then
'If Not Me._selectedProfil.IsSaved Then
' SaveProfile()
'End If
If Not Me._selectedProfil._links.IsSaved Then
SaveLinks()
SaveProfile()
End If
Else
Me._selectedProfil._links.setLinksSaved()
Me._selectedProfil.setSaved()
End If
End If
Select Case Me._selectedProfil.Ni_Art
Case "db"
@@ -1709,6 +1704,9 @@ Public Class frmNIVerknuepfungen
If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
If Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text.StartsWith("%") And Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text.EndsWith("%") Then
Me.grbFilterDB.Enabled = False
btnUnlink.Enabled = (lvwVerknuepfungen.SelectedItems.Count > 0)
Exit Sub
End If
End If
@@ -2027,7 +2025,7 @@ Public Class frmNIVerknuepfungen
End If
End If
btnUnlink.Enabled = (lvwVerknuepfungen.SelectedItems.Count > 0)
End Sub
@@ -2837,6 +2835,8 @@ Public Class frmNIVerknuepfungen
Else
grbFilterDB.Enabled = True
End If
EnableBtnLink()
End Sub
Private Sub txtGrundgeruest_check_Click(sender As System.Object, e As System.EventArgs) Handles txtGrundgeruest_check.Click
Me.txtCheckIndexSQL.Text = "SELECT COUNT(*) FROM [%view] WHERE "
@@ -3458,6 +3458,7 @@ Public Class frmNIVerknuepfungen
End If
End If
EnableBtnLink()
'Catch ex As Exception
' MsgBox("Fehler bei Check Änderung Regex:" & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'End Try
@@ -3530,7 +3531,14 @@ Public Class frmNIVerknuepfungen
If _selectedIndex_Type Is Nothing = False Then
visinvisible_Vektor_ins_State()
End If
EnableBtnLink()
End Sub
Private Sub lbxQuelle1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbxQuelle1.SelectedIndexChanged
EnableBtnLink()
End Sub
Sub visinvisible_Vektor_ins_State()
If _selectedIndex_Type.StartsWith("Vektor") Then
Me.rbvkt_add.Visible = True
@@ -3599,8 +3607,7 @@ Public Class frmNIVerknuepfungen
End Sub
Private Sub trvwxml_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles trvwxml.AfterSelect
EnableBtnLink()
End Sub
Private Sub tabctrlbottom_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tabctrlbottom.SelectedIndexChanged
@@ -3714,6 +3721,40 @@ Public Class frmNIVerknuepfungen
End If
End Sub
Private Sub rbFunctionsTb_CheckedChanged(sender As Object, e As EventArgs) Handles rbFunctionsTb.CheckedChanged
If Not _flagIgnoreCheckedChanged Then
If Me._selectedProfil Is Nothing = False Then
Me.cmbDataviews.Items.Clear()
' View- oder Tabellenliste
Dim dataviews() As String = Nothing
If Me._selectedProfil.DbArt = "MS-SQL" Then
dataviews = Me.GetMsSqlFunctions("TF", "IF")
'ElseIf Me._selectedProfil.DbArt = "ODBC" Then
' dataviews = Me.GetOdbcDataviews(Me.rbViews.Checked)
'ElseIf Me._selectedProfil.DbArt = "OLE (Access)" Then
' dataviews = Me.GetOleDataviews(Me.rbViews.Checked)
Else
MsgBox("Der gewählte Datenbanktyp ist nicht für Funktionen unterstützt.", MsgBoxStyle.Critical, "Unbekannter Datenbanktyp")
End If
If dataviews IsNot Nothing Then
For Each dataview As String In dataviews
Me.cmbDataviews.Items.Add(dataview)
Next
End If
Me.txtSelectAnweisung.Text = ""
Else
MsgBox("Bitte wählen Sie ein Profil aus!", MsgBoxStyle.Information, "Achtung:")
End If
End If
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub

View File

@@ -37,19 +37,17 @@ Partial Class frmStart
Me.ZeigeLogFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ÖffneLogverzeichnisToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ModuleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LizenzverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PasswortverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.CriticalEmailTestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ÜberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PanelMain = New System.Windows.Forms.Panel()
Me.groupboxNachbearbeitungAD = New System.Windows.Forms.GroupBox()
Me.btnNachbearbeitungAD = New System.Windows.Forms.Button()
Me.grbxMoRe = New System.Windows.Forms.GroupBox()
Me.btnOpen_MoReProfile = New System.Windows.Forms.Button()
Me.GroupBoxIntegration = New System.Windows.Forms.GroupBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.GBNachindexierung = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnNIProfile = New System.Windows.Forms.Button()
@@ -66,9 +64,9 @@ Partial Class frmStart
Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components)
Me.StatusStrip1.SuspendLayout()
Me.menHauptmenü.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.PanelMain.SuspendLayout()
Me.groupboxNachbearbeitungAD.SuspendLayout()
Me.grbxMoRe.SuspendLayout()
Me.GroupBoxIntegration.SuspendLayout()
Me.GBNachindexierung.SuspendLayout()
Me.grbDI.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
@@ -183,34 +181,27 @@ Partial Class frmStart
'
'ModuleToolStripMenuItem
'
Me.ModuleToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LizenzverwaltungToolStripMenuItem, Me.PasswortverwaltungToolStripMenuItem, Me.GrundeinstellungenToolStripMenuItem, Me.CriticalEmailTestToolStripMenuItem})
Me.ModuleToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PasswortverwaltungToolStripMenuItem, Me.GrundeinstellungenToolStripMenuItem, Me.CriticalEmailTestToolStripMenuItem})
Me.ModuleToolStripMenuItem.Name = "ModuleToolStripMenuItem"
Me.ModuleToolStripMenuItem.Size = New System.Drawing.Size(75, 20)
Me.ModuleToolStripMenuItem.Text = "Bearbeiten"
'
'LizenzverwaltungToolStripMenuItem
'
Me.LizenzverwaltungToolStripMenuItem.Name = "LizenzverwaltungToolStripMenuItem"
Me.LizenzverwaltungToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F10
Me.LizenzverwaltungToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.LizenzverwaltungToolStripMenuItem.Text = "Lizenzverwaltung"
'
'PasswortverwaltungToolStripMenuItem
'
Me.PasswortverwaltungToolStripMenuItem.Name = "PasswortverwaltungToolStripMenuItem"
Me.PasswortverwaltungToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.PasswortverwaltungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.PasswortverwaltungToolStripMenuItem.Text = "Passwortverwaltung"
'
'GrundeinstellungenToolStripMenuItem
'
Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem"
Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.GrundeinstellungenToolStripMenuItem.Text = "Grundeinstellungen"
'
'CriticalEmailTestToolStripMenuItem
'
Me.CriticalEmailTestToolStripMenuItem.Name = "CriticalEmailTestToolStripMenuItem"
Me.CriticalEmailTestToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
Me.CriticalEmailTestToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.CriticalEmailTestToolStripMenuItem.Text = "Critical Email - Test"
'
'HilfeToolStripMenuItem
@@ -243,39 +234,49 @@ Partial Class frmStart
Me.ImageList1.Images.SetKeyName(7, "ico6700.ico")
Me.ImageList1.Images.SetKeyName(8, "ico7215.ico")
'
'Panel1
'PanelMain
'
Me.Panel1.Controls.Add(Me.btnNachbearbeitungAD)
Me.Panel1.Controls.Add(Me.grbxMoRe)
Me.Panel1.Controls.Add(Me.GroupBoxIntegration)
Me.Panel1.Controls.Add(Me.GBNachindexierung)
Me.Panel1.Controls.Add(Me.grbDI)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel1.Location = New System.Drawing.Point(0, 24)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(163, 589)
Me.Panel1.TabIndex = 10
Me.PanelMain.Controls.Add(Me.groupboxNachbearbeitungAD)
Me.PanelMain.Controls.Add(Me.grbxMoRe)
Me.PanelMain.Controls.Add(Me.GBNachindexierung)
Me.PanelMain.Controls.Add(Me.grbDI)
Me.PanelMain.Dock = System.Windows.Forms.DockStyle.Left
Me.PanelMain.Location = New System.Drawing.Point(0, 24)
Me.PanelMain.Name = "PanelMain"
Me.PanelMain.Size = New System.Drawing.Size(163, 589)
Me.PanelMain.TabIndex = 10
'
'groupboxNachbearbeitungAD
'
Me.groupboxNachbearbeitungAD.Controls.Add(Me.btnNachbearbeitungAD)
Me.groupboxNachbearbeitungAD.Dock = System.Windows.Forms.DockStyle.Top
Me.groupboxNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.groupboxNachbearbeitungAD.Location = New System.Drawing.Point(0, 395)
Me.groupboxNachbearbeitungAD.Name = "groupboxNachbearbeitungAD"
Me.groupboxNachbearbeitungAD.Size = New System.Drawing.Size(163, 72)
Me.groupboxNachbearbeitungAD.TabIndex = 5
Me.groupboxNachbearbeitungAD.TabStop = False
Me.groupboxNachbearbeitungAD.Text = "Nachbearbeitung"
'
'btnNachbearbeitungAD
'
Me.btnNachbearbeitungAD.Dock = System.Windows.Forms.DockStyle.Top
Me.btnNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnNachbearbeitungAD.Image = Global.ToolCollection.My.Resources.Resources.Untitled__142_
Me.btnNachbearbeitungAD.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNachbearbeitungAD.Location = New System.Drawing.Point(0, 464)
Me.btnNachbearbeitungAD.Location = New System.Drawing.Point(6, 21)
Me.btnNachbearbeitungAD.Name = "btnNachbearbeitungAD"
Me.btnNachbearbeitungAD.Size = New System.Drawing.Size(163, 42)
Me.btnNachbearbeitungAD.Size = New System.Drawing.Size(153, 42)
Me.btnNachbearbeitungAD.TabIndex = 4
Me.btnNachbearbeitungAD.Text = "ActiveDirectory" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Nachbearbeitung"
Me.btnNachbearbeitungAD.Text = "Rechteverwaltung"
Me.btnNachbearbeitungAD.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNachbearbeitungAD.UseVisualStyleBackColor = True
Me.btnNachbearbeitungAD.Visible = False
'
'grbxMoRe
'
Me.grbxMoRe.Controls.Add(Me.btnOpen_MoReProfile)
Me.grbxMoRe.Dock = System.Windows.Forms.DockStyle.Top
Me.grbxMoRe.Location = New System.Drawing.Point(0, 394)
Me.grbxMoRe.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.grbxMoRe.Location = New System.Drawing.Point(0, 325)
Me.grbxMoRe.Name = "grbxMoRe"
Me.grbxMoRe.Size = New System.Drawing.Size(163, 70)
Me.grbxMoRe.TabIndex = 4
@@ -288,7 +289,7 @@ Partial Class frmStart
Me.btnOpen_MoReProfile.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnOpen_MoReProfile.Image = Global.ToolCollection.My.Resources.Resources.Untitled__49_
Me.btnOpen_MoReProfile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOpen_MoReProfile.Location = New System.Drawing.Point(3, 21)
Me.btnOpen_MoReProfile.Location = New System.Drawing.Point(6, 21)
Me.btnOpen_MoReProfile.Name = "btnOpen_MoReProfile"
Me.btnOpen_MoReProfile.Size = New System.Drawing.Size(153, 41)
Me.btnOpen_MoReProfile.TabIndex = 4
@@ -296,31 +297,6 @@ Partial Class frmStart
Me.btnOpen_MoReProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnOpen_MoReProfile.UseVisualStyleBackColor = True
'
'GroupBoxIntegration
'
Me.GroupBoxIntegration.Controls.Add(Me.Button3)
Me.GroupBoxIntegration.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBoxIntegration.Location = New System.Drawing.Point(0, 325)
Me.GroupBoxIntegration.Name = "GroupBoxIntegration"
Me.GroupBoxIntegration.Size = New System.Drawing.Size(163, 69)
Me.GroupBoxIntegration.TabIndex = 3
Me.GroupBoxIntegration.TabStop = False
Me.GroupBoxIntegration.Text = "DD Integration"
Me.GroupBoxIntegration.Visible = False
'
'Button3
'
Me.Button3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.Image = Global.ToolCollection.My.Resources.Resources.Untitled__640_
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(4, 21)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(153, 41)
Me.Button3.TabIndex = 2
Me.Button3.Text = "Profilkonfiguration"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.UseVisualStyleBackColor = True
'
'GBNachindexierung
'
Me.GBNachindexierung.Controls.Add(Me.Button1)
@@ -334,7 +310,6 @@ Partial Class frmStart
Me.GBNachindexierung.TabIndex = 1
Me.GBNachindexierung.TabStop = False
Me.GBNachindexierung.Text = "Nachindexierung"
Me.GBNachindexierung.Visible = False
'
'Button1
'
@@ -388,7 +363,6 @@ Partial Class frmStart
Me.grbDI.TabIndex = 0
Me.grbDI.TabStop = False
Me.grbDI.Text = "Dateiimporter"
Me.grbDI.Visible = False
'
'btnRegelverwaltung
'
@@ -466,7 +440,7 @@ Partial Class frmStart
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1237, 638)
Me.ContextMenuStrip = Me.ContextMenuStrip1
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.PanelMain)
Me.Controls.Add(Me.menHauptmenü)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -477,9 +451,9 @@ Partial Class frmStart
Me.StatusStrip1.PerformLayout()
Me.menHauptmenü.ResumeLayout(False)
Me.menHauptmenü.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.PanelMain.ResumeLayout(False)
Me.groupboxNachbearbeitungAD.ResumeLayout(False)
Me.grbxMoRe.ResumeLayout(False)
Me.GroupBoxIntegration.ResumeLayout(False)
Me.GBNachindexierung.ResumeLayout(False)
Me.grbDI.ResumeLayout(False)
Me.ContextMenuStrip1.ResumeLayout(False)
@@ -494,11 +468,10 @@ Partial Class frmStart
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ModuleToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents LizenzverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents HilfeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ÜberToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents PanelMain As System.Windows.Forms.Panel
Friend WithEvents grbDI As System.Windows.Forms.GroupBox
Friend WithEvents btnDIMain As System.Windows.Forms.Button
Friend WithEvents btnDIProfile As System.Windows.Forms.Button
@@ -508,8 +481,6 @@ Partial Class frmStart
Friend WithEvents btnNIProfile As System.Windows.Forms.Button
Friend WithEvents btnNIMain As System.Windows.Forms.Button
Friend WithEvents PasswortverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents GroupBoxIntegration As System.Windows.Forms.GroupBox
Friend WithEvents btnOpen_MoReProfile As System.Windows.Forms.Button
Friend WithEvents niToolcollection As System.Windows.Forms.NotifyIcon
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
@@ -527,4 +498,5 @@ Partial Class frmStart
Friend WithEvents TimerDeleteLogfiles As Timer
Friend WithEvents ToolStripStatusLabel_LogDeleteTime As ToolStripStatusLabel
Friend WithEvents ToolStripStatusLabel_ConnectionString As ToolStripStatusLabel
Friend WithEvents groupboxNachbearbeitungAD As GroupBox
End Class

View File

@@ -159,7 +159,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
FAAAAk1TRnQBSQFMAgEBCQEAAXABAwFwAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
FAAAAk1TRnQBSQFMAgEBCQEAAZABAwGQAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

View File

@@ -5,6 +5,7 @@ Imports DigitalData.Modules.Logging
Imports System.IO
Imports DigitalData.Modules.Database
Imports System.Text.RegularExpressions
Imports System.ComponentModel
Public Class frmStart
Private _MyLogger As LogConfig
@@ -127,6 +128,18 @@ Public Class frmStart
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie " & Application.ProductName & " wirklich schließen wollen?" & vbNewLine & "Alle Vorgänge/Module werden gestoppt und nicht mehr ausgeführt!", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
If result = MsgBoxResult.No Then
e.Cancel = True
Return ' ← wichtig: hier sofort raus, kein Logout
End If
If Not IsNothing(CURRENToWMSession) Then
_Logger.Debug("Closing frmStart - Now logging out of windream session...")
Try
CURRENToWMSession.Logout()
_Logger.Debug("windream session logged out successfully.")
Catch ex As Exception
_Logger.Warn("Error while logging out windream session: " & ex.Message)
_Logger.Error(ex)
End Try
End If
End Sub
@@ -306,14 +319,13 @@ Public Class frmStart
Cursor = Cursors.Default
End Sub
Private Sub LizenzverwaltungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LizenzverwaltungToolStripMenuItem.Click
Private Sub LizenzverwaltungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' Öffnet den Lizenz-Manager
frmLizenzmanager.ShowDialog()
End Sub
Public Sub ClearGroupBoxes()
Me.grbDI.Visible = False
Me.GBNachindexierung.Visible = False
Me.GroupBoxIntegration.Visible = False
Me.grbxMoRe.Visible = False
LICENSE_MoveRename = False
LICENSE_AD = False
@@ -321,85 +333,9 @@ Public Class frmStart
Public Sub LoadAllModules()
Me._validModules = Nothing
If Not My.Settings.licensekey = "" Then
If My.Settings.licensekey = "DD MaxLicense" Or My.Settings.licensekey.ToUpper = "DDALLIN" Or My.Settings.licensekey.ToUpper = "DD_ALL_IN" Or My.Settings.licensekey.ToUpper = "DD_ALLIN" Then
Me.grbDI.Visible = True
Me.GBNachindexierung.Visible = True
Me.GroupBoxIntegration.Visible = True
LICENSE_AD = True
LICENSE_MoveRename = True
btnNachbearbeitungAD.Visible = True
LICENSE_AD = True
LICENSE_MoveRename = True
Else
'Me.licenseManager = New ClassLicenseManager = Nothing
Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
Me.licenseManager.licenseString = Me.licenseManager.DecodeLicenseKey(My.Settings.licensekey)
Me.licenseManager.licenseStringArray = Me.licenseManager.SplitLicenseString(Me.licenseManager.licenseString)
Me.licenseManager.LoadLicenses()
If Me.licenseManager.Licenses.machine.ToLower <> "all" Then
If Me.licenseManager.Licenses.machine.ToLower <> My.Computer.Name.ToLower Then
MsgBox("Ihre Lizenz gilt nicht für diese Maschine. " & vbNewLine & "Gelesener Computer Name: '" & My.Computer.Name & "'" & vbNewLine & "License Computer Name: '" & Me.licenseManager.Licenses.machine & "'" & vbNewLine &
"Bitte setzen Sie sich mit Digital Data in Verbindung.", MsgBoxStyle.Exclamation, "Lizenz ungültig:")
Me.grbDI.Visible = False
Me.GBNachindexierung.Visible = False
Me.GroupBoxIntegration.Visible = False
Exit Sub
End If
End If
Dim i As Integer = 0
If Me.licenseManager.Licenses.Licenses IsNot Nothing Then
For Each license As ClassLicense In Me.licenseManager.Licenses.Licenses()
Dim expires As String = license.Expires.Date
If IsExpired(license.Expires.Date) = False Then
' MsgBox(license.Modulename & vbNewLine & expires)
Select Case license.Modulename
Case "Dateiimport"
Me.grbDI.Visible = True
Case "Nachindexierung"
Me.GBNachindexierung.Visible = True
Case "MerkatorIntegration"
Me.GroupBoxIntegration.Visible = True
Case "MoveandRename"
'Me.grbxMoRe.Visible = True
LICENSE_MoveRename = True
Case "NachbearbeitungAD"
btnNachbearbeitungAD.Visible = True
LICENSE_AD = True
End Select
i += 1
Else
MsgBox("Ihre Lizenz für das Modul '" & license.Modulename & "' ist am ' " & license.Expires.Date.ToShortDateString & "' abgelaufen" & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung.", MsgBoxStyle.Exclamation, "Lizenz abgelaufen:")
Select Case license.Modulename
Case "Dateiimport"
Me.grbDI.Visible = False
Case "Nachindexierung"
Me.GBNachindexierung.Visible = False
Case "MerkatorIntegration"
Me.GroupBoxIntegration.Visible = False
Case "MoveandRename"
Me.GroupBoxIntegration.Visible = False
LICENSE_MoveRename = False
Case "NachbearbeitungAD"
btnNachbearbeitungAD.Visible = False
LICENSE_AD = False
End Select
i += 1
End If
'Date.TryParse(expires, license.Expires)
Next
End If
End If
End If
End Sub
Private Function IsExpired(ByVal _Date As Date)
If Date.Today > _Date Then
@@ -467,14 +403,6 @@ Public Class frmStart
frmPWChange.ShowDialog()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Cursor = Cursors.WaitCursor
Dim frm As New frmMIProfileigenschaften
frm.MdiParent = Me
frm.Show()
Cursor = Cursors.Default
End Sub
Private Sub ModuleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModuleToolStripMenuItem.Click
End Sub

View File

@@ -2,5 +2,6 @@
<packages>
<package id="EntityFramework" version="6.0.2" targetFramework="net451" />
<package id="NLog" version="5.0.2" targetFramework="net462" />
<package id="System.Data.SQLite" version="1.0.91.3" targetFramework="net451" />
<package id="Stub.System.Data.SQLite.Core.NetFramework" version="1.0.119.0" targetFramework="net462" />
<package id="System.Data.SQLite.Core" version="1.0.119.0" targetFramework="net462" />
</packages>

View File

@@ -0,0 +1,143 @@
<!--
*
* System.Data.SQLite.Core.NetFramework.targets -
*
* WARNING: This MSBuild file requires MSBuild 4.0 features.
*
* Written by Joe Mistachkin and David Archer.
* Released to the public domain, use at your own risk!
*
-->
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!--
******************************************************************************
** Load Per-User Settings **
******************************************************************************
-->
<!--
NOTE: If the per-user settings file exists, import it now. The contained
settings, if any, will override the default ones provided below.
-->
<Import Condition="'$(MSBuildThisFileFullPath)' != '' And
Exists('$(MSBuildThisFileFullPath).user')"
Project="$(MSBuildThisFileFullPath).user" />
<!--
******************************************************************************
** SQLite Interop Library Build Items **
******************************************************************************
-->
<ItemGroup>
<SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)')"
Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Content Items **
******************************************************************************
-->
<ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
'$(ContentSQLiteInteropFiles)' != 'false' And
'@(SQLiteInteropFiles)' != ''">
<Content Include="@(SQLiteInteropFiles)">
<Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Targets **
******************************************************************************
-->
<Target Name="CopySQLiteInteropFiles"
Condition="'$(CopySQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')"
Inputs="@(SQLiteInteropFiles)"
Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
<!--
NOTE: Copy "SQLite.Interop.dll" and all related files, for every
architecture that we support, to the build output directory.
-->
<Copy SourceFiles="@(SQLiteInteropFiles)"
DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CleanSQLiteInteropFiles"
Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')">
<!--
NOTE: Delete "SQLite.Interop.dll" and all related files, for every
architecture that we support, from the build output directory.
-->
<Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CollectSQLiteInteropFiles"
Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
<ItemGroup>
<FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
<DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
</FilesForPackagingFromProject>
</ItemGroup>
</Target>
<!--
******************************************************************************
** SQLite Interop Library Build Properties **
******************************************************************************
-->
<PropertyGroup>
<PostBuildEventDependsOn>
$(PostBuildEventDependsOn);
CopySQLiteInteropFiles;
</PostBuildEventDependsOn>
<BuildDependsOn>
$(BuildDependsOn);
CopySQLiteInteropFiles;
</BuildDependsOn>
<CleanDependsOn>
$(CleanDependsOn);
CleanSQLiteInteropFiles;
</CleanDependsOn>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Publish Properties for Visual Studio 20xx **
******************************************************************************
-->
<PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
'$(VisualStudioVersion)' == '10.0' Or
'$(VisualStudioVersion)' == '11.0' Or
'$(VisualStudioVersion)' == '12.0' Or
'$(VisualStudioVersion)' == '14.0' Or
'$(VisualStudioVersion)' == '15.0' Or
'$(VisualStudioVersion)' == '16.0' Or
'$(VisualStudioVersion)' == '17.0'">
<PipelineCollectFilesPhaseDependsOn>
CollectSQLiteInteropFiles;
$(PipelineCollectFilesPhaseDependsOn);
</PipelineCollectFilesPhaseDependsOn>
</PropertyGroup>
</Project>

View File

@@ -0,0 +1,143 @@
<!--
*
* System.Data.SQLite.Core.NetFramework.targets -
*
* WARNING: This MSBuild file requires MSBuild 4.0 features.
*
* Written by Joe Mistachkin and David Archer.
* Released to the public domain, use at your own risk!
*
-->
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!--
******************************************************************************
** Load Per-User Settings **
******************************************************************************
-->
<!--
NOTE: If the per-user settings file exists, import it now. The contained
settings, if any, will override the default ones provided below.
-->
<Import Condition="'$(MSBuildThisFileFullPath)' != '' And
Exists('$(MSBuildThisFileFullPath).user')"
Project="$(MSBuildThisFileFullPath).user" />
<!--
******************************************************************************
** SQLite Interop Library Build Items **
******************************************************************************
-->
<ItemGroup>
<SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)')"
Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Content Items **
******************************************************************************
-->
<ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
'$(ContentSQLiteInteropFiles)' != 'false' And
'@(SQLiteInteropFiles)' != ''">
<Content Include="@(SQLiteInteropFiles)">
<Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Targets **
******************************************************************************
-->
<Target Name="CopySQLiteInteropFiles"
Condition="'$(CopySQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')"
Inputs="@(SQLiteInteropFiles)"
Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
<!--
NOTE: Copy "SQLite.Interop.dll" and all related files, for every
architecture that we support, to the build output directory.
-->
<Copy SourceFiles="@(SQLiteInteropFiles)"
DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CleanSQLiteInteropFiles"
Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')">
<!--
NOTE: Delete "SQLite.Interop.dll" and all related files, for every
architecture that we support, from the build output directory.
-->
<Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CollectSQLiteInteropFiles"
Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
<ItemGroup>
<FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
<DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
</FilesForPackagingFromProject>
</ItemGroup>
</Target>
<!--
******************************************************************************
** SQLite Interop Library Build Properties **
******************************************************************************
-->
<PropertyGroup>
<PostBuildEventDependsOn>
$(PostBuildEventDependsOn);
CopySQLiteInteropFiles;
</PostBuildEventDependsOn>
<BuildDependsOn>
$(BuildDependsOn);
CopySQLiteInteropFiles;
</BuildDependsOn>
<CleanDependsOn>
$(CleanDependsOn);
CleanSQLiteInteropFiles;
</CleanDependsOn>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Publish Properties for Visual Studio 20xx **
******************************************************************************
-->
<PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
'$(VisualStudioVersion)' == '10.0' Or
'$(VisualStudioVersion)' == '11.0' Or
'$(VisualStudioVersion)' == '12.0' Or
'$(VisualStudioVersion)' == '14.0' Or
'$(VisualStudioVersion)' == '15.0' Or
'$(VisualStudioVersion)' == '16.0' Or
'$(VisualStudioVersion)' == '17.0'">
<PipelineCollectFilesPhaseDependsOn>
CollectSQLiteInteropFiles;
$(PipelineCollectFilesPhaseDependsOn);
</PipelineCollectFilesPhaseDependsOn>
</PropertyGroup>
</Project>

View File

@@ -0,0 +1,143 @@
<!--
*
* System.Data.SQLite.Core.NetFramework.targets -
*
* WARNING: This MSBuild file requires MSBuild 4.0 features.
*
* Written by Joe Mistachkin and David Archer.
* Released to the public domain, use at your own risk!
*
-->
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!--
******************************************************************************
** Load Per-User Settings **
******************************************************************************
-->
<!--
NOTE: If the per-user settings file exists, import it now. The contained
settings, if any, will override the default ones provided below.
-->
<Import Condition="'$(MSBuildThisFileFullPath)' != '' And
Exists('$(MSBuildThisFileFullPath).user')"
Project="$(MSBuildThisFileFullPath).user" />
<!--
******************************************************************************
** SQLite Interop Library Build Items **
******************************************************************************
-->
<ItemGroup>
<SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)')"
Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Content Items **
******************************************************************************
-->
<ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
'$(ContentSQLiteInteropFiles)' != 'false' And
'@(SQLiteInteropFiles)' != ''">
<Content Include="@(SQLiteInteropFiles)">
<Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Targets **
******************************************************************************
-->
<Target Name="CopySQLiteInteropFiles"
Condition="'$(CopySQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')"
Inputs="@(SQLiteInteropFiles)"
Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
<!--
NOTE: Copy "SQLite.Interop.dll" and all related files, for every
architecture that we support, to the build output directory.
-->
<Copy SourceFiles="@(SQLiteInteropFiles)"
DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CleanSQLiteInteropFiles"
Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')">
<!--
NOTE: Delete "SQLite.Interop.dll" and all related files, for every
architecture that we support, from the build output directory.
-->
<Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CollectSQLiteInteropFiles"
Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
<ItemGroup>
<FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
<DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
</FilesForPackagingFromProject>
</ItemGroup>
</Target>
<!--
******************************************************************************
** SQLite Interop Library Build Properties **
******************************************************************************
-->
<PropertyGroup>
<PostBuildEventDependsOn>
$(PostBuildEventDependsOn);
CopySQLiteInteropFiles;
</PostBuildEventDependsOn>
<BuildDependsOn>
$(BuildDependsOn);
CopySQLiteInteropFiles;
</BuildDependsOn>
<CleanDependsOn>
$(CleanDependsOn);
CleanSQLiteInteropFiles;
</CleanDependsOn>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Publish Properties for Visual Studio 20xx **
******************************************************************************
-->
<PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
'$(VisualStudioVersion)' == '10.0' Or
'$(VisualStudioVersion)' == '11.0' Or
'$(VisualStudioVersion)' == '12.0' Or
'$(VisualStudioVersion)' == '14.0' Or
'$(VisualStudioVersion)' == '15.0' Or
'$(VisualStudioVersion)' == '16.0' Or
'$(VisualStudioVersion)' == '17.0'">
<PipelineCollectFilesPhaseDependsOn>
CollectSQLiteInteropFiles;
$(PipelineCollectFilesPhaseDependsOn);
</PipelineCollectFilesPhaseDependsOn>
</PropertyGroup>
</Project>

View File

@@ -0,0 +1,143 @@
<!--
*
* System.Data.SQLite.Core.NetFramework.targets -
*
* WARNING: This MSBuild file requires MSBuild 4.0 features.
*
* Written by Joe Mistachkin and David Archer.
* Released to the public domain, use at your own risk!
*
-->
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!--
******************************************************************************
** Load Per-User Settings **
******************************************************************************
-->
<!--
NOTE: If the per-user settings file exists, import it now. The contained
settings, if any, will override the default ones provided below.
-->
<Import Condition="'$(MSBuildThisFileFullPath)' != '' And
Exists('$(MSBuildThisFileFullPath).user')"
Project="$(MSBuildThisFileFullPath).user" />
<!--
******************************************************************************
** SQLite Interop Library Build Items **
******************************************************************************
-->
<ItemGroup>
<SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)')"
Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Content Items **
******************************************************************************
-->
<ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
'$(ContentSQLiteInteropFiles)' != 'false' And
'@(SQLiteInteropFiles)' != ''">
<Content Include="@(SQLiteInteropFiles)">
<Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Targets **
******************************************************************************
-->
<Target Name="CopySQLiteInteropFiles"
Condition="'$(CopySQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')"
Inputs="@(SQLiteInteropFiles)"
Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
<!--
NOTE: Copy "SQLite.Interop.dll" and all related files, for every
architecture that we support, to the build output directory.
-->
<Copy SourceFiles="@(SQLiteInteropFiles)"
DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CleanSQLiteInteropFiles"
Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')">
<!--
NOTE: Delete "SQLite.Interop.dll" and all related files, for every
architecture that we support, from the build output directory.
-->
<Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CollectSQLiteInteropFiles"
Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
<ItemGroup>
<FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
<DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
</FilesForPackagingFromProject>
</ItemGroup>
</Target>
<!--
******************************************************************************
** SQLite Interop Library Build Properties **
******************************************************************************
-->
<PropertyGroup>
<PostBuildEventDependsOn>
$(PostBuildEventDependsOn);
CopySQLiteInteropFiles;
</PostBuildEventDependsOn>
<BuildDependsOn>
$(BuildDependsOn);
CopySQLiteInteropFiles;
</BuildDependsOn>
<CleanDependsOn>
$(CleanDependsOn);
CleanSQLiteInteropFiles;
</CleanDependsOn>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Publish Properties for Visual Studio 20xx **
******************************************************************************
-->
<PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
'$(VisualStudioVersion)' == '10.0' Or
'$(VisualStudioVersion)' == '11.0' Or
'$(VisualStudioVersion)' == '12.0' Or
'$(VisualStudioVersion)' == '14.0' Or
'$(VisualStudioVersion)' == '15.0' Or
'$(VisualStudioVersion)' == '16.0' Or
'$(VisualStudioVersion)' == '17.0'">
<PipelineCollectFilesPhaseDependsOn>
CollectSQLiteInteropFiles;
$(PipelineCollectFilesPhaseDependsOn);
</PipelineCollectFilesPhaseDependsOn>
</PropertyGroup>
</Project>

View File

@@ -0,0 +1,143 @@
<!--
*
* System.Data.SQLite.Core.NetFramework.targets -
*
* WARNING: This MSBuild file requires MSBuild 4.0 features.
*
* Written by Joe Mistachkin and David Archer.
* Released to the public domain, use at your own risk!
*
-->
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!--
******************************************************************************
** Load Per-User Settings **
******************************************************************************
-->
<!--
NOTE: If the per-user settings file exists, import it now. The contained
settings, if any, will override the default ones provided below.
-->
<Import Condition="'$(MSBuildThisFileFullPath)' != '' And
Exists('$(MSBuildThisFileFullPath).user')"
Project="$(MSBuildThisFileFullPath).user" />
<!--
******************************************************************************
** SQLite Interop Library Build Items **
******************************************************************************
-->
<ItemGroup>
<SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)')"
Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Content Items **
******************************************************************************
-->
<ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
'$(ContentSQLiteInteropFiles)' != 'false' And
'@(SQLiteInteropFiles)' != ''">
<Content Include="@(SQLiteInteropFiles)">
<Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Targets **
******************************************************************************
-->
<Target Name="CopySQLiteInteropFiles"
Condition="'$(CopySQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')"
Inputs="@(SQLiteInteropFiles)"
Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
<!--
NOTE: Copy "SQLite.Interop.dll" and all related files, for every
architecture that we support, to the build output directory.
-->
<Copy SourceFiles="@(SQLiteInteropFiles)"
DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CleanSQLiteInteropFiles"
Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')">
<!--
NOTE: Delete "SQLite.Interop.dll" and all related files, for every
architecture that we support, from the build output directory.
-->
<Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CollectSQLiteInteropFiles"
Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
<ItemGroup>
<FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
<DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
</FilesForPackagingFromProject>
</ItemGroup>
</Target>
<!--
******************************************************************************
** SQLite Interop Library Build Properties **
******************************************************************************
-->
<PropertyGroup>
<PostBuildEventDependsOn>
$(PostBuildEventDependsOn);
CopySQLiteInteropFiles;
</PostBuildEventDependsOn>
<BuildDependsOn>
$(BuildDependsOn);
CopySQLiteInteropFiles;
</BuildDependsOn>
<CleanDependsOn>
$(CleanDependsOn);
CleanSQLiteInteropFiles;
</CleanDependsOn>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Publish Properties for Visual Studio 20xx **
******************************************************************************
-->
<PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
'$(VisualStudioVersion)' == '10.0' Or
'$(VisualStudioVersion)' == '11.0' Or
'$(VisualStudioVersion)' == '12.0' Or
'$(VisualStudioVersion)' == '14.0' Or
'$(VisualStudioVersion)' == '15.0' Or
'$(VisualStudioVersion)' == '16.0' Or
'$(VisualStudioVersion)' == '17.0'">
<PipelineCollectFilesPhaseDependsOn>
CollectSQLiteInteropFiles;
$(PipelineCollectFilesPhaseDependsOn);
</PipelineCollectFilesPhaseDependsOn>
</PropertyGroup>
</Project>

View File

@@ -0,0 +1,166 @@
<!--
*
* System.Data.SQLite.Core.NetFramework.targets -
*
* WARNING: This MSBuild file requires MSBuild 4.0 features.
*
* Written by Joe Mistachkin and David Archer.
* Released to the public domain, use at your own risk!
*
-->
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!--
******************************************************************************
** Load Per-User Settings **
******************************************************************************
-->
<!--
NOTE: If the per-user settings file exists, import it now. The contained
settings, if any, will override the default ones provided below.
-->
<Import Condition="'$(MSBuildThisFileFullPath)' != '' And
Exists('$(MSBuildThisFileFullPath).user')"
Project="$(MSBuildThisFileFullPath).user" />
<!--
******************************************************************************
** Target Framework Version Directory Base Name **
******************************************************************************
-->
<PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)')">
<!--
NOTE: Attempt to determine the name of our immediate parent directory,
e.g. "net40". This is needed in order to locate the correct set
of SQLite interop files. This value will have a trailing slash.
-->
<SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Items **
******************************************************************************
-->
<ItemGroup>
<!--
NOTE: Grab the list of SQLite interop files to be copied to the build
output directory. There should be one file for each supported
processor architecture.
-->
<SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)') And
'$(SQLiteTargetFramework)' != '' And
HasTrailingSlash('$(SQLiteTargetFramework)')"
Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Content Items **
******************************************************************************
-->
<ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
'$(ContentSQLiteInteropFiles)' != 'false' And
'@(SQLiteInteropFiles)' != ''">
<Content Include="@(SQLiteInteropFiles)">
<Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Targets **
******************************************************************************
-->
<Target Name="CopySQLiteInteropFiles"
Condition="'$(CopySQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')"
Inputs="@(SQLiteInteropFiles)"
Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
<!--
NOTE: Copy "SQLite.Interop.dll" and all related files, for every
architecture that we support, to the build output directory.
-->
<Copy SourceFiles="@(SQLiteInteropFiles)"
DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CleanSQLiteInteropFiles"
Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')">
<!--
NOTE: Delete "SQLite.Interop.dll" and all related files, for every
architecture that we support, from the build output directory.
-->
<Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CollectSQLiteInteropFiles"
Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
<ItemGroup>
<FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
<DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
</FilesForPackagingFromProject>
</ItemGroup>
</Target>
<!--
******************************************************************************
** SQLite Interop Library Build Properties **
******************************************************************************
-->
<PropertyGroup>
<PostBuildEventDependsOn>
$(PostBuildEventDependsOn);
CopySQLiteInteropFiles;
</PostBuildEventDependsOn>
<BuildDependsOn>
$(BuildDependsOn);
CopySQLiteInteropFiles;
</BuildDependsOn>
<CleanDependsOn>
$(CleanDependsOn);
CleanSQLiteInteropFiles;
</CleanDependsOn>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Publish Properties for Visual Studio 20xx **
******************************************************************************
-->
<PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
'$(VisualStudioVersion)' == '10.0' Or
'$(VisualStudioVersion)' == '11.0' Or
'$(VisualStudioVersion)' == '12.0' Or
'$(VisualStudioVersion)' == '14.0' Or
'$(VisualStudioVersion)' == '15.0' Or
'$(VisualStudioVersion)' == '16.0' Or
'$(VisualStudioVersion)' == '17.0'">
<PipelineCollectFilesPhaseDependsOn>
CollectSQLiteInteropFiles;
$(PipelineCollectFilesPhaseDependsOn);
</PipelineCollectFilesPhaseDependsOn>
</PropertyGroup>
</Project>

View File

@@ -0,0 +1,166 @@
<!--
*
* System.Data.SQLite.Core.NetFramework.targets -
*
* WARNING: This MSBuild file requires MSBuild 4.0 features.
*
* Written by Joe Mistachkin and David Archer.
* Released to the public domain, use at your own risk!
*
-->
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!--
******************************************************************************
** Load Per-User Settings **
******************************************************************************
-->
<!--
NOTE: If the per-user settings file exists, import it now. The contained
settings, if any, will override the default ones provided below.
-->
<Import Condition="'$(MSBuildThisFileFullPath)' != '' And
Exists('$(MSBuildThisFileFullPath).user')"
Project="$(MSBuildThisFileFullPath).user" />
<!--
******************************************************************************
** Target Framework Version Directory Base Name **
******************************************************************************
-->
<PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)')">
<!--
NOTE: Attempt to determine the name of our immediate parent directory,
e.g. "net40". This is needed in order to locate the correct set
of SQLite interop files. This value will have a trailing slash.
-->
<SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Items **
******************************************************************************
-->
<ItemGroup>
<!--
NOTE: Grab the list of SQLite interop files to be copied to the build
output directory. There should be one file for each supported
processor architecture.
-->
<SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)') And
'$(SQLiteTargetFramework)' != '' And
HasTrailingSlash('$(SQLiteTargetFramework)')"
Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Content Items **
******************************************************************************
-->
<ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
'$(ContentSQLiteInteropFiles)' != 'false' And
'@(SQLiteInteropFiles)' != ''">
<Content Include="@(SQLiteInteropFiles)">
<Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Targets **
******************************************************************************
-->
<Target Name="CopySQLiteInteropFiles"
Condition="'$(CopySQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')"
Inputs="@(SQLiteInteropFiles)"
Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
<!--
NOTE: Copy "SQLite.Interop.dll" and all related files, for every
architecture that we support, to the build output directory.
-->
<Copy SourceFiles="@(SQLiteInteropFiles)"
DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CleanSQLiteInteropFiles"
Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')">
<!--
NOTE: Delete "SQLite.Interop.dll" and all related files, for every
architecture that we support, from the build output directory.
-->
<Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CollectSQLiteInteropFiles"
Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
<ItemGroup>
<FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
<DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
</FilesForPackagingFromProject>
</ItemGroup>
</Target>
<!--
******************************************************************************
** SQLite Interop Library Build Properties **
******************************************************************************
-->
<PropertyGroup>
<PostBuildEventDependsOn>
$(PostBuildEventDependsOn);
CopySQLiteInteropFiles;
</PostBuildEventDependsOn>
<BuildDependsOn>
$(BuildDependsOn);
CopySQLiteInteropFiles;
</BuildDependsOn>
<CleanDependsOn>
$(CleanDependsOn);
CleanSQLiteInteropFiles;
</CleanDependsOn>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Publish Properties for Visual Studio 20xx **
******************************************************************************
-->
<PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
'$(VisualStudioVersion)' == '10.0' Or
'$(VisualStudioVersion)' == '11.0' Or
'$(VisualStudioVersion)' == '12.0' Or
'$(VisualStudioVersion)' == '14.0' Or
'$(VisualStudioVersion)' == '15.0' Or
'$(VisualStudioVersion)' == '16.0' Or
'$(VisualStudioVersion)' == '17.0'">
<PipelineCollectFilesPhaseDependsOn>
CollectSQLiteInteropFiles;
$(PipelineCollectFilesPhaseDependsOn);
</PipelineCollectFilesPhaseDependsOn>
</PropertyGroup>
</Project>

View File

@@ -0,0 +1,166 @@
<!--
*
* System.Data.SQLite.Core.NetFramework.targets -
*
* WARNING: This MSBuild file requires MSBuild 4.0 features.
*
* Written by Joe Mistachkin and David Archer.
* Released to the public domain, use at your own risk!
*
-->
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!--
******************************************************************************
** Load Per-User Settings **
******************************************************************************
-->
<!--
NOTE: If the per-user settings file exists, import it now. The contained
settings, if any, will override the default ones provided below.
-->
<Import Condition="'$(MSBuildThisFileFullPath)' != '' And
Exists('$(MSBuildThisFileFullPath).user')"
Project="$(MSBuildThisFileFullPath).user" />
<!--
******************************************************************************
** Target Framework Version Directory Base Name **
******************************************************************************
-->
<PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)')">
<!--
NOTE: Attempt to determine the name of our immediate parent directory,
e.g. "net40". This is needed in order to locate the correct set
of SQLite interop files. This value will have a trailing slash.
-->
<SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Items **
******************************************************************************
-->
<ItemGroup>
<!--
NOTE: Grab the list of SQLite interop files to be copied to the build
output directory. There should be one file for each supported
processor architecture.
-->
<SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)') And
'$(SQLiteTargetFramework)' != '' And
HasTrailingSlash('$(SQLiteTargetFramework)')"
Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Content Items **
******************************************************************************
-->
<ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
'$(ContentSQLiteInteropFiles)' != 'false' And
'@(SQLiteInteropFiles)' != ''">
<Content Include="@(SQLiteInteropFiles)">
<Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Targets **
******************************************************************************
-->
<Target Name="CopySQLiteInteropFiles"
Condition="'$(CopySQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')"
Inputs="@(SQLiteInteropFiles)"
Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
<!--
NOTE: Copy "SQLite.Interop.dll" and all related files, for every
architecture that we support, to the build output directory.
-->
<Copy SourceFiles="@(SQLiteInteropFiles)"
DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CleanSQLiteInteropFiles"
Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')">
<!--
NOTE: Delete "SQLite.Interop.dll" and all related files, for every
architecture that we support, from the build output directory.
-->
<Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CollectSQLiteInteropFiles"
Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
<ItemGroup>
<FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
<DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
</FilesForPackagingFromProject>
</ItemGroup>
</Target>
<!--
******************************************************************************
** SQLite Interop Library Build Properties **
******************************************************************************
-->
<PropertyGroup>
<PostBuildEventDependsOn>
$(PostBuildEventDependsOn);
CopySQLiteInteropFiles;
</PostBuildEventDependsOn>
<BuildDependsOn>
$(BuildDependsOn);
CopySQLiteInteropFiles;
</BuildDependsOn>
<CleanDependsOn>
$(CleanDependsOn);
CleanSQLiteInteropFiles;
</CleanDependsOn>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Publish Properties for Visual Studio 20xx **
******************************************************************************
-->
<PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
'$(VisualStudioVersion)' == '10.0' Or
'$(VisualStudioVersion)' == '11.0' Or
'$(VisualStudioVersion)' == '12.0' Or
'$(VisualStudioVersion)' == '14.0' Or
'$(VisualStudioVersion)' == '15.0' Or
'$(VisualStudioVersion)' == '16.0' Or
'$(VisualStudioVersion)' == '17.0'">
<PipelineCollectFilesPhaseDependsOn>
CollectSQLiteInteropFiles;
$(PipelineCollectFilesPhaseDependsOn);
</PipelineCollectFilesPhaseDependsOn>
</PropertyGroup>
</Project>

View File

@@ -0,0 +1,166 @@
<!--
*
* System.Data.SQLite.Core.NetFramework.targets -
*
* WARNING: This MSBuild file requires MSBuild 4.0 features.
*
* Written by Joe Mistachkin and David Archer.
* Released to the public domain, use at your own risk!
*
-->
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!--
******************************************************************************
** Load Per-User Settings **
******************************************************************************
-->
<!--
NOTE: If the per-user settings file exists, import it now. The contained
settings, if any, will override the default ones provided below.
-->
<Import Condition="'$(MSBuildThisFileFullPath)' != '' And
Exists('$(MSBuildThisFileFullPath).user')"
Project="$(MSBuildThisFileFullPath).user" />
<!--
******************************************************************************
** Target Framework Version Directory Base Name **
******************************************************************************
-->
<PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)')">
<!--
NOTE: Attempt to determine the name of our immediate parent directory,
e.g. "net40". This is needed in order to locate the correct set
of SQLite interop files. This value will have a trailing slash.
-->
<SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Items **
******************************************************************************
-->
<ItemGroup>
<!--
NOTE: Grab the list of SQLite interop files to be copied to the build
output directory. There should be one file for each supported
processor architecture.
-->
<SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)') And
'$(SQLiteTargetFramework)' != '' And
HasTrailingSlash('$(SQLiteTargetFramework)')"
Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Content Items **
******************************************************************************
-->
<ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
'$(ContentSQLiteInteropFiles)' != 'false' And
'@(SQLiteInteropFiles)' != ''">
<Content Include="@(SQLiteInteropFiles)">
<Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Targets **
******************************************************************************
-->
<Target Name="CopySQLiteInteropFiles"
Condition="'$(CopySQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')"
Inputs="@(SQLiteInteropFiles)"
Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
<!--
NOTE: Copy "SQLite.Interop.dll" and all related files, for every
architecture that we support, to the build output directory.
-->
<Copy SourceFiles="@(SQLiteInteropFiles)"
DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CleanSQLiteInteropFiles"
Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')">
<!--
NOTE: Delete "SQLite.Interop.dll" and all related files, for every
architecture that we support, from the build output directory.
-->
<Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CollectSQLiteInteropFiles"
Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
<ItemGroup>
<FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
<DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
</FilesForPackagingFromProject>
</ItemGroup>
</Target>
<!--
******************************************************************************
** SQLite Interop Library Build Properties **
******************************************************************************
-->
<PropertyGroup>
<PostBuildEventDependsOn>
$(PostBuildEventDependsOn);
CopySQLiteInteropFiles;
</PostBuildEventDependsOn>
<BuildDependsOn>
$(BuildDependsOn);
CopySQLiteInteropFiles;
</BuildDependsOn>
<CleanDependsOn>
$(CleanDependsOn);
CleanSQLiteInteropFiles;
</CleanDependsOn>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Publish Properties for Visual Studio 20xx **
******************************************************************************
-->
<PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
'$(VisualStudioVersion)' == '10.0' Or
'$(VisualStudioVersion)' == '11.0' Or
'$(VisualStudioVersion)' == '12.0' Or
'$(VisualStudioVersion)' == '14.0' Or
'$(VisualStudioVersion)' == '15.0' Or
'$(VisualStudioVersion)' == '16.0' Or
'$(VisualStudioVersion)' == '17.0'">
<PipelineCollectFilesPhaseDependsOn>
CollectSQLiteInteropFiles;
$(PipelineCollectFilesPhaseDependsOn);
</PipelineCollectFilesPhaseDependsOn>
</PropertyGroup>
</Project>

View File

@@ -0,0 +1,166 @@
<!--
*
* System.Data.SQLite.Core.NetFramework.targets -
*
* WARNING: This MSBuild file requires MSBuild 4.0 features.
*
* Written by Joe Mistachkin and David Archer.
* Released to the public domain, use at your own risk!
*
-->
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<!--
******************************************************************************
** Load Per-User Settings **
******************************************************************************
-->
<!--
NOTE: If the per-user settings file exists, import it now. The contained
settings, if any, will override the default ones provided below.
-->
<Import Condition="'$(MSBuildThisFileFullPath)' != '' And
Exists('$(MSBuildThisFileFullPath).user')"
Project="$(MSBuildThisFileFullPath).user" />
<!--
******************************************************************************
** Target Framework Version Directory Base Name **
******************************************************************************
-->
<PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)')">
<!--
NOTE: Attempt to determine the name of our immediate parent directory,
e.g. "net40". This is needed in order to locate the correct set
of SQLite interop files. This value will have a trailing slash.
-->
<SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Items **
******************************************************************************
-->
<ItemGroup>
<!--
NOTE: Grab the list of SQLite interop files to be copied to the build
output directory. There should be one file for each supported
processor architecture.
-->
<SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
HasTrailingSlash('$(MSBuildThisFileDirectory)') And
'$(SQLiteTargetFramework)' != '' And
HasTrailingSlash('$(SQLiteTargetFramework)')"
Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Content Items **
******************************************************************************
-->
<ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
'$(ContentSQLiteInteropFiles)' != 'false' And
'@(SQLiteInteropFiles)' != ''">
<Content Include="@(SQLiteInteropFiles)">
<Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
</ItemGroup>
<!--
******************************************************************************
** SQLite Interop Library Build Targets **
******************************************************************************
-->
<Target Name="CopySQLiteInteropFiles"
Condition="'$(CopySQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')"
Inputs="@(SQLiteInteropFiles)"
Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
<!--
NOTE: Copy "SQLite.Interop.dll" and all related files, for every
architecture that we support, to the build output directory.
-->
<Copy SourceFiles="@(SQLiteInteropFiles)"
DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CleanSQLiteInteropFiles"
Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
'$(OutDir)' != '' And
HasTrailingSlash('$(OutDir)') And
Exists('$(OutDir)')">
<!--
NOTE: Delete "SQLite.Interop.dll" and all related files, for every
architecture that we support, from the build output directory.
-->
<Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
</Target>
<!--
******************************************************************************
-->
<Target Name="CollectSQLiteInteropFiles"
Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
<ItemGroup>
<FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
<DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
</FilesForPackagingFromProject>
</ItemGroup>
</Target>
<!--
******************************************************************************
** SQLite Interop Library Build Properties **
******************************************************************************
-->
<PropertyGroup>
<PostBuildEventDependsOn>
$(PostBuildEventDependsOn);
CopySQLiteInteropFiles;
</PostBuildEventDependsOn>
<BuildDependsOn>
$(BuildDependsOn);
CopySQLiteInteropFiles;
</BuildDependsOn>
<CleanDependsOn>
$(CleanDependsOn);
CleanSQLiteInteropFiles;
</CleanDependsOn>
</PropertyGroup>
<!--
******************************************************************************
** SQLite Interop Library Publish Properties for Visual Studio 20xx **
******************************************************************************
-->
<PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
'$(VisualStudioVersion)' == '10.0' Or
'$(VisualStudioVersion)' == '11.0' Or
'$(VisualStudioVersion)' == '12.0' Or
'$(VisualStudioVersion)' == '14.0' Or
'$(VisualStudioVersion)' == '15.0' Or
'$(VisualStudioVersion)' == '16.0' Or
'$(VisualStudioVersion)' == '17.0'">
<PipelineCollectFilesPhaseDependsOn>
CollectSQLiteInteropFiles;
$(PipelineCollectFilesPhaseDependsOn);
</PipelineCollectFilesPhaseDependsOn>
</PropertyGroup>
</Project>

View File

@@ -0,0 +1,22 @@
<?xml version="1.0"?>
<!--
*
* System.Data.SQLite.dll.altconfig -
*
* WARNING: This XML configuration file is intended for use within the NuGet
* package directories only. Please do not copy this file to any of
* the build output directories because it could interfere with the
* native library pre-loading feature.
*
* Written by Joe Mistachkin.
* Released to the public domain, use at your own risk!
*
-->
<configuration>
<appSettings>
<add key="PreLoadSQLite_BaseDirectory"
value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
</appSettings>
<dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
</configuration>

View File

@@ -0,0 +1,22 @@
<?xml version="1.0"?>
<!--
*
* System.Data.SQLite.dll.altconfig -
*
* WARNING: This XML configuration file is intended for use within the NuGet
* package directories only. Please do not copy this file to any of
* the build output directories because it could interfere with the
* native library pre-loading feature.
*
* Written by Joe Mistachkin.
* Released to the public domain, use at your own risk!
*
-->
<configuration>
<appSettings>
<add key="PreLoadSQLite_BaseDirectory"
value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
</appSettings>
<dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
</configuration>

View File

@@ -0,0 +1,22 @@
<?xml version="1.0"?>
<!--
*
* System.Data.SQLite.dll.altconfig -
*
* WARNING: This XML configuration file is intended for use within the NuGet
* package directories only. Please do not copy this file to any of
* the build output directories because it could interfere with the
* native library pre-loading feature.
*
* Written by Joe Mistachkin.
* Released to the public domain, use at your own risk!
*
-->
<configuration>
<appSettings>
<add key="PreLoadSQLite_BaseDirectory"
value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
</appSettings>
<dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
</configuration>

View File

@@ -0,0 +1,22 @@
<?xml version="1.0"?>
<!--
*
* System.Data.SQLite.dll.altconfig -
*
* WARNING: This XML configuration file is intended for use within the NuGet
* package directories only. Please do not copy this file to any of
* the build output directories because it could interfere with the
* native library pre-loading feature.
*
* Written by Joe Mistachkin.
* Released to the public domain, use at your own risk!
*
-->
<configuration>
<appSettings>
<add key="PreLoadSQLite_BaseDirectory"
value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
</appSettings>
<dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
</configuration>

View File

@@ -0,0 +1,22 @@
<?xml version="1.0"?>
<!--
*
* System.Data.SQLite.dll.altconfig -
*
* WARNING: This XML configuration file is intended for use within the NuGet
* package directories only. Please do not copy this file to any of
* the build output directories because it could interfere with the
* native library pre-loading feature.
*
* Written by Joe Mistachkin.
* Released to the public domain, use at your own risk!
*
-->
<configuration>
<appSettings>
<add key="PreLoadSQLite_BaseDirectory"
value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
</appSettings>
<dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
</configuration>

File diff suppressed because it is too large Load Diff

View File

@@ -1,11 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".Net Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
</DbProviderFactories>
</system.data>
</configuration>

View File

@@ -1,11 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".Net Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
</DbProviderFactories>
</system.data>
</configuration>

View File

@@ -1,16 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".Net Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

View File

@@ -1,16 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".Net Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

View File

@@ -1,16 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".Net Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

View File

@@ -1,16 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".Net Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

View File

@@ -1,16 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".Net Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

View File

@@ -1,16 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".Net Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

View File

@@ -1,36 +0,0 @@
###############################################################################
#
# install.ps1 --
#
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################
param($installPath, $toolsPath, $package, $project)
$platformNames = "x86", "x64"
$fileName = "SQLite.Interop.dll"
$propertyName = "CopyToOutputDirectory"
foreach($platformName in $platformNames) {
$folder = $project.ProjectItems.Item($platformName)
if ($folder -eq $null) {
continue
}
$item = $folder.ProjectItems.Item($fileName)
if ($item -eq $null) {
continue
}
$property = $item.Properties.Item($propertyName)
if ($property -eq $null) {
continue
}
$property.Value = 1
}

View File

@@ -1,39 +0,0 @@
###############################################################################
#
# install.ps1 --
#
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################
param($installPath, $toolsPath, $package, $project)
$platformNames = "x86", "x64"
$fileName = "SQLite.Interop.dll"
$propertyName = "CopyToOutputDirectory"
foreach($platformName in $platformNames) {
$folder = $project.ProjectItems.Item($platformName)
if ($folder -eq $null) {
continue
}
$item = $folder.ProjectItems.Item($fileName)
if ($item -eq $null) {
continue
}
$property = $item.Properties.Item($propertyName)
if ($property -eq $null) {
continue
}
$property.Value = 1
}
Add-EFProvider $project "System.Data.SQLite.EF6" `
"System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6"

View File

@@ -1,39 +0,0 @@
###############################################################################
#
# install.ps1 --
#
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################
param($installPath, $toolsPath, $package, $project)
$platformNames = "x86", "x64"
$fileName = "SQLite.Interop.dll"
$propertyName = "CopyToOutputDirectory"
foreach($platformName in $platformNames) {
$folder = $project.ProjectItems.Item($platformName)
if ($folder -eq $null) {
continue
}
$item = $folder.ProjectItems.Item($fileName)
if ($item -eq $null) {
continue
}
$property = $item.Properties.Item($propertyName)
if ($property -eq $null) {
continue
}
$property.Value = 1
}
Add-EFProvider $project "System.Data.SQLite.EF6" `
"System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6"

View File

@@ -1,39 +0,0 @@
###############################################################################
#
# install.ps1 --
#
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################
param($installPath, $toolsPath, $package, $project)
$platformNames = "x86", "x64"
$fileName = "SQLite.Interop.dll"
$propertyName = "CopyToOutputDirectory"
foreach($platformName in $platformNames) {
$folder = $project.ProjectItems.Item($platformName)
if ($folder -eq $null) {
continue
}
$item = $folder.ProjectItems.Item($fileName)
if ($item -eq $null) {
continue
}
$property = $item.Properties.Item($propertyName)
if ($property -eq $null) {
continue
}
$property.Value = 1
}
Add-EFProvider $project "System.Data.SQLite.EF6" `
"System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6"

Binary file not shown.