using ICSSoft.Common;
using ICSSoft.Entity;
using Newtonsoft.Json;
using System;
using System.Collections.Generic;
using System.Data;
using System.Data.SqlClient;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace ICSSoft.DataProject
{
    /// <summary>
    /// 调拨单
    /// </summary>
    public class TransferDoc
    {
        private static log4net.ILog log = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType);
        private static string connString = System.Configuration.ConfigurationManager.AppSettings["ERPConnStr"];
        private static string ERPDB = System.Configuration.ConfigurationManager.AppSettings["ERPDB"];
        private static string Type = System.Configuration.ConfigurationManager.AppSettings["Type"];
        /// <summary>
        /// 审核调拨单
        /// </summary>
        /// <param name="Bills"></param>
        /// <returns></returns>
        public bool ConfirmTrans(List<ICSTransferDoc> Bills)
        {
            bool ResultFlag = false;
            string connS = "";
            //int num = 0;
            SqlConnection conn = new SqlConnection();
            SqlCommand cmd = new SqlCommand();

            if (Bills.Count <= 0)
            {
                throw new Exception("传送数据为空！");
            }
            LogInfo(Bills);
            //MergeObject(Bills, cmd);
            foreach (ICSTransferDoc head in Bills)
            {
                try
                {
                    connS = string.Format(connString, head.WorkPoint);
                    conn = new System.Data.SqlClient.SqlConnection(connS);
                    conn.Open();
                    SqlTransaction sqlTran = conn.BeginTransaction();
                    cmd = new SqlCommand();
                    cmd.Transaction = sqlTran;
                    cmd.Connection = conn;

                    string[] ss = head.WorkPoint.Split('_');
                    ERPDB = ss[1];
                    string sql = "";
                    ICSUserInfo userInfo = new ICSUserInfo();
                    userInfo = DBHelper.GetPersonInfo(head.User, cmd);
                    string cIWhCode = string.Empty;
                    string cOWhCode = string.Empty;
                    #region 检查
                    sql = "select * from dbo.TransVouch where ID='" + head.ID + "';";
                    DataTable dtCheck = DBHelper.SQlReturnData(sql, cmd);
                    if (dtCheck != null && dtCheck.Rows.Count > 0)
                    {
                        string cHandler = dtCheck.Rows[0]["cVerifyPerson"].ToString();
                        if (!string.IsNullOrEmpty(cHandler))
                        {
                            throw new Exception("调拨单ID：" + head.ID + "不是开立状态！");
                        }
                        cIWhCode = dtCheck.Rows[0]["cIWhCode"].ToString();
                        cOWhCode = dtCheck.Rows[0]["cOWhCode"].ToString();
                        sql = string.Format("select * from Warehouse where cWhCode in ('{0}','{1}')", dtCheck.Rows[0]["cOWhCode"].ToString(), dtCheck.Rows[0]["cIWhCode"].ToString());
                        DataTable dtWh = DBHelper.SQlReturnData(sql, cmd);
                        if (dtWh != null && dtWh.Rows.Count > 1)
                        {
                        }
                        else
                        {
                            throw new Exception("调拨单中转入或者转出仓库不存在！");
                        }
                    }
                    else
                    {
                        throw new Exception("调拨单ID：" + head.ID + "在U8中不存在！");
                    }
                    #endregion

                    #region 审核
                    sql = "UPDATE dbo.TransVouch SET cVerifyPerson='" + userInfo.UserName + "' ,dVerifyDate=CONVERT(VARCHAR(50),GETDATE(),112),dnverifytime=GETDATE() WHERE ID='" + head.ID + "'";
                    cmd.CommandText = sql;
                    try
                    {
                        cmd.ExecuteNonQuery();
                    }
                    catch (Exception ex)
                    {
                        log.Error("审核调拨单失败！异常：" + ex.Message + "；\r\n SQL:" + sql);
                        throw new Exception("程序异常，请联系开发人员！");
                    }
                    int bodyID = 0;
                    //                    foreach (ICSTransferDoc body in Bills)
                    //                    {
                    //                        //回写调出仓库待发数量
                    //                        string fOutcBatch = string.Empty;
                    //                        //bodyID = Convert.ToInt32(body);
                    //                        sql = @"UPDATE a SET fTransOutQuantity=ISNULL(a.fTransOutQuantity,0)-ISNULL(a.iQuantity,0)
                    //                                FROM dbo.CurrentStock a
                    //                                LEFT JOIN (SELECT a.cOWhCode,a.cIWhCode,b.cInvCode,b.autoID,
                    //                            ISNULL(b.cTVBatch,'') AS cTVBatch FROM dbo.TransVouch a 
                    //                            INNER JOIN dbo.TransVouchs b ON a.cTVCode = b.cTVCode)b 
                    //                              ON a.cInvCode=b.cInvCode AND a.cBatch=b.cTVBatch and a.cWhCode=b.cOWhCode WHERE b.autoID=@bodyID";
                    //                        cmd.Parameters.Clear();
                    //                        //cmd.Parameters.Add(new SqlParameter("@Qty", dtCheck.Rows[0]["iQuantity"].ToString()));
                    //                        cmd.Parameters.Add(new SqlParameter("@bodyID",body.ID));
                    //                        cmd.CommandText = sql;
                    //                        try
                    //                        {
                    //                            cmd.ExecuteNonQuery();
                    //                        }
                    //                        catch (Exception ex)
                    //                        {
                    //                            log.Error("回写现存量表 待调拨数量！异常：" + ex.Message + "；\r\n SQL:" + sql);
                    //                            throw new Exception("程序异常，请联系开发人员！");
                    //                        }

                    ////                        #region 判断现存量是否足够
                    ////                        sql = @"IF EXISTS(SELECT AutoID FROM dbo.CurrentStock WHERE iQuantity<0 OR iNum<0 OR fTransOutQuantity<0)
                    ////                            BEGIN
                    ////	                            DECLARE @MSG NVARCHAR(100)
                    ////	                            SELECT @MSG='ERP待调拨出库数量不足！AutoID：'+CAST(AutoID AS NVARCHAR(100)) FROM dbo.CurrentStock WHERE iQuantity<0 OR iNum<0 OR fTransOutQuantity<0
                    //// 	                            RAISERROR(@MSG,16,1)
                    ////                            END";

                    ////                        cmd.CommandText = sql;
                    ////                        cmd.ExecuteNonQuery();
                    ////                        #endregion
                    //                        //回写调入仓库在途数量
                    //                        fOutcBatch = string.Empty;
                    //                        sql = @"UPDATE a SET fTransInQuantity=ISNULL(fTransInQuantity,0)-ISNULL(a.iQuantity,0)
                    //                                FROM dbo.CurrentStock a
                    //                                LEFT JOIN (SELECT a.cOWhCode,a.cIWhCode,b.cInvCode,b.autoID,
                    //                            ISNULL(b.cTVBatch,'') AS cTVBatch FROM dbo.TransVouch a 
                    //                            INNER JOIN dbo.TransVouchs b ON a.cTVCode = b.cTVCode)b 
                    //                              ON a.cInvCode=b.cInvCode AND a.cBatch=b.cTVBatch and a.cWhCode=b.cIWhCode WHERE b.autoID=@bodyID";
                    //                        cmd.Parameters.Clear();
                    //                        //cmd.Parameters.Add(new SqlParameter("@Qty", dtCheck.Rows[0]["iQuantity"].ToString()));
                    //                        cmd.Parameters.Add(new SqlParameter("@bodyID", body.ID));
                    //                        cmd.CommandText = sql;
                    //                        try
                    //                        {
                    //                            cmd.ExecuteNonQuery();
                    //                        }
                    //                        catch (Exception ex)
                    //                        {
                    //                            log.Error("回写现存量表在途数量！异常：" + ex.Message + "；\r\n SQL:" + sql);
                    //                            throw new Exception("程序异常，请联系开发人员！");
                    //                        }

                    ////                        #region 判断现存量是否足够
                    ////                        sql = @"IF EXISTS(SELECT AutoID FROM dbo.CurrentStock WHERE iQuantity<0 OR iNum<0 OR fTransInQuantity<0)
                    ////                            BEGIN
                    ////	                            DECLARE @MSG NVARCHAR(100)
                    ////	                            SELECT @MSG='ERP待调拨入库数量不足！AutoID：'+CAST(AutoID AS NVARCHAR(100)) FROM dbo.CurrentStock WHERE iQuantity<0 OR iNum<0 OR fTransInQuantity<0
                    //// 	                            RAISERROR(@MSG,16,1)
                    ////                            END";

                    ////                        cmd.CommandText = sql;
                    ////                        cmd.ExecuteNonQuery();
                    ////                        #endregion
                    //                    }
                    #endregion
                    //0305 形态转换单CartonNum
                    sql = "select * from dbo.TransVouchs where ID='" + head.ID + "';";
                    DataTable dtChecks = DBHelper.SQlReturnData(sql, cmd);
                    #region 其他入库单
                    //取得out库单的默认显示模版
                    string DEF_ID08 = DBHelper.GetDefaultTemplate("0301", cmd);
                    VouchKey key08 = new VouchKey();
                    //key08 = U8Helper.GetPrimaryKey("rd", ErpName, 1, cmd);
                    //// 取得表头单据号
                    //string Code08 = U8Helper.GetRdrecord08Code(ErpName, "QR", cmd);
                    var num = Bills.Count;
                    Dictionary<string, int> dic = DBHelper.GetAllCode("" + ERPDB + "", "rd", "" + num + "");
                    int iFatherId = Convert.ToInt32(dic["iFatherId"].ToString());
                    int iChildId = Convert.ToInt32(dic["iChildId"].ToString());
                    DateTime date = DateTime.Now;
                    string iBaseCodeLen = DBHelper.GetAllRDCode("0301", "" + date + "", "admin");
                    #region  其他入库单表头
                    sql = @"INSERT INTO dbo.RdRecord08
                        (ID,bRdFlag,cVouchType,cBusType,cSource,cBusCode,cWhCode,dDate,cCode,cRdCode,
                        cHandler,cMemo,bTransFlag,cMaker,dVeriDate,bpufirst,biafirst,VT_ID,bIsSTQc,bOMFirst,
                        bFromPreYear,bIsComplement,iDiscountTaxType,ireturncount,
                        iverifystate,iswfcontrolled,dnmaketime,dnverifytime,bredvouch,cSourceLs,cDepCode)

                         SELECT @ID,'1','08','调拨入库','调拨',a.cTVCode,cIWhCode,CONVERT(NVARCHAR(15),GETDATE(),23),a.cTVCode,'14',
                        @cHandler,@cMemo,'0',@cMaker,CONVERT(NVARCHAR(15),GETDATE(),23),'0','0',
                        @VT_ID,'0','0','0','0','0','0','0','0',GETDATE(),GETDATE(),'0','1',cIDepCode from dbo.TransVouch a WHERE ID='" + head.ID + "' ";

                    cmd.Parameters.Clear();
                    cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
                    //cmd.Parameters.Add(new SqlParameter("@cBusCode", head.ID));

                    cmd.Parameters.Add(new SqlParameter("@cCode", iBaseCodeLen));
                    cmd.Parameters.Add(new SqlParameter("@cHandler", userInfo.UserName));
                    cmd.Parameters.Add(new SqlParameter("@cMemo", ""));
                    cmd.Parameters.Add(new SqlParameter("@cMaker", userInfo.UserName));
                    cmd.Parameters.Add(new SqlParameter("@VT_ID", DEF_ID08));
                    cmd.CommandText = sql;
                    try
                    {
                        cmd.ExecuteNonQuery();
                    }
                    catch (Exception ex)
                    {
                        log.Error("生成其他入库单表头失败！调拨单ID：" + head.ID + ";异常：" + ex.Message + "；SQL：\r\n" + sql);
                        throw new Exception("程序异常，请联系开发人员！");
                    }
                    #endregion

                    #region 3.5 其他入库单表体
                    for (int i = 0; i < dtChecks.Rows.Count; i++)
                    {
                        #region 3.5.1 表体
                        sql = @"INSERT INTO dbo.rdrecords08
                        (AutoID,ID,cInvCode,iQuantity,iSOutQuantity,iSOutNum,iFlag,iTrIds,iNQuantity,
                        cMassUnit,bLPUseFree,iRSRowNO,iOriTrackID,bCosting,bVMIUsed,iExpiratDateCalcu,iordertype,irowno,cbaccounter,cBatch,iPUnitCost,iPPrice)
                        SELECT @AutoID,@ID,cInvCode,b.iQuantity,'0','0','0',a.AutoID,iTVQuantity,
                         '0','0','0','0','1','0','0','0',@irowno,null,cTVBatch,iTVPCost,iTVPPrice 
                        from TransVouchs a
                        inner join  TransVouch b on a.ID=b.ID
                       where a.ID='" + dtChecks.Rows[i]["AutoID"].ToString() + @"';";

                        cmd.Parameters.Clear();
                        cmd.Parameters.Add(new SqlParameter("@AutoID", iChildId));
                        cmd.Parameters.Add(new SqlParameter("@ID", iFatherId));
                        //cmd.Parameters.Add(new SqlParameter("@iQuantity", dtCheck.Rows[0]["iQuantity"].ToString()));
                        //cmd.Parameters.Add(new SqlParameter("@iTrIds", body.AutoID));
                        cmd.Parameters.Add(new SqlParameter("@irowno", dtChecks.Rows[i]["irowno"].ToString()));
                        cmd.CommandText = sql;
                        try
                        {
                            cmd.ExecuteNonQuery();
                        }
                        catch (Exception ex)
                        {
                            log.Error("生成其他出库单表体失败！调拨单ID：" + head.ID + "；异常：" + ex.Message + "；SQL：\r\n" + sql);
                            throw new Exception("程序异常，请联系开发人员！");
                        }
                        #endregion

                        //更新现存量
                        key08.cBustypeUN = "调拨入库";
                        key08.cVouchTypeUN = "08";
                        key08.TableName = "IA_ST_UnAccountVouch08";
                        key08.UpdateTodoQuantity = head.UpdateTodoQuantity;
                        DBHelper.UpdateCurrentStock(cmd, dtChecks.Rows[i]["cInvCode"].ToString(), cIWhCode, "", Convert.ToDecimal(dtChecks.Rows[i]["iTVQuantity"].ToString()), key08);
                    }

                    #endregion

                    #endregion

                    #region 其他出库单

                    //取得out库单的默认显示模版
                    string DEF_ID09 = DBHelper.GetDefaultTemplate("0301", cmd);
                    //取得采购入库单单据 表头ID，表体DID
                    VouchKey key09 = new VouchKey();
                    //key09 = U8Helper.GetPrimaryKey("rd", ErpName, 1, cmd);
                    //// 取得表头单据号
                    //string Code09 = U8Helper.GetRdrecord09Code(ErpName, "QC", cmd);
                    var nums = dtChecks.Rows.Count;
                    Dictionary<string, int> dics = DBHelper.GetAllCode("" + ERPDB + "", "rd", "" + nums + "");
                    int iFatherIds = Convert.ToInt32(dics["iFatherId"].ToString());
                    int iChildIds = Convert.ToInt32(dics["iChildId"].ToString());
                    DateTime dates = DateTime.Now;
                    string iBaseCodeLens = DBHelper.GetAllRDCode("0301", "" + date + "", "admin");
                    #region  其他出库单表头
                    sql = @"INSERT INTO dbo.RdRecord09
        (ID,bRdFlag,cVouchType,cBusType,cSource,cBusCode,cWhCode,dDate,cCode,cRdCode,
        cHandler,cMemo,bTransFlag,cMaker,dVeriDate,bpufirst,biafirst,VT_ID,bIsSTQc,bOMFirst,
        bFromPreYear,bIsComplement,iDiscountTaxType,ireturncount,
        iverifystate,iswfcontrolled,dnmaketime,dnverifytime,bredvouch,cSourceLs,cDepCode)

        SELECT @ID,'0','09','调拨出库','调拨',a.cTVCode,cOWhCode,CONVERT(NVARCHAR(15),GETDATE(),23),@cCode,'24',
        @cHandler,@cMemo,'0',@cMaker,CONVERT(NVARCHAR(15),GETDATE(),23),'0','0',
        '85','0','0','0','0','0','0','0','0',GETDATE(),GETDATE(),'0','1',cODepCode from dbo.TransVouch a WHERE ID='" + head.ID + "' ";

                    cmd.Parameters.Clear();
                    cmd.Parameters.Add(new SqlParameter("@ID", iFatherIds));
                    //cmd.Parameters.Add(new SqlParameter("@cBusCode", dtCheck.Rows[0]["cTVCode"].ToString()));
                    //cmd.Parameters.Add(new SqlParameter("@cWhCode", cOWhCode));
                    cmd.Parameters.Add(new SqlParameter("@cCode", iBaseCodeLens));
                    cmd.Parameters.Add(new SqlParameter("@cHandler", userInfo.UserName));
                    cmd.Parameters.Add(new SqlParameter("@cMemo", ""));
                    cmd.Parameters.Add(new SqlParameter("@cMaker", userInfo.UserName));
                    cmd.Parameters.Add(new SqlParameter("@VT_ID", DEF_ID09));
                    cmd.CommandText = sql;
                    try
                    {
                        cmd.ExecuteNonQuery();
                    }
                    catch (Exception ex)
                    {
                        log.Error("生成其他出库单失败！调拨单ID：" + head.ID + "；异常：" + ex.Message + "；SQL：\r\n" + sql);
                        throw new Exception("程序异常，请联系开发人员！");
                    }
                    #endregion

                    #region 3.5 其他出库单表体
                    for (int i = 0; i < dtChecks.Rows.Count; i++)
                    {
                        #region 3.5.1 表体

                        //判断物料批号与现存量表批号是否一致、数量不能超过现存量物料数量
                        //sql = @"SELECT cBatch,iQuantity from CurrentStock WHERE cInvCode='" + dtCheck.Rows[0]["cInvCode"].ToString() + "'AND cWhCode='" + dtCheck.Rows[0]["cOWhCode"].ToString() + "'";
                        //DataTable dtItem = DBHelper.SQlReturnData(sql, cmd);
                        //if (dtItem != null && dtItem.Rows.Count > 0)
                        //{
                        //    if (!dtItem.Rows[0]["cBatch"].ToString().Equals(body.cTVBatch))
                        //    {
                        //        throw new Exception("物料条码的批号与U8现存量物料批号不一致,物料:" + body.cInvCode);
                        //    }
                        //    if (Convert.ToDecimal(dtItem.Rows[0]["iQuantity"].ToString()) < body.iQuantity)
                        //    {
                        //        throw new Exception("物料条码的数量大于U8现存量物料数量,物料:" + body.cInvCode);
                        //    }

                        //}
                        //else
                        //{
                        //    throw new Exception("物料:" + body.cInvCode + "在现存量表中不存在!");
                        //}
                        //key09.DID += 1;
                        //Rd09irowno += 1;
                        sql = @"INSERT INTO dbo.rdrecords09
                        (AutoID,ID,cInvCode,iQuantity,iSOutQuantity,iSOutNum,iFlag,iTrIds,iNQuantity,
                        cMassUnit,bLPUseFree,iRSRowNO,iOriTrackID,bCosting,bVMIUsed,iExpiratDateCalcu,iordertype,irowno,cbaccounter,cBatch,iPUnitCost,iPPrice)
                        SELECT @AutoID,@ID,cInvCode,a.iTVQuantity,'0','0','0',a.AutoID,iTVQuantity,
                         '0','0','0','0','1','0','0','0',a.irowno,null,cTVBatch,iTVPCost,iTVPPrice 
                         from TransVouchs a
                        inner join TransVouch b on a.ID=b.ID
                        where b.ID='" + dtChecks.Rows[i]["AutoID"].ToString() + @"' ;";

                        cmd.Parameters.Clear();
                        cmd.Parameters.Add(new SqlParameter("@AutoID", iChildIds));
                        cmd.Parameters.Add(new SqlParameter("@ID", iFatherIds));
                        //cmd.Parameters.Add(new SqlParameter("@iQuantity", dtCheck.Rows[0]["iQuantity"].ToString()));
                        //cmd.Parameters.Add(new SqlParameter("@iTrIds", body.AutoID));
                        //cmd.Parameters.Add(new SqlParameter("@irowno", Rd09irowno));

                        cmd.CommandText = sql;
                        try
                        {
                            cmd.ExecuteNonQuery();
                        }
                        catch (Exception ex)
                        {
                            log.Error("生成其他出库单表体失败！调拨单ID：" + head.ID + "；异常：" + ex.Message + "；SQL：\r\n" + sql);
                            throw new Exception("程序异常，请联系开发人员！");
                        }

                        sql = @"INSERT INTO dbo.rdrecords09sub
                                ( AutoID , ID ,iBG_Ctrl , iBGSTSum )
                                values('" + iChildIds + "','" + iFatherIds + "',0,0)";
                        cmd.CommandText = sql;
                        cmd.ExecuteNonQuery();
                        #endregion
                        if (head.UpdateStock)
                        {
                            //更新现存量
                            key09.cBustypeUN = "调拨出库";
                            key09.cVouchTypeUN = "09";
                            key09.TableName = "IA_ST_UnAccountVouch09";
                            DBHelper.UpdateCurrentStock(cmd, dtChecks.Rows[i]["cInvCode"].ToString(), cOWhCode, "", -Convert.ToDecimal(dtChecks.Rows[i]["iTVQuantity"].ToString()), key09);
                        }
                        iChildIds--;
                    }

                    #endregion

                    #endregion
                    cmd.Transaction.Commit();
                }
                catch (Exception ex)
                {
                    cmd.Transaction.Rollback();
                    log.Error(ex.Message);
                    throw new Exception(ex.Message);
                }
                finally
                {
                    if (conn.State == ConnectionState.Open)
                    {
                        conn.Close();
                    }
                    conn.Dispose();
                }
            }

            ResultFlag = true;
            return ResultFlag;

        }

        /// <summary>
        /// 记录日志
        /// </summary>
        /// <param name="Bills"></param>
        private void LogInfo(List<ICSTransferDoc> Bills)
        {
            string HeadList = string.Empty;
            string BodyList = string.Empty;
            foreach (ICSTransferDoc head in Bills)
            {
                HeadList += "\r\n 表头调拨单号：" + head.ID + "，用户：" + head.User + "，站点：" + head.WorkPoint;
                foreach (ICSTransferDoc body in Bills)
                {
                    BodyList += "\r\n 表体主键ID： " + body.ID + "";
                }
            }
            log.Info(HeadList);
            log.Info(BodyList);
        }

    }

}