purchasemaster_update.sql

用vb.net写的基于c/s结构的进销存程序设计源代码

CREATE TRIGGER PurchaseMaster_Update
ON PurchaseMaster
FOR UPDATE
AS
IF @@ROWCOUNT = 0 RETURN
/*定义变量
@PurchaseID : 进货单号
@PurchaseProperty : 进货属性
@Amount : 进货单金额
*/
DECLARE @PurchaseID Char(10), @PurchaseProperty Char(10)
DECLARE @Amount Decimal(12, 0)
/*找进 进货单号, 进货单金额, 进货属性  */
SELECT @PurchaseID = PurchaseID, @Amount = Amount,
@PurchaseProperty = PurchaseProperty
FROM inserted
/*更新进货单的应收帐款*/
IF @PurchaseProperty = '1'
  BEGIN
    /* 进货:应收帐款=进货单金额 */
    UPDATE PurchaseMaster SET AccountPayable = @Amount
    WHERE PurchaseID = @PurchaseID
  END  
ELSE
  BEGIN
  /* 进货退回:应收帐款=进货单金额*-1 */
    UPDATE PurchaseMaster SET AccountPayable = @Amount * -1
    WHERE PurchaseID = @PurchaseID
  END