Moin Leute.
Habe ein Datatable:
Ich fülle die diese Datatable automatisch mit Daten die ich aus Rechnungen filtere.
Jetzt zeige ich das ganze in einem DGW an.
Parallel läuft ein Protokoll und ein Autosave mit das alle Änderungen festhält.
Nachdem das passiert ist will ich die Daten in einer dat Datei speichern und das DGW wieder cleanen.
Klappt alles perfekt. Solange ich den Booleanwert in spalte8(index9) nicht ändere. mache ich das, gibt es einen Error:
Spoiler anzeigen
Informationen über das Aufrufen von JIT-Debuggen
anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung.
************** Ausnahmetext **************
System.NullReferenceException: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
bei System.Windows.Forms.DataGridViewRow.GetErrorText(Int32 rowIndex)
bei System.Windows.Forms.DataGridViewRow.Paint(Graphics graphics, Rectangle clipBounds, Rectangle rowBounds, Int32 rowIndex, DataGridViewElementStates rowState, Boolean isFirstDisplayedRow, Boolean isLastVisibleRow)
bei System.Windows.Forms.DataGridView.PaintRows(Graphics g, Rectangle boundingRect, Rectangle clipRect, Boolean singleHorizontalBorderAdded)
bei System.Windows.Forms.DataGridView.PaintGrid(Graphics g, Rectangle gridBounds, Rectangle clipRect, Boolean singleVerticalBorderAdded, Boolean singleHorizontalBorderAdded)
bei System.Windows.Forms.DataGridView.OnPaint(PaintEventArgs e)
bei System.Windows.Forms.Control.PaintWithErrorHandling(PaintEventArgs e, Int16 layer)
bei System.Windows.Forms.Control.WmPaint(Message& m)
bei System.Windows.Forms.Control.WndProc(Message& m)
bei System.Windows.Forms.DataGridView.WndProc(Message& m)
bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
************** Geladene Assemblys **************
mscorlib
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll.
----------------------------------------
Rechnungsanalyse
Assembly-Version: 1.0.0.0.
Win32-Version: 1.0.0.0.
CodeBase: file:///C:/Users/Anwender/Desktop/Visual Studio Projekte/Rechnungsverarbeitung06122016/20.12.16 to add stuff/Rechnungsanalyse/bin/Release/Rechnungsanalyse.exe.
----------------------------------------
Microsoft.VisualBasic
Assembly-Version: 10.0.0.0.
Win32-Version: 14.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll.
----------------------------------------
System
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll.
----------------------------------------
System.Core
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll.
----------------------------------------
System.Windows.Forms
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll.
----------------------------------------
System.Drawing
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll.
----------------------------------------
System.Runtime.Remoting
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll.
----------------------------------------
System.Data
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1636.0 built by: NETFXREL3STAGE.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Data/v4.0_4.0.0.0__b77a5c561934e089/System.Data.dll.
----------------------------------------
System.Xml
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll.
----------------------------------------
System.Configuration
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll.
----------------------------------------
System.Windows.Forms.resources
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1055.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_de_b77a5c561934e089/System.Windows.Forms.resources.dll.
----------------------------------------
AxInterop.AcroPDFLib
Assembly-Version: 1.0.0.0.
Win32-Version: 1.0.0.0.
CodeBase: file:///C:/Users/Anwender/Desktop/Visual Studio Projekte/Rechnungsverarbeitung06122016/20.12.16 to add stuff/Rechnungsanalyse/bin/Release/AxInterop.AcroPDFLib.DLL.
----------------------------------------
mscorlib.resources
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1055.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_de_b77a5c561934e089/mscorlib.resources.dll.
----------------------------------------
Interop.AcroPDFLib
Assembly-Version: 1.0.0.0.
Win32-Version: 1.0.0.0.
CodeBase: file:///C:/Users/Anwender/Desktop/Visual Studio Projekte/Rechnungsverarbeitung06122016/20.12.16 to add stuff/Rechnungsanalyse/bin/Release/Interop.AcroPDFLib.DLL.
----------------------------------------
Microsoft.VisualBasic.PowerPacks
Assembly-Version: 9.0.0.0.
Win32-Version: 3.0.30214.0.
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic.PowerPacks/9.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.PowerPacks.dll.
----------------------------------------
Accessibility
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Accessibility/v4.0_4.0.0.0__b03f5f7f11d50a3a/Accessibility.dll.
----------------------------------------
System.Numerics
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Numerics/v4.0_4.0.0.0__b77a5c561934e089/System.Numerics.dll.
----------------------------------------
itextsharp
Assembly-Version: 5.5.10.0.
Win32-Version: 5.5.10.0.
CodeBase: file:///C:/Users/Anwender/Desktop/Visual Studio Projekte/Rechnungsverarbeitung06122016/20.12.16 to add stuff/Rechnungsanalyse/bin/Release/itextsharp.DLL.
----------------------------------------
************** JIT-Debuggen **************
Um das JIT-Debuggen (Just-In-Time) zu aktivieren, muss in der
Konfigurationsdatei der Anwendung oder des Computers
(machine.config) der jitDebugging-Wert im Abschnitt system.windows.forms festgelegt werden.
Die Anwendung muss mit aktiviertem Debuggen kompiliert werden.
Zum Beispiel:
<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>
Wenn das JIT-Debuggen aktiviert ist, werden alle nicht behandelten
Ausnahmen an den JIT-Debugger gesendet, der auf dem
Computer registriert ist, und nicht in diesem Dialogfeld behandelt.
Irgendwo in diesem Quellcode ist der Fehler. Entschuldigt die Unordnung aber das Programm ist sehr schnell gewachsen und das ist wirklich nur ein kleiner Ausschnitt. Ich hoffe, jemand kann kombinieren und mir auch andere unnötige Zeilen oder Codes ansagen:
Spoiler anzeigen
PS: Habe alle Pfade aus Sicherheitsgründen durch "pfad" ersetzt. Nicht wundern.
Dankbar für jede Hilfe &
Frohes Neues euch allen!
Habe ein Datatable:
VB.NET-Quellcode
- With dt.Columns
- .Add("Dateiname", GetType(System.String))
- .Add("Beleg Nr", GetType(System.String))
- .Add("Rechnungs Nr", GetType(System.String))
- .Add("Rechnungs Datum", GetType(System.String))
- .Add("Endbetrag Brutto", GetType(System.String))
- .Add("Absender", GetType(System.String))
- .Add("Lieferant", GetType(System.String))
- .Add("Lieferschein Nr", GetType(System.String))
- .Add("Leistungs Datum", GetType(System.String))
- .Add("Intern", GetType(System.Boolean))
- .Add("Absm", GetType(System.String))
- .Add("ffn", GetType(System.String))
- End With
Ich fülle die diese Datatable automatisch mit Daten die ich aus Rechnungen filtere.
Jetzt zeige ich das ganze in einem DGW an.
Parallel läuft ein Protokoll und ein Autosave mit das alle Änderungen festhält.
Nachdem das passiert ist will ich die Daten in einer dat Datei speichern und das DGW wieder cleanen.
Klappt alles perfekt. Solange ich den Booleanwert in spalte8(index9) nicht ändere. mache ich das, gibt es einen Error:
Informationen über das Aufrufen von JIT-Debuggen
anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung.
************** Ausnahmetext **************
System.NullReferenceException: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
bei System.Windows.Forms.DataGridViewRow.GetErrorText(Int32 rowIndex)
bei System.Windows.Forms.DataGridViewRow.Paint(Graphics graphics, Rectangle clipBounds, Rectangle rowBounds, Int32 rowIndex, DataGridViewElementStates rowState, Boolean isFirstDisplayedRow, Boolean isLastVisibleRow)
bei System.Windows.Forms.DataGridView.PaintRows(Graphics g, Rectangle boundingRect, Rectangle clipRect, Boolean singleHorizontalBorderAdded)
bei System.Windows.Forms.DataGridView.PaintGrid(Graphics g, Rectangle gridBounds, Rectangle clipRect, Boolean singleVerticalBorderAdded, Boolean singleHorizontalBorderAdded)
bei System.Windows.Forms.DataGridView.OnPaint(PaintEventArgs e)
bei System.Windows.Forms.Control.PaintWithErrorHandling(PaintEventArgs e, Int16 layer)
bei System.Windows.Forms.Control.WmPaint(Message& m)
bei System.Windows.Forms.Control.WndProc(Message& m)
bei System.Windows.Forms.DataGridView.WndProc(Message& m)
bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
************** Geladene Assemblys **************
mscorlib
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll.
----------------------------------------
Rechnungsanalyse
Assembly-Version: 1.0.0.0.
Win32-Version: 1.0.0.0.
CodeBase: file:///C:/Users/Anwender/Desktop/Visual Studio Projekte/Rechnungsverarbeitung06122016/20.12.16 to add stuff/Rechnungsanalyse/bin/Release/Rechnungsanalyse.exe.
----------------------------------------
Microsoft.VisualBasic
Assembly-Version: 10.0.0.0.
Win32-Version: 14.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll.
----------------------------------------
System
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll.
----------------------------------------
System.Core
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll.
----------------------------------------
System.Windows.Forms
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll.
----------------------------------------
System.Drawing
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll.
----------------------------------------
System.Runtime.Remoting
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll.
----------------------------------------
System.Data
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1636.0 built by: NETFXREL3STAGE.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Data/v4.0_4.0.0.0__b77a5c561934e089/System.Data.dll.
----------------------------------------
System.Xml
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll.
----------------------------------------
System.Configuration
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll.
----------------------------------------
System.Windows.Forms.resources
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1055.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_de_b77a5c561934e089/System.Windows.Forms.resources.dll.
----------------------------------------
AxInterop.AcroPDFLib
Assembly-Version: 1.0.0.0.
Win32-Version: 1.0.0.0.
CodeBase: file:///C:/Users/Anwender/Desktop/Visual Studio Projekte/Rechnungsverarbeitung06122016/20.12.16 to add stuff/Rechnungsanalyse/bin/Release/AxInterop.AcroPDFLib.DLL.
----------------------------------------
mscorlib.resources
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1055.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_de_b77a5c561934e089/mscorlib.resources.dll.
----------------------------------------
Interop.AcroPDFLib
Assembly-Version: 1.0.0.0.
Win32-Version: 1.0.0.0.
CodeBase: file:///C:/Users/Anwender/Desktop/Visual Studio Projekte/Rechnungsverarbeitung06122016/20.12.16 to add stuff/Rechnungsanalyse/bin/Release/Interop.AcroPDFLib.DLL.
----------------------------------------
Microsoft.VisualBasic.PowerPacks
Assembly-Version: 9.0.0.0.
Win32-Version: 3.0.30214.0.
CodeBase: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic.PowerPacks/9.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.PowerPacks.dll.
----------------------------------------
Accessibility
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Accessibility/v4.0_4.0.0.0__b03f5f7f11d50a3a/Accessibility.dll.
----------------------------------------
System.Numerics
Assembly-Version: 4.0.0.0.
Win32-Version: 4.6.1590.0 built by: NETFXREL2.
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Numerics/v4.0_4.0.0.0__b77a5c561934e089/System.Numerics.dll.
----------------------------------------
itextsharp
Assembly-Version: 5.5.10.0.
Win32-Version: 5.5.10.0.
CodeBase: file:///C:/Users/Anwender/Desktop/Visual Studio Projekte/Rechnungsverarbeitung06122016/20.12.16 to add stuff/Rechnungsanalyse/bin/Release/itextsharp.DLL.
----------------------------------------
************** JIT-Debuggen **************
Um das JIT-Debuggen (Just-In-Time) zu aktivieren, muss in der
Konfigurationsdatei der Anwendung oder des Computers
(machine.config) der jitDebugging-Wert im Abschnitt system.windows.forms festgelegt werden.
Die Anwendung muss mit aktiviertem Debuggen kompiliert werden.
Zum Beispiel:
<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>
Wenn das JIT-Debuggen aktiviert ist, werden alle nicht behandelten
Ausnahmen an den JIT-Debugger gesendet, der auf dem
Computer registriert ist, und nicht in diesem Dialogfeld behandelt.
Irgendwo in diesem Quellcode ist der Fehler. Entschuldigt die Unordnung aber das Programm ist sehr schnell gewachsen und das ist wirklich nur ein kleiner Ausschnitt. Ich hoffe, jemand kann kombinieren und mir auch andere unnötige Zeilen oder Codes ansagen:
VB.NET-Quellcode
- Try
- Label1.BackColor = Color.Transparent
- Label1.Text = "Wird gespeichert"
- Dim tsfn As Integer = DataGridView1.Rows.Count
- ProgressBar1.Maximum = tsfn
- ProgressBar1.Value = 0
- Dim tsfi As Integer = 0
- Dim i As Integer = 0
- For Each zeile In dt.Rows
- Dim fs As New FileStream(pfadpruef & "\" & DataGridView1.Rows(i).Cells(0).FormattedValue.ToString & ".dat", FileMode.Create)
- Dim sw As New StreamWriter(fs)
- Dim x As Integer = 0
- For Each spalte In dt.Columns
- 'If x = dt.Columns.Count - 1 Then // wenn pfad nicht gespeichert werden soll
- ' Exit For
- 'End If
- sw.WriteLine(DataGridView1.Rows(i).Cells(x).FormattedValue.ToString)
- x = x + 1
- Next
- i = i + 1
- sw.Close()
- tsfi = tsfi + 1
- Next
- If Not Directory.Exists("pfad") Then
- Directory.CreateDirectory("\\pfad")
- End If
- If Not Directory.Exists("pfad") Then
- Directory.CreateDirectory("pfad")
- End If
- For Each f As FileInfo In New DirectoryInfo("pfad").GetFiles("*.pdf", SearchOption.TopDirectoryOnly)
- If Not File.Exists("pfad" & f.Name) Then
- f.MoveTo("pfad" & f.Name)
- End If
- Try
- File.Copy("pfad\NLZO.csv", "pfad\NLZO.csv")
- Catch
- End Try
- Next
- For Each pd As FileInfo In New DirectoryInfo("pfad").GetFiles("*.pdf", SearchOption.TopDirectoryOnly)
- Dim stempel As Boolean = True
- For Each f As FileInfo In New DirectoryInfo("pfad").GetFiles(pd.Name.Replace(pd.Extension, ".dat"), SearchOption.TopDirectoryOnly)
- Dim lfn As String = ReadLine(f.FullName, 7).Trim() ' Liefnr as dat datei
- Dim lfnns As String() = My.Computer.FileSystem.ReadAllText(My.Settings.pfadnostamp, Encoding.Default) _
- .Split(Environment.NewLine)
- Dim ic As Integer = 0
- For Each lfnnsp In lfnns
- lfnnsp = lfnnsp.Replace(Environment.NewLine, "")
- lfnnsp = lfnnsp.Trim()
- If lfn = lfnnsp Then
- ic = ic + 1
- End If
- Next
- If ic > 0 Then stempel = False
- Next
- '//Nicht gelistet
- If stempel = True Then
- Using stamper As New PdfStamper(New PdfReader(pd.FullName), File.Create("pfad" & pd.Name))
- Dim tf As New TextField(stamper.Writer, New iTextSharp.text.Rectangle(250, 800, 290, 825), "ID")
- Dim tfes As New TextField(stamper.Writer, New iTextSharp.text.Rectangle(200, 640, 280, 660), "EG")
- tfes.TextColor = New BaseColor(255, 0, 0)
- tfes.BackgroundColor = New BaseColor(214, 214, 214)
- Dim tfed As New TextField(stamper.Writer, New iTextSharp.text.Rectangle(200, 620, 280, 640), "DA")
- tfed.TextColor = New BaseColor(255, 0, 0)
- tfed.BackgroundColor = New BaseColor(214, 214, 214)
- stamper.AddAnnotation(tf.GetTextField(), 1)
- stamper.AddAnnotation(tfes.GetTextField(), 1)
- stamper.AddAnnotation(tfed.GetTextField(), 1)
- Dim tx As AcroFields = stamper.AcroFields
- tx.SetField("ID", pd.Name.Replace(pd.Extension, ""))
- Dim txe As AcroFields = stamper.AcroFields
- txe.SetField("EG", Today.ToShortDateString)
- Dim txd As AcroFields = stamper.AcroFields
- txd.SetField("DA", " " & Today.ToShortDateString & " ")
- stamper.Close()
- End Using
- Dim newfile As String = "pfad" & pd.Name
- Dim pdfreader As New PdfReader("pfad" & pd.Name)
- Dim pdfstamper As New PdfStamper(pdfreader, New FileStream(newfile, FileMode.Create))
- Dim pdfformatfields As AcroFields = pdfstamper.AcroFields
- pdfformatfields.SetField("ID", pd.Name.Replace(pd.Extension, ""))
- pdfformatfields.SetField("EG", "Eingegangen:")
- pdfformatfields.SetField("DA", Today.ToShortDateString)
- pdfstamper.Close()
- pdfreader.Close()
- pdfreader.Dispose()
- Else
- Using stamper As New PdfStamper(New PdfReader(pd.FullName), File.Create("pfad" & pd.Name))
- Dim tf As New TextField(stamper.Writer, New iTextSharp.text.Rectangle(250, 800, 290, 825), "ID")
- stamper.AddAnnotation(tf.GetTextField(), 1)
- Dim tx As AcroFields = stamper.AcroFields
- tx.SetField("ID", pd.Name.Replace(pd.Extension, ""))
- stamper.Close()
- End Using
- Dim newfile As String = "pfad" & pd.Name
- Dim pdfreader As New PdfReader("pfad" & pd.Name)
- Dim pdfstamper As New PdfStamper(pdfreader, New FileStream(newfile, FileMode.Create))
- Dim pdfformatfields As AcroFields = pdfstamper.AcroFields
- pdfformatfields.SetField("ID", pd.Name.Replace(pd.Extension, ""))
- pdfstamper.Close()
- pdfreader.Close()
- pdfreader.Dispose()
- End If
- Next
- For Each tdpdf As FileInfo In New DirectoryInfo("pfad").GetFiles("*.pdf", SearchOption.TopDirectoryOnly)
- tdpdf.Delete()
- Next
- If Directory.Exists("pfad") Then
- Directory.Delete("pfad")
- End If
- For Each fa As FileInfo In New DirectoryInfo(pfadpruef).GetFiles("*.IO", SearchOption.TopDirectoryOnly)
- If File.Exists(fa.FullName.Replace(fa.Extension, ".dat")) Then
- fa.Delete()
- End If
- Next
- dt.Rows.Clear()
- Catch
- End Try
PS: Habe alle Pfade aus Sicherheitsgründen durch "pfad" ersetzt. Nicht wundern.
Dankbar für jede Hilfe &
Frohes Neues euch allen!
~Wir leben zwar alle unter dem gleichen Himmel, aber es haben nicht alle den gleichen Horizont~