Create a routine named: WEB.MODITEM.PARAMS
Input Params: PART.NBR, CONTACT.NBR, BILLTO.NBR, COMPANY.ID
Purpose: Fill the SHOP. variables with the contents of the corresponding MOD.ITMMST.USR record. For each field you set the shop. variable for, add its name to the FIELD.NAME array.
In RPC$SEARCHFIELD_GETDEFAULTVALUES @ line 50 IF PART.NBR[1,3] = “MOD” call WEB.MODITEM.PARAMS then goto WEB.USER.
In PRODUCTITEM.READ after we establish that we are dealing with a MOD item (around line 20) add an Else to the IF QUOTE.NBR statement on line 42 that will call WEB.MODITEM.PARAMS if the QUOTE.NBR is "".