Q5/ws_objects/Ew_ljfieb.pbl.src/f_find_mtrl_ljfieb.srf

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

forward prototypes
global function integer f_find_mtrl_ljfieb (string arg_mtrlcode, long arg_storageid, ref s_mtrldef_array arg_s_mtrldef)
global function integer f_find_mtrl_ljfieb (string arg_mtrlcode, ref s_mtrldef_array arg_s_mtrldef)
end prototypes

global function integer f_find_mtrl_ljfieb (string arg_mtrlcode, long arg_storageid, ref s_mtrldef_array arg_s_mtrldef);Int rslt = 1
//Long cnt = 0
//
//String ls_like_mtrlcode
//String ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode,ls_mtrltype
//String ls_mtrlsectype,ls_zxmtrlmode,ls_mtrlengname
//String ls_unit_buy,ls_dscrp
//Long ll_mtrlid
//String ls_prdpackcode
//Decimal ld_packqty,ld_planprice,ld_lmbuyprice,ld_lmsaleprice
//Decimal ld_rate_buy,ld_mprice
//Int li_mtrlorigin,li_mtrlkind
//Int li_statusflag,li_woodcodeflag,li_pcodeflag
//Long ll_statustype,ll_woodcodetype,ll_pcodetype
//Decimal ld_mtrlarea,ld_mtrlarea1,ld_mtrlarea2
//Decimal ld_minbuyqty
//Decimal ld_net_weight,ld_gross_weight,ld_cubage
//Decimal ld_scidprice
//Decimal ld_orderdays,ld_buydays,ld_wfjgdays,ld_aheaddays
//Int li_ifunit
//Long ll_configcodetype
//String ls_configcode,ls_configname,ls_mtrlcolor
//Long ll_ifautodd,ll_iflljg
//String ls_usermtrlmode
//Int li_ifmtrlcuscode
//Int li_buyunit,li_scllunit,li_wfjgunit,li_saleunit
//String ls_unit_scll,ls_unit_sale
//Decimal ld_rate_scll,ld_rate_sale
//Int li_buydec,li_wfjgdec,li_sclldec,li_saledec
//Decimal ld_expday
//Int li_outtype,li_ifpackpro
//Decimal ld_maxqty,ld_minqty,ld_capaparm,ld_sctaskqty
//Int li_mtrlprp
//Decimal ld_maxarg,ld_minarg
//Decimal ld_maxdays,ld_mindays
//Long ll_dftwrkGrpid
//Int li_ifusedeliqty
//String ls_status_config,ls_woodcode_config,ls_pcode_config
//Int li_pricepztype
//int li_ifcustom,li_status_check,li_woodcode_check,li_pcode_check
//string ls_handtype
//int li_ifpack
//int li_ifpackpz
//int li_ifpackpro2
//int li_ifpacktype
//
//Boolean if_find = False
//
//IF Trim(arg_mtrlcode) = '' THEN
//	rslt = 0
//	GOTO ext
//END IF
//
//IF Pos(Trim(arg_mtrlcode),'%') = 0 THEN
//	ls_like_mtrlcode = '%'+ Trim(arg_mtrlcode) + '%'
//ELSE
//	ls_like_mtrlcode = Trim(arg_mtrlcode)
//END IF
//
//IF arg_storageid = -1 THEN
//	
//	SELECT u_mtrldef.mtrlid,
//		u_mtrldef.mtrlcode,
//		u_mtrldef.mtrlname,
//		u_mtrldef.unit,
//		u_mtrldef.mtrlmode,
//		u_mtrldef.mtrltype,
//		u_mtrldef.prdpackcode,
//		u_mtrldef.packqty,
//		u_mtrldef.lmbuyprice,
//		u_mtrldef.lmsaleprice,
//		u_mtrldef.unit_buy,
//		u_mtrldef.rate_buy,
//		u_mtrldef.dscrp,
//		u_mtrldef.mprice,
//		u_mtrldef.mtrlorigin,
//		u_mtrldef.mtrlsectype,
//		u_mtrldef.zxmtrlmode,
//		u_mtrldef.mtrlkind,
//		u_mtrldef.statusflag,
//		u_mtrldef.woodcodeflag,
//		u_mtrldef.pcodeflag,
//		u_mtrldef.statustype,
//		u_mtrldef.woodcodetype,
//		u_mtrldef.pcodetype,
//		u_mtrldef.mtrlarea,
//		u_mtrldef.minbuyqty,
//		u_mtrldef.mtrlarea1,
//		u_mtrldef.mtrlarea2,
//		u_mtrldef.net_weight,
//		u_mtrldef.gross_weight,
//		u_mtrldef.cubage,
//		u_mtrldef.scidprice,
//		u_mtrldef.configcodetype,
//		u_mtrldef.configcode,
//		u_mtrldef.configname,
//		u_mtrldef.mtrlcolor,
//		u_mtrldef.ifautodd,
//		u_mtrldef.iflljg,
//		u_mtrldef.orderdays,
//		u_mtrldef.buydays,
//		u_mtrldef.wfjgdays,
//		u_mtrldef.aheaddays,
//		u_mtrldef.ifunit,
//		u_mtrldef.usermtrlmode,
//		u_mtrldef.ifmtrlcuscode,
//		u_mtrldef.buyunit,
//		u_mtrldef.wfjgunit,
//		u_mtrldef.scllunit,
//		u_mtrldef.saleunit,
//		u_mtrldef.unit_scll,
//		u_mtrldef.unit_sale,
//		u_mtrldef.rate_scll,
//		u_mtrldef.rate_sale,
//		u_mtrldef.buydec,
//		u_mtrldef.wfjgdec,
//		u_mtrldef.sclldec,
//		u_mtrldef.saledec,
//		u_mtrldef.expday,
//		u_mtrldef.outtype,
//		u_mtrldef.ifpackpro,
//		u_mtrldef.maxqty,
//		u_mtrldef.minqty,
//		u_mtrldef.capaparm,
//		u_mtrldef.sctaskqty,
//		u_mtrldef.mtrlprp,
//		u_mtrldef.maxarg,
//		u_mtrldef.minarg,
//		u_mtrldef.maxdays,
//		u_mtrldef.mindays,
//		u_mtrldef.dftwrkGrpid,
//		u_mtrldef.ifusedeliqty,
//		u_mtrldef.status_config,
//		u_mtrldef.woodcode_config,
//		u_mtrldef.pcode_config,
//		u_mtrldef.pricepztype,
//u_mtrldef.ifcustom,
//u_mtrldef.status_check,
//u_mtrldef.woodcode_check,
//u_mtrldef.pcode_check,
//u_mtrldef.handtype,
//u_mtrldef.ifpack,
//u_mtrldef.ifpackpz,
//u_mtrldef.ifpackpro2,
//u_mtrldef.ifpacktype,
//u_mtrldef.mtrlengname
//		INTO :ll_mtrlid,
//		:ls_mtrlcode,
//		:ls_mtrlname,
//		:ls_unit,
//		:ls_mtrlmode,
//		:ls_mtrltype,
//		:ls_prdpackcode,
//		:ld_packqty,
//		:ld_lmbuyprice,
//		:ld_lmsaleprice,
//		:ls_unit_buy,
//		:ld_rate_buy,
//		:ls_dscrp,
//		:ld_mprice,
//		:li_mtrlorigin,
//		:ls_mtrlsectype,
//		:ls_zxmtrlmode,
//		:li_mtrlkind,
//		:li_statusflag,
//		:li_woodcodeflag,
//		:li_pcodeflag,
//		:ll_statustype,
//		:ll_woodcodetype,
//		:ll_pcodetype,
//		:ld_mtrlarea,
//		:ld_minbuyqty,
//		:ld_mtrlarea1,
//		:ld_mtrlarea2,
//		:ld_net_weight,
//		:ld_gross_weight,
//		:ld_cubage,
//		:ld_scidprice,
//		:ll_configcodetype,
//		:ls_configcode,
//		:ls_configname,
//		:ls_mtrlcolor,
//		:ll_ifautodd,
//		:ll_iflljg,
//		:ld_orderdays,
//		:ld_buydays,
//		:ld_wfjgdays,
//		:ld_aheaddays,
//		:li_ifunit,
//		:ls_usermtrlmode,
//		:li_ifmtrlcuscode,
//		:li_buyunit,
//		:li_wfjgunit,
//		:li_scllunit,
//		:li_saleunit,
//		:ls_unit_scll,
//		:ls_unit_sale,
//		:ld_rate_scll,
//		:ld_rate_sale,
//		:li_buydec,
//		:li_wfjgdec,
//		:li_sclldec,
//		:li_saledec,
//		:ld_expday,
//		:li_outtype,
//		:li_ifpackpro,
//		:ld_maxqty,
//		:ld_minqty,
//		:ld_capaparm,
//		:ld_sctaskqty,
//		:li_mtrlprp,
//		:ld_maxarg,
//		:ld_minarg,
//		:ld_maxdays,
//		:ld_mindays,
//		:ll_dftwrkGrpid,
//		:li_ifusedeliqty,
//		:ls_status_config,
//		:ls_woodcode_config,
//		:ls_pcode_config,
//		:li_pricepztype,
//		:li_ifcustom,
//:li_status_check,
//:li_woodcode_check,
//:li_pcode_check,
//:ls_handtype,
//:li_ifpack,
//:li_ifpackpz,
//:li_ifpackpro2,
//:li_ifpacktype,
//:ls_mtrlengname
//		FROM 	u_mtrldef
//		WHERE	( u_mtrldef.mtrlcode = :arg_mtrlcode OR u_mtrldef.mtrlname = :arg_mtrlcode )
//		And ( u_mtrldef.isuse = 1 );
//	IF sqlca.SQLCode <> 0 THEN
//		SELECT count(*) INTO :cnt
//			FROM u_mtrldef
//			WHERE ( u_mtrldef.mtrlcode LIKE :ls_like_mtrlcode OR u_mtrldef.mtrlname LIKE :ls_like_mtrlcode )
//			And ( u_mtrldef.isuse = 1 );
//		IF sqlca.SQLCode <> 0 THEN
//			rslt = 0
//			GOTO ext
//		END IF
//		
//		IF cnt <> 1 THEN
//			rslt = 0
//			GOTO ext
//		ELSE
//			
//			SELECT u_mtrldef.mtrlid,
//				u_mtrldef.mtrlcode,
//				u_mtrldef.mtrlname,
//				u_mtrldef.unit,
//				u_mtrldef.mtrlmode,
//				u_mtrldef.mtrltype,
//				u_mtrldef.prdpackcode,
//				u_mtrldef.packqty,
//				u_mtrldef.lmbuyprice,
//				u_mtrldef.lmsaleprice,
//				u_mtrldef.unit_buy,
//				u_mtrldef.rate_buy,
//				u_mtrldef.dscrp,
//				u_mtrldef.mprice,
//				u_mtrldef.mtrlorigin,
//				u_mtrldef.mtrlsectype,
//				u_mtrldef.zxmtrlmode,
//				u_mtrldef.mtrlkind,
//				u_mtrldef.statusflag,
//				u_mtrldef.woodcodeflag,
//				u_mtrldef.pcodeflag,
//				u_mtrldef.statustype,
//				u_mtrldef.woodcodetype,
//				u_mtrldef.pcodetype,
//				u_mtrldef.mtrlarea,
//				u_mtrldef.minbuyqty,
//				u_mtrldef.mtrlarea1,
//				u_mtrldef.mtrlarea2,
//				u_mtrldef.net_weight,
//				u_mtrldef.gross_weight,
//				u_mtrldef.cubage,
//				u_mtrldef.scidprice,
//				u_mtrldef.configcodetype,
//				u_mtrldef.configcode,
//				u_mtrldef.configname,
//				u_mtrldef.mtrlcolor,
//				u_mtrldef.ifautodd,
//				u_mtrldef.iflljg,
//				u_mtrldef.orderdays,
//				u_mtrldef.buydays,
//				u_mtrldef.wfjgdays,
//				u_mtrldef.aheaddays,
//				u_mtrldef.ifunit,
//				u_mtrldef.usermtrlmode,
//				u_mtrldef.ifmtrlcuscode,
//				u_mtrldef.buyunit,
//				u_mtrldef.wfjgunit,
//				u_mtrldef.scllunit,
//				u_mtrldef.saleunit,
//				u_mtrldef.unit_scll,
//				u_mtrldef.unit_sale,
//				u_mtrldef.rate_scll,
//				u_mtrldef.rate_sale,
//				u_mtrldef.buydec,
//				u_mtrldef.wfjgdec,
//				u_mtrldef.sclldec,
//				u_mtrldef.saledec,
//				u_mtrldef.expday,
//				u_mtrldef.outtype,
//				u_mtrldef.ifpackpro,
//				u_mtrldef.maxqty,
//				u_mtrldef.minqty,
//				u_mtrldef.capaparm,
//				u_mtrldef.sctaskqty,
//				u_mtrldef.mtrlprp,
//				u_mtrldef.maxarg,
//				u_mtrldef.minarg,
//				u_mtrldef.maxdays,
//				u_mtrldef.mindays,
//				u_mtrldef.dftwrkGrpid,
//				u_mtrldef.ifusedeliqty,
//				u_mtrldef.status_config,
//				u_mtrldef.woodcode_config,
//				u_mtrldef.pcode_config,
//				u_mtrldef.pricepztype,
//				u_mtrldef.ifcustom,
//u_mtrldef.status_check,
//u_mtrldef.woodcode_check,
//u_mtrldef.pcode_check,
//u_mtrldef.handtype,
//u_mtrldef.ifpack,
//u_mtrldef.ifpackpz,
//u_mtrldef.ifpackpro2,
//u_mtrldef.ifpacktype,
//u_mtrldef.mtrlengname
//				INTO
//				:ll_mtrlid,
//				:ls_mtrlcode,
//				:ls_mtrlname,
//				:ls_unit,
//				:ls_mtrlmode,
//				:ls_mtrltype,
//				:ls_prdpackcode,
//				:ld_packqty,
//				:ld_lmbuyprice,
//				:ld_lmsaleprice,
//				:ls_unit_buy,
//				:ld_rate_buy,
//				:ls_dscrp,
//				:ld_mprice,
//				:li_mtrlorigin,
//				:ls_mtrlsectype,
//				:ls_zxmtrlmode,
//				:li_mtrlkind,
//				:li_statusflag,
//				:li_woodcodeflag,
//				:li_pcodeflag,
//				:ll_statustype,
//				:ll_woodcodetype,
//				:ll_pcodetype,
//				:ld_mtrlarea,
//				:ld_minbuyqty,
//				:ld_mtrlarea1,
//				:ld_mtrlarea2,
//				:ld_net_weight,
//				:ld_gross_weight,
//				:ld_cubage,
//				:ld_scidprice,
//				:ll_configcodetype,
//				:ls_configcode,
//				:ls_configname,
//				:ls_mtrlcolor,
//				:ll_ifautodd,
//				:ll_iflljg,
//				:ld_orderdays,
//				:ld_buydays,
//				:ld_wfjgdays,
//				:ld_aheaddays,
//				:li_ifunit,
//				:ls_usermtrlmode,
//				:li_ifmtrlcuscode,
//				:li_buyunit,
//				:li_wfjgunit,
//				:li_scllunit,
//				:li_saleunit,
//				:ls_unit_scll,
//				:ls_unit_sale,
//				:ld_rate_scll,
//				:ld_rate_sale,
//				:li_buydec,
//				:li_wfjgdec,
//				:li_sclldec,
//				:li_saledec,
//				:ld_expday,
//				:li_outtype,
//				:li_ifpackpro,
//				:ld_maxqty,
//				:ld_minqty,
//				:ld_capaparm,
//				:ld_sctaskqty,
//				:li_mtrlprp,
//				:ld_maxarg,
//				:ld_minarg,
//				:ld_maxdays,
//				:ld_mindays,
//				:ll_dftwrkGrpid,
//				:li_ifusedeliqty,
//				:ls_status_config,
//				:ls_woodcode_config,
//				:ls_pcode_config,
//				:li_pricepztype,
//						:li_ifcustom,
//:li_status_check,
//:li_woodcode_check,
//:li_pcode_check,
//:ls_handtype,
//:li_ifpack,
//:li_ifpackpz,
//:li_ifpackpro2,
//:li_ifpacktype,
//:ls_mtrlengname
//				FROM 	u_mtrldef
//				WHERE ( u_mtrldef.mtrlcode LIKE :ls_like_mtrlcode OR u_mtrldef.mtrlname LIKE :ls_like_mtrlcode )
//				And ( u_mtrldef.isuse = 1 );
//			IF sqlca.SQLCode <> 0 THEN
//				rslt = 0
//				GOTO ext
//			ELSE
//				if_find = True
//			END IF
//		END IF
//	ELSE
//		if_find = True
//	END IF
//ELSE
//	SELECT u_mtrldef.mtrlid,
//		u_mtrldef.mtrlcode,
//		u_mtrldef.mtrlname,
//		u_mtrldef.unit,
//		u_mtrldef.mtrlmode,
//		u_mtrldef.mtrltype,
//		u_mtrldef.prdpackcode,
//		u_mtrldef.packqty,
//		u_mtrldef.lmbuyprice,
//		u_mtrldef.lmsaleprice,
//		u_mtrldef.unit_buy,
//		u_mtrldef.rate_buy,
//		u_mtrldef.dscrp,
//		u_mtrldef.mprice,
//		u_mtrldef.mtrlorigin,
//		u_mtrldef.mtrlsectype,
//		u_mtrldef.zxmtrlmode,
//		u_mtrldef.mtrlkind,
//		u_mtrldef.statusflag,
//		u_mtrldef.woodcodeflag,
//		u_mtrldef.pcodeflag,
//		u_mtrldef.statustype,
//		u_mtrldef.woodcodetype,
//		u_mtrldef.pcodetype,
//		u_mtrldef.mtrlarea,
//		u_mtrldef.minbuyqty,
//		u_mtrldef.mtrlarea1,
//		u_mtrldef.mtrlarea2,
//		u_mtrldef.net_weight,
//		u_mtrldef.gross_weight,
//		u_mtrldef.cubage,
//		u_mtrldef.scidprice,
//		u_mtrldef.configcodetype,
//		u_mtrldef.configcode,
//		u_mtrldef.configname,
//		u_mtrldef.mtrlcolor,
//		u_mtrldef.ifautodd,
//		u_mtrldef.iflljg,
//		u_mtrldef.orderdays,
//		u_mtrldef.buydays,
//		u_mtrldef.wfjgdays,
//		u_mtrldef.aheaddays,
//		u_mtrldef.ifunit,
//		u_mtrldef.usermtrlmode,
//		u_mtrldef.ifmtrlcuscode,
//		u_mtrldef.buyunit,
//		u_mtrldef.wfjgunit,
//		u_mtrldef.scllunit,
//		u_mtrldef.saleunit,
//		u_mtrldef.unit_scll,
//		u_mtrldef.unit_sale,
//		u_mtrldef.rate_scll,
//		u_mtrldef.rate_sale,
//		u_mtrldef.buydec,
//		u_mtrldef.wfjgdec,
//		u_mtrldef.sclldec,
//		u_mtrldef.saledec,
//		u_mtrldef.expday,
//		u_mtrldef.outtype,
//		u_mtrldef.ifpackpro,
//		u_mtrldef.maxqty,
//		u_mtrldef.minqty,
//		u_mtrldef.capaparm,
//		u_mtrldef.sctaskqty,
//		u_mtrldef.mtrlprp,
//		u_mtrldef.maxarg,
//		u_mtrldef.minarg,
//		u_mtrldef.maxdays,
//		u_mtrldef.mindays,
//		u_mtrldef.dftwrkGrpid,
//		u_mtrldef.ifusedeliqty,
//		u_mtrldef.status_config,
//		u_mtrldef.woodcode_config,
//		u_mtrldef.pcode_config,
//		u_mtrldef.pricepztype,
//		u_mtrldef.ifcustom,
//u_mtrldef.status_check,
//u_mtrldef.woodcode_check,
//u_mtrldef.pcode_check,
//u_mtrldef.handtype,
//u_mtrldef.ifpack,
//u_mtrldef.ifpackpz,
//u_mtrldef.ifpackpro2,
//u_mtrldef.ifpacktype,
//u_mtrldef.mtrlengname
//		INTO :ll_mtrlid,
//		:ls_mtrlcode,
//		:ls_mtrlname,
//		:ls_unit,
//		:ls_mtrlmode,
//		:ls_mtrltype,
//		:ls_prdpackcode,
//		:ld_packqty,
//		:ld_lmbuyprice,
//		:ld_lmsaleprice,
//		:ls_unit_buy,
//		:ld_rate_buy,
//		:ls_dscrp,
//		:ld_mprice,
//		:li_mtrlorigin,
//		:ls_mtrlsectype,
//		:ls_zxmtrlmode,
//		:li_mtrlkind,
//		:li_statusflag,
//		:li_woodcodeflag,
//		:li_pcodeflag,
//		:ll_statustype,
//		:ll_woodcodetype,
//		:ll_pcodetype,
//		:ld_mtrlarea,
//		:ld_minbuyqty,
//		:ld_mtrlarea1,
//		:ld_mtrlarea2,
//		:ld_net_weight,
//		:ld_gross_weight,
//		:ld_cubage,
//		:ld_scidprice,
//		:ll_configcodetype,
//		:ls_configcode,
//		:ls_configname,
//		:ls_mtrlcolor,
//		:ll_ifautodd,
//		:ll_iflljg,
//		:ld_orderdays,
//		:ld_buydays,
//		:ld_wfjgdays,
//		:ld_aheaddays,
//		:li_ifunit,
//		:ls_usermtrlmode,
//		:li_ifmtrlcuscode,
//		:li_buyunit,
//		:li_wfjgunit,
//		:li_scllunit,
//		:li_saleunit,
//		:ls_unit_scll,
//		:ls_unit_sale,
//		:ld_rate_scll,
//		:ld_rate_sale,
//		:li_buydec,
//		:li_wfjgdec,
//		:li_sclldec,
//		:li_saledec,
//		:ld_expday,
//		:li_outtype,
//		:li_ifpackpro,
//		:ld_maxqty,
//		:ld_minqty,
//		:ld_capaparm,
//		:ld_sctaskqty,
//		:li_mtrlprp,
//		:ld_maxarg,
//		:ld_minarg,
//		:ld_maxdays,
//		:ld_mindays,
//		:ll_dftwrkGrpid,
//		:li_ifusedeliqty,
//		:ls_status_config,
//		:ls_woodcode_config,
//		:ls_pcode_config,
//		:li_pricepztype,
//				:li_ifcustom,
//:li_status_check,
//:li_woodcode_check,
//:li_pcode_check,
//:ls_handtype,
//:li_ifpack,
//:li_ifpackpz,
//:li_ifpackpro2,
//:li_ifpacktype,
//:ls_mtrlengname
//		FROM 	u_mtrldef LEFT OUTER JOIN
//		u_mtrl_storage ON u_mtrldef.mtrlid = u_mtrl_storage.mtrlid
//		WHERE	( u_mtrldef.mtrlcode = :arg_mtrlcode OR u_mtrldef.mtrlname = :arg_mtrlcode )
//		AND ( u_mtrl_storage.storageid = :arg_storageid OR :arg_storageid = -1 )
//		And ( u_mtrldef.isuse = 1 );
//		
//	IF sqlca.SQLCode <> 0 THEN
//		SELECT count(*) INTO :cnt
//			FROM u_mtrldef LEFT OUTER JOIN
//			u_mtrl_storage ON u_mtrldef.mtrlid = u_mtrl_storage.mtrlid
//			WHERE ( u_mtrldef.mtrlcode LIKE :ls_like_mtrlcode OR u_mtrldef.mtrlname LIKE :ls_like_mtrlcode )
//			AND ( u_mtrl_storage.storageid = :arg_storageid OR :arg_storageid = -1 )
//			And ( u_mtrldef.isuse = 1 );
//		IF sqlca.SQLCode <> 0 THEN
//			rslt = 0
//			GOTO ext
//		END IF
//		
//		IF cnt <> 1 THEN
//			rslt = 0
//			GOTO ext
//		ELSE
//			
//			SELECT u_mtrldef.mtrlid,
//				u_mtrldef.mtrlcode,
//				u_mtrldef.mtrlname,
//				u_mtrldef.unit,
//				u_mtrldef.mtrlmode,
//				u_mtrldef.mtrltype,
//				u_mtrldef.prdpackcode,
//				u_mtrldef.packqty,
//				u_mtrldef.lmbuyprice,
//				u_mtrldef.lmsaleprice,
//				u_mtrldef.unit_buy,
//				u_mtrldef.rate_buy,
//				u_mtrldef.dscrp,
//				u_mtrldef.mprice,
//				u_mtrldef.mtrlorigin,
//				u_mtrldef.mtrlsectype,
//				u_mtrldef.zxmtrlmode,
//				u_mtrldef.mtrlkind,
//				u_mtrldef.statusflag,
//				u_mtrldef.woodcodeflag,
//				u_mtrldef.pcodeflag,
//				u_mtrldef.statustype,
//				u_mtrldef.woodcodetype,
//				u_mtrldef.pcodetype,
//				u_mtrldef.mtrlarea,
//				u_mtrldef.minbuyqty,
//				u_mtrldef.mtrlarea1,
//				u_mtrldef.mtrlarea2,
//				u_mtrldef.net_weight,
//				u_mtrldef.gross_weight,
//				u_mtrldef.cubage,
//				u_mtrldef.scidprice,
//				u_mtrldef.configcodetype,
//				u_mtrldef.configcode,
//				u_mtrldef.configname,
//				u_mtrldef.mtrlcolor,
//				u_mtrldef.ifautodd,
//				u_mtrldef.iflljg,
//				u_mtrldef.orderdays,
//				u_mtrldef.buydays,
//				u_mtrldef.wfjgdays,
//				u_mtrldef.aheaddays,
//				u_mtrldef.ifunit,
//				u_mtrldef.usermtrlmode,
//				u_mtrldef.ifmtrlcuscode,
//				u_mtrldef.buyunit,
//				u_mtrldef.wfjgunit,
//				u_mtrldef.scllunit,
//				u_mtrldef.saleunit,
//				u_mtrldef.unit_scll,
//				u_mtrldef.unit_sale,
//				u_mtrldef.rate_scll,
//				u_mtrldef.rate_sale,
//				u_mtrldef.buydec,
//				u_mtrldef.wfjgdec,
//				u_mtrldef.sclldec,
//				u_mtrldef.saledec,
//				u_mtrldef.expday,
//				u_mtrldef.outtype,
//				u_mtrldef.ifpackpro,
//				u_mtrldef.maxqty,
//				u_mtrldef.minqty,
//				u_mtrldef.capaparm,
//				u_mtrldef.sctaskqty,
//				u_mtrldef.mtrlprp,
//				u_mtrldef.maxarg,
//				u_mtrldef.minarg,
//				u_mtrldef.maxdays,
//				u_mtrldef.mindays,
//				u_mtrldef.dftwrkGrpid,
//				u_mtrldef.ifusedeliqty,
//				u_mtrldef.status_config,
//				u_mtrldef.woodcode_config,
//				u_mtrldef.pcode_config,
//				u_mtrldef.pricepztype,
//				u_mtrldef.ifcustom,
//u_mtrldef.status_check,
//u_mtrldef.woodcode_check,
//u_mtrldef.pcode_check,
//u_mtrldef.handtype,
//u_mtrldef.ifpack,
//u_mtrldef.ifpackpz,
//u_mtrldef.ifpackpro2,
//u_mtrldef.ifpacktype,
//u_mtrldef.mtrlengname
//				INTO
//				:ll_mtrlid,
//				:ls_mtrlcode,
//				:ls_mtrlname,
//				:ls_unit,
//				:ls_mtrlmode,
//				:ls_mtrltype,
//				:ls_prdpackcode,
//				:ld_packqty,
//				:ld_lmbuyprice,
//				:ld_lmsaleprice,
//				:ls_unit_buy,
//				:ld_rate_buy,
//				:ls_dscrp,
//				:ld_mprice,
//				:li_mtrlorigin,
//				:ls_mtrlsectype,
//				:ls_zxmtrlmode,
//				:li_mtrlkind,
//				:li_statusflag,
//				:li_woodcodeflag,
//				:li_pcodeflag,
//				:ll_statustype,
//				:ll_woodcodetype,
//				:ll_pcodetype,
//				:ld_mtrlarea,
//				:ld_minbuyqty,
//				:ld_mtrlarea1,
//				:ld_mtrlarea2,
//				:ld_net_weight,
//				:ld_gross_weight,
//				:ld_cubage,
//				:ld_scidprice,
//				:ll_configcodetype,
//				:ls_configcode,
//				:ls_configname,
//				:ls_mtrlcolor,
//				:ll_ifautodd,
//				:ll_iflljg,
//				:ld_orderdays,
//				:ld_buydays,
//				:ld_wfjgdays,
//				:ld_aheaddays,
//				:li_ifunit,
//				:ls_usermtrlmode,
//				:li_ifmtrlcuscode,
//				:li_buyunit,
//				:li_wfjgunit,
//				:li_scllunit,
//				:li_saleunit,
//				:ls_unit_scll,
//				:ls_unit_sale,
//				:ld_rate_scll,
//				:ld_rate_sale,
//				:li_buydec,
//				:li_wfjgdec,
//				:li_sclldec,
//				:li_saledec,
//				:ld_expday,
//				:li_outtype,
//				:li_ifpackpro,
//				:ld_maxqty,
//				:ld_minqty,
//				:ld_capaparm,
//				:ld_sctaskqty,
//				:li_mtrlprp,
//				:ld_maxarg,
//				:ld_minarg,
//				:ld_maxdays,
//				:ld_mindays,
//				:ll_dftwrkGrpid,
//				:li_ifusedeliqty,
//				:ls_status_config,
//				:ls_woodcode_config,
//				:ls_pcode_config,
//				:li_pricepztype,
//						:li_ifcustom,
//:li_status_check,
//:li_woodcode_check,
//:li_pcode_check,
//:ls_handtype,
//:li_ifpack,
//:li_ifpackpz,
//:li_ifpackpro2,
//:li_ifpacktype,
//:ls_mtrlengname
//				FROM 	u_mtrldef LEFT OUTER JOIN
//				u_mtrl_storage ON u_mtrldef.mtrlid = u_mtrl_storage.mtrlid
//				WHERE ( u_mtrldef.mtrlcode LIKE :ls_like_mtrlcode OR u_mtrldef.mtrlname LIKE :ls_like_mtrlcode )
//				AND ( u_mtrl_storage.storageid = :arg_storageid OR :arg_storageid = -1 )
//				And ( u_mtrldef.isuse = 1 );
//			IF sqlca.SQLCode <> 0 THEN
//				rslt = 0
//				GOTO ext
//			ELSE
//				if_find = True
//			END IF
//		END IF
//	ELSE
//		if_find = True
//	END IF
//END IF
//
//IF if_find THEN
//	f_get_planprice_mtrl(ll_mtrlid,'','','',ld_planprice)
//	arg_s_mtrldef.planprice[1] = ld_planprice
//	
//	
//	arg_s_mtrldef.mtrlid[1] = ll_mtrlid
//	arg_s_mtrldef.mtrlcode[1] = ls_mtrlcode
//	arg_s_mtrldef.mtrlname[1] = ls_mtrlname
//	arg_s_mtrldef.unit[1] = ls_unit
//	arg_s_mtrldef.mtrlmode[1] = ls_mtrlmode
//	arg_s_mtrldef.planprice[1] = ld_planprice
//	arg_s_mtrldef.mtrltype[1] = ls_mtrltype
//	arg_s_mtrldef.prdpackcode[1] = ls_prdpackcode
//	arg_s_mtrldef.packqty[1] = ld_packqty
//	arg_s_mtrldef.lmbuyprice[1] = ld_lmbuyprice
//	arg_s_mtrldef.lmsaleprice[1] = ld_lmsaleprice
//	arg_s_mtrldef.unit_buy[1] = ls_unit_buy
//	arg_s_mtrldef.rate_buy[1] = ld_rate_buy
//	arg_s_mtrldef.dscrp[1] = ls_dscrp
//	arg_s_mtrldef.mprice[1] = ld_mprice
//	arg_s_mtrldef.mtrlorigin[1] = li_mtrlorigin
//	arg_s_mtrldef.mtrlsectype[1] = ls_mtrlsectype
//	arg_s_mtrldef.zxmtrlmode[1] = ls_zxmtrlmode
//	arg_s_mtrldef.mtrlkind[1] = li_mtrlkind
//	arg_s_mtrldef.statusflag[1] = li_statusflag
//	arg_s_mtrldef.statustype[1] = ll_statustype
//	arg_s_mtrldef.woodcodeflag[1] = li_woodcodeflag
//	arg_s_mtrldef.woodcodetype[1] = ll_woodcodetype
//	arg_s_mtrldef.pcodeflag[1] = li_pcodeflag
//	arg_s_mtrldef.pcodetype[1] = ll_pcodetype
//	arg_s_mtrldef.mtrlarea[1] = ld_mtrlarea
//	arg_s_mtrldef.minbuyqty[1] = ld_minbuyqty
//	arg_s_mtrldef.mtrlarea1[1] = ld_mtrlarea1
//	arg_s_mtrldef.mtrlarea2[1] = ld_mtrlarea2
//	arg_s_mtrldef.net_weight[1] = ld_net_weight
//	arg_s_mtrldef.gross_weight[1] = ld_gross_weight
//	arg_s_mtrldef.cubage[1] = ld_cubage
//	arg_s_mtrldef.scidprice[1] = ld_scidprice
//	
//	arg_s_mtrldef.configcodetype[1] = ll_configcodetype
//	arg_s_mtrldef.configcode[1] = ls_configcode
//	arg_s_mtrldef.configname[1] = ls_configname
//	arg_s_mtrldef.mtrlcolor[1] = ls_mtrlcolor
//	arg_s_mtrldef.ifautodd[1] = ll_ifautodd
//	arg_s_mtrldef.iflljg[1] = ll_iflljg
//	
//	arg_s_mtrldef.orderdays[1] = ld_orderdays
//	arg_s_mtrldef.buydays[1] = ld_buydays
//	arg_s_mtrldef.wfjgdays[1] = ld_wfjgdays
//	arg_s_mtrldef.aheaddays[1] = ld_aheaddays
//	arg_s_mtrldef.ifunit[1] = li_ifunit
//	arg_s_mtrldef.usermtrlmode[1] = ls_usermtrlmode
//	arg_s_mtrldef.ifmtrlcuscode[1] = li_ifmtrlcuscode
//	arg_s_mtrldef.buyunit[1] = li_buyunit
//	arg_s_mtrldef.wfjgunit[1] = li_wfjgunit
//	arg_s_mtrldef.scllunit[1] = li_scllunit
//	arg_s_mtrldef.saleunit[1] = li_saleunit
//	
//	arg_s_mtrldef.unit_scll[1] = ls_unit_scll
//	arg_s_mtrldef.unit_sale[1] = ls_unit_sale
//	arg_s_mtrldef.rate_scll[1] = ld_rate_scll
//	arg_s_mtrldef.rate_sale[1] = ld_rate_sale
//	
//	arg_s_mtrldef.buydec[1] = li_buydec
//	arg_s_mtrldef.wfjgdec[1] = li_wfjgdec
//	arg_s_mtrldef.sclldec[1] = li_sclldec
//	arg_s_mtrldef.saledec[1] = li_saledec
//	arg_s_mtrldef.expday[1] = ld_expday
//	
//	arg_s_mtrldef.outtype[1] = li_outtype
//	arg_s_mtrldef.ifpackpro[1] = li_ifpackpro
//	arg_s_mtrldef.maxqty[1] = ld_maxqty
//	arg_s_mtrldef.minqty[1] = ld_minqty
//	arg_s_mtrldef.capaparm[1] = ld_capaparm
//	arg_s_mtrldef.sctaskqty[1] = ld_sctaskqty
//	arg_s_mtrldef.mtrlprp[1] = li_mtrlprp
//	
//	arg_s_mtrldef.maxarg[1] = ld_maxarg
//	arg_s_mtrldef.minarg[1] = ld_minarg
//	
//	arg_s_mtrldef.maxdays[1] = ld_maxdays
//	arg_s_mtrldef.mindays[1] = ld_mindays
//	arg_s_mtrldef.dftwrkGrpid[1] = ll_dftwrkGrpid
//	arg_s_mtrldef.ifusedeliqty[1] = li_ifusedeliqty
//	
//	arg_s_mtrldef.status_config[1] = ls_status_config
//	arg_s_mtrldef.woodcode_config[1] = ls_woodcode_config
//	arg_s_mtrldef.pcode_config[1] = ls_pcode_config
//	arg_s_mtrldef.pricepztype[1] = li_pricepztype
//	
//	arg_s_mtrldef.ifcustom[1] = li_ifcustom
//	arg_s_mtrldef.status_check[1] = li_status_check
//	arg_s_mtrldef.woodcode_check[1] = li_woodcode_check
//	arg_s_mtrldef.pcode_check[1] = li_pcode_check
//	arg_s_mtrldef.handtype[1] = ls_handtype
//	arg_s_mtrldef.ifpack[1] = li_ifpack
//	arg_s_mtrldef.ifpackpz[1] = li_ifpackpz
//	arg_s_mtrldef.ifpackpro2[1] = li_ifpackpro2
//	arg_s_mtrldef.ifpacktype[1] = li_ifpacktype
//	arg_s_mtrldef.mtrlengname[1] = ls_mtrlengname
//	
//END IF
//
//ext:
RETURN rslt



