Visual Basic

Copy Code

 Private Function Get_Pendente_EDK_Dokumente() As System.Data.DataTable
    If Param.DebugMode Then
        DivFnkt.InsertJournale("EDKB12: Start Get_Pendente_EDK_Dokumente", clsDivFnkt.Enum_InfoTyp.Information)
    End If
 
    Dim scmCmdToExecute As SqlCommand = New SqlCommand()
    scmCmdToExecute.CommandText = "sp_edkb12"
    scmCmdToExecute.CommandType = CommandType.StoredProcedure
    Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable()
    Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
    Try
        scmCmdToExecute.Connection = Globals.conn.scoDBConnection
        scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@rowid", SqlDbType.Int, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
        sdaAdapter.Fill(dtToReturn)
        Return dtToReturn
    Catch ex As Exception
        '20080918 Version 12 SHU
        'Im Feherfall nichts auf DB schreiben. Passiert nachdem ein SQL-Verbindungsunterbruch stattgefunden hat.
        Try
 
            DivFnkt.InsertJournale("EDKB12::Fehler:: Get_Pendente_EDK_Dokumente::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
            If Param.DebugMode Then
                DivFnkt.InsertJournale("EDKB12: Ende Get_Pendente_EDK_Dokumente (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)
            End If
        Catch
        End Try
    Finally
        scmCmdToExecute.Dispose()
        sdaAdapter.Dispose()
    End Try
 End Function