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