J.M. -
Thanks for the response. Sometimes it works, sometimes it doesn't.
I haven't been able to figure out why. Everytime I try to set up an example
where it won't work, it works; however, in several legacy applications it
doesn't work. Too wierd. I'm beginning to think that it doesn't work on
reports converted from DOS applications but I haven't had time to test that
hypothesis yet.
Bernie
=======================================
At 05:10 PM 1/12/2002 -0500, you wrote:
>
>Bernie :
>
>>>
>Does anyone know how I get the keypress help message to appear at the
>bottom
>of the screen when I'm printing to the screen out of a command file? It is
>always there when I do a PRINT reportname to the screen from the R> prompt
>but disappears when I perform the same action out of a command file.
>....
> I should have added the modifier "sometimes". The message appears
>properly when the print command is issued out of some, but not all, command
>files. I'm searching for what causes the difference.
><<
>
>I have the same problem and I think I did report it to RDCC as a bug ....
>but they were not able to duplicate it.
>
>It is still here (1.842xRT03).
>Most of the time, status bar is empty, but from time to time it works
>correctly.
>
>I never found the reason ....
>
>I don't play with RBTI_NOSTATUS and MICRORIM_NOSTATUS variables.
>
>I did try to set it on and clear ... no difference ....
>
>We must both to something forbidden or simply unusual ...
>
>All my reports are printed thru the same command file that receive the
>report's name in %1 :
>
>
>$COMMAND
>imprime
>
>SET ERROR VAR verr
>
>SET VAR vTEXT TEXT = NULL
>SET VAR vINT INTEGER = 1
>SET VAR vcaption TEXT = NULL
>
>SET VAR vLnbex INTEGER = 1
>SET VAR vLnbexMax INTEGER = 1
>SET VAR vLprint TEXT = NULL
>SET VAR vLtext TEXT
>SET VAR vLchoix TEXT
>
>SET VAR vLprint = .%1
>SET VAR vcaption = .%2
>CLEAR VAR __-_
>
>LABEL boucle
>SET var VTEXT = ('(1) Affichage � l''�cran,' +
> + '(2) Impression sur l''imprimante par d�faut,' +
> + '(3) Choix de l''imprimante par d�faut,' +
> + '(4) Quitte')
>CHOOSE vTEXT FROM #LIST .vTEXT AT 20 25 +
>TITLE 'Faites votre choix :' CAPTION .vcaption LINES 4
>IF vTEXT <> '[Esc]' THEN
> SET var vTEXT = (SGET(.vTEXT, 1, 2))
>ENDIF
>
>SWITCH (.vTEXT)
>
> CASE '1' -- Affichage �cran
> -- Print onto the screen
> SET VAR vLtext = ('Travail en cours .... PATIENTEZ S.V.P ....')
> PAUSE 3 USING .vLtext=45 CAPTION .vcaption AT CENTER CENTER
> SET delimit=NULL
> SET delimit='|'
> SET VAR vLtext = (SSUB(.vLprint| .vINT))
> SET delimit=NULL
> SET delimit=','
> WHILE vLtext IS NOT NULL THEN
> -- Boucle si �dition chain�e de plusieurs �tats
> PRINT &vLtext
> SET VAR vINT = (.vINT + 1)
> SET delimit=NULL
> SET delimit='|'
> SET VAR vLtext = (SSUB(.vLprint| .vINT))
> SET delimit=NULL
> SET delimit=','
> ENDWHILE
> CLS
> BREAK
> CASE '2' -- Impression
> -- Print on the current printer
> BREAK
> CASE '3' -- Choix imprimante
> -- Change the current printer
> PRNSETUP
> BREAK
> CASE '[Esc]'
> CASE '4' -- Sortie
> BREAK
>
>ENDSW
>IF vTEXT = '3' THEN
> -- Si 3 (PRNSETUP), on renvoie le menu pour impression
> GOTO boucle
>ENDIF
>SET var vINT = (INT(.vTEXT))
>CLEAR VAR vL%
>RETURN
>
>
>J.M. GRATIAS, Logimatique, France
>================================================
>TO SEE MESSAGE POSTING GUIDELINES:
>Send a plain text email to [EMAIL PROTECTED]
>In the message body, put just two words: INTRO rbase-l
>================================================
>TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
>In the message body, put just two words: UNSUBSCRIBE rbase-l
>
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
