4.pr_update_wlvendor.sql

学习PB入门的好帮手,附件中包含以下文件夹

/*----本存储过程pr_update_wlvendor用于触发器tr_vendorbuybill_insert------	*/
/*功能：更新供应商往来明细和供应商往来总帐以及供应商档案*/
/*参数3：更新方向+or-									*/
/*参数4：供应商id							*/
/*参数8：更新金额*/
/*作者：吕勇									*/
/*日期：2006-04-10								*/
/*版本：v1.0									*/
/*修改人：										*/
/*修改日期：									*/

GO
IF EXISTS(SELECT name FROM sysobjects
      WHERE name = 'pr_update_wlvendor' AND type = 'P')
   DROP PROCEDURE pr_update_wlvendor
GO

GO
CREATE PROCEDURE pr_update_wlvendor 
@ls_direct char(1),
@ls_vendorid char(36),
@ldb_acramt money
WITH ENCRYPTION
AS
	declare @ll_count int
	--尽管在应用程序中已经加入限制：必须输入客户\供应商代号（客户\供应商类型），但以防万一，若用户没有输入客户\供应商代号，则此处将给客户\供应商代号（客户\供应商类型）赋值	
	if isnull(@ls_vendorid,'')=''
		select ls_vendorid ='nullvendor'
	--如需要，则初始化供应商档案
	select @ll_count = count(*) from f_vendor where c_vendorid = @ls_vendorid
    if @ll_count <1 
		insert into f_vendor (c_vendorid,i_balance) values(@ls_vendorid,0)
	if @ls_direct = '+'
		update f_vendor set i_balance = i_balance + @ldb_acramt  where c_vendorid = @ls_vendorid
	else if   @ls_direct = '-' 
		update f_vendor set i_balance = i_balance - @ldb_acramt  where c_vendorid = @ls_vendorid

	if @@error <> 0
		begin
			rollback tran
			return
		end 

GO