          SUBROUTINE (MODE,VIEW,REDISP)
** Version# 6.0001[4] - 09/26/2011 - 04:25pm - SMITJR - eclipse
*** V6.0001 Change - Custom Coding . - 09/26/2011 - SMITJR - eclipse

          CHOICES = ''
          VN      = ''
          CHOICES<1,-1> = 'Freight / Handling';      VN<1,-1> = 1
          CHECK.KEY 'COST.VIEW',COST.OK
          IF COST.OK THEN
             CHOICES<1,-1> = 'Cost / Margin $'
             VN<1,-1> = 2
          END
          CHECK.KEY 'COGS.VIEW',COGS.OK
          *IF COGS.OK THEN
             *CHOICES<1,-1>  = 'COGS / Margin $'
             *VN<1,-1> = 2
          *END
          CHECK.KEY 'COMMISSIONS.USER.AUTH',COMM.OK
          IF COMM.OK AND MODE = 'S' THEN
             CHOICES<1,-1> = 'CPlan $ / CPlan %'
             VN<1,-1> = 4
          END
*-------------------------------------------------------------------------*

          VAR = ''
          ROWS = DCOUNT(CHOICES,VM)
          IF ROWS > 14 THEN ROWS = 14
          TOP = 10 - ROWS / 2
          LOCATE VIEW IN VN<1> SETTING VIEW.LN ELSE VIEW.LN = 1
          MENU.TABLE VAR,23,TOP,1,ROWS,35,,,CHOICES,'View Choices',VIEW.LN

          LOCATE VAR IN CHOICES<1> SETTING NEW.IDX THEN
             NEW.VIEW = VN<1,NEW.IDX>
          END ELSE NEW.VIEW = VIEW

          IF NEW.VIEW#VIEW THEN
             IF VIEW#1 THEN
                WINDOW.CHILD.CLOSE
                END
             VIEW   = NEW.VIEW
             REDISP = YES
             SOE.VIEW.ALL.VIEW.SCR VIEW
          END ELSE REDISP = NO

          RETURN
!SMITJR~09/26/11~16:25
