Update nach Anpassung BedR

2022-12-26 16:08:36 +01:00
parent 7b68dffd3f
commit ac2cda6ae8
18 changed files with 505 additions and 500 deletions
--- a/EDOKA/Office/WordLib.vb
+++ b/EDOKA/Office/WordLib.vb
@@ -1341,7 +1341,8 @@ eh:

                Dim id As String
                If Me.Dokumentidbr <> "" Then id = Me.Dokumentidbr Else id = Me.DokumentID
-
+                'erneurung DMS
+                id = Me.DokumentID
                ''Barcode-Generierung

                s = Bar25I(Microsoft.VisualBasic.Right(Right(id, Len(id) - 6), 16))