Changing Data Table in Window "on the fly" (AREV Specific) [Revelation On-Line Wiki]

Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community

At 25 JUL 2002 09:39:48AM Leon Shaffer wrote:

AREV Specific

Situation: - AREV v3.12
           Multiple "monthly" tables - i.e.
                                       Inventory_Jan02
                                       Inventory_Feb02
                                       Inventory_Mar02
           One Window called INVENTORYME
           listed on Menu to access data
           for "monthly" tables
AREV Code when selecting the Inventory Month End option in
   the menu - Menu code - "S" - command - IMECSU
   Program/subroutine - IMECSU
   Note - multiple people on network, so utilize window for
   each user so multiple people could use multiple tables at
   the same time
EXPENDABLE SUBROUTINE IMECSU

DECLARE SUBROUTINE MSG

IMAGE='

OPEN 'WINDOWS' TO WINF ELSE MSG('FILERROR',,,'WINDOWS') ; STOP

UN=@USERNAME

NWID=UN:'IMETEST'

COMMAND=COPYROW WINDOWS IMETEST TO:(WINDOWS ':NWID

READ REC FROM WINF,NWID ELSE
PERFORM COMMAND
READ REC FROM WINF,NWID ELSE
  MSG('READ.RECORD.ERROR','A','',NWID:@FM:'WINDOWS')
  RETURN
END
END

FNL=REC

CFN=FIELD(FNL,CHAR(247),2)

@PSEUDO='

@PSEUDO=CFN

@RECORD=CFN

CALL CATALYST('W','IMETN_COLLECTOR')

NFN=@PSEUDO

SWAP CFN WITH NFN IN FNL

REC=FNL

WRITE REC TO WINF,NWID

CLEARSELECT

GARBAGECOLLECT

CALL CATALYST('W',NWID)

Problem: - Will not utilize specified table when
         acessing Window - always uses the previously
         specified table per user  until the user
         exits AREV, then re-enters AREV.
Comments: - I suspect it is because of caching windows
          with associated table names when menus are
          loaded, but have not found a way around this.
Any help is greatly appreciated.