end function

global function integer f_find_mtrl_ljfieb (string arg_mtrlcode, ref s_mtrldef_array arg_s_mtrldef);Int rslt = 1
Long cnt = 0

String ls_like_mtrlcode
String ls_mtrlcode,ls_mtrlname,ls_unit,ls_mtrlmode,ls_mtrltype
String ls_mtrlsectype,ls_zxmtrlmode,ls_mtrlengname
String ls_unit_buy,ls_dscrp
Long ll_mtrlid
String ls_prdpackcode
Decimal ld_packqty,ld_planprice,ld_lmbuyprice,ld_lmsaleprice
Decimal ld_rate_buy,ld_mprice
Int li_mtrlorigin,li_mtrlkind
Int li_statusflag,li_woodcodeflag,li_pcodeflag
Long ll_statustype,ll_woodcodetype,ll_pcodetype
Decimal ld_mtrlarea,ld_mtrlarea1,ld_mtrlarea2
Decimal ld_minbuyqty
Decimal ld_net_weight,ld_gross_weight,ld_cubage
Decimal ld_scidprice
Decimal ld_orderdays,ld_buydays,ld_wfjgdays,ld_aheaddays
Int li_ifunit
Long ll_configcodetype
String ls_configcode,ls_configname,ls_mtrlcolor
Long ll_ifautodd,ll_iflljg
String ls_usermtrlmode
Int li_ifmtrlcuscode
Int li_buyunit,li_scllunit,li_wfjgunit,li_saleunit
String ls_unit_scll,ls_unit_sale
Decimal ld_rate_scll,ld_rate_sale
Int li_buydec,li_wfjgdec,li_sclldec,li_saledec
Decimal ld_expday
Int li_outtype,li_ifpackpro
Decimal ld_maxqty,ld_minqty,ld_capaparm,ld_sctaskqty
Int li_mtrlprp
Decimal ld_maxarg,ld_minarg
Decimal ld_maxdays,ld_mindays
Long ll_dftwrkGrpid
Int li_ifusedeliqty
String ls_status_config,ls_woodcode_config,ls_pcode_config
Int li_pricepztype
Int li_ifcustom,li_status_check,li_woodcode_check,li_pcode_check
String ls_handtype
Int li_ifpack
Int li_ifpackpz
Int li_ifpackpro2
Int li_ifpacktype
long ll_mtrltypeid

