G'day Troy,
At 08:30 29/04/02 -0600, you wrote:
>You should also test for vChooseVar = 'Help'.
>The F1 key will always return the values 'Help'.
I liked that idea so I just tested it and [F1] does not close
or terminate the CHOOSE, therefore cannot be tested for. Here
is the code, is there something I have coded incorrectly?
IF vMSPChoice CONTAINS 'ChargeMult1' THEN
SELECT (COUNT(DISTINCT ChargeMult1)) INTO +
vCount IND vi1 +
FROM HoursWorkedLog
IF vCount = 0 THEN
SET VAR vScreenMsg TEXT = 'No values entered.'
RUN ScrMsg1S IN GlobBlok.apx
RUN ChckQuit IN GlobBlok.apx
IF vScrnMsgChoice = 'N' THEN
GOTO EndLAll
ELSE
GOTO LEndCM1
ENDIF
ENDIF
LABEL LBegCM1
SET VAR vCharMult1 TEXT = NULL
CHOOSE vCharMult1 +
FROM #VALUES +
FOR DISTINCT ChargeMult1 +
FROM HoursWorkedLog +
AT 5,45 +
TITLE 'Charge Rate at Rate 1' +
CAPTION 'Charge Rate for hours at Rate 1' +
LINES .vCount
IF vCharMult1 = 'Help' THEN
SET VAR vScreenMsg TEXT = 'These are the values entered to determine+
the charge rate for the hours entered for rate 1.'
RUN ScrnMsg2 IN GlobBlok.apx
GOTO LBegCM1
ENDIF
IF vCharMult1 IS NULL OR vCharMult1 = '[Esc]' THEN
RUN ChckQuit IN GlobBlok.apx
IF vScrnMsgChoice = 'N' THEN
GOTO EndLAll
ENDIF
ELSE
SET VAR vCharMult1 DOUBLE
SET VAR vWhereAdd TEXT = ('ChargeMult1 = ' + (CTXT(.vCharMult1)))
RUN BrwsAddW IN GlobBlok.apx
ENDIF
LABEL LEndCM1
ENDIF
Warmest regards,
Tom Grimshaw
coy: Just For You Software
tel: 612 9552 3311
fax: 612 9566 2164
mobile: 0414 675 903
post: PO Box 470 Glebe NSW 2037 Australia
street: 3/66 Wentworth Park Rd Glebe NSW 2037
email: [EMAIL PROTECTED]
web: www.just4usoftware.com.au
the most needed product in the world can be found at
www.thewaytohappiness.org
This email and any files transmitted with it are confidential to the
intended recipient and may be privileged. If you have received this email
inadvertently or you are not the intended recipient, you may not
disseminate, distribute, copy or in any way rely on it. Further, you should
notify the sender immediately and delete the email from your computer.
Whilst we have taken precautions to alert us to the presence of computer
viruses, we cannot guarantee that this email and any files transmitted with
it are free from such viruses.
================================================
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 SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
