Visual Basic

Copy Code

 Public Function Dokument_Vervollstaendigen(ByVal xdata As System.Data.DataTable) As Boolean
    If Param.DebugMode Then
        DivFnkt.InsertJournale("EDKB12: Start Dokument_Vervollstaendigen", clsDivFnkt.Enum_InfoTyp.Information)
    End If
 
    Try
 
        If docword.ProtectionType <> WdProtectionType.wdNoProtection Then
            docword.Unprotect(Password:=Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("passwort_wordvorlagen"))
            IsProtected = True
        End If
 
        Fill_Dokument()
 
        If DokType.bZu_retournieren.Value = True Or DokType.iDoktypbedingteretournierung.Value > 0 Then
            Generate_Barcodes()
        Else
            Try
                objword.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekMainDocument
            Catch
            End Try
        End If
        If IsProtected Then
            Try
                docword.Protect(Type:=WdProtectionType.wdAllowOnlyFormFields, NoReset:=True, Password:=Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("passwort_wordvorlagen"))
            Catch
            End Try
        End If
        FeldMakros()
 
        If objword.ActiveWindow.View.SplitSpecial = WdSpecialPane.wdPaneNone Then
            objword.ActiveWindow.ActivePane.View.Type = WdViewType.wdPrintView
        Else
            objword.ActiveWindow.View.Type = WdViewType.wdPrintView
        End If
 
        IDV_makros_bearbeiten()
        'Rel 3.5 / BUD / 13.01.2005 (IF / END IF)
 
        'Dim dn As String = objword.ActiveDocument.FullName
        'docword.Save()
        'docword.Close()
        'objword.Documents.Open(dn)
        'objword.NormalTemplate.Saved = True
        'docword = objword.ActiveDocument
        'docword.Saved = False
 
        'If objword.ActiveWindow.View.SplitSpecial = WdSpecialPane.wdPaneNone Then
        ' objword.ActiveWindow.ActivePane.View.Type = WdViewType.wdPrintView
        ' Else
        ' objword.ActiveWindow.View.Type = WdViewType.wdPrintView
        ' End If
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Dokument_Vervollstaendigen (True)", clsDivFnkt.Enum_InfoTyp.Information)
        End If
        Return True
    Catch ex As Exception
        DivFnkt.InsertJournale("EDKB12::Fehler:: Dokument_Vervollstaendigen::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Dokument_Vervollstaendigen (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)
        End If
        Return False
    End Try
 
 End Function