Boolean if_find = False

IF Trim(arg_mtrlcode) = '' THEN
	rslt = 0
	GOTO ext
END IF



SELECT u_mtrldef.mtrlid,
	u_mtrldef.mtrlcode,
	u_mtrldef.mtrlname,
	u_mtrldef.unit,
	u_mtrldef.mtrlmode,
	u_mtrldef.mtrltype,
	u_mtrldef.prdpackcode,
	u_mtrldef.packqty,
	u_mtrldef.lmbuyprice,
	u_mtrldef.lmsaleprice,
	u_mtrldef.unit_buy,
	u_mtrldef.rate_buy,
	u_mtrldef.dscrp,
//	u_mtrldef.mprice,
	u_mtrldef.mtrlorigin,
	u_mtrldef.mtrlsectype,
	u_mtrldef.zxmtrlmode,
	u_mtrldef.mtrlkind,
	u_mtrldef.statusflag,
	u_mtrldef.woodcodeflag,
	u_mtrldef.pcodeflag,
	u_mtrldef.statustype,
	u_mtrldef.woodcodetype,
	u_mtrldef.pcodetype,
//	u_mtrldef.mtrlarea,
//	u_mtrldef.minbuyqty,
//	u_mtrldef.mtrlarea1,
//	u_mtrldef.mtrlarea2,
	u_mtrldef.net_weight,
	u_mtrldef.gross_weight,
	u_mtrldef.cubage,
