test |
|
|
|
rich777
一般會員   發表：25 回覆：25 積分：10 註冊：2002-04-22 發送簡訊給我 |
Create Procedure StockOutTran
@StNo varchar(8) ,
@SetErr varchar(30) out
AS Declare
@StockStatus int,
@StockOutBCount int,
@NowQty Numeric,
@EditStockCount int,
@EditMatRowCount int,
@tString varchar(30) Declare StockCur cursor for
Select Status from STOUTH where STOUTH.St_No=@StNo Open StockCur
fetch next from StockCur into @StockStatus
Close StockCur
DEALLOCATE StockCur if @StockStatus <> 2
begin
set @StockOutBCount=(select count(*) from STOUTB where St_No=@StNo)
if @StockOutBCount=(select count(*) from stoutb,STOCK
where STOUTB.st_no=@StNo
and STOUTB.Location=STOCK.Location
and STOUTB.Batch=STOCK.Batch
and STOUTB.Mat_No=STOCK.Mat_no
and STOUTB.Unit=STOCK.Unit)
begin Declare StockCur cursor for
select STOCK.QTY-STOUTB.QTY NowQty,STOCK.MAT_NO from stoutb,STOCK
where STOUTB.st_no=@StNo
and STOUTB.Location=STOCK.Location
and STOUTB.Batch=STOCK.Batch
and STOUTB.Mat_No=STOCK.Mat_no
and STOUTB.Unit=STOCK.Unit
Open StockCur WHILE @@FETCH_STATUS = 0
begin
print 'b:' CAST ( @@FETCH_STATUS AS VARCHAR(10) )
fetch next from StockCur into @NowQty,@tString
if @NowQty>=0
begin
print @tString ':' CAST ( @NowQty AS VARCHAR(10) )
end
else
Set @SetErr=@SetErr '批次庫存不足'
print 'a:' CAST ( @@FETCH_STATUS AS VARCHAR(10) )
end Close StockCur
DEALLOCATE StockCur
end
else
Set @SetErr=@SetErr '批次庫存不符'
end
else
print @StNo ':單據已被確認'
|
發表時間：2003-09-08 12:43:07
IP:61.59.xxx.xxx 未訂閱
系統時間：2024-05-07 21:16:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |