processdayretail.txt

这是用PB6开发的一个POS管理系统

Create Proc up_Processdayretail (@InputDate varchar(8))
as
Declare @GoodsNo 	TGoods
Declare @DeptNo 	Tdept
Declare @Amt		TAmt
Declare @DisAmt		TAmt
Declare @Qty		TQty
Declare @CostAmt	TAmt

Declare c1 Cursor for 
   select deptno,goodsno,sum(amt),sum(round(costprice*qty,2)),sum(qty),sum(DisAmt)
   from retail
   Where Convert(char(8),inputdate,112)=@InputDate
   group by deptno,goodsno

Open c1
Fetch c1 into @deptNo,@GoodsNo,@Amt,@CostAmt,@Qty,@DisAmt
while @@Fetch_Status=0
  begin
   update stock
	set retailqty = isnull(retailqty,0) - @qty,
	    retailamt = isnull(retailamt,0) - @amt,
	    retaildisamt = isnull(retaildisamt,0) - @disamt,
	    RetailCost = Isnull(RetailCost,0) - @CostAmt,
	    curqty = isnull(curqty,0) + @qty,
	    curcostamt = isnull(curcostamt,0) + @CostAmt,
	    ModifyDate=GetDate()
   where goodsno = @goodsno and deptno=@DeptNO
Fetch c1 into @deptNo,@GoodsNo,@Amt,@CostAmt,@Qty,@DisAmt
end
close c1
dealLocate c1