//	u_mtrldef.scidprice,
	u_mtrldef.configcodetype,
	u_mtrldef.configcode,
	u_mtrldef.configname,
	u_mtrldef.mtrlcolor,
//	u_mtrldef.ifautodd,
//	u_mtrldef.iflljg,
//	u_mtrldef.orderdays,
//	u_mtrldef.buydays,
//	u_mtrldef.wfjgdays,
//	u_mtrldef.aheaddays,
	u_mtrldef.ifunit,
	u_mtrldef.usermtrlmode,
//	u_mtrldef.ifmtrlcuscode,
	u_mtrldef.buyunit,
	u_mtrldef.wfjgunit,
	u_mtrldef.scllunit,
	u_mtrldef.saleunit,
	u_mtrldef.unit_scll,
	u_mtrldef.unit_sale,
	u_mtrldef.rate_scll,
	u_mtrldef.rate_sale,
	u_mtrldef.buydec,
	u_mtrldef.wfjgdec,
	u_mtrldef.sclldec,
	u_mtrldef.saledec,
//	u_mtrldef.expday,
//	u_mtrldef.outtype,
	u_mtrldef.ifpackpro,
	u_mtrldef.maxqty,
	u_mtrldef.minqty,
//	u_mtrldef.capaparm,
//	u_mtrldef.sctaskqty,
	u_mtrldef.mtrlprp,
