In DOS versions [F1] produces 'Help' in the CHOOSE return variable. In the
Windows versions it does not.
At 11:38 AM 4/30/2002 -0700, you wrote:
>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/
>
================================================
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/
