Automatic Refresh Inventory Monitor screen

[PAUL DIACONESCU]

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/