using NFine.Data.Extensions; using System; using NFine.Repository; using NFine.Domain._03_Entity.SRM; using Newtonsoft.Json; using Newtonsoft.Json.Linq; using System.Data; using System.Configuration; using System.Text; using System.Net; using System.IO; namespace NFine.Application.WMS { public class RevokeBusinessApp : RepositoryFactory { //采购入库撤销 public string RevocationPurchase(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}' ", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSPurchaseOrder set InQuantity =InQuantity-'{0}' where POCode='{1}' and Sequence='{2}' and WorkPoint='{3}'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //采购入库-采购到货单撤销 public string RevocationDeliveryNotice(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}' ", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSDeliveryNotice set RCVQuantity =RCVQuantity-'{0}' where DNCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and DNType='1'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //生产订单备料表 public string RevocationPicking(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+ROUND('{0}' ,3),MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update a set IssueQuantity =IssueQuantity-'{0}' from ICSMOPick a left join ICSMO b on a.MODetailID=b.MODetailID and a.WorkPoint=b.WorkPoint where b.MOCode='{1}' and b.Sequence+'~'+a.Sequence='{2}' and a.WorkPoint='{3}'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //领料申请单 public string RevocationMOApply(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSMOApply set IssueQuantity =IssueQuantity-'{0}' where ApplyCode='{1}' and Sequence='{2}' and WorkPoint='{3}' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //材料出库 public string RevocationMOIssue(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSMOIssue set IssueQuantity =IssueQuantity-'{0}' where IssueCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and Type='1' and Status='2'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //产成品入库-生产订单 public string RevocationFinished(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}'", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSMO set RCVQuantity =RCVQuantity-'{0}' where MOCode='{1}' and Sequence='{2}' and WorkPoint='{3}'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //产成品入库-产成品入库单 public string RevocationManufactureReceive(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}'", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSManufactureReceive set RCVQuantity =RCVQuantity-'{0}' where RCVCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and Type='1' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //一步调拨 public string RevocationICSTransfer(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; string sqlEnable = @"SELECT b.LotEnable FROM ICSInventoryLot a LEFT JOIN ICSInventory b ON a.InvCode=b.InvCode AND a.WorkPoint=b.WorkPoint where a.LotNo='{0}' and a.WorkPoint='{1}'"; sqlEnable = string.Format(sqlEnable, jo["LotNo"].ToString(), WorkPoint); object Enable = SqlHelper.ExecuteScalar(sqlEnable); string sqlQty = @"select Quantity from dbo.ICSWareHouseLotInfo where LotNo='{0}' "; sqlQty = string.Format(sqlQty, jo["LotNo"].ToString()); object Qty = SqlHelper.ExecuteScalar(sqlQty); sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; if (Convert.ToBoolean(Enable) == true && (Convert.ToDecimal(Qty)-Convert.ToDecimal(jo["Quantity"].ToString())>0 )) { sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}',WarehouseCode='{5}',LocationCode='{6}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint, jo["FromWarehouseCode"].ToString(), jo["FromLocationCode"].ToString()); } else { sql += string.Format(@"update ICSWareHouseLotInfo set MTIME=getdate(),MUSER='{0}',MUSERName='{1}',WarehouseCode='{4}',LocationCode='{5}' where LotNo='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint, jo["FromWarehouseCode"].ToString(), jo["FromLocationCode"].ToString()); } sql += string.Format(@" update ICSTransfer set TransferQuantity =TransferQuantity-'{0}' where TransferNO='{1}' and Sequence='{2}' and WorkPoint='{3}' and Type='1' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } // u9跨组织调入(调拨单) public string RevocationKZZICSTransfer(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; string sqlSeach = @" select WorkPoint from ICSTransfer where TransferNO='"+ jo["TransCode"].ToString() + "' and Sequence='"+ jo["TransSequence"].ToString() + "'"; object OldWorkPoint = SqlHelper.ExecuteScalar(sqlSeach); string sqlNewColspan = @" select b.Colspan from dbo.ICSInventoryLot a inner join dbo.ICSExtension b on a.ExtensionID=b.ID and a.WorkPoint=b.WorkPoint where a.LotNo='" + jo["LotNo"].ToString() + "' "; object NewColspan = SqlHelper.ExecuteScalar(sqlNewColspan); string sqlOldColspan = @"select ID from dbo.ICSExtension where WorkPoint='" + OldWorkPoint + "' and Colspan='" + NewColspan + "'"; object OldID = SqlHelper.ExecuteScalar(sqlOldColspan); string sqlQty = @"select Quantity from dbo.ICSWareHouseLotInfo where LotNo='{0}' "; sqlQty = string.Format(sqlQty, jo["LotNo"].ToString()); object Qty = SqlHelper.ExecuteScalar(sqlQty); sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set MTIME=getdate(),MUSER='{0}',MUSERName='{1}',WarehouseCode='{4}',LocationCode='{5}' ,WorkPoint='{6}' where LotNo='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint, jo["FromWarehouseCode"].ToString(), jo["FromLocationCode"].ToString(), OldWorkPoint); sql += string.Format(@"update ICSInventoryLot set WorkPoint='{0}' , ExtensionID='{2}' where LotNo='{1}'", OldWorkPoint, jo["LotNo"].ToString(), OldID); sql += string.Format(@"update ICSInventoryLotDetail set WorkPoint='{0}' where LotNo='{1}'", OldWorkPoint, jo["LotNo"].ToString()); sql += string.Format(@" update ICSTransfer set TransferQuantity =TransferQuantity-'{0}' where TransferNO='{1}' and Sequence='{2}' and WorkPoint='{3}' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //销售出库 public string RevocationMarket(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSSDN set SDNQuantity =SDNQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SDNCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //生产退料-生产退料单 public string RevocationProduceStripping(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; string sqlseach = @"select Type from dbo.ICSInventoryLot where LotNo='"+ jo["LotNo"].ToString() + "'"; object LotNoType= SqlHelper.ExecuteScalar(sqlseach); //新增验证（2025.5.14） sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; if (LotNoType.ToString()== "1") { //新条码退 sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}'", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSMOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where ApplyNegCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); sql += string.Format(@" UPDATE e SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSInventoryLot a INNER JOIN ICSInventoryLotDetail b ON a.LotNo=b.LotNo AND a.WorkPoint=b.WorkPoint INNER JOIN ICSMOApplyNegDetail c ON b.TransCode=c.ApplyNegCode AND b.TransSequence=c.Sequence AND b.WorkPoint=c.WorkPoint INNER JOIN ICSMOApplyNeg d ON c.ApplyNegCode=d.ApplyNegCode AND c.WorkPoint=d.WorkPoint INNER JOIN ICSMOPick e ON c.SourceDetailID=e.PickID AND c.WorkPoint=e.WorkPoint WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND d.Type='1'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString()); } else { sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity-'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); // sql += string.Format(@" update ICSMOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where ApplyNegCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); sql += string.Format(@"UPDATE c SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSWareHouseLotInfoLog a INNER JOIN ICSMO b ON a.TransCode=b.MOCode AND a.WorkPoint=b.WorkPoint INNER JOIN ICSMOPick c ON b.MODetailID = c.MODetailID AND b.WorkPoint = c.WorkPoint AND a.TransSequence = b.Sequence + '~' + c.Sequence WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND a.ID='{3}'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString(), jo["ID"].ToString()); } } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //生产退料-生产退料单-领料申请单 public string RevocationProduceStrippingLL(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; string sqlseach = @"select Type from dbo.ICSInventoryLot where LotNo='" + jo["LotNo"].ToString() + "'"; object LotNoType = SqlHelper.ExecuteScalar(sqlseach); sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; if (LotNoType.ToString() == "1") { //新条码退 sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}'", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSMOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SDNCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); sql += string.Format(@" UPDATE e SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSInventoryLot a INNER JOIN ICSInventoryLotDetail b ON a.LotNo=b.LotNo AND a.WorkPoint=b.WorkPoint INNER JOIN ICSMOApplyNegDetail c ON b.TransCode=c.ApplyNegCode AND b.TransSequence=c.Sequence AND b.WorkPoint=c.WorkPoint INNER JOIN ICSMOApplyNeg d ON c.ApplyNegCode=d.ApplyNegCode AND c.WorkPoint=d.WorkPoint INNER JOIN ICSMOApply e ON c.SourceDetailID=e.ApplyDetailID AND c.WorkPoint=e.WorkPoint WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND d.Type='2'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString()); } else { sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity-'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); // sql += string.Format(@" update ICSMOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SDNCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); sql += string.Format(@"UPDATE c SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSWareHouseLotInfoLog a INNER JOIN ICSMOApply c ON a.TransCode=c.ApplyCode AND a.TransSequence=c.Sequence AND a.WorkPoint=c.WorkPoint WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND a.ID='{3}'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString(), jo["ID"].ToString()); } } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //生产退料-生产退料单-材料出库单 public string RevocationProduceStrippingCLCK(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; string sqlseach = @"select Type from dbo.ICSInventoryLot where LotNo='" + jo["LotNo"].ToString() + "'"; object LotNoType = SqlHelper.ExecuteScalar(sqlseach); sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; if (LotNoType.ToString() == "1") { //新条码退 sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}'", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSMOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SDNCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); sql += string.Format(@" UPDATE e SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSInventoryLot a INNER JOIN ICSInventoryLotDetail b ON a.LotNo=b.LotNo AND a.WorkPoint=b.WorkPoint INNER JOIN ICSMOApplyNegDetail c ON b.TransCode=c.ApplyNegCode AND b.TransSequence=c.Sequence AND b.WorkPoint=c.WorkPoint INNER JOIN ICSMOApplyNeg d ON c.ApplyNegCode=d.ApplyNegCode AND c.WorkPoint=d.WorkPoint INNER JOIN ICSMOIssue e ON c.SourceDetailID=e.IssueDetailID AND c.WorkPoint=e.WorkPoint WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND d.Type='3'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString()); } else { sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity-'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); // sql += string.Format(@" update ICSMOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SDNCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); sql += string.Format(@"UPDATE c SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSWareHouseLotInfoLog a INNER JOIN ICSMOIssue c ON a.TransCode=c.IssueCode AND a.TransSequence=c.Sequence AND a.WorkPoint=c.WorkPoint WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND a.ID='{3}'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString(), jo["ID"].ToString()); } } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //其他出库(杂发) public string RevocationOtheOutboundr(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSOtherOut set OutQuantity =OutQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where OutCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , MTIME=getdate(),MUSER='{0}',MUSERName='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //其他入库(杂收) public string RevocationOtheWarehousing(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}'", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSOtherIn set InQuantity =InQuantity-'{0}' where InCode='{1}' and Sequence='{2}' and WorkPoint='{3}' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , MTIME=getdate(),MUSER='{0}',MUSERName='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //借用单 public string RevocationBrrow(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}' ;", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSBrrow set BrrowQuantity =BrrowQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where BrrowCode='{3}' and Sequence='{4}' and WorkPoint='{5}' ;", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , MTIME=getdate(),MUSER='{0}',MUSERName='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //u9跨组织调出(调拨申请单) public string RevocationKZZICSTransferApplication(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; string sqlSeach = @" select WorkPoint from ICSTransferApplication where TransferNO='" + jo["TransCode"].ToString() + "' and Sequence='" + jo["TransSequence"].ToString() + "' and EATTRIBUTE30='"+ WorkPoint + "'"; object OldWorkPoint = SqlHelper.ExecuteScalar(sqlSeach); string sqlNewColspan = @" select b.Colspan from dbo.ICSInventoryLot a inner join dbo.ICSExtension b on a.ExtensionID=b.ID and a.WorkPoint=b.WorkPoint where a.LotNo='"+ jo["LotNo"].ToString() + "' "; object NewColspan = SqlHelper.ExecuteScalar(sqlNewColspan); string sqlOldColspan = @"select ID from dbo.ICSExtension where WorkPoint='"+ OldWorkPoint + "' and Colspan='"+ NewColspan + "'"; object OldID = SqlHelper.ExecuteScalar(sqlOldColspan); string sqlQty = @"select Quantity from dbo.ICSWareHouseLotInfo where LotNo='{0}' "; sqlQty = string.Format(sqlQty, jo["LotNo"].ToString()); object Qty = SqlHelper.ExecuteScalar(sqlQty); sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set MTIME=getdate(),MUSER='{0}',MUSERName='{1}',WarehouseCode='{4}',LocationCode='{5}' ,WorkPoint='{6}' where LotNo='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint, jo["FromWarehouseCode"].ToString(), jo["FromLocationCode"].ToString(), OldWorkPoint); sql += string.Format(@"update ICSInventoryLot set WorkPoint='{0}' , ExtensionID='{2}' where LotNo='{1}'", OldWorkPoint, jo["LotNo"].ToString(), OldID); sql += string.Format(@"update ICSInventoryLotDetail set WorkPoint='{0}' where LotNo='{1}'", OldWorkPoint, jo["LotNo"].ToString()); sql += string.Format(@" update ICSTransferApplication set TransferQuantity =TransferQuantity-'{0}' where TransferNO='{1}' and Sequence='{2}' and WorkPoint='{3}' and Type='1' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), OldWorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //委外退料-委外退料单 public string RevocationWWProduceStripping(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; string sqlseach = @"select Type from dbo.ICSInventoryLot where LotNo='" + jo["LotNo"].ToString() + "'"; object LotNoType = SqlHelper.ExecuteScalar(sqlseach); sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; if (LotNoType.ToString() == "1") { //新条码退 sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}'", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SDNCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' where ID='{0}' and WorkPoint='{1}'", jo["ID"].ToString(), WorkPoint); sql += string.Format(@" UPDATE e SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSInventoryLot a INNER JOIN ICSInventoryLotDetail b ON a.LotNo=b.LotNo AND a.WorkPoint=b.WorkPoint INNER JOIN ICSOApplyNegDetail c ON b.TransCode=c.OApplyNegCode AND b.TransSequence=c.Sequence AND b.WorkPoint=c.WorkPoint INNER JOIN ICSOApplyNeg d ON c.OApplyNegCode=d.OApplyNegCode AND c.WorkPoint=d.WorkPoint INNER JOIN ICSOOPick e ON c.SourceDetailID=e.PickID AND c.WorkPoint=e.WorkPoint WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND d.Type='1'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString()); } else { sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity-'{0}',MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); // sql += string.Format(@" update ICSMOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SDNCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' where ID='{0}' and WorkPoint='{1}'", jo["ID"].ToString(), WorkPoint); sql += string.Format(@"UPDATE c SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSWareHouseLotInfoLog a INNER JOIN ICSOutsourcingOrder b ON a.TransCode=b.OOCode AND a.WorkPoint=b.WorkPoint INNER JOIN ICSMOPick c ON b.OODetailID = c.OODetailID AND b.WorkPoint = c.WorkPoint AND a.TransSequence = b.Sequence + '~' + c.Sequence WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND a.ID='{3}'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString(), jo["ID"].ToString()); } } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //委外退料-委外退料单-委外申请单 public string RevocationWWProduceStrippingLL(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; string sqlseach = @"select Type from dbo.ICSInventoryLot where LotNo='" + jo["LotNo"].ToString() + "'"; object LotNoType = SqlHelper.ExecuteScalar(sqlseach); sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; if (LotNoType.ToString() == "1") { //新条码退 sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}'", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SDNCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' where ID='{0}' and WorkPoint='{1}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); sql += string.Format(@" UPDATE e SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSInventoryLot a INNER JOIN ICSInventoryLotDetail b ON a.LotNo=b.LotNo AND a.WorkPoint=b.WorkPoint INNER JOIN ICSOApplyNegDetail c ON b.TransCode=c.OApplyNegCode AND b.TransSequence=c.Sequence AND b.WorkPoint=c.WorkPoint INNER JOIN ICSOApplyNeg d ON c.OApplyNegCode=d.OApplyNegCode AND c.WorkPoint=d.WorkPoint INNER JOIN ICSOApply e ON c.SourceDetailID=e.ApplyDetailID AND c.WorkPoint=e.WorkPoint WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND d.Type='2'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString()); } else { sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity-'{0}',MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); // sql += string.Format(@" update ICSMOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SDNCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' where ID='{0}' and WorkPoint='{1}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); sql += string.Format(@"UPDATE c SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSWareHouseLotInfoLog a INNER JOIN ICSOApply c ON a.TransCode=c.ApplyCode AND a.TransSequence=c.Sequence AND a.WorkPoint=c.WorkPoint WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND a.ID='{3}'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString(), jo["ID"].ToString()); } } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //委外退料-委外退料单-委外材料出库单 public string RevocationWWProduceStrippingCLCK(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; string sqlseach = @"select Type from dbo.ICSInventoryLot where LotNo='" + jo["LotNo"].ToString() + "'"; object LotNoType = SqlHelper.ExecuteScalar(sqlseach); sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; if (LotNoType.ToString() == "1") { //新条码退 sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}'", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSMOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SDNCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' where ID='{0}' and WorkPoint='{1}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); sql += string.Format(@" UPDATE e SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSInventoryLot a INNER JOIN ICSInventoryLotDetail b ON a.LotNo=b.LotNo AND a.WorkPoint=b.WorkPoint INNER JOIN ICSOApplyNegDetail c ON b.TransCode=c.OApplyNegCode AND b.TransSequence=c.Sequence AND b.WorkPoint=c.WorkPoint INNER JOIN ICSOApplyNeg d ON c.OApplyNegCode=d.OApplyNegCode AND c.WorkPoint=d.WorkPoint INNER JOIN ICSOIssue e ON c.SourceDetailID=e.IssueDetailID AND c.WorkPoint=e.WorkPoint WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND d.Type='3'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString()); } else { sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity-'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); // sql += string.Format(@" update ICSMOApplyNegDetail set IssueNegQuantity =IssueNegQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SDNCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' where ID='{0}' and WorkPoint='{1}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); sql += string.Format(@"UPDATE c SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSWareHouseLotInfoLog a INNER JOIN ICSOIssue c ON a.TransCode=c.IssueCode AND a.TransSequence=c.Sequence AND a.WorkPoint=c.WorkPoint WHERE a.LotNo='{0}' AND a.WorkPoint='{1}' AND a.ID='{3}'", jo["LotNo"].ToString(), WorkPoint, jo["Quantity"].ToString(), jo["ID"].ToString()); } } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //委外入库撤销 public string RevocationWWPurchase(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}' ", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSOutsourcingOrder set InQuantity =InQuantity-'{0}' where OOCode='{1}' and Sequence='{2}' and WorkPoint='{3}'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public DataTable GetLogNewID(string LotNo) { string WorkPoints = NFine.Code.OperatorProvider.Provider.GetCurrent().Location.TrimEnd(','); string sql = @" select top 1 a.ID,a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{0}' and a.WorkPoint='{1}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc "; sql = string.Format(sql, LotNo, WorkPoints); DataTable dt = SqlHelper.GetDataTableBySql(sql); return dt; } public string RevocationPickingCPRKDC(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update a set IssueQuantity =IssueQuantity-'{0}' from ICSMOPick a left join ICSMO b on a.MODetailID=b.MODetailID and a.WorkPoint=b.WorkPoint where b.MOCode='{1}' and b.Sequence+'~'+a.Sequence='{2}' and a.WorkPoint='{3}'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationICSOOPickWWCPRKDC(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update a set IssueQuantity =IssueQuantity-'{0}' from ICSOOPick a left join ICSOutsourcingOrder b on a.OODetailID=b.OODetailID and a.WorkPoint=b.WorkPoint where b.OOCode='{1}' and b.Sequence+'~'+a.Sequence='{2}' and a.WorkPoint='{3}'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationWYTDB(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set MTIME=getdate(),MUSER='{1}',MUSERName='{2}',WarehouseCode='{5}',LocationCode='{6}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint, jo["FromWarehouseCode"].ToString(), jo["FromLocationCode"].ToString()); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationWWDHRK(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}' ", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSODeliveryNotice set RCVQuantity =RCVQuantity-'{0}' where ODNCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and DNType='1'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationWWTHWWTHD(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSODeliveryNotice set RCVQuantity =RCVQuantity-'{0}' where ODNCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and ODNType='2' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationWWTHHZRKD(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSOutsourcingReceive set RCVQuantity =RCVQuantity-'{0}' where RCVCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and Type='2' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationWWRK(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}' ", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSOutsourcingReceive set RCVQuantity =RCVQuantity-'{0}' where RCVCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and Type='1' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationCGTTHD(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSDeliveryNotice set RCVQuantity =RCVQuantity-'{0}' where DNCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and DNType='2' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationCGTHZRKD(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSPurchaseReceive set RCVQuantity =RCVQuantity-'{0}' where RCVCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and Type='2' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationXSTXSTHD(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}' ", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSSDN set SDNQuantity =SDNQuantity-'{0}' where SDNCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and Type='2'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationWWFLBLB(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update a set IssueQuantity =IssueQuantity-'{0}' from ICSOOPick a left join ICSOutsourcingOrder b on a.OODetailID=b.OODetailID and a.WorkPoint=b.WorkPoint where b.OOCode='{1}' and b.Sequence+'~'+a.Sequence='{2}' and a.WorkPoint='{3}'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationWWFLLLSQ(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSOApply set IssueQuantity =IssueQuantity-'{0}' where ApplyCode='{1}' and Sequence='{2}' and WorkPoint='{3}' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationOOIssue(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSOIssue set IssueQuantity =IssueQuantity-'{0}' where IssueCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and Type='1' and Status='2'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string DeleteERPLotLog(string keyValue) { string msg = ""; string APIURL = ConfigurationManager.ConnectionStrings["ERPAPIURL"].ConnectionString + "ERPLot/DELETE"; string result = HttpPost(APIURL, keyValue); JObject Obj = (JObject)JsonConvert.DeserializeObject(result);//或者JObject jo = JObject.Parse(jsonText); string MessAge = Obj["Message"].ToString(); string Success = Obj["Success"].ToString(); if (Success.ToUpper() == "FALSE") { msg = MessAge; } return msg; } //接口api解析 public static string HttpPost(string url, string body) { try { Encoding encoding = Encoding.UTF8; HttpWebRequest request = (HttpWebRequest)WebRequest.Create(url); request.Method = "POST"; request.Accept = "application/json, text/javascript, */*"; //"text/html, application/xhtml+xml, */*"; request.ContentType = "application/json; charset=utf-8"; byte[] buffer = encoding.GetBytes(body); request.ContentLength = buffer.Length; request.GetRequestStream().Write(buffer, 0, buffer.Length); HttpWebResponse response = (HttpWebResponse)request.GetResponse(); using (StreamReader reader = new StreamReader(response.GetResponseStream(), encoding)) { return reader.ReadToEnd(); } } catch (WebException ex) { throw new Exception(ex.Message); } } //销售出库 public string RevocationXSCK(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSSSD set SSDQuantity =SSDQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SSDCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //销售出库(晶华销售出库) public string RevocationXSCKJINH(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@" update ICSSSD set SSDQuantity =SSDQuantity-'{0}' , MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where SSDCode='{3}' and Sequence='{4}' and WorkPoint='{5}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationHZXSCK(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}' ", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSSSD set SSDQuantity =SSDQuantity-'{0}' where SSDCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and Type='2'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //采购入库撤销 public string RevocationSHDRK(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}' ", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSPurchaseReceive set RCVQuantity =RCVQuantity-'{0}' where RCVCode='{1}' and Sequence='{2}' and WorkPoint='{3}'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //生产订单备料表 public string RevocationPickingJHBWLL(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); string checksql = @"select a.id from ICSMOPick a INNER JOIN ICSMO b ON a.MODetailID=b.MODetailID AND a.WorkPoint=b.WorkPoint where b.mocode='{0}' and a.WorkPoint='{1}' AND a.SupplyType='3' AND b.MOStatus<>'3' and a.EATTRIBUTE1<>'1' "; checksql = string.Format(checksql, jo["TransCode"].ToString(), WorkPoint); DataTable checkdt = SqlHelper.GetDataTableBySql(checksql); if (checkdt.Rows.Count == 0 || checkdt == null) {//不需要回写单据数量 } else {//需要回写单据子件已领数量 sql += string.Format(@"update a set IssueQuantity =IssueQuantity-'{0}' from ICSMOPick a left join ICSMO b on a.MODetailID=b.MODetailID and a.WorkPoint=b.WorkPoint where b.MOCode='{1}' and b.Sequence+'~'+a.Sequence='{2}' and a.WorkPoint='{3}'", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); } sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //副产品入库 public string RevocationFCPRK(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"delete from ICSWareHouseLotInfo where LotNo='{0}' and WorkPoint='{1}'", jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"UPDATE d SET IssueQuantity=ISNULL(IssueQuantity,0)+'{2}' FROM ICSInventoryLot a INNER JOIN ICSInventoryLotDetail b ON a.LotNo=b.LotNo AND a.WorkPoint=b.WorkPoint INNER JOIN ICSMO c ON b.TransCode=c.MOCode AND b.WorkPoint=c.WorkPoint INNER JOIN ICSMOPick d ON c.MODetailID=d.MODetailID AND b.TransSequence=c.Sequence+'~'+d.Sequence AND b.WorkPoint=d.WorkPoint WHERE a.LotNo='{0}' AND a.WorkPoint='{1}'", jo["LotNo"].ToString(), WorkPoint,jo["Quantity"].ToString() ); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } public string RevocationHP(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"UPDATE a set a.Quantity = b.Quantity FROM ICSWareHouseLotInfo a INNER JOIN ICSWareHouseLotInfoLog b ON a.LotNo = b.LotNo and a.WorkPoint=b.WorkPoint WHERE b.BusinessCode = '33' AND b.Identification = '{0}' and a.WorkPoint='{1}' ", jo["Identification"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where Identification='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["Identification"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //移库 public string RevocationYK(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set MTIME=getdate(),MUSER='{0}',MUSERName='{1}',WarehouseCode='{4}',LocationCode='{5}' where LotNo='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint, jo["FromWarehouseCode"].ToString(), jo["FromLocationCode"].ToString()); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } //其他入库红字 public string RevocationQTRKHZ(string keyValue) { string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode; string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName; string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location; string msg = ""; string sql = string.Empty; JArray res = (JArray)JsonConvert.DeserializeObject(keyValue); foreach (var item in res) { JObject jo = (JObject)item; sql += $@" if NOT EXISTS(SELECT Id FROM ICSWareHouseLotInfoLog WHERE WorkPoint='{WorkPoint}' AND Identification=(select top 1 a.Identification from dbo.ICSWareHouseLotInfoLog a where a.LotNo='{jo["LotNo"]}' and a.WorkPoint='{WorkPoint}' and isnull(EATTRIBUTE1,'')<>'1' order by a.MTIME desc) AND Identification='{jo["Identification"]}') BEGIN RAISERROR('所选条码已产生下游单据,无法撤销！', 16, 1); RETURN END ;"; sql += string.Format(@"update ICSWareHouseLotInfo set Quantity=Quantity+'{0}',MTIME=getdate(),MUSER='{1}',MUSERName='{2}' where LotNo='{3}' and WorkPoint='{4}'", jo["Quantity"].ToString(), MUSER, MUSERNAME, jo["LotNo"].ToString(), WorkPoint); sql += string.Format(@"update ICSOtherIn set InQuantity =InQuantity-'{0}' where RCVCode='{1}' and Sequence='{2}' and WorkPoint='{3}' and Type='2' ", jo["Quantity"].ToString(), jo["TransCode"].ToString(), jo["TransSequence"].ToString(), WorkPoint); sql += string.Format(@"update ICSWareHouseLotInfoLog set EATTRIBUTE1 ='1' , EATTRIBUTE3=getdate(),EATTRIBUTE4='{0}',EATTRIBUTE5='{1}' where ID='{2}' and WorkPoint='{3}'", MUSER, MUSERNAME, jo["ID"].ToString(), WorkPoint); } try { if (SqlHelper.CmdExecuteNonQueryLi(sql) > 0) { } } catch (Exception ex) { msg = ex.Message; } return msg; } } }