public static function Dokument_Vervollstaendigen( xdata : ]]>DataTablea]]>]]> ) : ]]>booleana]]>]]>;
Parametersxdata
$END-IFNOTEMPTY$
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
'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
Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2The .NET Framework does not support all versions of every platform. For a list of the supported versions, see
]]>System Requirementsa]]>]]>.