Role Concept

Displaying Error Messages that May Occur When Standard Items Are Copied

The user USER1 is permitted to copy items when logged into the system owing to his or her assignment to a job function. This access privilege does not apply to standard parts (which can be identified in this example by their STD prefix). If the user tries to copy a standard part, the LogiView procedure CUS_TASK/ItemCopy generates an error message unless the user USER1 has also been assigned to the group STANDARD (which you may have to create first).
In the logic model CUS_TASK, create the ItemCopy procedure with the following parameters:
 

Variables of the procedure

EP_COUNT I 0 0

EP_ALL_OKAY L 

EP_PART_ID  S Item identifier
 
LogiView Procedure CUS_TASK/ItemCopy



10 C -- Get the ID of the item to be copied 

20 EP_PART_ID = sel_string("T_MASTER_DAT.PART_ID",actual)

30 C -- If the item is a standard item (prefix STD), then

40 C -- it may only be copied by members of group DEVELOPMENT.

50 if (strpart(EP_PART_ID,1,3)== "STD")

60     EP_COUNT = sel_value(count("T_GRP_USR.C_ID"),

                         "T_GROUP.C_NAME"="STANDARD"& 

                          "C_ID_1"=:"T_GROUP.C_ID"&

                          "C_ID_2"=:"T_USER.C_ID"&

                          "T_USER.C_NAME"=user()) 

70         if (EP_COUNT == 0) 

80            put("A standard item can only be copied by members 

                   of group STANDARD.") 

90            C -- Return with 'exit' to generate an error 

100           exit()        

110        endif 

120 endif
LogiView Documentation