Daniele,

 

I have a standalone button in my application that performs the tasks that
you describe.  Since you have already developed this nice routine I think I
will add it to the form if it is OK with you.  I will give you credit in the
documation.

Thanks for sharing your enhancement. 

 

John

 

From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Daniele
Barbieri
Sent: Thursday, June 26, 2008 6:47 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - RE: Simulate R> command in Runtime 7.6

 

Hello John

your form work ok for the command like EDIT ALL.....etc.

but don't work for the other useful command like LIST, SHOW VAR... because,
I thilk, the screen are not in that moment a valid output device.

 

Then I take YOUR IDEA and the Adrian Hussey IDEA to do a little program (see
below):

 

1) The output of command are directed to a TXT file

2) If the commands are like EDIT ALL.... etc.....the TXT file is empty

3) If the commands are like LIST, SHOW VAR... etc....the TXT file contain
the command result.

4) The program test the lenght of the TXT files and if lenght is > 1 then
....LAUNCH filename.TXT  that call the window notepad.

And 'voilĂ ' you can see the result of your LIST command.

5) If the lenght of TXT file is = 1 (empty) the program goto start

 

Daniele

 

-- THIS IS MY COMMAND.RMD  R> -----
LABEL START

   --table to test the lenght of txt file
   DROP TABLE RUNOUT
   CREATE TABLE RUNOUT THEFIRST TEXT 10,THESECOND TEXT 6,THETIRD INTEGER
   -- your form containning commandstring variable
   -- and pushbotton to exit

   CLEAR VAR COMMANDSTRING ; SET VAR COMMANDSTRING TEXT
   EDIT USING COMMANDR
   IF COMMANDSTRING FAILS OR COMMANDSTRING='END' THEN
      GOTO THEEND
   ENDIF

   --send output to runout.txt file
   OUTPUT RUNOUT.TXT
   &COMMANDSTRING

   --load runout table to test the lenght of txt file
   OUTPUT RUNOUT.DAT
   DIR RUNOUT.TXT
   OUTPUT SCREEN
   LOAD RUNOUT FROM RUNOUT.DAT ; FILL
   CLEAR VAR LENGHT ; SET VAR LENGHT INTEGER
   SET VAR LENGHT=THETIRD IN RUNOUT
   --test the lenght of txt file

   IF LENGHT > 1 THEN
      LAUNCH RUNOUT.TXT
      GOTO START
   ELSE
      GOTO START
   ENDIF
LABEL THEEND
RETURN

 

----- Original Message ----- 

From: John Engwer <mailto:[EMAIL PROTECTED]>  

To: RBASE-L Mailing List <mailto:[email protected]>  

Sent: Thursday, June 26, 2008 5:47 AM

Subject: [RBASE-L] - RE: Simulate R> command in Runtime 7.6

 

Larry, yes when you are ready I would like to see what you have done.  I
have used my R> Emulator for quite a while to  support my compiled vertical
applications.  Many times I have thought about enhancing it but other
projects take priority.  There are not enough hours in a day.

 

John

 

From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Lawrence
Lustig
Sent: Wednesday, June 25, 2008 1:17 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - RE: Simulate R> command in Runtime 7.6

 

<< 

It also has a command line that works like the R>.  You can type a command
such as EDIT ALL FROM INVOICE and it will perform the command.  The R> is a
simple custom EEP property.  

>>

John -- I have a similar form which also displays the command results (like
LIST) in an output console and has built in user-specific history across
sessions.  I'm still tinkering with a couple of things but I'd be happy to
share.
--
Larry

Reply via email to