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

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2021-04-20 07:59:36 +02:00
commit fb0247c874
21969 changed files with 11640044 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Split_Serienbrief/SplitSB/SplitSB/App.config Normal file
View File

@@ -0,0 +1,24 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="SplitSB.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v2.0.50727"/></startup>
<userSettings>
<SplitSB.My.MySettings>
<setting name="ConnectionString" serializeAs="String">
<value>Data Source=shu00;Initial Catalog=edoka;Persist Security Info=True;User ID=sa;Password=*shu29;</value>
</setting>
<setting name="OutputFolder" serializeAs="String">
<value>k:\edoka\edkb09_output\</value>
</setting>
<setting name="InputFolder" serializeAs="String">
<value>k:\edoka\_KorrSB\</value>
</setting>
</SplitSB.My.MySettings>
</userSettings>
</configuration>

139
Split_Serienbrief/SplitSB/SplitSB/Module1.vb Normal file
View File

@@ -0,0 +1,139 @@
Imports Syncfusion.Pdf
Imports Syncfusion.Pdf.Graphics
Imports Syncfusion.Pdf.Parsing
Imports System.Data.SqlClient
Imports System.Data.SqlDbType
Imports System.IO
Imports System
Module Module1
Dim Extractcounter As Integer = 0
Dim BlExtractcounter As Integer = 0
Sub Main()
Dim f As New Searchform
f.ShowDialog()
Exit Sub
FileOpen(1, My.Settings.OutputFolder + Microsoft.VisualBasic.Format(Now, "yyyyMMddHHmmss") + "_Log.txt", OpenMode.Output)
WriteLine(1, "Start")
Dim empfaenger As New DataTable
Dim ds As New DataSet
Dim arguments As String() = Environment.GetCommandLineArgs()
ds.ReadXml(arguments(1))
empfaenger = ds.Tables(0).Copy
Dim dataView As New DataView(empfaenger)
dataView.Sort = " Partnernr desc"
Dim Empfaenger_sorted As DataTable = dataView.ToTable()
For Each r As DataRow In Empfaenger_sorted.Rows
If r("blkunde") <> "1" Then
splitdoc(arguments(2), arguments(3), r("Dokumentid"), r("partnernr"), r, Extractcounter, 0)
Extractcounter = Extractcounter + 1
Else
Dim fn As String = arguments(2)
fn = System.IO.Path.GetDirectoryName(fn) + "\" + System.IO.Path.GetFileNameWithoutExtension(fn)
fn = fn + "_bl.pdf"
splitdoc(fn, arguments(3), r("Dokumentid"), r("partnernr"), r, BlExtractcounter, 1)
BlExtractcounter = BlExtractcounter + 1
End If
Next
WriteLine(1, "Ende")
FileClose(1)
End Sub
Function splitdoc(PDF As String, Anzahl_Seiten As String, Dokumentid As String, partnernr As String, r As DataRow, Pageindex As Integer, bl As Integer) As Boolean
Dim loadedDocument As New PdfLoadedDocument(PDF)
'Create a new PDF document.
Dim document As New PdfDocument()
Dim startIndex As Integer = 0
Dim endIndex As Integer = loadedDocument.Pages.Count - 1
'Import all the pages to the new PDF document.
document.ImportPageRange(loadedDocument, Pageindex, Pageindex + Anzahl_Seiten - 1)
'Save the document.
document.Save(My.Settings.OutputFolder + Dokumentid + ".pdf")
If FindText(My.Settings.OutputFolder + Dokumentid +".pdf", partnernr) Then
If bl = 1 Then
WriteLine(1, Dokumentid + ":" + partnernr + " BL OK")
Else
WriteLine(1, Dokumentid + ":" + partnernr + " OK")
End If
Else
If bl = 1 Then
WriteLine(1, Dokumentid + ":" + partnernr + " BL NOK")
Else
WriteLine(1, Dokumentid + ":" + partnernr + " NOK")
End If
End If
'Close both document instances.
loadedDocument.Close(True)
document.Close(True)
End Function
Function FindText(filename As String, partnernr As Integer) As Boolean
Dim dt As New DataTable
Get_Partnerdata(dt, partnernr)
Dim f As New Searchform
f.loadpdf(filename)
Dim found As Boolean = False
For i As Integer = 0 To 14
If dt.Rows(0).Item(i).ToString <> "Frau" And dt.Rows(0).Item(i).ToString <> "Herr" And dt.Rows(0).Item(i).ToString <> "" Then
If f.FindTextinPdf(dt.Rows(0).Item(i)) Then
Return True
Exit Function
End If
End If
Next
Return False
End Function
Sub Get_Partnerdata(ByRef dt As DataTable, ByVal partnernr As Integer)
dt.Rows.Clear()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim conn As New SqlConnection(My.Settings.ConnectionString)
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.SP_Partner_Detail"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
conn.Open()
Try
sdaAdapter.Fill(dt)
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
conn.Close()
End Try
End Sub
End Module

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

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

