62 lines
1008 B
Plaintext
62 lines
1008 B
Plaintext
COMPILE FUNCTION obj_PR_Spec(Method,Parms)
|
|
/*
|
|
Methods for PR_Spec (Product Specification table
|
|
|
|
06/07/2004 JCH - Initial Coding
|
|
|
|
Properties:
|
|
|
|
Methods:
|
|
|
|
Find ;* Standardized lookup window
|
|
|
|
*/
|
|
|
|
|
|
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Dialog_Box
|
|
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Make.List
|
|
|
|
$INSERT MSG_EQUATES
|
|
$INSERT PR_SPEC_EQU
|
|
|
|
ErrTitle = 'Error in Stored Procedure "obj_PR_Spec"'
|
|
ErrorMsg = ''
|
|
|
|
IF NOT(ASSIGNED(Method)) THEN ErrorMsg = 'Unassigned parameter "Method" passed to subroutine'
|
|
IF NOT(ASSIGNED(Parms)) THEN Parms = ''
|
|
|
|
IF ErrorMsg NE '' THEN
|
|
Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
|
|
RETURN ''
|
|
END
|
|
|
|
Result = ''
|
|
|
|
BEGIN CASE
|
|
CASE Method = 'Find' ; GOSUB Find
|
|
|
|
CASE 1
|
|
|
|
END CASE
|
|
|
|
IF ErrorMsg NE '' THEN
|
|
Set_Status(-1,ErrTitle:@SVM:ErrorMsg)
|
|
RETURN ''
|
|
END
|
|
|
|
RETURN Result
|
|
|
|
|
|
* * * * * * *
|
|
Find:
|
|
* * * * * * *
|
|
|
|
|
|
Result = dialog_box( 'PRS_QUERY', @window, '' )
|
|
|
|
RETURN
|
|
|
|
|
|
|
|
|