You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
401 lines
20 KiB
401 lines
20 KiB
using NFine.Data.Extensions;
|
|
using System;
|
|
using System.Collections.Generic;
|
|
using System.Data;
|
|
using System.Linq;
|
|
using System.Text;
|
|
using System.Threading.Tasks;
|
|
using NFine.Code;
|
|
using NFine.Repository;
|
|
using System.Data.Common;
|
|
using NFine.Domain._03_Entity.SRM;
|
|
using ICS.Application.Entity;
|
|
using Newtonsoft.Json;
|
|
using System.Configuration;
|
|
using System.Data.SqlClient;
|
|
using ICS.Data;
|
|
using Newtonsoft.Json.Linq;
|
|
using System.Net;
|
|
using System.IO;
|
|
using NFine.Domain._03_Entity.WMS;
|
|
|
|
namespace NFine.Application.WMSKBS
|
|
{
|
|
public class ICSLotFreezeDHApp : RepositoryFactory<ICSVendor>
|
|
{
|
|
/// <summary>
|
|
/// 点击委外退料生成条码
|
|
/// </summary>
|
|
public string GetNewLotNo(string LotNO)
|
|
{
|
|
DataTable dt = new DataTable();
|
|
|
|
List<DbParameter> parameter = new List<DbParameter>();
|
|
//string sql = @"select max(LotNo) as NewLotNo from ICSInventoryLot where EATTRIBUTE1='{0}' ";
|
|
string sql = @"SELECT TOP 1 LotNO as NewLotNo FROM ICSInventoryLot WHERE EATTRIBUTE1='{0}'
|
|
ORDER BY CAST(SUBSTRING(LotNO, (LEN(LotNO)-CHARINDEX('-',REVERSE(LotNO))+1)+1,CHARINDEX('-',REVERSE(LotNO))-1) AS INT) DESC";
|
|
sql = string.Format(sql, LotNO);
|
|
dt = Repository().FindTableBySql(sql.ToString());
|
|
if (dt == null || dt.Rows.Count == 0 || dt.Rows[0]["NewLotNo"].ToString() == "")
|
|
{
|
|
return LotNO + "-1";
|
|
}
|
|
else
|
|
{
|
|
string newLotNO = dt.Rows[0]["NewLotNo"].ToString();
|
|
int COUNT = Convert.ToInt32(newLotNO.Substring(newLotNO.LastIndexOf('-') + 1)) + 1;
|
|
return LotNO + "-" + COUNT.ToString();
|
|
}
|
|
}
|
|
|
|
/// <summary>
|
|
/// 查询冻结条码是否填写过
|
|
/// </summary>
|
|
public string GetBathCode(string BatchCode)
|
|
{
|
|
string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location;
|
|
//string sql = @"select max(LotNo) as NewLotNo from ICSInventoryLot where EATTRIBUTE1='{0}' ";
|
|
string sql = $@" SELECT top 1 LotNo FROM ICSWareHouseLotInfoLog WHERE BusinessCode='52' AND EATTRIBUTE6='{BatchCode}' AND WorkPoint='{WorkPoint}' ";
|
|
|
|
DataTable dt = Repository().FindTableBySql(sql.ToString());
|
|
if (dt == null || dt.Rows.Count == 0 )
|
|
{
|
|
return "";
|
|
}
|
|
else
|
|
{
|
|
return $"该批次已经绑定过条码{dt.Rows[0]["LotNo"]}";
|
|
}
|
|
}
|
|
|
|
public string Freeze(string LotNOList, string Memo, string BatchCode)
|
|
{
|
|
string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location;
|
|
string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode;
|
|
string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName;
|
|
string Identification = Guid.NewGuid().ToString();
|
|
string msg = "";
|
|
string sql = string.Empty;
|
|
string LotList = "";
|
|
foreach (string LotNO in LotNOList.Split(','))
|
|
{
|
|
LotList += "'" + LotNO + "',";
|
|
}
|
|
try
|
|
{
|
|
LotList = LotList.TrimEnd(',');
|
|
string switchsql = @"select CASE when Enable='true' Then '是' ELSE '否' END AS Switch from ICSConfiguration
|
|
where Code ='LotFreezeToERP' and WorkPoint='{0}'";
|
|
switchsql = string.Format(switchsql, WorkPoint);
|
|
DataTable switchdt = Repository().FindTableBySql(switchsql.ToString());
|
|
if (switchdt.Rows.Count == 0 || switchdt.Rows[0]["Switch"].ToString() == "否")
|
|
//if (switchdt.Rows.Count != 0)
|
|
{
|
|
sql = @"update ICSWareHouseLotInfo set Freeze=1
|
|
where LotNo IN ({0}) and WorkPoint='{1}'
|
|
|
|
insert into ICSWareHouseLotInfoLog
|
|
(ID,Identification,LotNo,InvCode,FromWarehouseCode,FromLocationCode,Quantity,Memo,Lock,TransType,BusinessCode,ERPUpload
|
|
,MUSER,MUSERName,MTIME,WorkPoint,EATTRIBUTE6)
|
|
SELECT NEWID(),'{2}',LotNo,InvCode,WarehouseCode,LocationCode,Quantity,'{3}','0','10','52','0'
|
|
,'{4}','{5}',GETDATE(),'{1}','{6}' FROM ICSWareHouseLotInfo
|
|
WHERE LotNo IN ({0}) AND WorkPoint='{1}'";
|
|
sql = string.Format(sql, LotList, WorkPoint, Identification, Memo, MUSER, MUSERNAME, BatchCode);
|
|
if (SqlHelper.ExecuteNonQuery(sql) == LotNOList.Split(',').Count() * 2)
|
|
{
|
|
msg = "";
|
|
}
|
|
else
|
|
{
|
|
msg = "冻结失败";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
sql = @" update ICSWareHouseLotInfo set Freeze=1
|
|
where LotNo IN ({0}) and WorkPoint='{1}'
|
|
|
|
insert into ICSWareHouseLotInfoLog
|
|
(ID,Identification,LotNo,InvCode,FromWarehouseCode,FromLocationCode,Quantity,Memo,Lock,TransType,BusinessCode,ERPUpload
|
|
,MUSER,MUSERName,MTIME,WorkPoint,EATTRIBUTE6)
|
|
SELECT NEWID(),'{2}',LotNo,InvCode,WarehouseCode,LocationCode,Quantity,'{3}','0','10','52','0'
|
|
,'{4}','{5}',GETDATE(),'{6}','{7}' FROM ICSWareHouseLotInfo
|
|
WHERE LotNo IN ({0}) AND WorkPoint='{1}'
|
|
|
|
select '冻结' as Costre , '' as DepCode,d.WarehouseCode as InWhCode, (row_number() over(order by b.LotNo,d.WarehouseCode,b.InvCode)-1)/2+1 as GroupNO ,
|
|
d.WarehouseCode as OutWhCode,row_number() over(order by b.LotNo,d.WarehouseCode,b.InvCode) as Sequence,b.InvCode,'冻结' as [Type] ,d.WarehouseCode as WHCode,'false' AS UpdateStock,
|
|
d.Quantity as Quantity ,b.Amount,'{4}' as [User],b.WorkPoint,
|
|
isnull(c.BatchCode,'') as BatchCode ,isnull(c.ProjectCode,'') as ProjectCode,isnull(c.Version,'') as Version,isnull(c.Brand,'') as Brand,isnull(c.cFree1,'') as cFree1,isnull(c.cFree2,'') as cFree2,isnull(c.cFree3,'') as cFree3,isnull(c.cFree4,'') as cFree4,isnull(c.cFree5,'') as cFree5,isnull(c.cFree6,'') as cFree6,
|
|
isnull(c.cFree7,'') as cFree7,isnull(c.cFree8,'') as cFree8,isnull(c.cFree9,'') as cFree9,isnull(c.cFree10,'') as cFree10
|
|
INTO #TempERP
|
|
from ICSInventoryLot b
|
|
left join ICSExtension c on b.ExtensionID=c.ID and b.WorkPoint=c.WorkPoint
|
|
left join ICSWareHouseLotInfo d on d.LotNo=b.LotNo and d.WorkPoint=b.WorkPoint
|
|
where b.LotNo in ({0}) and b.WorkPoint='{1}'
|
|
select distinct Costre, DepCode,InWhCode,OutWhCode,[User],getdate() as MTime,WorkPoint,UpdateStock,'TransForm002' as TransferType FROM #TempERP
|
|
select Costre, Sequence,GroupNO,[Type],InvCode,WHCode,BatchCode,ProjectCode,Quantity,Amount,Version,Brand,cFree1,cFree2,cFree3,cFree4,cFree5,cFree6,cFree7,cFree8,cFree9,cFree10 FROM #TempERP
|
|
DROP TABLE #TempERP ";
|
|
sql = string.Format(sql, LotList, WorkPoint, Identification, Memo, MUSER, MUSERNAME, WorkPoint,BatchCode);
|
|
msg = CmdExecuteData(sql);
|
|
}
|
|
}
|
|
catch (Exception ex)
|
|
{
|
|
throw new Exception(ex.Message);
|
|
}
|
|
|
|
return msg;
|
|
}
|
|
|
|
public string UnFreeze(string LotNOList, string Memo)
|
|
{
|
|
string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location;
|
|
string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode;
|
|
string MUSERNAME = NFine.Code.OperatorProvider.Provider.GetCurrent().UserName;
|
|
string Identification = Guid.NewGuid().ToString();
|
|
string msg = "";
|
|
string sql = string.Empty;
|
|
string LotList = "";
|
|
foreach (string LotNO in LotNOList.Split(','))
|
|
{
|
|
LotList += "'" + LotNO + "',";
|
|
}
|
|
try
|
|
{
|
|
LotList = LotList.TrimEnd(',');
|
|
string switchsql = @"select CASE when Enable='true' Then '是' ELSE '否' END AS Switch from ICSConfiguration
|
|
where Code ='LotFreezeToERP' and WorkPoint='{0}'";
|
|
switchsql = string.Format(switchsql, WorkPoint);
|
|
DataTable switchdt = Repository().FindTableBySql(switchsql.ToString());
|
|
if (switchdt.Rows.Count == 0 || switchdt.Rows[0]["Switch"].ToString() == "否")
|
|
{
|
|
sql = @"update ICSWareHouseLotInfo set Freeze=0
|
|
where LotNo IN ({0}) and WorkPoint='{1}'
|
|
UPDATE ICSWareHouseLotInfoLog SET EATTRIBUTE6='',EATTRIBUTE7=EATTRIBUTE6 WHERE LotNo IN ({0}) and WorkPoint='{1}' AND BusinessCode='52' AND ISNULL(EATTRIBUTE6, '')!=''
|
|
insert into ICSWareHouseLotInfoLog
|
|
(ID,Identification,LotNo,InvCode,FromWarehouseCode,FromLocationCode,Quantity,Memo,Lock,TransType,BusinessCode,ERPUpload
|
|
,MUSER,MUSERName,MTIME,WorkPoint)
|
|
SELECT NEWID(),'{2}',LotNo,InvCode,WarehouseCode,LocationCode,Quantity,'{3}','0','10','53','0'
|
|
,'{4}','{5}',GETDATE(),'{1}' FROM ICSWareHouseLotInfo
|
|
WHERE LotNo IN ({0}) AND WorkPoint='{1}'";
|
|
sql = string.Format(sql, LotList, WorkPoint, Identification, Memo, MUSER, MUSERNAME);
|
|
if (SqlHelper.ExecuteNonQuery(sql) >0)
|
|
{
|
|
msg = "";
|
|
}
|
|
else
|
|
{
|
|
msg = "解除冻结失败";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
sql = @" update ICSWareHouseLotInfo set Freeze=0
|
|
where LotNo IN ({0}) and WorkPoint='{1}'
|
|
UPDATE ICSWareHouseLotInfoLog SET EATTRIBUTE6='',EATTRIBUTE7=EATTRIBUTE6 WHERE LotNo IN ({0}) and WorkPoint='{1}' AND BusinessCode='52' AND ISNULL(EATTRIBUTE6, '')!=''
|
|
insert into ICSWareHouseLotInfoLog
|
|
(ID,Identification,LotNo,InvCode,FromWarehouseCode,FromLocationCode,Quantity,Memo,Lock,TransType,BusinessCode,ERPUpload
|
|
,MUSER,MUSERName,MTIME,WorkPoint)
|
|
SELECT NEWID(),'{2}',LotNo,InvCode,WarehouseCode,LocationCode,Quantity,'{3}','0','10','53','0'
|
|
,'{4}','{5}',GETDATE(),'{6}' FROM ICSWareHouseLotInfo
|
|
WHERE LotNo IN ({0}) AND WorkPoint='{1}'
|
|
|
|
select '解冻' as Costre , '' as DepCode,d.WarehouseCode as InWhCode, (row_number() over(order by b.LotNo,d.WarehouseCode,b.InvCode)-1)/2+1 as GroupNO ,
|
|
d.WarehouseCode as OutWhCode,row_number() over(order by b.LotNo,d.WarehouseCode,b.InvCode) as Sequence,b.InvCode,'解冻' as [Type] ,d.WarehouseCode as WHCode,'false' AS UpdateStock,
|
|
d.Quantity as Quantity ,b.Amount,'{2}' as [User],b.WorkPoint,
|
|
isnull(c.BatchCode,'') as BatchCode ,isnull(c.ProjectCode,'') as ProjectCode,isnull(c.Version,'') as Version,isnull(c.Brand,'') as Brand,isnull(c.cFree1,'') as cFree1,isnull(c.cFree2,'') as cFree2,isnull(c.cFree3,'') as cFree3,isnull(c.cFree4,'') as cFree4,isnull(c.cFree5,'') as cFree5,isnull(c.cFree6,'') as cFree6,
|
|
isnull(c.cFree7,'') as cFree7,isnull(c.cFree8,'') as cFree8,isnull(c.cFree9,'') as cFree9,isnull(c.cFree10,'') as cFree10
|
|
INTO #TempERP
|
|
from ICSInventoryLot b
|
|
left join ICSExtension c on b.ExtensionID=c.ID and b.WorkPoint=c.WorkPoint
|
|
left join ICSWareHouseLotInfo d on d.LotNo=b.LotNo and d.WorkPoint=b.WorkPoint
|
|
where b.LotNo in ({0}) and b.WorkPoint='{1}'
|
|
select distinct Costre, DepCode,InWhCode,OutWhCode,[User],getdate() as MTime,WorkPoint,UpdateStock,'TransForm002' as TransferType FROM #TempERP
|
|
select Costre, Sequence,GroupNO,[Type],InvCode,WHCode,BatchCode,ProjectCode,Quantity,Amount,Version,Brand,cFree1,cFree2,cFree3,cFree4,cFree5,cFree6,cFree7,cFree8,cFree9,cFree10 FROM #TempERP
|
|
DROP TABLE #TempERP ";
|
|
sql = string.Format(sql, LotList, WorkPoint, Identification, Memo, MUSER, MUSERNAME, WorkPoint);
|
|
CmdExecuteData(sql);
|
|
}
|
|
}
|
|
catch (Exception ex)
|
|
{
|
|
throw new Exception(ex.Message);
|
|
}
|
|
|
|
return msg;
|
|
}
|
|
|
|
public string CmdExecuteData(string sql)
|
|
{
|
|
string msg = "";
|
|
try
|
|
{
|
|
|
|
string connString = SqlHelper.DataCenterConnString;
|
|
SqlConnection conn = new System.Data.SqlClient.SqlConnection(connString);
|
|
conn.Open();
|
|
SqlTransaction sqlTran = conn.BeginTransaction();
|
|
SqlCommand cmd = new SqlCommand();
|
|
cmd.Transaction = sqlTran;
|
|
cmd.Connection = conn;
|
|
try
|
|
{
|
|
DataSet DSet = SqlCommandHelper.SQlReturnDataSet(sql, cmd);
|
|
|
|
string Inputstr = SqlHelper.DataSetToJson(DSet, "details", "Costre");
|
|
string APIURL = ConfigurationManager.ConnectionStrings["ERPAPIURL"].ConnectionString + "MorphologicalTransformationToFreezeDoc/Create";
|
|
string result = HttpPost(APIURL, Inputstr);
|
|
JObject Obj = (JObject)JsonConvert.DeserializeObject(result);//或者JObject jo = JObject.Parse(jsonText);
|
|
string MessAge = Obj["Message"].ToString();
|
|
string Success = Obj["Success"].ToString();
|
|
string ERPSql = "";
|
|
if (Success.ToUpper() == "FALSE")
|
|
{
|
|
throw new Exception(MessAge);
|
|
}
|
|
else
|
|
{
|
|
//try
|
|
//{
|
|
// JArray res = (JArray)JsonConvert.DeserializeObject(Obj["Data"].ToString());
|
|
// foreach (var item in res)
|
|
// {
|
|
// JObject jo = (JObject)item;
|
|
// JArray resdetail = (JArray)JsonConvert.DeserializeObject(jo["details"].ToString());
|
|
// foreach (var detail in resdetail)
|
|
// {
|
|
// JObject det = (JObject)detail;
|
|
// ERPSql += @"UPDATE a set ERPID='{3}',ERPDetailID='{4}',ERPCode='{5}',ERPSequence='{6}',ERPUpload='1'
|
|
// from ICSWareHouseLotInfoLog a
|
|
// inner join ICSMTDOC b on a.LotNo=b.LotNo and a.WorkPoint=b.WorkPoint
|
|
// where b.MTDOCCode='{0}' and b.Sequence='{1}' and a.Identification='{2}'";
|
|
// ERPSql += @" update ICSMTDOC set MTDOCID='{3}',MTDOCDetailID='{4}' where MTDOCCode='{0}' and Sequence='{1}'";
|
|
// ERPSql = string.Format(ERPSql, MTDOCCode, det["Sequence"].ToString(), Identification, jo["ID"].ToString(), det["DetailID"].ToString(), jo["MTCode"].ToString(), det["Sequence"].ToString());
|
|
// }
|
|
// }
|
|
// SqlCommandHelper.CmdExecuteNonQuery(ERPSql, cmd);
|
|
|
|
//}
|
|
//catch (Exception ex)
|
|
//{
|
|
// msg = ex.Message;
|
|
//}
|
|
}
|
|
|
|
cmd.Transaction.Commit();
|
|
//return dt;
|
|
}
|
|
catch (Exception ex)
|
|
{
|
|
cmd.Transaction.Rollback();
|
|
msg = ex.Message;
|
|
}
|
|
finally
|
|
{
|
|
if (conn.State == ConnectionState.Open)
|
|
{
|
|
conn.Close();
|
|
}
|
|
conn.Dispose();
|
|
}
|
|
}
|
|
catch (Exception ex)
|
|
{
|
|
msg = ex.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);
|
|
}
|
|
}
|
|
|
|
/// <summary>
|
|
/// 根据ID获取条码
|
|
/// </summary>
|
|
/// <returns></returns>
|
|
public DataTable GetLotNoByID(string ID)
|
|
{
|
|
string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location;
|
|
string sql = @"select '' as ID,'' as LotNo union all
|
|
SELECT ID,LotNo FROM ICSWareHouseLotInfo WITH (NOLOCK) WHERE ID in ({0}) ";
|
|
sql = string.Format(sql, ID.TrimEnd(','));
|
|
//string role = NFine.Code.OperatorProvider.Provider.GetCurrent().RoleEnCode;
|
|
//if (role != "admin")
|
|
//{
|
|
// sql += " and b.WorkPoint='" + WorkPoint + "'";
|
|
//}
|
|
DataTable dt = SqlHelper.GetDataTableBySql(sql);
|
|
return dt;
|
|
}
|
|
|
|
|
|
//合批
|
|
public string Combine(string LotNo, string ID)
|
|
{
|
|
string msg = "";
|
|
string WorkPoint = NFine.Code.OperatorProvider.Provider.GetCurrent().Location;
|
|
string MUSER = NFine.Code.OperatorProvider.Provider.GetCurrent().UserCode;
|
|
string sql = @" select distinct LotNo,Quantity from ICSWareHouseLotInfo WHERE ID IN (" + ID.TrimEnd(',') + ")";
|
|
DataTable dt = Repository().FindTableBySql(sql.ToString());
|
|
List<LotNoCombineHead> asn = new List<LotNoCombineHead>();
|
|
LotNoCombineHead ass = new LotNoCombineHead();
|
|
for (int i = 0; i < dt.Rows.Count; i++)
|
|
{
|
|
if (LotNo == dt.Rows[i]["LotNo"].ToString())
|
|
{
|
|
continue;
|
|
}
|
|
LotNoCombineBody DetailList = new LotNoCombineBody();
|
|
DetailList.CurrentLotNo = dt.Rows[i]["LotNo"].ToString();
|
|
DetailList.CurrentQuantity = dt.Rows[i]["Quantity"].ToString();
|
|
ass.detail.Add(DetailList);
|
|
}
|
|
ass.LotNo = LotNo;
|
|
ass.User = MUSER;
|
|
ass.WorkPoint = WorkPoint;
|
|
ass.MTIME = System.DateTime.Now.ToString("s");
|
|
asn.Add(ass);
|
|
|
|
string input = JsonConvert.SerializeObject(asn);
|
|
string APIURL = ConfigurationManager.ConnectionStrings["APIURL"].ConnectionString + "LOTMerge/Create";
|
|
string result = HttpPost(APIURL, input);
|
|
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;
|
|
}
|
|
|
|
|
|
|
|
}
|
|
}
|