SET KEYMAP [F1] = [Enter]
Tom Grimshaw <[EMAIL PROTECTED]> 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/
>
__________________________________________________________________
Your favorite stores, helpful shopping tools and great gift ideas. Experience the
convenience of buying online with Shop@Netscape! http://shopnow.netscape.com/
Get your own FREE, personal Netscape Mail account today at http://webmail.netscape.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/
