DAL/systemSQL.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

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

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 systemSQL

    Public Sub Delete_CRF(ByVal strTaskId As String)
        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@CrfId", SqlDbType.NVarChar, 20, strTaskId)}
        Try
            sqlHelper.RunProc("Delete_CRF", ParamList)
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Sub
    '修理单流行号
    Public Function getREPAIRORDER() As String
        Dim sqlHelper As New Global.SQLHelper.SQLProcess
        Dim CRFID As String = sqlHelper.REPtranscode
        Return CRFID
    End Function
    '退货
    Public Function getREROUTCRFID() As String
        Dim sqlHelper As New Global.SQLHelper.SQLProcess
        Dim CRFID As String = sqlHelper.RERtranscode
        Return CRFID
    End Function

    Public Function getOUTCRFID() As String
        Dim sqlHelper As New Global.SQLHelper.SQLProcess
        Dim CRFID As String = sqlHelper.outtranscode
        Return CRFID
    End Function

    Public Function getADJCRFID() As String
        Dim sqlHelper As New Global.SQLHelper.SQLProcess
        Dim CRFID As String = sqlHelper.ADJtranscode
        Return CRFID
    End Function

    Public Function getRETCRFID() As String
        Dim sqlHelper As New Global.SQLHelper.SQLProcess
        Dim CRFID As String = sqlHelper.RETtranscode
        Return CRFID
    End Function

    Public Function getLOSCRFID() As String
        Dim sqlHelper As New Global.SQLHelper.SQLProcess
        Dim CRFID As String = sqlHelper.LOStranscode
        Return CRFID
    End Function

    Public Function getINVCRFID() As String