Q5/ws_objects/Ew_mainface.pbl.src/f_set_moneyid.srf

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

forward prototypes
global function integer f_set_moneyid ()
end prototypes

global function integer f_set_moneyid ();Long i ,cnt,rslt = 1
Long empid[]
String ls_powerstring[]
Long it_mx
i = 1
String ls_update
ls_update = f_ProfileString (0,'moneyid','update_moneyid', "no")

IF ls_update = 'no' THEN
	Long ll_moneyid
	SELECT moneyid INTO :ll_moneyid FROM  cw_currency Where native = 1;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	UPDATE u_buytask
		SET mrate = 1 ,
		moneyid = :ll_moneyid
		Where moneyid = 0 ;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	UPDATE u_inware
		SET relint_3 = :ll_moneyid ,
		mrate = 1
		WHERE u_inware.relint_3 = 0 AND
		u_inware.billtype In (1,2,4);
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	
	UPDATE u_Bmstpay
		SET moneyid = :ll_moneyid
		Where moneyid = 0 ;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	UPDATE u_Bmstpaymx
		SET moneyid = :ll_moneyid
		Where moneyid = 0 ;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	
	UPDATE u_spt_amerce
		SET moneyid = :ll_moneyid
		Where moneyid = 0 ;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	
	UPDATE U_buybill
		SET moneyid = :ll_moneyid
		Where moneyid = 0 ;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	UPDATE u_cusamt
		SET moneyid = :ll_moneyid ,
		u_cusamt.mrate = 1
		Where moneyid = 0 AND billtype = 1;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	ext:
	IF rslt = 0 THEN
		ROLLBACK;
	ELSE
		COMMIT;
		f_setProfileString (0,'moneyid','update_moneyid', "yes")
	END IF
END IF


RETURN rslt








end function