?? processdayretail.txt
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -