| 123456789101112131415161718192021222324252627282930313233343536373839404142 |
- $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
|
