Update 20250130

vbBarcodes/Class1.vb

@@ -65,15 +65,15 @@ Public Class vbarcodes
     Dim barcodeImage2of5 As System.Drawing.Image
     Private Sub ins_Barcode()
         Dim Barcode2of5 As New BarcodeLib.clsBarI25()
-        barcodeImage2of5 = Barcode2of5.GetBarI25(Color.Black, Color.White, docdata.Dokumentid.Substring(6, 16), "Bar 25i c HR", 36, 350, 50, " U", "Futur Book", 8, 0)
-        barcodeImage2of5.Save(Temppath + "a_" + docdata.Dokumentid + ".png", System.Drawing.Imaging.ImageFormat.Png)
+        'barcodeImage2of5 = Barcode2of5.GetBarI25(Color.Black, Color.White, docdata.Dokumentid.Substring(6, 16), "Bar 25i c HR", 36, 350, 50, " U", "Futur Book", 8, 0)
+        'barcodeImage2of5.Save(Temppath + "a_" + docdata.Dokumentid + ".png", System.Drawing.Imaging.ImageFormat.Png)
         'barcodeImage2of5 = Barcode.Get_LinerBarcode(Barcoded.Symbology.I2of5, docdata.Dokumentid.Substring(6, 16), docdata.Dokumentid.Substring(6, 16) + docdata.barcode_zusatz, docdata.barcode_textposition, docdata.Zusatz_Font, Convert.ToInt32(docdata.Zusatz_FontSize), 0)
         'barcodeImage2of5 = ScaleImage(barcodeImage2of5,
         '                              30)
         'barcodeImage2of5.Save(Temppath + "a_" + docdata.Dokumentid + ".png", System.Drawing.Imaging.ImageFormat.Png)
 
 
-        BarcodeFormatn =
+        BarcodeFormatn = docdata.barcode_formatn
         BarcodeBeschriftung = docdata.barcode_text
         Kantenlaenge = docdata.barcode_kantenlaenge
         BarcodeContent = docdata.barcode_content
@@ -82,6 +82,8 @@ Public Class vbarcodes
             datamatrix_generator()
         End If
 
+
+
         Dim xname As String
         Dim i As Integer
         Dim pages As Long