f_get_itemname.srf 440 B

1234567891011121314151617181920
  1. $PBExportHeader$f_get_itemname.srf
  2. global type f_get_itemname from function_object
  3. end type
  4. forward prototypes
  5. global function string f_get_itemname (long arg_itemid)
  6. end prototypes
  7. global function string f_get_itemname (long arg_itemid);String ls_itemname
  8. //ls_itemname = ''
  9. SELECT itemname
  10. INTO :ls_itemname
  11. From u_itemdef
  12. where itemid = :arg_itemid;
  13. IF sqlca.SQLCode <> 0 THEN ls_itemname = ''
  14. RETURN ls_itemname
  15. end function