gusucode.com > 精典源码Delphi044：指纹考勤管理系统源码程序 > 精典源码Delphi044：指纹考勤管理系统源码程序/精典源码Delphi044：指纹考勤管理系统/顺发指纹考勤管理系统/指纹考勤系统/SP_NoMiMa/wbSp_GetDBRenY_BCLXCode.txt

    

/*********************
  此过程用来判断倒班人员当天是否有排班
********************/
CREATE PROCEDURE wbSp_GetDBRenY_BCLXCode 
  @KQNO char(5), 
  @KQYear Int,
  @KQMonth int,
  @KQDay int,
  @HaveOrNot  bit Output,
  @LXCode char(2) Output 
AS
begin
    
   declare @DBDayField char(8) 
   declare @SQLStr Varchar(250)
   Set @DBDayField='RQ'+rtrim(Convert(char(2),@KQDay))+'code'
   Set @SQLStr='Insert into btmpJL_DBLX Select '+ @DBDayField+' from bDB_BCPD Where KQNO='+''''+@KQNO+''''+' and DBYear='+Convert(char(4),@KQYear)+' and DBMonth='+Convert(char(2),@KQMonth)+' and '+@DBDayField+' is not Null'
 --  Set @SQLStr=' if Exists('+@SQLStr+') Set @HaveOrNot='+''''+'1'+''''+' else Set @HaveOrNot='+''''+'0'+''''
   Delete from btmpJL_DBLX 
   
   Execute (@SQLStr) 
--   Select @HaveOrNot
   if Exists(Select LXCode from bDBLX where LXCode in( Select LXCode from btmpJL_DBLX))
   begin 
     Set @HaveOrNot=1 
     set @LXCode=(Select LXCode from btmpJL_DBLX where LXCode is Not NUll)  
   end
   else 
   begin
     Set @HaveOrNot=0
     set @LXCode='' 
   end
 
end