In a message dated 3/18/2002 10:01:21 AM Eastern Standard Time,
[EMAIL PROTECTED] writes:
<< Is this correct?
>>
Jim, Yes it is. I'll add a segment of code since I'm here at the shop, and
have it at my fingertips <g>
*(SCust1.wcm)
*(Command File for Customer Menu
Version 1, created 11-08-01
Rev 1 01-04-2002
1 - Modified balance of command files to run all selections
2 - Added Set Mess, Error Mess off and on at beginning and
end of command file
)
Set Messages off ; Set Error Messages Off
clear var vSel021
set var vSel021 inte
set var vSel021 = 99
edit using CustInfo1
Switch vSel021
Case 1
Run CustAd1.wcm
quit to SCust1.wcm
break
Case 2
Run CustEd1.wcm
Quit to SCust1.wcm
break
Case 3
Run CustPrt1.wcm
Quit to SCust1.wcm
break
Case 4
Run Buyerad1.wcm
Quit to SCust1.wcm
break
Case 5
Run BuyerEd1.wcm
Quit to SCust1.wcm
break
Case 6
Run BuyrPrt1.wcm
Quit to SCust1.wcm
break
Case 7
Run AddVend1.wcm
Quit to SCust1.wcm
break
Case 8
Run EdVend1.WCM
Quit to SCust1.wcm
break
Case 9
Run VendPrt1.wcm
Quit to SCust1.wcm
break
Case 10
Run RouteAd1.wcm
Quit to SCust1.wcm
break
Case 11
Run RouteEd1.wcm
Quit to SCust1.wcm
break
Case 12
Run RoutPrt1.wcm
Quit to SCust1.wcm
break
Case 13
Run AdExpRt1.wcm
Quit to SCust1.wcm
break
Case 14
Run EdExpRt1.wcm
Quit to SCust1.wcm
break
Case 15
Run ExpRtPrt.WCM
Quit to SCust1.wcm
break
Case 99
cd ..
set messages off ; set error messages off
Quit to SMain1.wcm
break
Default
quit to SCust1.wcm
break
EndSW
Return
This is an ugly piece of code, but that's the only kind I write <g>
The form CustInfo1 is the form I use to set the var vSel021, which is the
variable that chooses which command file to run, then it quits to the calling
file at the end of the command file execution. The Case 99 quits back to the
main menu application, which is SMain1.wcm.
I don't know how pretty it is, but it does work well, and consistantly, which
is all it needs.
Damon
Damon D. Kaufman
President
Stalder Spring Works, Inc
ISO-9002 / QS-9000 Certified
2345 S. Yellow Springs St.
Springfield, Ohio 45506
Voice 937-322-6120
Fax 937-322-2126
email: [EMAIL PROTECTED]
================================================
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/
