home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Current Shareware 1994 January
/
SHAR194.ISO
/
catalogs
/
djdemo12.zip
/
DJDEM12.ZIP
/
FDANCE
< prev
next >
Wrap
Text File
|
1993-01-03
|
3KB
|
131 lines
Proc SubParts()
ClearAll
Clear
@11,10??"Please enter Part Number "
Accept "A15"
Picture "*!"
To Part
Message " Searching for Part #: ",Part
EMPTY "Sub_Tmp"
Query
Sub | Description | Main Part # | Sub 1 | Sub 2 | Sub 3 | Sub 4 |
| Check | Check ..~Part.. | Check | Check | Check | Check |
Sub | Sub 5 |
| Check |
Endquery
Do_It!
If Not (IsEmpty("Answer"))
Then ADD "Answer" "sub_tmp" Empty "Answer"
EndIf
ClearImage
Message "Pass #2"
Query
Sub | Description | Main Part # | Sub 1 | Sub 2 | Sub 3 | Sub 4 |
| Check | Check | Check ..~Part.. | Check | Check | Check |
Sub | Sub 5 |
| Check |
Endquery
Do_It!
If Not (IsEmpty("Answer"))
Then ADD "Answer" "sub_tmp" Empty "Answer"
EndIf
ClearImage
Message "Pass #3"
Query
Sub | Description | Main Part # | Sub 1 | Sub 2 | Sub 3 | Sub 4 |
| Check | Check | Check | Check ..~Part.. | Check | Check |
Sub | Sub 5 |
| Check |
Endquery
Do_It!
If Not (IsEmpty("Answer"))
Then ADD "Answer" "sub_tmp" Empty "Answer"
EndIf
ClearImage
Message "Pass #4"
Query
Sub | Description | Main Part # | Sub 1 | Sub 2 | Sub 3 | Sub 4 |
| Check | Check | Check | Check | Check ..~Part.. | Check |
Sub | Sub 5 |
| Check |
Endquery
Do_It!
If Not (IsEmpty("Answer"))
Then ADD "Answer" "sub_tmp" Empty "Answer"
EndIf
ClearImage
Message "Pass #5"
Query
Sub | Description | Main Part # | Sub 1 | Sub 2 | Sub 3 | Sub 4 |
| Check | Check | Check | Check | Check | Check ..~Part.. |
Sub | Sub 5 |
| Check |
Endquery
Do_It!
If Not (IsEmpty("Answer"))
Then ADD "Answer" "sub_tmp" Empty "Answer"
EndIf
ClearImage
Message "Final Pass..."
Query
Sub | Description | Main Part # | Sub 1 | Sub 2 | Sub 3 | Sub 4 |
| Check | Check | Check | Check | Check | Check |
Sub | Sub 5 |
| Check ..~Part.. |
Endquery
Do_It!
If Not (IsEmpty("Answer"))
Then ADD "Answer" "sub_tmp" Empty "Answer"
EndIf
If (IsEmpty("Sub_Tmp"))
Then Message "No Records Exist...." Sleep 2000 Main_Men()
Else View "Sub_Tmp" PickForm 1
Wait Table
Message "Press F2 or ESC when done viewing.."
Until "F2","ESC"
EndIf
ClearImage
Clear
Empty "Sub_Tmp"
Main_Men()
EndProc
;**************************************************************************