Q5/ws_objects/Ew_mrp.pbl.src/f_get_dft_pf.srf

$PBExportHeader$f_get_dft_pf.srf
global type f_get_dft_pf from function_object
end type

forward prototypes
global function string f_get_dft_pf (long arg_mtrlid)
end prototypes

global function string f_get_dft_pf (long arg_mtrlid);string rst_pfcode

select pfcode into :rst_pfcode
from u_mtrl_pf
where mtrlid = :arg_mtrlid
and ifdi = 0
and ifdft = 1;

if sqlca.sqlcode <> 0 then rst_pfcode = ''

return rst_pfcode
end function