求861整理现存量脚本,不是通的

xrdg123

求861整理现存量脚本,不是不通的,
(用通的整理后,出错了)
现在全部为0

l19860612

在期末那里进行现存量整理，或是下载工具进行处理

naojin

说实话,这个有点难度的,不过500金币,我试试

naojin

其实870及以上有个现成的整理现存量的存储过程,只是这里面有些涉及到的表在861里是没有的,所以有些难度.

zdtcat

库存模块里的整理现存量不好使吗

xrdg123

系统自带的，那个不知道什么原因，整理了现存量是对了，
做出库单保存再删除，库存还是保存时现存量，但不是删除后的现存量

88632558

整理现存量：
Delete From CurrentStock
if exists(select * from sysobjects where name='tempcurrentstock')
drop table TempCurrentStock
SELECT cWhCode,cInvCode,(CASE WHEN cFree1=''THEN NULL ELSE cFree1 END) AS cFree1 ,(CASE WHEN cFree2=''THEN NULL ELSE cFree2 END) AS cFree2 ,iainquantity  AS iQuantity, CAST(0 AS FLOAT) AS fOutQuantity,CAST(0 AS FLOAT) AS fInQuantity
INTO TempCurrentStock
From ia_subsidiary
Where cvoutype='34'
group by ia_subsidiary.cWhCode,ia_subsidiary.cInvCode,ia_subsidiary.cFree1,ia_subsidiary.cFree2,ia_subsidiary.iainquantity

INSERT INTO TempCurrentStock(cWhCode,cInvCode,cFree1,cFree2,iQuantity)   SELECT  cWhCode, cInvCode,(CASE WHEN cFree1=''THEN NULL ELSE cFree1 END) AS cFree1 ,(CASE WHEN cFree2=''THEN NULL ELSE cFree2 END) AS cFree2 , (CASE WHEN bRdFlag<>0 THEN iQuantity ELSE -iQuantity END) AS iQuantity
FROM RdRecord INNER JOIN RdRecords ON RdRecord.ID = RdRecords.ID   
WHERE  cVouchType<>'33'AND cVouchType<>'34'  AND RdRecord.dDate>='2001-1-01' (该日期为模块启用日期)

INSERT INTO TempCurrentStock(cWhCode,cInvCode,cFree1,cFree2,fOutQuantity)   
SELECT  EnDispatchs.cWhCode, EnDispatchs.cInvCode,(CASE WHEN EnDispatchs.cFree1='' THEN NULL ELSE EnDispatchs.cFree1 END) AS cFree1 ,(CASE WHEN EnDispatchs.cFree2='' THEN NULL ELSE EnDispatchs.cFree2 END) AS cFree2 , (ISNULL(iQuantity,0)-ISNULL(fOutQuantity,0)) AS fOutQuantity
FROM EnDispatch INNER JOIN  EnDispatchs ON EnDispatch.EDID = EnDispatchs.EDID  WHERE  ISNULL(EnDispatchs.cWhCode,'')<>''  AND ISNULL(EnDispatch.cSTCode,'')<>'' AND EnDispatchs.iQuantity>0 AND bReturnFlag=0

INSERT INTO TempCurrentStock(cWhCode,cInvCode,cFree1,cFree2,fOutQuantity)   
SELECT  DispatchLists.cWhCode as cWhCode, DispatchLists.cInvCode as cInvCode,(CASE WHEN DispatchLists.cFree1='' THEN NULL ELSE DispatchLists.cFree1 END) AS cFree1 , (CASE WHEN DispatchLists.cFree2='' THEN NULL ELSE DispatchLists.cFree2 END) AS cFree2 , (ISNULL(iQuantity,0)-ISNULL(fOutQuantity,0)) AS fOutQuantity
FROM DispatchLists INNER JOIN  DispatchList ON DispatchLists.DLID = DispatchList.DLID      
WHERE  DispatchList.cVouchType='05' AND ISNULL(DispatchLists.cWhCode,'')<>'' AND ISNULL(DispatchList.cSTCode,'')<>''  AND  (DispatchList.iSale=0 or DispatchList.iSale IS NULL)  AND DispatchLists.iQuantity>0

INSERT INTO TempCurrentStock(cWhCode,cInvCode,cFree1,cFree2,fOutQuantity)   
SELECT  cWhCode, cInvCode,(CASE WHEN cFree1=''THEN NULL ELSE cFree1 END) AS cFree1 , (CASE WHEN cFree2=''THEN NULL ELSE cFree2 END) AS cFree2 , (ISNULL(iQuantity,0)-ISNULL(fOutQuantity,0)) AS fOutQuantity
FROM SaleBillVouchs INNER JOIN SaleBillVouch ON SaleBillVouch.SBVID=SaleBillVouchs.SBVID  
WHERE ISNULL(SaleBillVouchs.cWhCode,'')<>'' AND (SaleBillVouch.iDisp=0 OR SaleBillVouch.iDisp IS NULL)    AND ISNULL(cBusType,'')<>'委托'   AND ISNULL(cSTCode,'')<>'' AND ISNULL(cInvalider,'')='' AND  SaleBillVouchs.iQuantity>0
INSERT INTO CurrentStock(cWhCode,cInvCode,cFree1,cFree2,iQuantity,fOutQuantity,fInQuantity)   
SELECT  cWhCode, cInvCode,cFree1,cFree2 , sum(iQuantity) AS iQuantity,sum(ISNULL(fOutQuantity,0)) AS fOutQuantity, sum(ISNULL(fInQuantity,0)) AS fInQuantity
FROM TempCurrentStock
GROUP BY cWhCode,cInvCode,cFree1,cFree2
Delete From CurrentStock
where iquantity is null  and foutquantity=0 and finquantity=0

qixiang_lina

看看库存选项是不是审核时更新现存量

HBGMH

上面一大堆是什么东西啊

xrdg123

7# 88632558
朋友，您不是开玩笑吧，这个是用友通的脚本。
请大家千万别乱用，用了就完了，

sexman

我只做过852的，860的没试过

iceorange

我也遇到这种问题了，不知道怎么解决才好。

yifeng651

什么意思？没听明白，系统自带的整理现存量脚本有问题？？？

wangjieran

……还没用过嗫！

chbchen09

我也还没有去用过哦。。遗憾