//	u_mtrldef.maxarg,
//	u_mtrldef.minarg,
//	u_mtrldef.maxdays,
//	u_mtrldef.mindays,
//	u_mtrldef.dftwrkGrpid,
//	u_mtrldef.ifusedeliqty,
	u_mtrldef.status_config,
	u_mtrldef.woodcode_config,
	u_mtrldef.pcode_config,
//	u_mtrldef.pricepztype,
	u_mtrldef.ifcustom,
	u_mtrldef.status_check,
	u_mtrldef.woodcode_check,
	u_mtrldef.pcode_check,
	u_mtrldef.handtype,
	u_mtrldef.ifpack,
	u_mtrldef.ifpackpz,
	u_mtrldef.ifpackpro2,
	u_mtrldef.ifpacktype,
	u_mtrldef.mtrlengname,
	u_mtrldef.mtrltypeid
	INTO :ll_mtrlid,
	:ls_mtrlcode,
	:ls_mtrlname,
	:ls_unit,
	:ls_mtrlmode,
	:ls_mtrltype,
	:ls_prdpackcode,
	:ld_packqty,
	:ld_lmbuyprice,
	:ld_lmsaleprice,
	:ls_unit_buy,
	:ld_rate_buy,
	:ls_dscrp,
//	:ld_mprice,
	:li_mtrlorigin,
	:ls_mtrlsectype,
	:ls_zxmtrlmode,
	:li_mtrlkind,
	:li_statusflag,
	:li_woodcodeflag,
	:li_pcodeflag,
	:ll_statustype,
	:ll_woodcodetype,
	:ll_pcodetype,
