Collapse All Expand All Language Filter: Code: All Code: Multiple Code: Visual Basic Code: C# Code: Visual C++ Code: J# Code: JScript

EDKB12WS Reference
ModMain.Dokumentstatus_erstellen_und_Status_Setzen Method
See Also

Assembly: EDKB12WS (in EDKB12WS.exe)

# Syntax

Visual Basic
Private Shared Function Dokumentstatus_erstellen_und_Status_Setzen( _ ByVal dokumentid As String, _ ByVal erstellen As Boolean, _ Optional ByVal BLKunde As Integer = 0 _ ) As Integer
C#
private static int Dokumentstatus_erstellen_und_Status_Setzen( string dokumentid, bool erstellen, int BLKunde = 0 )
C++
private: static int Dokumentstatus_erstellen_und_Status_Setzen( String^ dokumentid, bool erstellen, int BLKunde )
JScript
private static function Dokumentstatus_erstellen_und_Status_Setzen( dokumentid : String, erstellen : boolean, BLKunde : int ) : int;
## Parameters dokumentid erstellen BLKunde

# Source code

Visual Basic | Copy Code
Private Function Dokumentstatus_erstellen_und_Status_Setzen(ByVal dokumentid As String, ByVal erstellen As Boolean, Optional ByVal BLKunde As Integer = 0) As Integer If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start Dokumentstatus_erstellen_und_Status_Setzen", clsDivFnkt.Enum_InfoTyp.Information) End If Try Dim st As New System.Data.DataTable() Dim i As Integer Dim dt As DateTime = DateAdd(DateInterval.Second, -5, Now) Dim MitArchivfunktion As Boolean = False If erstellen = True Then Create_Dokumentstatus(BLKunde) End If st = Get_Dokumentstatus() For i = 0 To st.Rows.Count - 1 Select Case Integer.Parse(st.Rows(i).Item(2).ToString) Case 3 MitArchivfunktion = True Case 11 MitArchivfunktion = True End Select Next If MitArchivfunktion Then For i = 0 To st.Rows.Count - 1 insert_history_status(st.Rows(i).Item(0), dokumentid, Mitarbeiter.iMitarbeiternr.Value, dt) dt = DateAdd(DateInterval.Second, 1, dt) If st.Rows(i).Item(2) = 3 Or st.Rows(i).Item(2) = 11 Then Return st.Rows(i).Item(0) Exit Function End If Next Else 'Dokumentstatusreihenfolge ohne Ausgangsarchivierung End If If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentstatus_erstellen_und_Status_Setzen (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Catch ex As Exception End Try DivFnkt.InsertJournale("EDKB12::Fehler:: Dokumentstatus_erstellen_und_Status_Setzen::", clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende Dokumentstatus_erstellen_und_Status_Setzen (False)", clsDivFnkt.Enum_InfoTyp.Information) End If End Function

# Platforms

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 SP2 The .NET Framework does not support all versions of every platform. For a list of the supported versions, see System Requirements.

# Version Information

## .NET Framework Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0 ## .NET Compact Framework Supported in: 3.5, 2.0, 1.0 ## XNA Framework Supported in: 3.0, 2.0, 1.0

# See Also

## Reference ModMain Class ModMain ModMain Members