f_get_dft_wp.srf 431 B

123456789101112131415161718192021
  1. $PBExportHeader$f_get_dft_wp.srf
  2. global type f_get_dft_wp from function_object
  3. end type
  4. forward prototypes
  5. global function string f_get_dft_wp (long arg_mtrlid)
  6. end prototypes
  7. global function string f_get_dft_wp (long arg_mtrlid);String rst_wpcode
  8. SELECT wpcode INTO :rst_wpcode
  9. FROM u_mtrl_workprice
  10. WHERE mtrlid = :arg_mtrlid
  11. And ifdft = 1;
  12. IF sqlca.SQLCode <> 0 THEN rst_wpcode = ''
  13. RETURN rst_wpcode
  14. end function