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

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
.svn/pristine/87/873bd2410ad23951f64703e5b45424309d9279aa.svn-base Normal file
View File

@@ -0,0 +1,52 @@
Imports System.IO
Module Module1
Dim ds As New DataSet
Sub Main()
Dim subdir As Integer = 0
Dim outputpath As String
outputpath = My.Settings.OutputPath + subdir.ToString + "\"
System.IO.Directory.CreateDirectory(outputpath)
Dim i As Integer
FileOpen(1, My.Settings.InputFile, OpenMode.Input)
Dim s As String
Dim Filename As String
ds.ReadXml(My.Settings.Strukturfile)
ds.Tables(0).Rows.Clear()
While Not EOF(1)
Input(1, s)
i = i + 1
If i > 500 Then
i = 0
ds.WriteXml(outputpath + s + ".ind")
ds.Tables(0).Rows.Clear()
subdir = subdir + 1
outputpath = My.Settings.OutputPath + subdir.ToString + "\"
System.IO.Directory.CreateDirectory(outputpath)
End If
Dim dr As DataRow
Filename = s + "_AGB.pdf"
dr = ds.Tables(0).NewRow
For Each c As DataColumn In ds.Tables(0).Columns
dr(c.ColumnName) = ""
Next
dr("Partnernr") = s
dr("Funktion") = "ADD"
dr("Dokumenttypnr") = My.Settings.Doktype.ToString
dr("dateiname") = Filename
dr("Dateiformat") = "PDF"
dr("Ersteller") = My.Settings.Ersteller
dr("dokumentwert2") = ""
ds.Tables(0).Rows.Add(dr)
System.IO.File.Copy(My.Settings.AGBFile, outputpath + Filename)
End While
ds.WriteXml(outputpath + s + ".ind")
End Sub
End Module

BIN
.svn/pristine/87/876915f6c342591c81126b3ded5886dd6998cd57.svn-base Normal file
View File

Binary file not shown.

11
.svn/pristine/87/879dcf690e5bf1941b27cf13c8bcf72f8356c650.svn-base Normal file
View File

@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

10
.svn/pristine/87/87ca1d3f8c1c7e5435a74260b6251308244ddd2c.svn-base Normal file
View File

@@ -0,0 +1,10 @@
E:\Software-Projekte\EDOKA\tools\AGB_Gen\AGB_Gen\bin\Debug\AGB_Gen.exe.config
E:\Software-Projekte\EDOKA\tools\AGB_Gen\AGB_Gen\bin\Debug\AGB_Gen.exe
E:\Software-Projekte\EDOKA\tools\AGB_Gen\AGB_Gen\bin\Debug\AGB_Gen.pdb
E:\Software-Projekte\EDOKA\tools\AGB_Gen\AGB_Gen\bin\Debug\AGB_Gen.xml
E:\Software-Projekte\EDOKA\tools\AGB_Gen\AGB_Gen\obj\Debug\AGB_Gen.vbprojResolveAssemblyReference.cache
E:\Software-Projekte\EDOKA\tools\AGB_Gen\AGB_Gen\obj\Debug\AGB_Gen.Resources.resources
E:\Software-Projekte\EDOKA\tools\AGB_Gen\AGB_Gen\obj\Debug\AGB_Gen.vbproj.GenerateResource.Cache
E:\Software-Projekte\EDOKA\tools\AGB_Gen\AGB_Gen\obj\Debug\AGB_Gen.exe
E:\Software-Projekte\EDOKA\tools\AGB_Gen\AGB_Gen\obj\Debug\AGB_Gen.xml
E:\Software-Projekte\EDOKA\tools\AGB_Gen\AGB_Gen\obj\Debug\AGB_Gen.pdb