Dear All,
I am trying to implement the F2 help on field.
below is the code i am using for browse.
DEFINE QUERY valq FOR pm_groupcat FIELDS (catvalid),
pm_catval FIELDS (catvalid description)
scrolling.
DEFINE browse valb QUERY valq
DISPLAY
pm_catval.catvalid
pm_catval.description
ENABLE pm_catval.catvalid
WITH 10 DOWN
separators
TITLE "Attribute Value List".
DEFINE FRAME vallist
valb
WITH side-labels CENTERED no-box.
FORMAT
pm_catatt.description LABEL "Attribute" AT 2
pm_catdata.catvalid LABEL "Value" COLON 35
WITH FRAME det2 DOWN.
ON end-error OF pm_catval.catvalid
DO:
DISPLAY
pm_catval.description
pm_catdata.catvalid
WITH FRAME det2 DOWN.
RETURN.
END.
ON GO OF pm_catval.catvalid
DO:
ASSIGN pm_catdata.catvalid = pm_catval.catvalid.
ENABLE pm_catdata.catvalid WITH FRAME det2.
DISPLAY
pm_catval.description
pm_catdata.catvalid
WITH FRAME det2 DOWN.
END.
ON HELP OF pm_catdata.catvalid
DO:
OPEN QUERY valq
FOR EACH pm_groupcat WHERE pm_groupcat.groupcat_domain = global_domain and
pm_groupcat.famid = family AND
pm_groupcat.prodid = product AND
pm_groupcat.cattid = pm_catdata.cattid,
EACH pm_catval WHERE pm_catval.cattid = pm_groupcat.cattid AND
pm_catval.catvalid = pm_groupcat.catvalid.
GET FIRST valq.
DO WHILE NOT AVAILABLE(pm_groupcat):
MESSAGE "No Data to Choose From F2".
RETURN.
END. /* DO WHILE NOT AVAILABLE(pm_groupcat) */
DO WHILE AVAILABLE (pm_groupcat):
ENABLE ALL WITH FRAME vallist.
WAIT-FOR end-error OF FRAME vallist OR
GO OF FRAME vallist.
RETURN.
GET NEXT valq.
END. /* DO WHILE AVAILABLE(pm_groupcat) */
END. /* ON HELP OF pm_catdata.catvalid */
wheni press F2 i am getting the following message with data..
**FRAME is not a queryable attribute for FILL-IN Catvalid. (4052)
Please guide me..
Thanks in advance...
Pavan
I am trying to implement the F2 help on field.
below is the code i am using for browse.
DEFINE QUERY valq FOR pm_groupcat FIELDS (catvalid),
pm_catval FIELDS (catvalid description)
scrolling.
DEFINE browse valb QUERY valq
DISPLAY
pm_catval.catvalid
pm_catval.description
ENABLE pm_catval.catvalid
WITH 10 DOWN
separators
TITLE "Attribute Value List".
DEFINE FRAME vallist
valb
WITH side-labels CENTERED no-box.
FORMAT
pm_catatt.description LABEL "Attribute" AT 2
pm_catdata.catvalid LABEL "Value" COLON 35
WITH FRAME det2 DOWN.
ON end-error OF pm_catval.catvalid
DO:
DISPLAY
pm_catval.description
pm_catdata.catvalid
WITH FRAME det2 DOWN.
RETURN.
END.
ON GO OF pm_catval.catvalid
DO:
ASSIGN pm_catdata.catvalid = pm_catval.catvalid.
ENABLE pm_catdata.catvalid WITH FRAME det2.
DISPLAY
pm_catval.description
pm_catdata.catvalid
WITH FRAME det2 DOWN.
END.
ON HELP OF pm_catdata.catvalid
DO:
OPEN QUERY valq
FOR EACH pm_groupcat WHERE pm_groupcat.groupcat_domain = global_domain and
pm_groupcat.famid = family AND
pm_groupcat.prodid = product AND
pm_groupcat.cattid = pm_catdata.cattid,
EACH pm_catval WHERE pm_catval.cattid = pm_groupcat.cattid AND
pm_catval.catvalid = pm_groupcat.catvalid.
GET FIRST valq.
DO WHILE NOT AVAILABLE(pm_groupcat):
MESSAGE "No Data to Choose From F2".
RETURN.
END. /* DO WHILE NOT AVAILABLE(pm_groupcat) */
DO WHILE AVAILABLE (pm_groupcat):
ENABLE ALL WITH FRAME vallist.
WAIT-FOR end-error OF FRAME vallist OR
GO OF FRAME vallist.
RETURN.
GET NEXT valq.
END. /* DO WHILE AVAILABLE(pm_groupcat) */
END. /* ON HELP OF pm_catdata.catvalid */
wheni press F2 i am getting the following message with data..
**FRAME is not a queryable attribute for FILL-IN Catvalid. (4052)
Please guide me..
Thanks in advance...
Pavan