//	:ld_mtrlarea,
//	:ld_minbuyqty,
//	:ld_mtrlarea1,
//	:ld_mtrlarea2,
	:ld_net_weight,
	:ld_gross_weight,
	:ld_cubage,
//	:ld_scidprice,
	:ll_configcodetype,
	:ls_configcode,
	:ls_configname,
	:ls_mtrlcolor,
//	:ll_ifautodd,
//	:ll_iflljg,
//	:ld_orderdays,
//	:ld_buydays,
//	:ld_wfjgdays,
//	:ld_aheaddays,
	:li_ifunit,
	:ls_usermtrlmode,
//	:li_ifmtrlcuscode,
	:li_buyunit,
	:li_wfjgunit,
	:li_scllunit,
	:li_saleunit,
	:ls_unit_scll,
	:ls_unit_sale,
	:ld_rate_scll,
	:ld_rate_sale,
	:li_buydec,
	:li_wfjgdec,
	:li_sclldec,
	:li_saledec,
//	:ld_expday,
//	:li_outtype,
	:li_ifpackpro,
	:ld_maxqty,
	:ld_minqty,
//	:ld_capaparm,
//	:ld_sctaskqty,
	:li_mtrlprp,
//	:ld_maxarg,
//	:ld_minarg,
//	:ld_maxdays,
//	:ld_mindays,
//	:ll_dftwrkGrpid,
//	:li_ifusedeliqty,
	:ls_status_config,
	:ls_woodcode_config,
	:ls_pcode_config,
