Q5/ws_objects/Ew_bsnobj.pbl.src/f_get_newplancode.srf

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

forward prototypes
global function string f_get_newplancode (long arg_storageid)
end prototypes

global function string f_get_newplancode (long arg_storageid);int li_if_plancode, li_inwaretype
string ls_plancode, ls_plancodeFM

SELECT if_plancode, inwaretype, plancodeFM
into :li_if_plancode, :li_inwaretype, :ls_plancodeFM
FROM u_storage
where storageid = :arg_storageid;
if sqlca.sqlcode <> 0 then 
	li_if_plancode = 0
	li_inwaretype = 0
	ls_plancodeFM = ''
end if

if li_if_plancode = 1 and li_inwaretype = 4 then 
	ls_plancode = string(today(), ls_plancodeFM)
else
	ls_plancode = ''
end if

return ls_plancode

end function