Steve:
Here is a snippet of code that checks to see if there are part locations
defined, if not it notifies the user and exits the code; if locations exist
then it displays a list so the user can select (up to 30 in this case), if
the user does not select any or hits the ESC key the code exits, if one or
more locations are selected a report is printed for those locations. I hope
this is what you were looking for.
Javier,
COMPUTE vcount_loc AS COUNT Part_location FROM parts_file +
GROUP BY Part_location
IF vcount_loc < 1 THEN
CLS
PAUSE 2 USING 'Part Locations not Defined!' +
CAPTION 'System Message...' icon stop
SET VAR vresponse = NULL
GOTO Done
ENDIF
IF vcount_loc > 30 THEN
SET VAR vlines = 30
ELSE
SET VAR vlines = (.vcount_loc + 1 )
IF (vlines < 5) THEN
SET VAR vlines = 5
ENDIF
ENDIF
CLS
CHOOSE vloc_txt FOR #VALUES +
FOR DISTINCT ((LJS(Part_location,25))),(''''+Part_location+'''') +
FROM parts_file ORDER BY Part_location CHKBOX 30 +
TITLE 'Select up to 30 Locations...' +
CAPTION 'Location Selection...' LINES .vlines FORMATTED +
OPTION LIST_FONT_COLOR navy +
|list_back_color WHITE +
|title_font_color WHITE +
|title_back_color navy +
|window_back_color LIGHT GRAY +
|title_font_size 14 +
|title_font_name times new roman +
|window_caption +
|BUTTONS_SHOW_GLYPH ON +
|BUTTONS_BACK_COLOR LIGHT GRAY
IF vloc_txt IS NULL OR vloc_txt = '[Esc]' THEN
GOTO done
ENDIF
SET VAR vloc_txt = ( '(' + .vloc_txt + ')' )
PRINT parts_phys_inv WHERE Part_location IN &vloc_txt +
ORDER BY Part_location ASC, Part_no ASC +
OPTION SCREEN|Window_State MAXIMIZED
LABEL Done
-- CLEAR VARIABLES HERE
RETURN
Javier Valencia, PE
President
Valencia Technology Group, L.L.C.
14315 S. Twilight Ln, Suite #14
Olathe, Kansas 66062-4578
Office (913)829-0888
Fax (913)649-2904
Cell (913)915-3137
================================================
Attention:
The information contained in this message and or attachments is intended
only for the person or entity to which it is addressed and may contain
confidential and/or privileged material. Any review, retransmission,
dissemination or other use of, or taking of any action in reliance upon,
this information by persons or entities other than the intended recipient
is prohibited. If you received this in error, please contact the sender and
delete the material from all system and destroy all copies.
======================================================
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of Steve Breen
Sent: Tuesday, May 03, 2005 8:27 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Moving to next command sequence if a null or '0"
recored is returned into a variable or a result is not achieved
I am try to create a sequence of events where I create a list of data and
if there is no data I go to a dialaog box that states there is no data and
the go to finish.
I understand how to go to finish, but to a line of text or to a dialog box
and then to finish.
Any help is appreciated.
I have an idea of where I need to go but can't quite get there.
Steve
project deltable from master where breakdat = ?
Compute vDelPOn as count pon from DelTable
If vDelPOn is ? then go to ?