//	:li_pricepztype,
	:li_ifcustom,
	:li_status_check,
	:li_woodcode_check,
	:li_pcode_check,
	:ls_handtype,
	:li_ifpack,
	:li_ifpackpz,
	:li_ifpackpro2,
	:li_ifpacktype,
	:ls_mtrlengname,
	:ll_mtrltypeid
	FROM 	u_mtrldef
	WHERE	( u_mtrldef.mtrlcode = :arg_mtrlcode)
	And ( u_mtrldef.isuse = 1 );
IF sqlca.SQLCode <> 0 THEN
	rslt = 0 
	goto ext
END IF


//	f_get_planprice_mtrl(ll_mtrlid,'','','',ld_planprice)
//	arg_s_mtrldef.planprice[1] = ld_planprice
	
	
	arg_s_mtrldef.mtrlid[1] = ll_mtrlid
	arg_s_mtrldef.mtrlcode[1] = ls_mtrlcode
	arg_s_mtrldef.mtrlname[1] = ls_mtrlname
	arg_s_mtrldef.unit[1] = ls_unit
	arg_s_mtrldef.mtrlmode[1] = ls_mtrlmode
	arg_s_mtrldef.planprice[1] = ld_planprice
	arg_s_mtrldef.mtrltype[1] = ls_mtrltype
	arg_s_mtrldef.prdpackcode[1] = ls_prdpackcode
	arg_s_mtrldef.packqty[1] = ld_packqty
	arg_s_mtrldef.lmbuyprice[1] = ld_lmbuyprice
	arg_s_mtrldef.lmsaleprice[1] = ld_lmsaleprice
	arg_s_mtrldef.unit_buy[1] = ls_unit_buy
	arg_s_mtrldef.rate_buy[1] = ld_rate_buy
	arg_s_mtrldef.dscrp[1] = ls_dscrp
