set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
goALTER PROCEDURE [dbo].[sp_GetNewUnitNo]
(
 @RegionCode char(2),
 @UnitType char(1),
 @CheckByte char(1),
  @Unit_No Char(8)  output
   
)
 AS
 select @Unit_No=dbo.FUN_GetNewUnitNo(@RegionCode,@CheckByte,@UnitType)---------------------
 Dim sSql As String = SP_GetNewUnitNo
        Dim arrParms(3) As SqlParameter        arrParms(0) = New SqlParameter("@RegionCode", SqlDbType.Char, 2, ParameterDirection.Input)
        arrParms(0).Value = IIf(sRegionCode.Trim = "", DBNull.Value, sRegionCode)        arrParms(1) = New SqlParameter("@UnitType", SqlDbType.Char, 1, ParameterDirection.Input)
        arrParms(1).Value = IIf(sUnitType.Trim = "", DBNull.Value, sUnitType)        arrParms(2) = New SqlParameter("@CheckByte", SqlDbType.Char, 1, ParameterDirection.Input)
        arrParms(2).Value = IIf(sCheck.Trim = "", DBNull.Value, sCheck)
        arrParms(3) = New SqlParameter("@Unit_No", SqlDbType.Char, 8, ParameterDirection.Output)
        SQLHelper.ExecuteNonQuery(SQLHelper.ConnectionStringLocalTransaction, CommandType.StoredProcedure, sSql, arrParms)
        Return arrParms(3).Value----------------过程或函数 'sp_GetNewUnitNo' 需要参数 '@Unit_No',但未提供该参数