[[https://www.revelation.com/|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]]


==== Changing Data Table in Window "on the fly" (AREV Specific) ====
=== At 25 JUL 2002 09:39:48AM Leon Shaffer wrote: ===
 
{{tag>"AREV Specific"}}
 
<QUOTE>
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.
</QUOTE>
----

=== At 25 JUL 2002 09:50AM [url=http://www.sprezzatura.com" onMouseOver=window.status= Click here to visit our web site?';return(true)]The Sprezzatura Group[/url] wrote:  ===

<QUOTE>How about



WINDOW MYWINDOW DATAFILE=MYDATAFILE



[url=http://www.sprezzatura.com" onMouseOver=window.status= Click here to visit our web site?';return(true)]The Sprezzatura Group[/url]

[i]World Leaders in all things RevSoft[/i]

[img]http://www.sprezzatura.com/zz.gif[/img]

</QUOTE>

----

=== At 26 JUL 2002 10:03AM C wrote:  ===

<QUOTE>

</QUOTE>

----

=== At 26 JUL 2002 01:09PM leonshaf wrote:  ===

<QUOTE>Yep...that worked great...Thank you...

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=NONWORKS_READ&SUMMARY=1&KEY=646427D37C8A6C2E85256C01004B0E2F|View this thread on the  forum...]]