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

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

global type uo_eb_cusamt from nonvisualobject
end type
global uo_eb_cusamt uo_eb_cusamt

forward prototypes
public function integer uf_save (s_eb_cusamt arg_s_cusamt, ref string arg_msg, boolean arg_if_commit)
public function integer uf_del (long arg_id, ref string arg_msg, boolean arg_if_commit)
public function integer uf_reset (ref s_eb_cusamt arg_s_cusamt, ref string arg_msg)
public function integer uf_getinfo (long arg_id, ref s_eb_cusamt arg_s_cusamt, ref string arg_msg)
public function integer uf_accepts (long arg_ids[], ref string arg_msg)
end prototypes

public function integer uf_save (s_eb_cusamt arg_s_cusamt, ref string arg_msg, boolean arg_if_commit);Int rslt = 1
Long ll_newid = 0


IF arg_s_cusamt.id = 0 THEN
	
	ll_newid = f_sys_scidentity(0,"eb_cusamt","id",arg_msg,True,id_sqlca)
	IF ll_newid <= 0 THEN
		rslt = 0
		GOTO ext
	END IF
	INSERT INTO eb_cusamt(id,
		billdate,
		cusid,
		custype,
		assign_emp,
		part,
		dscrp,
		billtype,
		reltaskcode,
		billamt,
		damt,
		reldamt,
		reltakeamt,
		takeamt,
		accountsid,
		realrate,
		realmoneyid,
		itemid,
		banktypeid,
		mxdscrp,
		viewdate,
		scid,
		relid,
		trade_id,
		trade_no,
		tid,
		im_type)
		VALUES(:ll_newid,
		:arg_s_cusamt.billdate,
		:arg_s_cusamt.cusid,
		:arg_s_cusamt.custype,
		:arg_s_cusamt.assign_emp,
		:arg_s_cusamt.part,
		:arg_s_cusamt.dscrp,
		:arg_s_cusamt.billtype,
		:arg_s_cusamt.reltaskcode,
		:arg_s_cusamt.billamt,
		:arg_s_cusamt.damt,
		:arg_s_cusamt.reldamt,
		:arg_s_cusamt.reltakeamt,
		:arg_s_cusamt.takeamt,
		:arg_s_cusamt.accountsid,
		:arg_s_cusamt.realrate,
		:arg_s_cusamt.realmoneyid,
		:arg_s_cusamt.itemid,
		:arg_s_cusamt.banktypeid,
		:arg_s_cusamt.mxdscrp,
		:arg_s_cusamt.viewdate,
		:arg_s_cusamt.scid,
		:arg_s_cusamt.relid,
		:arg_s_cusamt.trade_id,
		:arg_s_cusamt.trade_no,
		:arg_s_cusamt.tid,
		:arg_s_cusamt.im_type);
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '插入收款临时表失败,' + sqlca.SQLErrText
		GOTO ext
	END IF
	
	arg_s_cusamt.id = ll_newid
	
ELSE
		
	UPDATE eb_cusamt SET billdate = :arg_s_cusamt.billdate,
		cusid = :arg_s_cusamt.cusid,
		custype = :arg_s_cusamt.custype,
		assign_emp = :arg_s_cusamt.assign_emp,
		part = :arg_s_cusamt.part,
		dscrp = :arg_s_cusamt.dscrp,
		billtype = :arg_s_cusamt.billtype,
		reltaskcode = :arg_s_cusamt.reltaskcode,
		billamt = :arg_s_cusamt.billamt,
		damt = :arg_s_cusamt.damt,
		reldamt = :arg_s_cusamt.reldamt,
		reltakeamt = :arg_s_cusamt.reltakeamt,
		takeamt = :arg_s_cusamt.takeamt,
		accountsid = :arg_s_cusamt.accountsid,
		realrate = :arg_s_cusamt.realrate,
		realmoneyid = :arg_s_cusamt.realmoneyid,
		itemid = :arg_s_cusamt.itemid,
		banktypeid = :arg_s_cusamt.banktypeid,
		mxdscrp = :arg_s_cusamt.mxdscrp,
		viewdate = :arg_s_cusamt.viewdate,
		scid = :arg_s_cusamt.scid,
		relid = :arg_s_cusamt.relid
		Where id = :arg_s_cusamt.id;
	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_id, ref string arg_msg, boolean arg_if_commit);Int rslt = 1

DELETE FROM eb_cusamt
	Where id = :arg_id;
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_reset (ref s_eb_cusamt arg_s_cusamt, ref string arg_msg);Int rslt = 1

