sql-tools/RptMemberReport07.sql

  
  
ALTER PROCEDURE dbo.PRptMemberReport07   
(  
    @IParam VARCHAR(8000)  
)  
AS  
BEGIN  
 
    DECLARE @CompNo VARCHAR(8000)  
    DECLARE @FromPurDate DATETIME  
    DECLARE @ToPurDate DATETIME  
    DECLARE @FromExprDate DATETIME  
    DECLARE @ToExprDate DATETIME  
    DECLARE @FromItemNo VARCHAR(30)  
    DECLARE @ToItemNo VARCHAR(30)  
    DECLARE @IncExpired BIT
      
    SELECT @CompNo = dbo.FNGetParamValue(@IParam,'CompNo');   
    SELECT @IncExpired = ISNULL(dbo.FNGetParamValue(@IParam,'IncExpired'),0);   
  
    DECLARE  @Companys TABLE  
    (  
        CompId BIGINT,  
        CompNo VARCHAR(20),  
        CompName VARCHAR(50)  
    )  
      
    INSERT @Companys  
    SELECT A.FId,A.FNo,A.FAbbr   
      FROM TCompany AS A WITH(NOLOCK), dbo.FNStrSplit(@CompNo) AS B  
     WHERE A.FNo = B.Field  
       
    IF @@ROWCOUNT = 0   
    BEGIN  
        RETURN  
    END  
  
    CREATE TABLE #Result  
    (  
        CompId BIGINT,  
        CompName VARCHAR(100),  
        MemberTotal INT,  
        MoneyCardTotal INT,  
        CourseCardTotal INT,  
        LiveMemberTotal2 INT,  
        LiveMoneyCardTotal2 INT,  
        LiveCourseCardTotal2 INT,  
        LiveMemberTotal1 INT,  
        LiveMoneyCardTotal1 INT,  
        LiveCourseCardTotal1 INT,  
        TotalBalance DECIMAL(18,6),  
        MoneyCardBalance DECIMAL(18,6),  
        CourseCardBalance DECIMAL(18,6),  
        SleepTotalBalance2 DECIMAL(18,6),  
        SleepTotalBalance1 DECIMAL(18,6)  
    )  
    INSERT #Result(CompId,CompName)  
    SELECT CompId,CompNo + '-' + CompName  
      FROM @Companys  
        
 
    
    SELECT A.FCompId,A.FMemId,A.FCardId ,CAST(0 AS BIT) AS FLive2,CAST(0 AS BIT) AS FLive1
      INTO #MCard
      FROM TMemberCard AS A WITH(NOLOCK),TMember AS B WITH(NOLOCK)  ,@Companys AS C
     WHERE A.FDeleted = 0  
       AND B.FDeleted = 0  
       AND B.FState = 1   
       AND C.CompId = A.FCompId 
       AND A.FMemId = B.FMemId
       AND (@IncExpired = 0 OR A.FExpiredDate <= CONVERT(VARCHAR,GETDATE(),23))
      
    SELECT A.FCompId,A.FMemId,A.FId AS FCardId ,A.FRemainPurAmount AS FRemainPurAmount,CAST(0 AS BIT) AS FLive2,CAST(0 AS BIT) AS FLive1
      INTO #CCard
      FROM TMemberCourse AS A WITH(NOLOCK),TMember AS B WITH(NOLOCK)  ,@Companys AS C
     WHERE A.FDeleted = 0  
       AND B.FDeleted = 0  
       AND B.FState = 1   
       AND C.CompId = A.FCompId 
       AND A.FMemId = B.FMemId
       AND (@IncExpired = 0 OR A.FExpiredDate <= CONVERT(VARCHAR,GETDATE(),23))
      
 
      
    --<EFBFBD><EFBFBD>Ա<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    SELECT A.FCompId,A.FMemId ,CAST(0 AS BIT) AS FLive2,CAST(0 AS BIT) AS FLive1
      INTO #Member
      FROM (   
        SELECT FCompId,FMemId FROM #MCard
         GROUP BY FCompId,FMemId
        UNION ALL
        SELECT FCompId,FMemId FROM #CCard
        GROUP BY FCompId,FMemId 
        ) AS A  
     GROUP BY  A.FCompId,A.FMemId 
         
    UPDATE A  
       SET A.MemberTotal = B.FTotal  
      FROM #Result AS A,(  
    SELECT A.FCompId,COUNT(1) AS FTotal  
      FROM (  
          SELECT * FROM #Member
        ) AS A  
       GROUP BY FCompId  
       ) AS B  
      WHERE A.CompId = B.FCompId  
         
      
    --<EFBFBD><EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    UPDATE A
       SET A.MoneyCardTotal = B.FTotal
      FROM #Result AS A,(SELECT FCompId,COUNT(1) AS FTotal FROM #MCard GROUP BY FCompId) AS B
     WHERE A.CompId = B.FCompId
    
    --<EFBFBD>Ƴ̿<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    UPDATE A
       SET A.CourseCardTotal = B.FTotal
      FROM #Result AS A,(SELECT FCompId,COUNT(1) AS FTotal FROM #CCard GROUP BY FCompId) AS B
     WHERE A.CompId = B.FCompId
     
    --<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѹ<EFBFBD><EFBFBD>Ĵ<EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><EFBFBD><EFBFBD>ʷ<EFBFBD>ж<EFBFBD>
    DECLARE @Time1 DATETIME
    DECLARE @Time2 DATETIME
    
 
    SELECT @Time1 = DATEADD(YEAR,-1,GETDATE()),@Time2 = DATEADD(YEAR,-2,GETDATE())
    --SELECT * FROM #Member
    UPDATE A
       SET A.FLive2 = 1
      FROM #MCard AS A
     WHERE EXISTS(SELECT 1 FROM TMemberCardAcctHist AS B WITH(NOLOCK)
                   WHERE B.FCardId = A.FCardId 
                     AND B.FTime > @Time2
                     AND B.FBillType IN('XF','KK'))
                     
    UPDATE A
       SET A.FLive2 = 1
      FROM #MCard AS A
     WHERE EXISTS(SELECT 1 FROM TMemberCardOldAcctHist AS B WITH(NOLOCK)
                   WHERE B.FCardId = A.FCardId 
                     AND B.FTime > @Time2
                     )
                      
    UPDATE A
       SET A.FLive1 = 1
      FROM #MCard AS A
     WHERE EXISTS(SELECT 1 FROM TMemberCardAcctHist AS B WITH(NOLOCK) 
                   WHERE B.FCardId = A.FCardId 
                     AND B.FTime > @Time1
                     AND B.FBillType IN('XF','KK'))

    UPDATE A
       SET A.FLive1 = 1
      FROM #MCard AS A
     WHERE EXISTS(SELECT 1 FROM TMemberCardOldAcctHist AS B WITH(NOLOCK) 
                   WHERE B.FCardId = A.FCardId 
                     AND B.FTime > @Time1
                     )

    UPDATE A
       SET A.FLive1 = 1
      FROM #MCard AS A
     WHERE EXISTS(SELECT 1 FROM TMemberCourseLog AS B WITH(NOLOCK)
                   WHERE B.FCardId = A.FCardId 
                     AND B.FTime > @Time1
                     AND B.FBillType IN('XF','KK'))

    UPDATE A
       SET A.FLive2 = 1
      FROM #MCard AS A
     WHERE EXISTS(SELECT 1 FROM TMemberCourseLog AS B WITH(NOLOCK)
                   WHERE B.FCardId = A.FCardId 
                     AND B.FTime > @Time2
                     AND B.FBillType IN('XF','KK'))
    
    UPDATE A
       SET A.FLive1 = 1
      FROM #Member AS A,#MCard AS B
     WHERE A.FMemId = B.FMemId
       AND B.FLive1 = 1
                      
    UPDATE A
       SET A.FLive1 = 1
      FROM #Member AS A,#CCard AS B
     WHERE A.FMemId = B.FMemId
       AND B.FLive1 = 1

    UPDATE A
       SET A.FLive2 = 1
      FROM #Member AS A,#MCard AS B
     WHERE A.FMemId = B.FMemId
       AND B.FLive2 = 1
                      
    UPDATE A
       SET A.FLive2 = 1
      FROM #Member AS A,#CCard AS B
     WHERE A.FMemId = B.FMemId
       AND B.FLive2 = 1
    
    --<EFBFBD><EFBFBD><EFBFBD>»<EFBFBD>Ծ<EFBFBD><EFBFBD>Ա<EFBFBD><EFBFBD>2
    UPDATE A
       SET A.LiveMemberTotal2 = B.FLive2
      FROM #Result AS A,(SELECT FCompId,COUNT(1) AS FLive2 FROM #Member WHERE FLive2 = 1 GROUP BY FCompId) AS B
     WHERE A.CompId = B.FCompId
     
    --<EFBFBD><EFBFBD><EFBFBD>»<EFBFBD>Ծ<EFBFBD><EFBFBD>Ա<EFBFBD><EFBFBD>1
    UPDATE A
       SET A.LiveMemberTotal1 = B.FLive1
      FROM #Result AS A,(SELECT FCompId,COUNT(1) AS FLive1 FROM #Member WHERE FLive1 = 1 GROUP BY FCompId) AS B
     WHERE A.CompId = B.FCompId

    --<EFBFBD><EFBFBD><EFBFBD>»<EFBFBD>Ծ<EFBFBD><EFBFBD>2
    UPDATE A
       SET A.LiveMoneyCardTotal2 = B.FLive2
      FROM #Result AS A,(SELECT FCompId,COUNT(1) AS FLive2 FROM #MCard WHERE FLive2 = 1 GROUP BY FCompId) AS B
     WHERE A.CompId = B.FCompId
     
     
    --<EFBFBD><EFBFBD><EFBFBD>»<EFBFBD>Ծ<EFBFBD><EFBFBD>1
    UPDATE A
       SET A.LiveMoneyCardTotal1 = B.FLive1
      FROM #Result AS A,(SELECT FCompId,COUNT(1) AS FLive1 FROM #MCard WHERE FLive1 = 1 GROUP BY FCompId) AS B
     WHERE A.CompId = B.FCompId
     
    --<EFBFBD><EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    UPDATE A
       SET A.MoneyCardBalance = B.FBalance
      FROM #Result AS A,(SELECT A.FCompId,SUM(C.FBalance) AS FBalance FROM #MCard AS A,TMemberCardAccount AS C 
                          WHERE C.FCardId = A.FCardId AND C.FAcctId = 3 GROUP BY A.FCompId ) AS B
     WHERE A.CompId = B.FCompId

    --<EFBFBD>Ƴ̿<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    UPDATE A
       SET A.CourseCardBalance = B.FBalance
      FROM #Result AS A,(SELECT A.FCompId,SUM(A.FRemainPurAmount) AS FBalance FROM #CCard AS A
                          GROUP BY A.FCompId ) AS B
     WHERE A.CompId = B.FCompId
     
     
    --<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    UPDATE #Result SET TotalBalance = CourseCardBalance + MoneyCardBalance

    --<EFBFBD><EFBFBD><EFBFBD>ߵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    UPDATE A
       SET A.SleepTotalBalance2 = B.FBalance
      FROM #Result AS A,(SELECT A.FCompId,SUM(C.FBalance) AS FBalance FROM #MCard AS A,TMemberCardAccount AS C 
                          WHERE A.FLive2 = 0 AND C.FCardId = A.FCardId AND C.FAcctId = 3 GROUP BY A.FCompId ) AS B
     WHERE A.CompId = B.FCompId
   
    --<EFBFBD><EFBFBD><EFBFBD><EFBFBD>1<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    UPDATE A
       SET A.SleepTotalBalance1 = B.FBalance
      FROM #Result AS A,(SELECT A.FCompId,SUM(C.FBalance) AS FBalance FROM #MCard AS A,TMemberCardAccount AS C 
                          WHERE A.FLive1 = 0 AND C.FCardId = A.FCardId AND C.FAcctId = 3 GROUP BY A.FCompId ) AS B
     WHERE A.CompId = B.FCompId

    SELECT * FROM #Result    
    ORDER BY CompName  
      
    SELECT 
        (SELECT COUNT(1) FROM (SELECT FMemId FROM #Member GROUP BY FMemId) AS A) AS  MemberTotal,
        SUM(MoneyCardTotal) AS MoneyCardTotal,
        SUM(CourseCardTotal) AS MoneyCardTotal,
        (SELECT COUNT(1) FROM (SELECT FMemId FROM #Member WHERE FLive2 = 1 GROUP BY FMemId) AS A) AS  LiveMemberTotal2,
        (SELECT COUNT(1) FROM (SELECT FMemId FROM #Member WHERE FLive1 = 1 GROUP BY FMemId) AS A) AS  LiveMemberTotal1,
        SUM(LiveMoneyCardTotal2) AS LiveMoneyCardTotal2,
        SUM(LiveMoneyCardTotal1) AS LiveMoneyCardTotal1,
        SUM(TotalBalance) AS TotalBalance,
        SUM(MoneyCardBalance) AS MoneyCardBalance,
        SUM(CourseCardBalance) AS CourseCardBalance,
        SUM(SleepTotalBalance1) AS SleepTotalBalance1,
        SUM(SleepTotalBalance2) AS SleepTotalBalance2
      FROM #Result
END  

GO
EXEC dbo.PRptMemberReport07  'CompNo="001,002"'