10
Split_Serienbrief/SplitSB/SplitSB/My Project/Application.myapp Normal file
View File

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

35
Split_Serienbrief/SplitSB/SplitSB/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("SplitSB")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("SplitSB")>
<Assembly: AssemblyCopyright("Copyright © 2017")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("f1ab7e0e-d5ca-4020-8713-c2492f685c4b")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

63
Split_Serienbrief/SplitSB/SplitSB/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SplitSB.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
Split_Serienbrief/SplitSB/SplitSB/My Project/Resources.resx Normal file
View File

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

110
Split_Serienbrief/SplitSB/SplitSB/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,110 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=shu00;Initial Catalog=edoka;Persist Security Info=True;User ID=sa;Pas"& _
"sword=*shu29;")> _
Public Property ConnectionString() As String
Get
Return CType(Me("ConnectionString"),String)
End Get
Set
Me("ConnectionString") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\edkb09_output\")> _
Public Property OutputFolder() As String
Get
Return CType(Me("OutputFolder"),String)
End Get
Set
Me("OutputFolder") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\_KorrSB\")> _
Public Property InputFolder() As String
Get
Return CType(Me("InputFolder"),String)
End Get
Set
Me("InputFolder") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.SplitSB.My.MySettings
Get
Return Global.SplitSB.My.MySettings.Default
End Get
End Property
End Module
End Namespace

15
Split_Serienbrief/SplitSB/SplitSB/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,15 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="ConnectionString" Type="System.String" Scope="User">
<Value Profile="(Default)">Data Source=shu00;Initial Catalog=edoka;Persist Security Info=True;User ID=sa;Password=*shu29;</Value>
</Setting>
<Setting Name="OutputFolder" Type="System.String" Scope="User">
<Value Profile="(Default)">k:\edoka\edkb09_output\</Value>
</Setting>
<Setting Name="InputFolder" Type="System.String" Scope="User">
<Value Profile="(Default)">k:\edoka\_KorrSB\</Value>
</Setting>
</Settings>
</SettingsFile>

2
Split_Serienbrief/SplitSB/SplitSB/My Project/licenses.licx Normal file
View File

@@ -0,0 +1,2 @@
C1.Win.C1Input.C1Button, C1.Win.C1Input.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da

326
Split_Serienbrief/SplitSB/SplitSB/Searchform.Designer.vb generated Normal file
View File