//	arg_s_mtrldef.mprice[1] = ld_mprice
	arg_s_mtrldef.mtrlorigin[1] = li_mtrlorigin
	arg_s_mtrldef.mtrlsectype[1] = ls_mtrlsectype
	arg_s_mtrldef.zxmtrlmode[1] = ls_zxmtrlmode
	arg_s_mtrldef.mtrlkind[1] = li_mtrlkind
	arg_s_mtrldef.statusflag[1] = li_statusflag
	arg_s_mtrldef.statustype[1] = ll_statustype
	arg_s_mtrldef.woodcodeflag[1] = li_woodcodeflag
	arg_s_mtrldef.woodcodetype[1] = ll_woodcodetype
	arg_s_mtrldef.pcodeflag[1] = li_pcodeflag
	arg_s_mtrldef.pcodetype[1] = ll_pcodetype
//	arg_s_mtrldef.mtrlarea[1] = ld_mtrlarea
//	arg_s_mtrldef.minbuyqty[1] = ld_minbuyqty
//	arg_s_mtrldef.mtrlarea1[1] = ld_mtrlarea1
//	arg_s_mtrldef.mtrlarea2[1] = ld_mtrlarea2
	arg_s_mtrldef.net_weight[1] = ld_net_weight
	arg_s_mtrldef.gross_weight[1] = ld_gross_weight
	arg_s_mtrldef.cubage[1] = ld_cubage
//	arg_s_mtrldef.scidprice[1] = ld_scidprice
	
	arg_s_mtrldef.configcodetype[1] = ll_configcodetype
	arg_s_mtrldef.configcode[1] = ls_configcode
	arg_s_mtrldef.configname[1] = ls_configname
	arg_s_mtrldef.mtrlcolor[1] = ls_mtrlcolor
//	arg_s_mtrldef.ifautodd[1] = ll_ifautodd
//	arg_s_mtrldef.iflljg[1] = ll_iflljg
	
//	arg_s_mtrldef.orderdays[1] = ld_orderdays
//	arg_s_mtrldef.buydays[1] = ld_buydays
//	arg_s_mtrldef.wfjgdays[1] = ld_wfjgdays
//	arg_s_mtrldef.aheaddays[1] = ld_aheaddays
	arg_s_mtrldef.ifunit[1] = li_ifunit
	arg_s_mtrldef.usermtrlmode[1] = ls_usermtrlmode
//	arg_s_mtrldef.ifmtrlcuscode[1] = li_ifmtrlcuscode
	arg_s_mtrldef.buyunit[1] = li_buyunit
	arg_s_mtrldef.wfjgunit[1] = li_wfjgunit
	arg_s_mtrldef.scllunit[1] = li_scllunit
	arg_s_mtrldef.saleunit[1] = li_saleunit
	
	arg_s_mtrldef.unit_scll[1] = ls_unit_scll
	arg_s_mtrldef.unit_sale[1] = ls_unit_sale
	arg_s_mtrldef.rate_scll[1] = ld_rate_scll
	arg_s_mtrldef.rate_sale[1] = ld_rate_sale
	
	arg_s_mtrldef.buydec[1] = li_buydec
	arg_s_mtrldef.wfjgdec[1] = li_wfjgdec
	arg_s_mtrldef.sclldec[1] = li_sclldec
	arg_s_mtrldef.saledec[1] = li_saledec
//	arg_s_mtrldef.expday[1] = ld_expday
//	
//	arg_s_mtrldef.outtype[1] = li_outtype
	arg_s_mtrldef.ifpackpro[1] = li_ifpackpro
	arg_s_mtrldef.maxqty[1] = ld_maxqty
	arg_s_mtrldef.minqty[1] = ld_minqty
//	arg_s_mtrldef.capaparm[1] = ld_capaparm
//	arg_s_mtrldef.sctaskqty[1] = ld_sctaskqty
	arg_s_mtrldef.mtrlprp[1] = li_mtrlprp
	
//	arg_s_mtrldef.maxarg[1] = ld_maxarg
//	arg_s_mtrldef.minarg[1] = ld_minarg
	
//	arg_s_mtrldef.maxdays[1] = ld_maxdays
//	arg_s_mtrldef.mindays[1] = ld_mindays
//	arg_s_mtrldef.dftwrkGrpid[1] = ll_dftwrkGrpid
//	arg_s_mtrldef.ifusedeliqty[1] = li_ifusedeliqty
	
	arg_s_mtrldef.status_config[1] = ls_status_config
	arg_s_mtrldef.woodcode_config[1] = ls_woodcode_config
	arg_s_mtrldef.pcode_config[1] = ls_pcode_config
//	arg_s_mtrldef.pricepztype[1] = li_pricepztype
	
	arg_s_mtrldef.ifcustom[1] = li_ifcustom
	arg_s_mtrldef.status_check[1] = li_status_check
	arg_s_mtrldef.woodcode_check[1] = li_woodcode_check
	arg_s_mtrldef.pcode_check[1] = li_pcode_check
	arg_s_mtrldef.handtype[1] = ls_handtype
	arg_s_mtrldef.ifpack[1] = li_ifpack
	arg_s_mtrldef.ifpackpz[1] = li_ifpackpz
	arg_s_mtrldef.ifpackpro2[1] = li_ifpackpro2
	arg_s_mtrldef.ifpacktype[1] = li_ifpacktype
	arg_s_mtrldef.mtrlengname[1] = ls_mtrlengname
	arg_s_mtrldef.mtrltypeid[1] = ll_mtrltypeid
	

ext:
RETURN rslt




end function