FXApp/ws_objects/l1_uo.pbl.src/f_inwaremx_clfp.srf

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

forward prototypes
global function integer f_inwaremx_clfp (long arg_scid, long arg_inwareid, ref string arg_msg)
end prototypes

global function integer f_inwaremx_clfp (long arg_scid, long arg_inwareid, ref string arg_msg);if sys_option_use_clfp = 0 then return 1 

Int rslt = 1
Long ll_i
Long ll_mtrlid

uo_bgtr_timer uo_bgtr
uo_bgtr = Create uo_bgtr_timer

datastore ds_inwaremx
ds_inwaremx = Create datastore
ds_inwaremx.DataObject = 'ds_inwaremx_clfp'
ds_inwaremx.SetTransObject(sqlca)

ds_inwaremx.Retrieve(arg_scid,arg_inwareid)

FOR ll_i = 1 To ds_inwaremx.RowCount()
	ll_mtrlid = ds_inwaremx.Object.mtrlid[ll_i]
	
	IF uo_bgtr.uf_reallocqty_for_order_by_mtrlid(ll_mtrlid,2,arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
NEXT

ext:
Destroy uo_bgtr
Destroy ds_inwaremx
RETURN rslt


end function