ModMain.insert_history_status Method ModMain.insert_history_status Method EDKB12WS.ModMain.insert_history_status Method insert_history_status Method topic_00000000000003BE EDKB12WS.ModMain.insert_history_status EDKB12WS.ModMain.insert_history_status ModMain.insert_history_status EDKB12WS.ModMain.ModMain.insert_history_status EDKB12WS.ModMain.insert_history_status EDKB12WS (in EDKB12WS.exe) ModMain.insert_history_status Method EDKB12WS.ModMain topic_00000000000003BE
ModMain.insert_history_status Method

Assembly: EDKB12WS (in EDKB12WS.exe)
Visual Basic
Public Shared Sub insert_history_status( _
  ByVal statusnr As ]]>Integera]]>]]>, _
  ByVal dokumentid As ]]>Stringa]]>]]>, _
  ByVal Verantwortlicher As ]]>Integera]]>]]>, _
  ByVal datumzeit As ]]>Datea]]>]]> _
)
C#
public static ]]>System.Voida]]>]]> insert_history_status(
  ]]>inta]]>]]> statusnr,
  ]]>stringa]]>]]> dokumentid,
  ]]>inta]]>]]> Verantwortlicher,
  ]]>DateTimea]]>]]> datumzeit
)
C++
public:
static ]]>System::Voida]]>]]> insert_history_status(
  ]]>inta]]>]]> statusnr,
  ]]>Stringa]]>]]>^ dokumentid,
  ]]>inta]]>]]> Verantwortlicher,
  ]]>DateTimea]]>]]> datumzeit
)
JScript
public static function insert_history_status(
   statusnr : ]]>inta]]>]]>,
   dokumentid : ]]>Stringa]]>]]>,
   Verantwortlicher : ]]>inta]]>]]>,
   datumzeit : ]]>DateTimea]]>]]>
);
Parametersstatusnr dokumentid Verantwortlicher datumzeit
$END-IFNOTEMPTY$
Visual Basic Copy CodeCopy 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
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 Requirementsa]]>]]>.
.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
Reference ModMain ClassModMain Class
ModMain ModMain MembersModMain ModMain Members