using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Runtime.Serialization;
using System.Data;
using ICS.WCF.Base;
using ICSSoft.Entity;
using System.Data.SqlClient;

namespace ICS.MaterialReturnGet
{
    /*
     * 点料退料产生新条码
     */
    public class GetMaterialReturn
    {

        public FormICSCreatedArrivalNoticeModel CustGetMaterialReturn(OutSourePick o)
        {

            FormICSCreatedArrivalNoticeModel result = new FormICSCreatedArrivalNoticeModel();
            using (SqlConnection conn = new SqlConnection(Appconfig.GetMESStr()))
            {
                conn.Open();
                using (SqlTransaction trans = conn.BeginTransaction())
                {
                    try
                    {
                        string sql = "";
                        int dtNo = 0;
                        string VouchRow;
                        SqlCommand cmd = new SqlCommand();
                        cmd.Connection = conn;
                        cmd.Transaction = trans;

                        StringBuilder strHead = new StringBuilder();
                        strHead.AppendLine("***************接口传入参数记录****************：");
                        strHead.AppendLine("传入条码:" + o.LotNo);
                        strHead.AppendLine("传入维护人:" + o.MUSER);
                        strHead.AppendLine("传入维护人名称:" + o.MUSERName);
                        strHead.AppendLine("传入站点:" + o.WorkPoint);
                        strHead.AppendLine("传入批次:" + o.VendorLot);
                        strHead.AppendLine("传入条码数量:" + o.LOTQTY);
                        foreach (PickInfoList item in o.PickInfoList)
                        {
                            strHead.AppendLine("传入存货编码:" + item.SubInvCode);
                            strHead.AppendLine("传入工单号:" + item.MOCode);
                            strHead.AppendLine("传入领料单号:" + item.VouchCode);
                            strHead.AppendLine("传入领料单行号:" + item.VouchRow);
                            strHead.AppendLine("传入供应商编码:" + item.DeleteStatus);
                            strHead.AppendLine("传入物料编码:" + item.InvCode);
                            strHead.AppendLine("传入数量:" + item.Quantity);
                            strHead.AppendLine("传入库房编码:" + item.WHCode);
                            strHead.AppendLine("传入库位:" + item.BinCode);
                        }
                        strHead.AppendLine("***************接口传入参数记录****************：");
                        Appconfig.WriteLogFile(strHead.ToString(), "点料退料产生新条码接口日志");
                        StringBuilder resultlog = new StringBuilder();


                        foreach (PickInfoList item in o.PickInfoList)
                        {
                            #region 判断输入合法
                            string BinCode = fenge(item.BinCode);
                            string WHID;
                            string checkSQL = @"select * from ICSMOBOM where MOCODE='{0}' AND WorkPoint='{1}'";
                            sql = string.Format(checkSQL, item.MOCode, o.WorkPoint);
                            DataTable chkdt = SQlReturnData(sql, cmd);
                            if (chkdt.Rows.Count <= 0)
                            {
                                throw new Exception("传入工单号:" + item.MOCode + "不存在，无法创建条码！");
                            }
                            
                            checkSQL = @"select * from ICSINVENTORY where INVCODE='{0}' AND WorkPoint='{1}'";
                            sql = string.Format(checkSQL, item.InvCode, o.WorkPoint);
                            chkdt = SQlReturnData(sql, cmd);
                            if (chkdt.Rows.Count <= 0)
                            {
                                throw new Exception("传入料号:" + item.InvCode + "不存在，无法创建条码！");
                            }

                            checkSQL = @"select * from ICSMaterialPick where VouchCode='{0}' and VouchRow='{1}' AND WorkPoint='{1}'";
                            sql = string.Format(checkSQL, item.VouchCode, item.VouchRow, o.WorkPoint);
                            chkdt = SQlReturnData(sql, cmd);
                            if (chkdt.Rows.Count <= 0)
                            {
                                throw new Exception("传入领料单号:" + item.VouchCode + "和行号：" + item.VouchRow + "不存在！");
                            }

                            checkSQL = @"select Serial from ICSStorage
                                           WHERE StorageCode='{0}' and WorkPoint='{1}'";
                            checkSQL = string.Format(checkSQL, item.WHCode, o.WorkPoint);
                            chkdt = SQlReturnData(checkSQL, cmd);
                            if (chkdt.Rows.Count == 0)
                            {
                                throw new Exception("传入仓库:" + item.WHCode + "不存在，无法创建条码!");
                            }
                            else
                            {
                                WHID = chkdt.Rows[0]["Serial"].ToString();
                            }
                            checkSQL = @"select Serial from ICSStack
                                           WHERE StackCode = '{0}' and Storage_Serial='{1}' and WorkPoint='{2}'";
                            checkSQL = string.Format(checkSQL, BinCode, WHID, o.WorkPoint);
                            chkdt = SQlReturnData(checkSQL, cmd);
                            if (chkdt.Rows.Count == 0)
                            {
                                throw new Exception("传入库位:" + BinCode + "不属于传入仓库:" + item.WHCode + "，无法创建条码!");
                            }
                            #endregion

                            #region 生成退料单号
                            DateTime now = DateTime.Now.Date;
                            string date = now.Year.ToString() + (now.Month < 10 ? "0" + now.Month : now.Month.ToString()) + (now.Day < 10 ? "0" + now.Day : now.Day.ToString());
                            //var ITEMLot = db.ICSOutSourePick.Where(a => a.VouchCode.Contains(date)).OrderByDescending(a => a.VouchCode);
                            sql = @"select TOP 1 VouchCode
                            from ICSMaterial
                            where VouchCode like'%{0}%' AND WorkPoint='{1}'
                            order by VouchCode desc";
                            sql = string.Format(sql, date, o.WorkPoint);
                            DataTable dtRow = SQlReturnData(sql, cmd);
                            string count = "001";
                            if (dtRow.Rows.Count > 0)
                            {
                                string VouchCode = dtRow.Rows[0]["VouchCode"].ToString();
                                count = "R" + date + (Convert.ToInt64(VouchCode.Remove(0, 9)) + 1).ToString().PadLeft(3, '0');
                            }
                            else
                            {
                                count = "R" + date + "001";
                            }
                            #endregion

                            #region 生成退料单行号
                            sql = @"select TOP 1 VouchRow
                            from ICSMaterialPick
                            where VouchCode='{0}' AND WorkPoint='{1}'
                            order by VouchRow desc";
                            sql = string.Format(sql, item.VouchCode, o.WorkPoint);
                            dtRow = SQlReturnData(sql, cmd);
                            if (dtRow.Rows.Count <= 0)
                            {
                                VouchRow = "0001";
                            }
                            else
                            {
                                VouchRow = (Convert.ToInt64(dtRow.Rows[0]["VouchRow"]) + 1).ToString().PadLeft(4, '0');
                            }
                            #endregion
                            string MOCode;
                            //获取工单号
                            checkSQL = @"select MOCode from ICSMaterialPick where VouchCode='{0}' AND VouchRow='{1}' AND WorkPoint='{2}'";
                            sql = string.Format(checkSQL, item.VouchCode, item.VouchRow, o.WorkPoint);
                            chkdt = SQlReturnData(sql, cmd);
                            if (chkdt.Rows.Count <= 0)
                            {
                                throw new Exception("传入领料单号:" + item.VouchCode + "和行号：" + item.VouchRow + "不存在！");
                            }
                            else
                            {
                                MOCode = dtRow.Rows[0]["MOCode"].ToString();
                            }

                            #region 生成退料单
                            #region 判断已退数量不能大于已领数量
                            string sql1 = @"SELECT SubInvCode,SUM(Quantity) as HasQuantity
                            FROM ICSMaterialPick
                            WHERE SubInvCode='{0}' AND WorkPoint='{1}' AND MoveType='领料'
                            GROUP BY SubInvCode";
                            sql1 = string.Format(sql1, item.SubInvCode, o.WorkPoint);
                            DataTable dt1 = SQlReturnData(sql1, cmd);

                            string sql2 = @"SELECT SubInvCode,SUM(Quantity) as Quantity
                            FROM ICSMaterialPick
                            WHERE SubInvCode='{0}' AND WorkPoint='{1}' AND MoveType='退料'
                            GROUP BY SubInvCode";
                            sql2 = string.Format(sql2, item.SubInvCode, o.WorkPoint);
                            DataTable dt2 = SQlReturnData(sql2, cmd);
                            //DataTable dt2 = DBHelper.ExecuteDataset(AppConfig.AppConnectString, CommandType.Text, sql1).Tables[1];
                            if (dt1.Rows.Count > 0 && dt2.Rows.Count > 0 && dt1.Rows[0]["HasQuantity"].ToString() != "" && dt2.Rows.Count > 0 && dt2.Rows[0]["Quantity"].ToString() != "")
                            {
                                if (Convert.ToDecimal(dt2.Rows[0]["Quantity"].ToString()) + Convert.ToDecimal(item.Quantity) > Convert.ToDecimal(dt1.Rows[0]["HasQuantity"].ToString()))
                                {
                                    throw new Exception("退料单已退料总数量不能大于该物料已领数量");
                                }
                            }
                            #endregion

                            #region 判断退料数量不能超过领料单行数量
                            string sql4 = @"SELECT Reservation,ReservationRow,SUM(HasQuantity) as HasQuantity 
                            FROM ICSMaterialPick
                            WHERE Reservation='{0}' and ReservationRow='{1}' AND WorkPoint='{2}' AND MoveType='退料'
                            GROUP BY Reservation,ReservationRow";
                            sql4 = string.Format(sql4, item.VouchCode, item.VouchRow, o.WorkPoint);
                            DataTable dt4 = SQlReturnData(sql4, cmd);

                            string sql5 = @"SELECT Quantity
                            FROM ICSMaterialPick 
                            WHERE  VouchCode='{0}' and VouchRow='{1}' AND WorkPoint='{2}' AND MoveType='领料'
                            ";
                            sql5 = string.Format(sql5, item.VouchCode, item.VouchRow, o.WorkPoint);

                            DataTable dt5 = SQlReturnData(sql5, cmd);
                            if (dt4.Rows.Count > 0 && dt5.Rows.Count > 0 && dt4.Rows[0]["HasQuantity"].ToString() != "" && dt5.Rows[0]["Quantity"].ToString() != "")
                            {
                                if (Convert.ToDecimal(dt4.Rows[0]["HasQuantity"].ToString()) + Convert.ToDecimal(item.Quantity) > Convert.ToDecimal(dt5.Rows[0]["Quantity"].ToString()))
                                {
                                    throw new Exception("该物料的退料数量不能超过对应领料单行数量!");
                                }
                            }
                            #endregion

                            //更新ICSMaterial表
                            sql = string.Format(@"insert into ICSMaterial (ID,VouchCode,PickingSTATUS,ISALLINSTORAGE,CreateTIME,CreateUSER,MUSER,MUSERName,MTIME,WorkPoint,WHCode)
                            values (NEWID(),'{0}','新建','N',GETDATE(),'{1}','{2}','{3}',GETDATE(),'{4}','{5}')", count, o.MUSER, o.MUSERName, o.MUSER, o.MUSERName, o.WorkPoint, item.WHCode);
                            cmd.CommandText = sql;
                            dtNo = cmd.ExecuteNonQuery();
                            if (dtNo <= 0)
                            {
                                throw new Exception("生成退料申请单表头失败，请查看日志");
                            }

                            //更新ICSMaterialPick表
                            sql = string.Format(@"insert into ICSMaterialPick(ID,VouchCode,VouchRow,SubInvCode,InvCode,WHCode,HasQuantity,MoveType,MOCode,Quantity,Reservation,ReservationRow,DeleteStatus,cBatch,ORDERNO,EATTRIBUTE,MUSER,MUSERName,MTIME,VoucherDate,WorkPoint)
                            values( NEWID(),'{0}', '{1}', '{2}', '{3}' ,'{4}',0,'点料退料','{5}','{6}','{7}','{8}','{9}','{10}','','{11}','{12}','{13}',GETDATE(),GETDATE(),'{13}')"
                                , count, VouchRow, item.SubInvCode, item.SubInvCode, item.WHCode, MOCode, item.Quantity, item.VouchCode, item.VouchRow, item.DeleteStatus, item.DeleteStatus, MOCode, o.MUSER, o.MUSERName, o.WorkPoint);
                            cmd.CommandText = sql;
                            dtNo = cmd.ExecuteNonQuery();
                            if (dtNo <= 0)
                            {
                                throw new Exception("生成退料申请单失败，请查看日志");
                            }
                            #endregion

                            string SqlLotNO = @"select * from ICSItemLot  where LotNO = '{0}' ";
                            sql = string.Format(SqlLotNO, o.LotNo);
                            DataTable dt = SQlReturnData(sql, cmd);
                            if (dt.Rows.Count > 0)
                            {
                                throw new Exception("条码已存在,不可重复退料");
                            }
                            //生成点料退料条码
                            sql = string.Format(@"INSERT INTO dbo.ICSITEMLot
                                ( ID ,LotNO ,ItemCODE ,TransNO ,TransLine ,VENDORITEMCODE ,VENDORCODE ,
                                VenderLotNO ,PRODUCTDATE ,LOTQTY ,ACTIVE ,Exdate ,WorkPoint ,
                                MUSER ,MUSERName ,MTIME ,TYPE,ORDERNO)
                                values( NEWID(),'{0}','{1}','{2}','{3}','','',
                                '{4}',GETDATE(),'{5}','Y','2999-12-31 00:00:00.000','{6}',
                                '{7}','{8}',GETDATE(),'点料退料','')",
                                    o.LotNo, item.InvCode, count, VouchRow, o.VendorLot, o.LOTQTY, o.WorkPoint, o.MUSER, o.MUSERName);
                            cmd.CommandText = sql;
                            dtNo = cmd.ExecuteNonQuery();
                            if (dtNo <= 0)
                            {
                                throw new Exception("点料退料产生新条码失败，请查看日志");
                            }
                        }
                        foreach (PickInfoList item in o.PickInfoList)
                        {
                            string BinCode = fenge(item.BinCode);
                            string NewBinCode = BinCode;
                            string INVCode = "";
                            string WHCode = "";
                            string TranNo = "";
                            string TranLine = "";
                            string ORDERNO = "";
                            #region 获取仓库库位等信息
                            sql = @"select ItemCODE 
                            ,TransNO
                            ,TransLine
                            ,ORDERNO
                            from ICSITEMLot
                            where LotNO='{0}' AND WorkPoint='{1}'";
                            sql = string.Format(sql, o.LotNo, o.WorkPoint);
                            DataTable dt = SQlReturnData(sql, cmd);
                            if (dt.Rows.Count == 0)
                            {
                                throw new Exception("获取条码信息失败！");
                            }
                            else
                            {
                                INVCode = dt.Rows[0]["ItemCODE"].ToString();
                                TranNo = dt.Rows[0]["TransNO"].ToString();
                                TranLine = dt.Rows[0]["TransLine"].ToString();
                                ORDERNO = dt.Rows[0]["ORDERNO"].ToString();
                            }
                            sql = @"select B.StorageCode
                            from ICSStack A
                            LEFT JOIN ICSStorage B
                            ON B.Serial=A.Storage_Serial
                            where StackCode='{0}'";
                            sql = string.Format(sql, NewBinCode);
                            dt = SQlReturnData(sql, cmd);
                            if (dt.Rows.Count == 0)
                            {
                                throw new Exception("获取仓库信息失败！");
                            }
                            else
                            {
                                WHCode = dt.Rows[0]["StorageCode"].ToString();
                            }


                            #endregion

                            #region 更新ICSWareHouseInfo表
                            sql = @"update ICSWareHouseInfo 
                            set QTY=QTY+{0},MTIME='{1}'
                            where INVCode='{2}' AND WHCode='{3}' AND BinCode='{4}' AND WorkPoint='{5}'";
                            sql = string.Format(sql, o.LOTQTY, DateTime.Now, INVCode, WHCode, NewBinCode, o.WorkPoint);
                            cmd.CommandText = sql;
                            dtNo = cmd.ExecuteNonQuery();
                            if (dtNo <= 0)
                            {
                                sql = @"insert into ICSWareHouseInfo
                                values
                                ((select Serial from ICSStorage where StorageCode='{0}' and WorkPoint='{4}')
                                ,'{0}'
                                ,(SELECT Serial FROM ICSStack WHERE StackCode='{1}' and WorkPoint='{4}')
                                ,'{1}'
                                ,(SELECT ID FROM ICSINVENTORY WHERE INVCODE='{2}' and WorkPoint='{4}')
                                ,'{2}',{3},'{4}','{5}','{6}',GETDATE(),NULL)";
                                sql = string.Format(sql, WHCode, NewBinCode, INVCode, o.LOTQTY, o.WorkPoint, o.MUSER, o.MUSERName);
                                cmd.CommandText = sql;
                                dtNo = cmd.ExecuteNonQuery();
                                if (dtNo <= 0)
                                {
                                    throw new Exception("库存主表存入失败！");
                                }
                            }
                            #endregion

                            #region 更新ICSWareHouseLotInfo表
                            sql = @"insert into ICSWareHouseLotInfo
                        Values 
                        (NEWID(),'{0}',
                        (select Serial from ICSStorage where StorageCode='{1}' and WorkPoint='{5}'),
                        '{1}',
                        (SELECT Serial FROM ICSStack WHERE StackCode='{2}' and WorkPoint='{5}'),
                        '{2}',
                        (SELECT ID FROM ICSINVENTORY WHERE INVCODE='{3}' and WorkPoint='{5}'),
                        '{3}',{4},GETDATE(),'{5}','{6}','{7}',GETDATE(),'点料退料',0,0,'{8}')";
                            sql = string.Format(sql, o.LotNo, WHCode, NewBinCode, INVCode, o.LOTQTY, o.WorkPoint, o.MUSER, o.MUSERName, ORDERNO);
                            cmd.CommandText = sql;
                            dtNo = cmd.ExecuteNonQuery();
                            if (dtNo <= 0)
                            {
                                throw new Exception("库存子表数量增加失败！");
                            }
                            #endregion

                            #region 存入ICSWareHouseLotInfoLog表（日志）
                            sql = @"insert into ICSWareHouseLotInfoLog
                        Values
                        (NEWID(),'{0}','{1}','{2}','{3}','','','{8}','{9}'
                        ,{4},null,'收','点料退料','{5}','{6}',GETDATE(),'{7}','','','','','未回写','','')";
                            sql = string.Format(sql, TranNo, TranLine, INVCode, o.LotNo, o.LOTQTY, o.MUSER, o.MUSERName, o.WorkPoint, WHCode, NewBinCode);
                            cmd.CommandText = sql;
                            dtNo = cmd.ExecuteNonQuery();
                            if (dtNo <= 0)
                            {
                                throw new Exception("日志表存入失败！");
                            }
                            #endregion
                        }
                        //生成U9退料单
                        #region 接口调用
                        try
                        {
                            List<ServiceCreateRIssue.IssueData> contextList = new List<ServiceCreateRIssue.IssueData>();
                            List<ServiceCreateRIssue.IssueLineData> contextLists = new List<ServiceCreateRIssue.IssueLineData>();
                            ServiceCreateRIssue.IssueData context = new ServiceCreateRIssue.IssueData();
                            ServiceCreateRIssue.IssueLineData contexts = new ServiceCreateRIssue.IssueLineData();
                            string StackCode = "";
                            string LLCode = "";
                            foreach (PickInfoList item in o.PickInfoList)
                            {
                                //context.linelist = contextLists.ToArray();
                                //contextList.Add(context);
                                context = new ServiceCreateRIssue.IssueData();
                                StackCode = item.WHCode;
                                LLCode = item.VouchCode;
                                context.LLCode = item.VouchCode;//领料单号
                                context.DocTypeCode = "2";//类型
                                context.OrgCode = o.WorkPoint;
                                contextLists = new List<ServiceCreateRIssue.IssueLineData>();
                                contexts = new ServiceCreateRIssue.IssueLineData();
                                contexts.LLLineNO = item.VouchRow;//领料单行号
                                contexts.ItemCode = item.InvCode;//料号
                                contexts.ItemQty = item.Quantity;//数量
                                contexts.WHCode = item.WHCode;//仓库
                                contexts.LotNO = o.VendorLot;//批号
                                contextLists.Add(contexts);
                                //if (i == dt.Rows.Count - 1)
                                //{
                                context.linelist = contextLists.ToArray();
                                contextList.Add(context);
                                //}
                            }
                            sql = @"UPDATE ICSWareHouseLotInfoLog SET EATTRIBUTE5='已回写'
                                    where LotNO ='{0}' AND BusinessCode='点料退料'";
                            sql = string.Format(sql, o.LotNo);
                            cmd.CommandText = sql;
                            dtNo = cmd.ExecuteNonQuery();
                            if (dtNo <= 0)
                            {
                                throw new Exception("日志表更新失败！");
                            }
                            ServiceCreateRIssue.CreateRIssueClient client = new ServiceCreateRIssue.CreateRIssueClient();
                            ServiceCreateRIssue.CustCreateIssueOperationResult cresult = new ServiceCreateRIssue.CustCreateIssueOperationResult();
                            cresult = client.CreateIss(contextList.ToArray());
                            if (cresult.IsSuccess == false)
                            {
                                throw new Exception(cresult.MESSAGE);
                            }
                        }
                        catch (Exception ex)
                        {
                            throw new Exception(ex.Message);
                        }
                        #endregion
                        result.Code = 0;
                        result.ResMsg = "点料退料产生新条码成功";
                        result.ResData = "{}";
                        result.IsCompress = false;
                        result.IsSuccess = true;
                        return result;

                    }
                    catch (Exception ex)
                    {
                        result.Code = -1;
                        result.ResMsg = ex.Message;
                        result.ResData = null;
                        result.IsCompress = false;
                        result.IsSuccess = false;
                        StringBuilder str = new StringBuilder();
                        str.AppendLine("传入条码:" + o.LotNo);
                        str.AppendLine("传入维护人:" + o.MUSER);
                        str.AppendLine("传入维护人名称:" + o.MUSERName);
                        str.AppendLine("传入站点:" + o.WorkPoint);
                        str.AppendLine("传入批次:" + o.VendorLot);
                        str.AppendLine("传入条码数量:" + o.LOTQTY);
                        foreach (PickInfoList item in o.PickInfoList)
                        {
                            str.AppendLine("传入存货编码:" + item.SubInvCode);
                            str.AppendLine("传入工单号:" + item.MOCode);
                            str.AppendLine("传入领料单号:" + item.VouchCode);
                            str.AppendLine("传入供应商编码:" + item.DeleteStatus);
                            str.AppendLine("传入物料编码:" + item.InvCode);
                            str.AppendLine("传入数量:" + item.Quantity);
                            str.AppendLine("传入库房编码:" + item.WHCode);
                            str.AppendLine("传入库位:" + item.BinCode);
                        }
                        str.AppendLine("失败原因:" + ex.Message);
                        Appconfig.WriteLogFile(str.ToString(), "点料退料产生新条码接口日志");
                    }

                }
                conn.Close();
            }
            return result;
        }

        /// <summary>
        /// 返回值
        /// </summary>
        public class FormICSCreatedArrivalNoticeModel
        {
            //0 :正常数据，-1:失败。
            public int Code { get; set; }
            public string ResMsg { get; set; }
            public object ResData { get; set; }
            public bool IsCompress { get; set; }
            public bool IsSuccess { get; set; }
        }

        /// <summary>
        /// SQL执行方法
        /// </summary>
        /// <param name="SQl"></param>
        /// <param name="cmd"></param>
        /// <returns></returns>
        public static DataTable SQlReturnData(string SQl, SqlCommand cmd)
        {
            DataTable dt = new DataTable();
            cmd.CommandText = SQl;
            SqlDataAdapter dr = new System.Data.SqlClient.SqlDataAdapter();
            dr.SelectCommand = cmd;
            dr.Fill(dt);
            return dt;
        }

        //库位转换
        public string fenge(string sourceString)
        {
            StringBuilder sb = new StringBuilder();
            for (int i = 0; i < sourceString.Length; i++)
            {
                if (i == 0 || i == 3)
                {
                    sb.Append(sourceString[i].ToString()).Append("-");
                }
                else
                {
                    sb.Append(sourceString[i]);
                }
            }
            return sb.ToString();
        }
    }

}