accountpayabledetail_delete.sql

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

CREATE TRIGGER AccountPayableDetail_Delete
ON AccountPayableDetail
FOR DELETE
AS
/* 如果修改记录数是0就结束触发程序 */ 
IF @@ROWCOUNT = 0 RETURN
/* 定义变量 
@PurchaseID : 进货单号
@SupplierID : 供应商编号
@Balance : 冲款金额
*/
DECLARE @PurchaseID Char(10)
DECLARE @SupplierID Char(8)
DECLARE @Balance Decimal(12, 0)
/* 找出删除的出货单号与供应商编号及冲款金额 */
SELECT @PurchaseID = D.PurchaseID, @SupplierID = M.SupplierID,
@Balance = D.Balance
FROM deleted D, AccountPayableMaster M
WHERE D.PaymentID = M.PaymentID 
/*更新进货单的已付帐款*/
UPDATE PurchaseMaster SET Paid = Paid - @Balance
WHERE PurchaseID = @PurchaseID