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