IF IsNull(arg_s_cusamt.id) THEN arg_s_cusamt.id = 0
IF IsNull(arg_s_cusamt.billdate) THEN arg_s_cusamt.billdate = DateTime(Today(), Time(0))
IF IsNull(arg_s_cusamt.cusid) THEN arg_s_cusamt.cusid = 0
IF IsNull(arg_s_cusamt.custype) THEN arg_s_cusamt.custype = ''
IF IsNull(arg_s_cusamt.assign_emp) THEN arg_s_cusamt.assign_emp = ''
IF IsNull(arg_s_cusamt.part) THEN arg_s_cusamt.part = ''
IF IsNull(arg_s_cusamt.dscrp) THEN arg_s_cusamt.dscrp = ''
IF IsNull(arg_s_cusamt.billtype) THEN arg_s_cusamt.billtype = 0
IF IsNull(arg_s_cusamt.reltaskcode) THEN arg_s_cusamt.reltaskcode = ''
IF IsNull(arg_s_cusamt.billamt) THEN arg_s_cusamt.billamt = 0
IF IsNull(arg_s_cusamt.damt) THEN arg_s_cusamt.damt = 0
IF IsNull(arg_s_cusamt.reldamt) THEN arg_s_cusamt.reldamt = 0
IF IsNull(arg_s_cusamt.reltakeamt) THEN arg_s_cusamt.reltakeamt = 0
IF IsNull(arg_s_cusamt.takeamt) THEN arg_s_cusamt.takeamt = 0
IF IsNull(arg_s_cusamt.accountsid) THEN arg_s_cusamt.accountsid = 0
IF IsNull(arg_s_cusamt.realrate) THEN arg_s_cusamt.realrate = 0
IF IsNull(arg_s_cusamt.realmoneyid) THEN arg_s_cusamt.realmoneyid = 0
IF IsNull(arg_s_cusamt.itemid) THEN arg_s_cusamt.itemid = 0
IF IsNull(arg_s_cusamt.banktypeid) THEN arg_s_cusamt.banktypeid = 0
IF IsNull(arg_s_cusamt.mxdscrp) THEN arg_s_cusamt.mxdscrp = ''
IF IsNull(arg_s_cusamt.scid) THEN arg_s_cusamt.scid = 0
IF IsNull(arg_s_cusamt.relid) THEN arg_s_cusamt.relid = 0
IF IsNull(arg_s_cusamt.trade_id) THEN arg_s_cusamt.trade_id = ''
IF IsNull(arg_s_cusamt.trade_no) THEN arg_s_cusamt.trade_no = ''
IF IsNull(arg_s_cusamt.tid) THEN arg_s_cusamt.tid = ''
IF IsNull(arg_s_cusamt.im_type) THEN arg_s_cusamt.im_type = 0


RETURN rslt


end function

public function integer uf_getinfo (long arg_id, ref s_eb_cusamt arg_s_cusamt, ref string arg_msg);Int rslt = 1

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

SELECT id,
	billdate,
	cusid,
	custype,
	assign_emp,
	part,
	dscrp,
	billtype,
	reltaskcode,
	billamt,
	damt,
	reldamt,
	reltakeamt,
	takeamt,
	accountsid,
	realrate,
	realmoneyid,
	itemid,
	banktypeid,
	mxdscrp,
	viewdate,
	scid,
	relid,
	accept_flag,
	accept_emp,
	accept_date,
	im_type
	INTO :arg_s_cusamt.id,
	:arg_s_cusamt.billdate,
	:arg_s_cusamt.cusid,
	:arg_s_cusamt.custype,
	:arg_s_cusamt.assign_emp,
	:arg_s_cusamt.part,
	:arg_s_cusamt.dscrp,
	:arg_s_cusamt.billtype,
	:arg_s_cusamt.reltaskcode,
	:arg_s_cusamt.billamt,
	:arg_s_cusamt.damt,
	:arg_s_cusamt.reldamt,
	:arg_s_cusamt.reltakeamt,
	:arg_s_cusamt.takeamt,
	:arg_s_cusamt.accountsid,
	:arg_s_cusamt.realrate,
	:arg_s_cusamt.realmoneyid,
	:arg_s_cusamt.itemid,
	:arg_s_cusamt.banktypeid,
	:arg_s_cusamt.mxdscrp,
	:arg_s_cusamt.viewdate,
	:arg_s_cusamt.scid,
	:arg_s_cusamt.relid,
	:arg_s_cusamt.accept_flag,
	:arg_s_cusamt.accept_emp,
	:arg_s_cusamt.accept_date,
	:arg_s_cusamt.im_type
	FROM eb_cusamt
	Where id = :arg_id;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询电商收款失败,' + sqlca.SQLErrText
	GOTO ext
END IF

ext:
RETURN rslt


end function

public function integer uf_accepts (long arg_ids[], ref string arg_msg);Int rslt = 1

s_eb_cusamt s_import[]
Long i, j, k

IF UpperBound(arg_ids) <= 0 THEN
	rslt = 0
	arg_msg = '没有接受内容'
	GOTO ext
END IF

FOR i = 1 To UpperBound(arg_ids)
	
	IF uf_getinfo(arg_ids[i], s_import[i], arg_msg) <> 1 THEN
		rslt = 0
		GOTO ext
	END IF
	
	IF s_import[i].accept_flag = 1 THEN
		rslt = 0
		arg_msg = '已经被接受不能再接受'
		GOTO ext
	END IF
	
	UPDATE eb_cusamt
		SET accept_flag = 1,
		accept_emp = :publ_operator,
		accept_date = GETDATE()
		WHERE id = arg_ids[i]
		And accept_flag = 0;
	IF sqlca.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '更新收款临时表失败,' + sqlca.SQLErrText
		GOTO ext
	END IF
	
	IF sqlca.SQLNRows <> 1 THEN
		rslt = 0
		arg_msg = '收款临时表已经接受或不存在,请刷新后再试'
		GOTO ext
	END IF
	
NEXT

IF uo_taskdamt_spi.uf_save(s_import, arg_msg, False) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

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

end function

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

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