Visual Basic

Copy Code

 Private Function Dokumentwerte(ByVal dokumentid As String) As System.Data.DataTable
    If Param.DebugMode Then
        DivFnkt.InsertJournale("EDKB12: Start Dokumentwerte", clsDivFnkt.Enum_InfoTyp.Information)
    End If
    Dim scmCmdToExecute As SqlCommand = New SqlCommand()
    scmCmdToExecute.CommandText = "dbo.SP_Dokumentwerte"
    scmCmdToExecute.CommandType = CommandType.StoredProcedure
    Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable()
    Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
    scmCmdToExecute.Connection = conn.scoDBConnection
    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
    scmCmdToExecute.Parameters.Add(New SqlParameter("@ierrorcode", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
    Try
        sdaAdapter.Fill(dtToReturn)
        Return dtToReturn
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Dokumentwerte (True)", clsDivFnkt.Enum_InfoTyp.Information)
        End If
    Catch ex As Exception
        DivFnkt.InsertJournale("EDKB12::Fehler:: Dokumentwerte::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Dokumentwerte (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)
        End If
    Finally
        scmCmdToExecute.Dispose()
        sdaAdapter.Dispose()
    End Try
 End Function