123456789101112131415161718192021 |
- $PBExportHeader$f_get_dft_wp.srf
- global type f_get_dft_wp from function_object
- end type
- forward prototypes
- global function string f_get_dft_wp (long arg_mtrlid)
- end prototypes
- global function string f_get_dft_wp (long arg_mtrlid);String rst_wpcode
- SELECT wpcode INTO :rst_wpcode
- FROM u_mtrl_workprice
- WHERE mtrlid = :arg_mtrlid
- And ifdft = 1;
-
- IF sqlca.SQLCode <> 0 THEN rst_wpcode = ''
- RETURN rst_wpcode
- end function
|