Q5/ws_objects/Ew_eb_import.pbl.src/uo_eb_user.sru

$PBExportHeader$uo_eb_user.sru
forward
global type uo_eb_user from nonvisualobject
end type
end forward

global type uo_eb_user from nonvisualobject
end type
global uo_eb_user uo_eb_user

forward prototypes
public function integer uf_reset (s_eb_user arg_s_user, ref string arg_msg)
public function integer uf_save (ref s_eb_user arg_s_user, ref string arg_msg, boolean arg_if_commit)
public function integer uf_del (long arg_userid, ref string arg_msg, boolean arg_if_commit)
public function integer uf_getinfo (long arg_userid, ref s_eb_user arg_s_user, ref string arg_msg)
end prototypes

public function integer uf_reset (s_eb_user arg_s_user, ref string arg_msg);Int rslt = 1

IF IsNull(arg_s_user.UserID) THEN arg_s_user.UserID = 0
IF IsNull(arg_s_user.im_type) THEN arg_s_user.im_type = 0
IF IsNull(arg_s_user.im_userid) THEN arg_s_user.im_userid = ''
IF IsNull(arg_s_user.empid) THEN arg_s_user.empid = 0
IF IsNull(arg_s_user.moneyid) THEN arg_s_user.moneyid = 0
IF IsNull(arg_s_user.typeid) THEN arg_s_user.typeid = 0
IF IsNull(arg_s_user.Level) THEN arg_s_user.Level = 0
IF IsNull(arg_s_user.banktypeid) THEN arg_s_user.banktypeid = 0
IF IsNull(arg_s_user.scid) THEN arg_s_user.scid = 0
IF IsNull(arg_s_user.requiredays) THEN arg_s_user.requiredays = 0
IF IsNull(arg_s_user.assign_emp) THEN arg_s_user.assign_emp = ''
IF IsNull(arg_s_user.upname) THEN arg_s_user.upname = ''
IF IsNull(arg_s_user.cusid) THEN arg_s_user.cusid = 0
IF IsNull(arg_s_user.paytype) THEN arg_s_user.paytype = ''
IF IsNull(arg_s_user.mrate) THEN arg_s_user.mrate = 0
IF IsNull(arg_s_user.itemid) THEN arg_s_user.itemid = 0
IF IsNull(arg_s_user.accountsid) THEN arg_s_user.accountsid = 0
IF IsNull(arg_s_user.take_itemid) THEN arg_s_user.take_itemid = 0
RETURN rslt



end function

public function integer uf_save (ref s_eb_user arg_s_user, ref string arg_msg, boolean arg_if_commit);Int rslt = 1

Long ll_newid = 0

IF uf_reset(arg_s_user, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

IF arg_s_user.UserID = 0 THEN
	ll_newid = f_sys_scidentity(0,"eb_user","userid",arg_msg,True,id_sqlca)
	IF ll_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	INSERT INTO eb_user(userid,
		im_type,
		im_userid,
		empid,
		moneyid,
		typeid,
		level,
		banktypeid,
		scid,
		requiredays,
		assign_emp,
		upname,
		cusid,
		paytype,
		mrate,
		itemid,
		accountsid,
		take_itemid)
		VALUES(:ll_newid,
		:arg_s_user.im_type,
		:arg_s_user.im_userid,
		:arg_s_user.empid,
		:arg_s_user.moneyid,
		:arg_s_user.typeid,
		:arg_s_user.level,
		:arg_s_user.banktypeid,
		:arg_s_user.scid,
		:arg_s_user.requiredays,
		:arg_s_user.assign_emp,
		:arg_s_user.upname,
		:arg_s_user.cusid,
		:arg_s_user.paytype,
		:arg_s_user.mrate,
		:arg_s_user.itemid,
		:arg_s_user.accountsid,
		:arg_s_user.take_itemid);
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '插入电商帐号定义表失败,' + sqlca.SQLErrText
		GOTO ext
	END IF
	
	arg_s_user.UserID = ll_newid
ELSE
	
	UPDATE eb_user SET im_type = :arg_s_user.im_type,
		im_userid = :arg_s_user.im_userid,
		empid = :arg_s_user.empid,
		moneyid = :arg_s_user.moneyid,
		typeid = :arg_s_user.typeid,
		level = :arg_s_user.level,
		banktypeid = :arg_s_user.banktypeid,
		scid = :arg_s_user.scid,
		requiredays = :arg_s_user.requiredays,
		assign_emp = :arg_s_user.assign_emp,
		upname = :arg_s_user.upname,
		cusid = :arg_s_user.cusid,
		paytype = :arg_s_user.paytype,
		mrate = :arg_s_user.mrate,
		itemid = :arg_s_user.itemid,
		accountsid = :arg_s_user.accountsid,
		take_itemid = :arg_s_user.take_itemid
		Where UserID = :arg_s_user.UserID;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '更新电商帐号定义表失败,' + sqlca.SQLErrText
		GOTO ext
	END IF
	
END IF


ext:
IF arg_if_commit THEN
	IF rslt = 1 THEN
		COMMIT;
	ELSE
		ROLLBACK;
	END IF
END IF
RETURN rslt











end function

public function integer uf_del (long arg_userid, ref string arg_msg, boolean arg_if_commit);Int rslt = 1

DELETE FROM eb_user
	Where UserID = :arg_userid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '删除电商帐号定义失败,' + sqlca.SQLErrText
	GOTO ext
END IF

ext:
IF arg_if_commit THEN
	IF rslt = 1 THEN
		COMMIT;
	ELSE
		ROLLBACK;
	END IF
END IF
RETURN rslt

end function

public function integer uf_getinfo (long arg_userid, ref s_eb_user arg_s_user, ref string arg_msg);Int rslt = 1

Long cnt = 0
SELECT COUNT(0)
	INTO :cnt
	FROM eb_user
	Where UserID = :arg_userid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询电商用户是否存在失败,' + sqlca.SQLErrText
	GOTO ext
END IF

IF cnt = 0 THEN
	rslt = 0
	arg_msg = '电商用户不存在ID:' + String(arg_userid)
	GOTO ext
END IF

SELECT userid,
	im_type,
	im_userid,
	empid,
	moneyid,
	typeid,
	level,
	banktypeid,
	scid,
	requiredays,
	assign_emp,
	upname,
	cusid,
	paytype,
	mrate,
	itemid,
	accountsid,
	take_itemid
	INTO :arg_s_user.userid,
	:arg_s_user.im_type,
	:arg_s_user.im_userid,
	:arg_s_user.empid,
	:arg_s_user.moneyid,
	:arg_s_user.typeid,
	:arg_s_user.level,
	:arg_s_user.banktypeid,
	:arg_s_user.scid,
	:arg_s_user.requiredays,
	:arg_s_user.assign_emp,
	:arg_s_user.upname,
	:arg_s_user.cusid,
	:arg_s_user.paytype,
	:arg_s_user.mrate,
	:arg_s_user.itemid,
	:arg_s_user.accountsid,
	:arg_s_user.take_itemid
	FROM eb_user
	Where UserID = :arg_userid;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询电商用户信息失败,' + sqlca.SQLErrText
	GOTO ext
END IF

ext:
RETURN rslt


end function

on uo_eb_user.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_eb_user.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on