用友U8软件中U821以前年度未结算的发货单在本年度能够弃审？
问题现象：在用友U8erp系统中用友U8版本号：U8软件的供应链产品线销售管理模块出现如下问题：U821以前年度未结算的发货单在本年度能够弃审请帮忙解答！原因分析：发货单弃审时未检查是否为以前年度的单据。
解决方案：在用友erp 系统版本U8软件中在未出补丁时可用以下办法暂时解决，即修改存储过程SA_CancelSureFHD后当审核期初发货单时软件会报期初发货单不能弃审！/*江苏省药材公司期初发货单能弃审2003-07-07南京用友维护部丁德安*/IFEXISTS(SELECT*FROMsysobjectsWHEREname='SA_CancelSureFHD'andtype='P')DROPPROCSA_CancelSureFHDGOCREATEPROCSA_CancelSureFHD(@VouchTypeasvarchar(3),@VouchIDAsInt)AS--删除出库单、删除货位、修改现存量Declare@AutoIDAsIntDeclare@cWhCodeAsVarchar(10)Declare@cInvCodeAsVarchar(20)Declare@cFree1AsVarchar(20)Declare@cFree2AsVarchar(20)Declare@iQuantityAsFloatDeclare@iNumAsFloatDeclare@iDispQuantityAsFloatDeclare@iDispNumAsFloat/*增加判断条件判断是否为期初发货单,即RdRecord.cVouchtype='34'如为期初发货单则不能弃审2003-07-07*/Declare@cVouchTypeasvarchar(10)SELECTDISTINCT@cVouchType=r.cVouchTypeFROMRdRecordrinnerjoinrdrecordsrsonr.id=rs.idinnerjoinDispatchListsdsonrs.iDLsID=ds.iDLsIDinnerjoinDispatchListdond.DLID=ds.DLIDWHEREd.DLID=@VouchIDIF@cVouchType='34'BeginSELECT0ASiRet,'期初发货单不能弃审！'ASInfoReturnEnd--弃审时如果生成的是红字销售出库单则如果指定了货位，就不能弃审--在删除货位结存时要判断不等于'货位调整'--SET@AutoID=(SELECTCount(AutoID)FROMRdRecordINNERJOINRdRecordsONRdRecord.ID=RdRecords.ID--WHEREcVouchType='32'ANDbRdFlag=0ANDiQuantity'委托代销'FORREADONLYElseDECLAREcur_CurrentStockCURSORFORSELECTEnDispatchs.cWhCode,EnDispatchs.cInvCode,EnDispatchs.cFree1,EnDispatchs.cFree2,Rdrecords.iQuantity,RdRecords.iNum,EnDispatchs.iQuantity,EnDispatchs.iNumFROM(RdRecordINNERJOINRdRecordsONRdRecord.ID=RdRecords.ID)innerjoinEnDispatchsonEnDispatchs.AutoID=rdrecords.iEnsidWHEREEDID=@VouchIDANDcVouchType='32'FORREADONLYelseDECLAREcur_CurrentStockCURSORFORSELECTSalebillvouchs.cWhCode,Salebillvouchs.cInvCode,Salebillvouchs.cFree1,Salebillvouchs.cFree2,Rdrecords.iQuantity,RdRecords.iNum,Salebillvouchs.iQuantity,Salebillvouchs.iNumFROM(RdRecordINNERJOINRdRecordsONRdRecord.ID=RdRecords.ID)innerjoinSalebillvouchsonSalebillvouchs.autoid=rdrecords.isbsidWHEREsbvid=@VouchIDANDcVouchType='32'FORREADONLYOPENcur_CurrentStockFETCHNEXTFROMcur_CurrentStockINTO@cWhCode,@cInvCode,@cFree1,@cFree2,@iQuantity,@iNum,@iDispQuantity,@iDispNumWHILE@@FETCH_STATUS>=0Begin--If@VouchType='WT'--UPDATECurrentStockSETfOutQuantity=cast(isnull(fOutQuantity,0)+@iDispQuantityasdecimal(20,6)),fOutNum=cast(isnull(fOutNum,0)+@iDispNumasdecimal(20,6)),--iQuantity=cast(isnull(iQuantity,0)+@iQuantityasdecimal(20,6)),iNum=cast(isnull(iNum,0)+@iNumasdecimal(20,6))--WHEREcWhCode=@cWhCodeANDcInvCode=@cInvCodeANDIsNull(cFree1,'')=IsNull(@cFree1,'')ANDIsNull(cFree2,'')=IsNull(@cFree2,'')--ElseIf@iDispQuantity>0UPDATECurrentStockSETfOutQuantity=cast(isnull(fOutQuantity,0)+@iDispQuantityasdecimal(20,6)),fOutNum=cast(isnull(fOutNum,0)+@iDispNumasdecimal(20,6)),iQuantity=cast(isnull(iQuantity,0)+@iQuantityasdecimal(20,6)),iNum=cast(isnull(iNum,0)+@iNumasdecimal(20,6))WHEREcWhCode=@cWhCodeANDcInvCode=@cInvCodeANDIsNull(cFree1,'')=IsNull(@cFree1,'')ANDIsNull(cFree2,'')=IsNull(@cFree2,'')ElseUPDATECurrentStockSETfInQuantity=cast(isnull(fInQuantity,0)+Abs(@iDispQuantity)asdecimal(20,6)),fInNum=cast(isnull(fInNum,0)+Abs(@iDispNum)asdecimal(20,6)),iQuantity=cast(isnull(iQuantity,0)-Abs(@iQuantity)asdecimal(20,6)),iNum=cast(isnull(iNum,0)-Abs(@iNum)asdecimal(20,6))WHEREcWhCode=@cWhCodeANDcInvCode=@cInvCodeANDIsNull(cFree1,'')=IsNull(@cFree1,'')ANDIsNull(cFree2,'')=IsNull(@cFree2,'')If@@Error0BeginSELECT0ASiRet,'修改现存量错！'ASInfoReturnEndFETCHNEXTFROMcur_CurrentStockINTO@cWhCode,@cInvCode,@cFree1,@cFree2,@iQuantity,@iNum,@iDispQuantity,@iDispNumEndCLOSEcur_CurrentStockDEALLOCATEcur_CurrentStockif@VouchType='FHD'OR@VouchType='WT'if@VouchType='FHD'DELETEFROMRdRecordsWHEREIsNull(iEnsID,0)=0AndiDLsIDIN(SELECTiDLsIDFROMDispatchListsWHEREDLID=@VouchID)ElseDELETEFROMRdRecordsWHEREIsNull(iEnsID,0)0AndiEnsIDIN(SELECTAutoIDFROMEnDispatchsWHEREEDID=@VouchID)elseDELETEFROMRdRecordsWHEREiSBsidIN(SELECTautoidFROMsalebillvouchsWHEREsbvid=@VouchID)If@@Error0BeginSELECT0ASiRet,'删除出库单表体记录错！'ASInfoReturnEnd--if@VouchType='FHD'deletefromrdrecordwhereidin(selectrdrecord.idfromrdrecordleftjoinrdrecordsonrdrecord.id=rdrecords.idwhererdrecords.idisnull)--else--DELETEFROMRdRecordWHEREcBillCode=@VouchIDANDcVouchType='32'If@@Error0BeginSELECT0ASiRet,'删除出库单表头记录错！'ASInfoReturnEnd--End--Else--Begin--SELECT0ASiRet,'号发货单对应的红字出库单已经指定货位，不能弃审！'ASInfo--Return--Endif@VouchType='FHD'OR@VouchType='WT'if@VouchType='FHD'UPDATEDispatchListSETcSaleOut=''WHEREDLID=@VouchIDElseUPDATEEnDispatchSETcSaleOut=''WHEREEDID=@VouchIDelseUPDATESalebillvouchSETcSaleOut=''WHERESBVID=@VouchIDIf@@Error0BeginSELECT0ASiRet,'修改发货单错！'ASInfoReturnEndSELECT1ASiRet,''AsInfoReturn。
用友U8ERP软件免费下载地址截止2016年已发布的版本全部在下方，安装教程请认真参考：http://www.yyrjxz.com/xue/u8azjc.html 进行安装。
1、用友MERPu811软件免费下载地址：http://www.yyrjxz.com/yongyou/MERPU811.1.html
2、用友U82.0erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/u8old820.html
3、用友U83.0erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/u8old830.html
4、用友U852erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/U852.html
5、用友U860erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/u860.html
6、用友U861erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/u861xz.html
7、用友U870erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/u870.html
8、用友U872erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/u871.html
9、用友U82.0erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/U872.html
10、用友U890erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/u890.html
11、用友U810.0erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/U810.0.html
12、用友U810.1erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/U8V10.1.html
13、用友U811.0erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/U8V11.0.html
14、用友U8+v11.1erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/U8V11.1.html
15、用友U8+v12.0erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/u8120.html
16、用友U8+v12.1erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/u8121.html
17、用友U8+v12.5erp软件免费下载地址：http://www.yyrjxz.com/yongyouu8/u8125.html
页:
[1]