@@ -0,0 +1,326 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Searchform
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Searchform))
Dim PdfViewerPrinterSettings1 As Syncfusion.Windows.PdfViewer.PdfViewerPrinterSettings = New Syncfusion.Windows.PdfViewer.PdfViewerPrinterSettings()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Button4 = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.DirectorySearcher1 = New System.DirectoryServices.DirectorySearcher()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Label5 = New System.Windows.Forms.Label()
Me.Button5 = New System.Windows.Forms.Button()
Me.PdfViewerControl1 = New Syncfusion.Windows.Forms.PdfViewer.PdfViewerControl()
Me.TextBox5 = New System.Windows.Forms.TextBox()
Me.Panel1.SuspendLayout()
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel3.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.Controls.Add(Me.C1TrueDBGrid1)
Me.Panel1.Controls.Add(Me.Panel3)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(604, 491)
Me.Panel1.TabIndex = 1
'
'C1TrueDBGrid1
'
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1TrueDBGrid1.FilterBar = True
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(0, 191)
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(604, 300)
Me.C1TrueDBGrid1.TabIndex = 14
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
'
'Panel3
'
Me.Panel3.Controls.Add(Me.Button4)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel3.Location = New System.Drawing.Point(0, 137)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(604, 54)
Me.Panel3.TabIndex = 13
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(12, 16)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 23)
Me.Button4.TabIndex = 0
Me.Button4.Text = "Speichern"
Me.Button4.UseVisualStyleBackColor = True
'
'Panel2
'
Me.Panel2.Controls.Add(Me.TextBox5)
Me.Panel2.Controls.Add(Me.Label1)
Me.Panel2.Controls.Add(Me.Button3)
Me.Panel2.Controls.Add(Me.TextBox1)
Me.Panel2.Controls.Add(Me.TextBox4)
Me.Panel2.Controls.Add(Me.Button1)
Me.Panel2.Controls.Add(Me.Label4)
Me.Panel2.Controls.Add(Me.Label2)
Me.Panel2.Controls.Add(Me.TextBox3)
Me.Panel2.Controls.Add(Me.TextBox2)
Me.Panel2.Controls.Add(Me.Label3)
Me.Panel2.Controls.Add(Me.Button2)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(604, 137)
Me.Panel2.TabIndex = 12
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(14, 17)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(56, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "PDF-Datei"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(338, 90)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(27, 23)
Me.Button3.TabIndex = 11
Me.Button3.Text = "Button3"
Me.Button3.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(76, 14)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(256, 20)
Me.TextBox1.TabIndex = 2
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(76, 92)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(256, 20)
Me.TextBox4.TabIndex = 10
Me.TextBox4.Text = "K:\EDOKA\edkb09_output"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(338, 12)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(27, 23)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(13, 95)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(61, 13)
Me.Label4.TabIndex = 9
Me.Label4.Text = "Output_Dir."
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(14, 43)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(57, 13)
Me.Label2.TabIndex = 4
Me.Label2.Text = "XML-Datei"
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(76, 66)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(84, 20)
Me.TextBox3.TabIndex = 8
Me.TextBox3.Text = "1"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(76, 40)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(256, 20)
Me.TextBox2.TabIndex = 5
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(13, 69)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(61, 13)
Me.Label3.TabIndex = 7
Me.Label3.Text = "Anz. Seiten"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(338, 38)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(27, 23)
Me.Button2.TabIndex = 6
Me.Button2.Text = "Button2"
Me.Button2.UseVisualStyleBackColor = True
'
'DirectorySearcher1
'
Me.DirectorySearcher1.ClientTimeout = System.TimeSpan.Parse("-00:00:01")
Me.DirectorySearcher1.ServerPageTimeLimit = System.TimeSpan.Parse("-00:00:01")
Me.DirectorySearcher1.ServerTimeLimit = System.TimeSpan.Parse("-00:00:01")
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'Panel4
'
Me.Panel4.Controls.Add(Me.Label5)
Me.Panel4.Controls.Add(Me.Button5)
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel4.Location = New System.Drawing.Point(604, 0)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(395, 56)
Me.Panel4.TabIndex = 2
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Dock = System.Windows.Forms.DockStyle.Right
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(243, 0)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(77, 25)
Me.Label5.TabIndex = 3
Me.Label5.Text = "Label5"
'
'Button5
'
Me.Button5.Dock = System.Windows.Forms.DockStyle.Right
Me.Button5.Location = New System.Drawing.Point(320, 0)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 56)
Me.Button5.TabIndex = 2
Me.Button5.Text = "Speichern"
Me.Button5.UseVisualStyleBackColor = True
'
'PdfViewerControl1
'
Me.PdfViewerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PdfViewerControl1.EnableNotificationBar = True
Me.PdfViewerControl1.IsBookmarkEnabled = True
Me.PdfViewerControl1.Location = New System.Drawing.Point(604, 56)
Me.PdfViewerControl1.Name = "PdfViewerControl1"
Me.PdfViewerControl1.PageBorderThickness = 1
PdfViewerPrinterSettings1.PrintLocation = CType(resources.GetObject("PdfViewerPrinterSettings1.PrintLocation"), System.Drawing.PointF)
Me.PdfViewerControl1.PrinterSettings = PdfViewerPrinterSettings1
Me.PdfViewerControl1.ScrollDisplacementValue = 0
Me.PdfViewerControl1.ShowHorizontalScrollBar = True
Me.PdfViewerControl1.ShowToolBar = True
Me.PdfViewerControl1.ShowVerticalScrollBar = True
Me.PdfViewerControl1.Size = New System.Drawing.Size(395, 435)
Me.PdfViewerControl1.TabIndex = 3
Me.PdfViewerControl1.Text = "PdfViewerControl1"
Me.PdfViewerControl1.ZoomMode = Syncfusion.Windows.Forms.PdfViewer.ZoomMode.[Default]
'
'TextBox5
'
Me.TextBox5.Location = New System.Drawing.Point(166, 66)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(84, 20)
Me.TextBox5.TabIndex = 12
Me.TextBox5.Text = "1"
'
'Searchform
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(999, 491)
Me.Controls.Add(Me.PdfViewerControl1)
Me.Controls.Add(Me.Panel4)
Me.Controls.Add(Me.Panel1)
Me.Name = "Searchform"
Me.Text = "Searchform"
Me.Panel1.ResumeLayout(False)
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel3.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As Windows.Forms.Panel
Friend WithEvents DirectorySearcher1 As DirectoryServices.DirectorySearcher
Friend WithEvents OpenFileDialog1 As Windows.Forms.OpenFileDialog
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents Panel3 As Windows.Forms.Panel
Friend WithEvents Button4 As Windows.Forms.Button
Friend WithEvents Panel2 As Windows.Forms.Panel
Friend WithEvents Label1 As Windows.Forms.Label
Friend WithEvents Button3 As Windows.Forms.Button
Friend WithEvents TextBox1 As Windows.Forms.TextBox
Friend WithEvents TextBox4 As Windows.Forms.TextBox
Friend WithEvents Button1 As Windows.Forms.Button
Friend WithEvents Label4 As Windows.Forms.Label
Friend WithEvents Label2 As Windows.Forms.Label
Friend WithEvents TextBox3 As Windows.Forms.TextBox
Friend WithEvents TextBox2 As Windows.Forms.TextBox
Friend WithEvents Label3 As Windows.Forms.Label
Friend WithEvents Button2 As Windows.Forms.Button
Friend WithEvents Panel4 As Windows.Forms.Panel
Friend WithEvents PdfViewerControl1 As Syncfusion.Windows.Forms.PdfViewer.PdfViewerControl
Friend WithEvents Label5 As Windows.Forms.Label
Friend WithEvents Button5 As Windows.Forms.Button
Friend WithEvents TextBox5 As Windows.Forms.TextBox
End Class

