Automatic Refresh Inventory Monitor screen
PAUL DIACONESCU
paul_diaconescu@hotmail.com
Tue, 22 Jun 2004 13:47:49 -0400
I send you the complete code (a test screen) where the automatic refresh
works.
If you want to stop the automatic refresh, you hit any letter on your
keyboard, and the program
prompts you for another find (request on path procedure)
paul
SCRE BOUCLEF ACTIVITIES FIND
TEMP T-FIND CHAR*1 RESET AT STARTUP
TEMP T-COMM CHAR*160
TEMP T-USINE CHAR*2 RESET AT STARTUP
FILE USINES PRIMARY
ACCESS VIA USINE-COURS USING T-USINE &
REQUEST T-USINE
FIELD T-USINE
FIELD NOM-USINE DISPLAY
FIELD TELEPHONE DISPLAY
PROCEDURE POSTFIND
BEGIN
INFO = " " NOW
PUSH DESIGNER SUITE
END
PROCEDURE PATH
BEGIN
IF T-USINE = ''
THEN REQUEST T-USINE
ELSE BEGIN
LET T-COMM = 'SETVAR FIND,""'
RUN COMMAND T-COMM
LET T-COMM = 'INPUT FIND;WAIT=5'
RUN COMMAND T-COMM NOWARN ON ERROR CONTINUE
LET T-FIND = GETSYSTEMVAL("FIND")
IF T-FIND <> ''
THEN REQUEST T-USINE
END
END
PROCEDURE FIND
BEGIN
GET USINES VIAINDEX USINE-COURS VIA USINE-COURS &
USING T-USINE
END
PROCEDURE DESIGNER SUITE
BEGIN
INFO = " " NOW
PUSH FIND
END
>From: "PAUL DIACONESCU" <paul_diaconescu@hotmail.com>
>To: PICKERIJ@norbord.com, powerh-l@lists.sowder.com
>Subject: RE: Automatic Refresh Inventory Monitor screen
>Date: Tue, 22 Jun 2004 13:28:12 -0400
>
>It works in powerhouse (hp3000 mpe), but once you want to test it in
>Axiant, it's true, it loops.
>
>I will reformulate my question.
>
>Is it any other way to do an automatic screen refresh every XX seconds,
>without any user interaction.
>The only methode we found, it's the one in have in the code attached here.
>But it's only working in Powerhouse, not in Axiant.
>Any idea of other methodes ?
>
>paul
>
>
>>From: "Pickering, John (NORBORD)" <PICKERIJ@norbord.com>
>>To: 'PAUL DIACONESCU' <paul_diaconescu@hotmail.com>
>>Subject: RE: Automatic Refresh Inventory Monitor screen Date: Tue, 22 Jun
>>2004 12:12:12 -0400
>>
>>Paul
>>
>>OK, I give up :-)
>>
>>I read your code below and I couldn't figure out how the user ever regains
>>control of the screen once the find loop starts. So I copied and pasted
>>and
>>built a screen using your stuff below. And the only way I could get out of
>>the screen was with the break key. So what am I missing?
>>
>>Regards,
>>JWP
>>
>>-----Original Message-----
>>From: PAUL DIACONESCU [mailto:paul_diaconescu@hotmail.com]
>>Sent: Tuesday, June 22, 2004 10:30 AM
>>To: powerh-l@lists.sowder.com
>>Cc: BACHANDY@BOWATER.COM
>>Subject: Automatic Refresh Inventory Monitor screen
>>
>>
>>Environment : HP3000e
>>OS : MPE/X
>>Database : IMAGE
>>Powerhouse : 8.39D
>>Axiant : 3.1.1388
>>
>>Case description : Need to develop an inventory monitor screen in a 'thin
>>topology' environment using Axiant. This screen will be used by our
>>salestaff completing all sales via the telephone. It should display an
>>item
>>
>>stock inventory and should refresh the data automatically and continuously
>>(to prevent an out of stock sale). This automatic display could last for
>>hours if required but could be stopped in order to monitor a different
>>product.
>>
>>Functionality (example) :
>>1) the screen must first FIND an inventory product to display quantities
>>per
>>
>>mills
>>2) the data must be refreshed automatically (based on a predetermined
>>delay)
>>
>>requiring no user keyboard interaction
>>3) an item change must be allowed at any time by the user since the
>>salesman
>>
>>might need to monitor a different product
>>
>>Issue : The following HP Powerhouse programming lines gave us a
>>continuous
>>
>>screen refresh on our HP server but when used through AXIANT, our keyboard
>>inputs are totally ignored + the automatic refresh gets out of control.
>>The
>>
>>HP daemon (NETD : program that listens to the PC's requests and acts as a
>>link to HP Powerhouse environment) does not react very well to those
>>lines.
>>
>>----------------------------------------------------------------------------
>>--------------------------------
>>PROCEDURE PATH
>>BEGIN
>> IF T-USINE = '' "
>> THEN REQUEST T-USINE
>> ELSE BEGIN
>> LET T-COMM = 'SETVAR ZFIND,""'
>> RUN COMMAND T-COMM
>> LET T-COMM = 'INPUT ZFIND WAIT=30'
>> RUN COMMAND T-COMM NOWARN ON ERROR CONTINUE
>> LET T-FIND = GETSYSTEMVAL("ZFIND")
>> IF T-FIND <> '' "
>> THEN REQUEST T-USINE
>> END
>>END
>>
>>PROCEDURE FIND
>>BEGIN
>> GET USINES VIAINDEX USINE-COURS VIA USINE-COURS USING T-USINE
>>END
>>
>>PROCEDURE POSTFIND
>>BEGIN
>> INFORMATION = " " NOW
>> PUSH DESIGNER SUITE
>>END
>>
>>PROCEDURE DESIGNER SUITE
>>BEGIN
>> INFORMATION = " " NOW
>> PUSH FIND
>>END
>>----------------------------------------------------------------------------
>>--------------------------------
>>
>>Anyone with any ideas on this case ?
>>
>>_________________________________________________________________
>>MSN Messenger : discutez en direct avec vos amis !
>>http://messenger.fr.msn.ca/
>>
>>= = = = = = = = = = = = = = = = = = = = = = = = = = = =
>>Mailing list: powerh-l@lists.sowder.com
>>Subscribe: "subscribe" in message body to
>>powerh-l-request@lists.sowder.com
>>Unsubscribe: "unsubscribe <password>" in message body to
>>powerh-l-request@lists.sowder.com
>>http://lists.sowder.com/mailman/listinfo/powerh-l
>>This list is closed, thus to post to the list you must be a subscriber.
>
>_________________________________________________________________
>MSN Search, le moteur de recherche qui pense comme vous !
>http://fr.ca.search.msn.com/
>
>= = = = = = = = = = = = = = = = = = = = = = = = = = = =
>Mailing list: powerh-l@lists.sowder.com
>Subscribe: "subscribe" in message body to powerh-l-request@lists.sowder.com
>Unsubscribe: "unsubscribe <password>" in message body to
>powerh-l-request@lists.sowder.com
>http://lists.sowder.com/mailman/listinfo/powerh-l
>This list is closed, thus to post to the list you must be a subscriber.
_________________________________________________________________
MSN Messenger : discutez en direct avec vos amis !
http://messenger.fr.msn.ca/