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.insert_history_status Method
See Also

Assembly: EDKB12WS (in EDKB12WS.exe)

# Syntax

Visual Basic
Public Shared Sub insert_history_status( _ ByVal statusnr As Integer, _ ByVal dokumentid As String, _ ByVal Verantwortlicher As Integer, _ ByVal datumzeit As Date _ )
C#
public static System.Void insert_history_status( int statusnr, string dokumentid, int Verantwortlicher, DateTime datumzeit )
C++
public: static System::Void insert_history_status( int statusnr, String^ dokumentid, int Verantwortlicher, DateTime datumzeit )
JScript
public static function insert_history_status( statusnr : int, dokumentid : String, Verantwortlicher : int, datumzeit : DateTime );
## Parameters statusnr dokumentid Verantwortlicher datumzeit

# Source code

Visual Basic | Copy Code
Public Sub insert_history_status(ByVal statusnr As Integer, ByVal dokumentid As String, ByVal Verantwortlicher As Integer, ByVal datumzeit As DateTime) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Start insert_history_status", clsDivFnkt.Enum_InfoTyp.Information) End If Try Dim sh As New edokadb.clsStatushistory() Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim key As Long dbkey.cpMainConnectionProvider = Globals.conn key = dbkey.get_dbkey("statushistory") sh.cpMainConnectionProvider = Globals.conn sh.iStatushistorynr = New SqlInt32(CType(key, Int32)) sh.iStatus = New SqlInt32(CType(statusnr, Int32)) sh.iMandantnr = New SqlInt32(CType(1, Int32)) sh.iMutierer = New SqlInt32(CType(Mitarbeiter.iMitarbeiternr.Value, Int32)) sh.bAktiv = New SqlBoolean(True) sh.daErstellt_am = New SqlDateTime(CType(datumzeit, DateTime)) sh.daMutiert_am = New SqlDateTime(CType(datumzeit, DateTime)) sh.sDokumentid = New SqlString(CType(dokumentid, String)) sh.iVerantwortlich = New SqlInt32(CType(Verantwortlicher, Int32)) Try Globals.conn.OpenConnection() Catch End Try sh.Insert() Try Globals.conn.CloseConnection(True) Catch End Try dbkey.Dispose() sh.Dispose() If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende insert_history_status (True)", clsDivFnkt.Enum_InfoTyp.Information) End If Catch ex As Exception DivFnkt.InsertJournale("EDKB12::Fehler:: insert_history_status::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler) If Param.DebugMode Then DivFnkt.InsertJournale("EDKB12: Ende insert_history_status (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information) End If End Try End Sub

# 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