DAL/CHECKRREPORTSQL.vb

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Text
Imports System.Collections.Generic
Imports System.Data.SqlClient
Imports SQLHelper
Imports Model
Public Class CHECKRREPORTSQL
    Public Function Add_getcheckreport(ByVal stcheck As getcheckreport) As Integer

        Dim sqlHelper As New Global.SQLHelper.ERPSQLHelper
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@CHECKCODE", SqlDbType.NVarChar, 20, stcheck.CHECKCODE), _
                                           sqlHelper.CreateInParam("@INVENTDIMID", SqlDbType.NVarChar, 20, stcheck.INVENTDIMID)}
        Try
            Return (sqlHelper.RunProc("getcheckreport", ParamList))
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Function
End Class