update 20250111

vbBarcodes/Class1.vb

@@ -4,6 +4,7 @@ Imports Model
 Imports System.Drawing
 Imports Database
 Imports System.Runtime.CompilerServices
+Imports System.Net
 
 Public Class vbarcodes
 
@@ -91,6 +92,9 @@ Public Class vbarcodes
             Textboxesi = Textboxesi + 1
             objWord.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument
         Next i
+        If docdata.barcode_type <> 0 Then
+            System.IO.File.Delete(Temppath + "\a_" + docdata.Dokumentid.ToString + ".png")
+        End If
     End Sub
     Sub Insert_Datamatrix()
         Dim Form
@@ -132,7 +136,7 @@ Public Class vbarcodes
 
             End Select
             Form = Nothing
-            System.IO.File.Delete(Temppath + "\a_" + docdata.Dokumentid.ToString + ".png")
+
             Exit Sub
         Catch ex As Exception
         End Try