Adventure Works DW - Kpi - Internet Revenue

KPI properties

name	value
name	Internet Revenue
description	Revenue realized through direct sales via the internet.
id	KPI 11
display folder	Financial Perspective\Grow Revenue
associated measure group id	Internet Sales
trend graphic	Standard Arrow
status graphic	Cylinder

Value

[Measures].[Internet Sales Amount]

Goal

Case
    When IsEmpty
         (
           ParallelPeriod
           (
             [Date].[Fiscal].[Fiscal Year],
             1,
             [Date].[Fiscal].CurrentMember
           )
         )
    Then [Measures].[Internet Sales Amount]              
    Else 1.10 *
         ( 
           [Measures].[Internet Sales Amount],
           ParallelPeriod
           (
             [Date].[Fiscal].[Fiscal Year],
             1,
             [Date].[Fiscal].CurrentMember
           )
         )
End

Status

Case
    When KpiValue( "Internet Revenue" ) / KpiGoal( "Internet Revenue" ) >  1
    Then 1
    When KpiValue( "Internet Revenue" ) / KpiGoal( "Internet Revenue" ) <= 1
         And 
         KpiValue( "Internet Revenue" ) / KpiGoal( "Internet Revenue" ) >= .85
    Then 0
    Else -1
End

Trend

Case
    When IsEmpty
         (
           ParallelPeriod
           (
             [Date].[Fiscal].[Fiscal Year],
             1,
             [Date].[Fiscal].CurrentMember
           )
         )
    Then 0  
    When VBA!Abs
         (
          ( 
            KpiValue( "Internet Revenue" ) 
            - 
            (
              KpiValue( "Internet Revenue" ),
              ParallelPeriod
              ( 
                [Date].[Fiscal].[Fiscal Year],
                1,
                [Date].[Fiscal].CurrentMember
              )
            )
          ) 
          /
          (
            KpiValue( "Internet Revenue" ),
            ParallelPeriod
            ( 
              [Date].[Fiscal].[Fiscal Year],
              1,
              [Date].[Fiscal].CurrentMember
            )
          )  
         ) <=.02
    Then 0
    When ( 
           KpiValue( "Internet Revenue" ) 
           - 
           (
             KpiValue( "Internet Revenue" ),
             ParallelPeriod
             ( 
               [Date].[Fiscal].[Fiscal Year],
               1,
               [Date].[Fiscal].CurrentMember
             )
           ) 
         )
         /
         (
           KpiValue( "Internet Revenue" ),
           ParallelPeriod
           ( 
             [Date].[Fiscal].[Fiscal Year],
             1,
             [Date].[Fiscal].CurrentMember
           )
         ) >.02
    Then 1
    Else -1
End