| 1234567891011121314151617181920 |
- $PBExportHeader$f_get_itemcode.srf
- global type f_get_itemcode from function_object
- end type
- forward prototypes
- global function string f_get_itemcode (long arg_itemid)
- end prototypes
- global function string f_get_itemcode (long arg_itemid);String ls_itemcode
- //ls_itemcode = ''
- SELECT itemcode
- INTO :ls_itemcode
- From u_itemdef
- where itemid = :arg_itemid;
- IF sqlca.SQLCode <> 0 THEN ls_itemcode = ''
- RETURN ls_itemcode
- end function
|