173
Split_Serienbrief/SplitSB/SplitSB/Searchform.resx Normal file
View File

@@ -0,0 +1,173 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="C1TrueDBGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 602, 298&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 602, 298&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="DirectorySearcher1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>172, 17</value>
</metadata>
<data name="PdfViewerPrinterSettings1.PrintLocation" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAABVTeXN0ZW0uRHJh
d2luZy5Qb2ludEYCAAAAAXgBeQAACwsCAAAAAAAAAAAAAAAL
</value>
</data>
</root>

211
Split_Serienbrief/SplitSB/SplitSB/Searchform.vb Normal file
View File

@@ -0,0 +1,211 @@
Imports System.Drawing
Imports Syncfusion.Pdf
Imports Syncfusion.Pdf.Graphics
Imports Syncfusion.Pdf.Parsing
Imports System.Data.SqlClient
Imports System.Data.SqlDbType
Imports System.IO
Imports System
Imports C1.Win.C1TrueDBGrid
Imports System.Windows.Forms
Public Class Searchform
Private Sub Searchform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Public Sub loadpdf(ByVal filename As String)
PdfViewerControl1.Load(filename)
End Sub
Public Function FindTextinPdf(texttofind As String) As Boolean
Dim IsMatchFound As Boolean
'Get the occurrences of the target text and location.
Dim textSearch As New Dictionary(Of Integer, List(Of RectangleF))()
Dim gaga As Dictionary(Of Integer, List(Of RectangleF))
IsMatchFound = PdfViewerControl1.FindText(texttofind, textSearch)
Dim s As String = PdfViewerControl1.FindText(texttofind, textSearch)
Return IsMatchFound
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then
loadpdf(Me.OpenFileDialog1.FileName)
Me.TextBox1.Text = OpenFileDialog1.FileName
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.OpenFileDialog1.ShowDialog()
Me.TextBox2.Text = Me.OpenFileDialog1.FileName
If OpenFileDialog1.FileName <> "" Then
Dim empfaenger As New DataTable
Dim ds As New DataSet
ds.ReadXml(OpenFileDialog1.FileName)
empfaenger = ds.Tables(0).Copy
Dim dataView As New DataView(empfaenger)
dataView.Sort = " Partnernr"
Dim Empfaenger_sorted As DataTable = dataView.ToTable()
Me.C1TrueDBGrid1.Columns.Clear()
Me.C1TrueDBGrid1.DataSource = Nothing
Me.C1TrueDBGrid1.DataSource = Empfaenger_sorted
Me.C1TrueDBGrid1.DataMember = Empfaenger_sorted.TableName
For i = 0 To Me.C1TrueDBGrid1.Splits(0).DisplayColumns.Count - 1
Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).Width = 0
Next
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Partnernr").Width = 60
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Kurzbezeichnung").Width = 150
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("blkunde").Width = 60
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("dokumentid").Width = 150
Me.C1TrueDBGrid1.Splits(0).DisplayColumns("druckjobid").Width = 110
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
splitdoc()
End Sub
Function splitdoc()
Dim loadedDocument As New PdfLoadedDocument(Me.TextBox1.Text)
'Create a new PDF document.
Dim document As New PdfDocument()
Dim startIndex As Integer = 0
Dim endIndex As Integer = loadedDocument.Pages.Count - 1
'Import all the pages to the new PDF document.
document.ImportPageRange(loadedDocument, Me.PdfViewerControl1.CurrentPageIndex - 1, Me.PdfViewerControl1.CurrentPageIndex - 1 + Me.TextBox3.Text - 1)
'Save the document.
document.Save(Me.TextBox4.Text + "\" + Me.C1TrueDBGrid1.Columns("Dokumentid").Value + ".pdf")
If FindText(Me.TextBox4.Text + "\" + Me.C1TrueDBGrid1.Columns("Dokumentid").Value + ".pdf", C1TrueDBGrid1.Columns("partnernr").Value) Then
Else
MsgBox("Bitte prüfen, ob es sich um das korrekte Dokument handelt - Zustelladresse konnte nicht überprüft werden")
End If
''Close both document instances.
loadedDocument.Close(True)
document.Close(True)
Me.C1TrueDBGrid1.Bookmark = Me.C1TrueDBGrid1.Bookmark + 1
End Function
Private Sub C1TrueDBGrid1_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1TrueDBGrid1.RowColChange
Me.Label5.Text = Me.C1TrueDBGrid1.Columns(1).Value
'
If Me.C1TrueDBGrid1.Bookmark = 0 Then
Me.PdfViewerControl1.GoToPageAtIndex(1)
Else
Me.PdfViewerControl1.GoToPageAtIndex(((Me.C1TrueDBGrid1.Bookmark * Me.TextBox3.Text) + 1) - TextBox5.Text)
End If
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Button4_Click(sender, e)
End Sub
Private Sub C1TrueDBGrid1_KeyDown(sender As Object, e As KeyEventArgs) Handles C1TrueDBGrid1.KeyDown
If e.KeyCode = Keys.S Then
Dim splitter() As String
splitter = Me.C1TrueDBGrid1.Columns("Kurzbezeichnung").Value.ToString.Split(" ")
Dim found As Boolean = False
For i = 0 To splitter.Length - 1
found = Me.FindTextinPdf(splitter(i))
If found Then
MsgBox("Gefunden")
Exit Sub
End If
Next
End If
End Sub
Function FindText(filename As String, partnernr As Integer) As Boolean
Dim dt As New DataTable
Get_Partnerdata(dt, partnernr)
Dim f As New Searchform
f.loadpdf(filename)
Dim found As Boolean = False
For i As Integer = 0 To 14
If dt.Rows(0).Item(i).ToString <> "Frau" And dt.Rows(0).Item(i).ToString <> "Herr" And dt.Rows(0).Item(i).ToString <> "" Then
If f.FindTextinPdf(dt.Rows(0).Item(i)) Then
Return True
Exit Function
End If
End If
Next
Return False
End Function
Sub Get_Partnerdata(ByRef dt As DataTable, ByVal partnernr As Integer)
dt.Rows.Clear()
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim conn As New SqlConnection(My.Settings.ConnectionString)
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
scmCmdToExecute.CommandText = "dbo.SP_Partner_Detail"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
conn.Open()
Try
sdaAdapter.Fill(dt)
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
conn.Close()
End Try
End Sub
End Class

161
Split_Serienbrief/SplitSB/SplitSB/SplitSB.vbproj Normal file
View File

@@ -0,0 +1,161 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{F6EF3B52-5750-47D1-AE4C-D8F695CB4CC2}</ProjectGuid>
<OutputType>Exe</OutputType>
<StartupObject>SplitSB.Module1</StartupObject>
<RootNamespace>SplitSB</RootNamespace>
<AssemblyName>SplitSB</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<TargetFrameworkProfile />
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>x86</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>SplitSB.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>SplitSB.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="C1.Win.C1Command.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8" />
<Reference Include="C1.Win.C1Input.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a, processorArchitecture=MSIL" />
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.Pdf.Base, Version=15.1350.0.33, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.Pdf.Windows, Version=15.1350.0.33, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="Syncfusion.PdfViewer.Windows, Version=15.1350.0.33, Culture=neutral, PublicKeyToken=3d67ed1f87d44c89, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Design" />
<Reference Include="System.DirectoryServices" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Module1.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Searchform.Designer.vb">
<DependentUpon>Searchform.vb</DependentUpon>
</Compile>
<Compile Include="Searchform.vb">
<SubType>Form</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Searchform.resx">
<DependentUpon>Searchform.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config">
<SubType>Designer</SubType>
</None>
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>true</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- 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">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

16
Split_Serienbrief/SplitSB/SplitSB/SplitSB.vbproj.user Normal file
View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
<StartArguments>K:\EDOKA\_korrsb\ds.xml K:\EDOKA\_korrsb\ds1.pdf 1</StartArguments>
</PropertyGroup>
<PropertyGroup>
<PublishUrlHistory>publish\</PublishUrlHistory>
<InstallUrlHistory />
<SupportUrlHistory />
<UpdateUrlHistory />
<BootstrapperUrlHistory />
<ErrorReportUrlHistory />
<FallbackCulture>de-DE</FallbackCulture>
<VerifyUploadedFiles>false</VerifyUploadedFiles>
</PropertyGroup>
</Project>

BIN
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/C1.Win.C1Command.2.dll Normal file
View File

Binary file not shown.

11102
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/C1.Win.C1Command.2.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/C1.Win.C1Input.2.dll Normal file
View File

Binary file not shown.

9881
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/C1.Win.C1Input.2.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/C1.Win.C1TrueDBGrid.2.dll Normal file
View File

Binary file not shown.

10613
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/C1.Win.C1TrueDBGrid.2.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/SplitSB.exe Normal file
View File

Binary file not shown.

24
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/SplitSB.exe.config Normal file
View File

@@ -0,0 +1,24 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="SplitSB.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v2.0.50727"/></startup>
<userSettings>
<SplitSB.My.MySettings>
<setting name="ConnectionString" serializeAs="String">
<value>Data Source=shu00;Initial Catalog=edoka;Persist Security Info=True;User ID=sa;Password=*shu29;</value>
</setting>
<setting name="OutputFolder" serializeAs="String">
<value>k:\edoka\edkb09_output\</value>
</setting>
<setting name="InputFolder" serializeAs="String">
<value>k:\edoka\_KorrSB\</value>
</setting>
</SplitSB.My.MySettings>
</userSettings>
</configuration>

BIN
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/SplitSB.pdb Normal file
View File

Binary file not shown.

BIN
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/SplitSB.vshost.exe Normal file
View File

Binary file not shown.

24
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/SplitSB.vshost.exe.config Normal file
View File

@@ -0,0 +1,24 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="SplitSB.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v2.0.50727"/></startup>
<userSettings>
<SplitSB.My.MySettings>
<setting name="ConnectionString" serializeAs="String">
<value>Data Source=shu00;Initial Catalog=edoka;Persist Security Info=True;User ID=sa;Password=*shu29;</value>
</setting>
<setting name="OutputFolder" serializeAs="String">
<value>k:\edoka\edkb09_output\</value>
</setting>
<setting name="InputFolder" serializeAs="String">
<value>k:\edoka\_KorrSB\</value>
</setting>
</SplitSB.My.MySettings>
</userSettings>
</configuration>

26
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/SplitSB.xml Normal file
View File

@@ -0,0 +1,26 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
SplitSB
</name>
</assembly>
<members>
<member name="T:SplitSB.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:SplitSB.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:SplitSB.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
</members>
</doc>

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

Binary file not shown.

BIN
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/Syncfusion.Pdf.Windows.dll Normal file
View File

Binary file not shown.

BIN
Split_Serienbrief/SplitSB/SplitSB/bin/Debug/Syncfusion.PdfViewer.Windows.dll Normal file
View File

Binary file not shown.

1
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
991d4faeb6039e369aa8dbd7fa57254f04cfe1b6

BIN
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/SplitSB.Resources.resources Normal file
View File

Binary file not shown.

BIN
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/SplitSB.Searchform.resources Normal file
View File

Binary file not shown.

BIN
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/SplitSB.exe Normal file
View File

Binary file not shown.

BIN
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/SplitSB.pdb Normal file
View File

Binary file not shown.

0
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/SplitSB.vbproj.CopyComplete Normal file
View File

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

@@ -0,0 +1 @@
c75332b234ae067754cb103cecfcd7dd2adcdef1

20
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/SplitSB.vbproj.FileListAbsolute.txt Normal file
View File

@@ -0,0 +1,20 @@
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\bin\Debug\SplitSB.exe.config
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\obj\Debug\SplitSB.Resources.resources
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\obj\Debug\SplitSB.vbproj.GenerateResource.Cache
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\obj\Debug\SplitSB.xml
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\bin\Debug\SplitSB.exe
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\bin\Debug\SplitSB.pdb
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\bin\Debug\SplitSB.xml
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\obj\Debug\SplitSB.exe
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\obj\Debug\SplitSB.pdb
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\obj\Debug\SplitSB.Searchform.resources
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\bin\Debug\C1.Win.C1Command.2.dll
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\bin\Debug\C1.Win.C1Input.2.dll
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\bin\Debug\C1.Win.C1Command.2.xml
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\bin\Debug\C1.Win.C1Input.2.xml
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\obj\Debug\SplitSB.exe.licenses
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\obj\Debug\SplitSB.vbprojAssemblyReference.cache
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\obj\Debug\SplitSB.vbproj.CoreCompileInputs.cache
E:\Software-Projekte\EDOKA\batch\Split_Serienbrief\SplitSB\SplitSB\obj\Debug\SplitSB.vbproj.CopyComplete

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

Binary file not shown.

BIN
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/SplitSB.vbprojAssemblyReference.cache Normal file
View File

Binary file not shown.

26
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/SplitSB.xml Normal file
View File

@@ -0,0 +1,26 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
SplitSB
</name>
</assembly>
<members>
<member name="T:SplitSB.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:SplitSB.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:SplitSB.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
</members>
</doc>

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

Binary file not shown.

BIN
Split_Serienbrief/SplitSB/SplitSB/obj/Debug/splitsb.exe.licenses Normal file
View File

Binary file not shown.