Visual Basic

Copy Code

 Public Sub Dokumentwert_Sichern(ByVal wert As String, ByVal feldnr As Integer)
    If Param.DebugMode Then
        DivFnkt.InsertJournale("EDKB12: Start Dokumentwert_Sichern", clsDivFnkt.Enum_InfoTyp.Information)
    End If
    Dim scmCmdToExecute As SqlCommand = New SqlCommand()
    scmCmdToExecute.CommandText = "dbo.SP_Dokument_Information_Wert"
    scmCmdToExecute.CommandType = CommandType.StoredProcedure
    scmCmdToExecute.Connection = Globals.conn.scoDBConnection
    scmCmdToExecute.Connection.Open()
    Try
        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Dokumentid))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@vorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, feldnr))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert))
        scmCmdToExecute.ExecuteNonQuery()
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Dokumentwert_Sichern (True)", clsDivFnkt.Enum_InfoTyp.Information)
        End If
 
    Catch ex As Exception
        DivFnkt.InsertJournale("EDKB12::Fehler:: Dokumentwert_Sichern::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Dokumentwert_Sichern (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)
        End If
    Finally
        scmCmdToExecute.Connection.Close()
        scmCmdToExecute.Dispose()
    End Try
 End Sub