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
