2011年2月17日

[GH]補有排假但沒有請假檔


DECLARE @PER_SERIL_NO PER_SERIL_NO
      , @LOL_DATE DATETIME
      , @SHIFT_SDATE DATETIME
      , @USER_ID USRID

BEGIN TRAN

    DECLARE vendor_cursor CURSOR Local FAST_FORWARD READ_ONLY FOR
        SELECT PER_SERIL_NO , LOL_DATE , SHIFT_SDATE , '(20101124)'
        FROM dbo.LOL_DAYSHIFT X
        WHERE X.SHIFT_CODE='X1' AND ISNULL(X.LE_APPLY_NO,'')=''
    OPEN vendor_cursor
    FETCH NEXT FROM vendor_cursor
    INTO @PER_SERIL_NO , @LOL_DATE , @SHIFT_SDATE , @USER_ID
    WHILE @@FETCH_STATUS = 0
    BEGIN

            exec dbo.uspInsertLevByShiftLev @PER_SERIL_NO=@PER_SERIL_NO
            , @LOL_DATE=@LOL_DATE
            , @SHIFT_SDATE=@SHIFT_SDATE
            , @strUSR_ID=@USER_ID

        FETCH NEXT FROM vendor_cursor
        INTO @PER_SERIL_NO , @LOL_DATE , @SHIFT_SDATE , @USER_ID
    END
    CLOSE vendor_cursor
    DEALLOCATE vendor_cursor

COMMIT