RuiTengJb/ICSSoft.AppSln/ICSSoft.Frame.APP/ProductLabel/FormICSInvTransferGauge.cs

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Data.Linq;
using System.Linq;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using DevExpress.XtraEditors;
using DevExpress.XtraGrid.Views.BandedGrid;
using DevExpress.XtraGrid.Columns;
using DevExpress.XtraGrid;
using System.IO;
using System.Threading;
using ICSSoft.Base.Language.Tool;
using ICSSoft.Base.Config.AppConfig;
using ICSSoft.Base.UserControl.MessageControl;
using ICSSoft.Base.Config.DBHelper;
using ICSSoft.Base.Report.Filter;
using ICSSoft.Base.UserControl.FormControl;
using ICSSoft.Base.Report.GridReport;
using ICSSoft.Base.ReferForm.AppReferForm;
using ICSSoft.Frame.Data.BLL;
using ICSSoft.Base.Lable.PrintTool;
using DevExpress.XtraPrinting;

namespace ICSSoft.Frame.APP
{
    public partial class FormICSInvTransferGauge : DevExpress.XtraEditors.XtraForm
    {
        private string sqltxt = "";
        private string sqlconn = "";
        String guid = AppConfig.GetGuid();
        private DataTable dataSource = null;

        private string MoId = "";
        private string MoCode = "";
        private decimal Qty = 0.00m;
        DataTable Serialdata = null;



        #region 构造函数
        public FormICSInvTransferGauge()
        {
            InitializeComponent();
            this.MaximumSize = new Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height);
            this.WindowState = FormWindowState.Maximized;

        }
        public FormICSInvTransferGauge(string moID, string moCode, decimal qty)
        {
            InitializeComponent();
            this.MaximumSize = new Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height);
            this.WindowState = FormWindowState.Maximized;
            MoId = moID;
            MoCode = moCode;
            Qty = qty;

        }
        #endregion

        #region 操作权限
        public DataTable RightOfExute()
        {
            DataTable rData = new DataTable();
            rData.Columns.Add("BtnName");
            rData.Columns.Add("ActionName");
            //查看权限（必须有）
            DataRow seeRow = rData.NewRow();
            seeRow["BtnName"] = "see";
            seeRow["ActionName"] = "查看";
            rData.Rows.Add(seeRow);

            List<Control> ControlList = new List<Control>();
            ControlList.Add(btnPrint);
            ControlList.Add(btnOutPut);
            foreach (Control ctr in ControlList)
            {

                if (ctr.GetType() == typeof(SimpleButton))
                {
                    DataRow dr = rData.NewRow();
                    dr["BtnName"] = ctr.Name;
                    dr["ActionName"] = ctr.Text;
                    rData.Rows.Add(dr);
                }
            }

            rData.AcceptChanges();
            return rData;
        }
        public DataTable RightOfData()// 数据权限
        {
            DataTable rData = new DataTable();
            rData.Columns.Add("BodyName");
            rData.Columns.Add("ControlName");
            rData.Columns.Add("ControlCaption");

            rData.AcceptChanges();
            return rData;
        }
        #endregion

        #region 退出
        private void btnClose_Click(object sender, EventArgs e)
        {
            AppConfig.CloseFormShow(this.Text);
            this.Close();
        }

        private void btnExit_Click(object sender, EventArgs e)
        {
            AppConfig.CloseFormShow(this.Text);
            this.Close();
        }

        #endregion

        #region 移动窗体
        private const int WM_NCHITTEST = 0x84;
        private const int HTCLIENT = 0x1;
        private const int HTCAPTION = 0x2;
        //首先必须了解Windows的消息传递机制，当有鼠标活动消息时， 
        //系统发送WM_NCHITTEST 消息给窗体作为判断消息发生地的根据。 nchittest
        //假如你点击的是标题栏，窗体收到的消息值就是 HTCAPTION ， 
        //同样地，若接受到的消息是 HTCLIENT，说明用户点击的是客户区，也就是鼠标消息发生在客户区。 

        //重写窗体，使窗体可以不通过自带标题栏实现移动
        protected override void WndProc(ref Message m)
        {


            //当重载窗体的 WndProc 方法时，可以截获 WM_NCHITTEST 消息并改些该消息， 
            //当判断鼠标事件发生在客户区时，改写改消息，发送 HTCAPTION 给窗体， 
            //这样，窗体收到的消息就时 HTCAPTION ，在客户区通过鼠标来拖动窗体就如同通过标题栏来拖动一样。 
            //注意：当你重载 WndProc 并改写鼠标事件后，整个窗体的鼠标事件也就随之改变了。 
            switch (m.Msg)
            {
                case WM_NCHITTEST:
                    base.WndProc(ref m);
                    if ((int)m.Result == HTCLIENT)
                        m.Result = (IntPtr)HTCAPTION;
                    return;
            }
            //拦截双击标题栏、移动窗体的系统消息  
            if (m.Msg != 0xA3)
            {
                base.WndProc(ref m);
            }

        }
        #endregion

        #region 列表
        private void grvDetail_CustomDrawRowIndicator(object sender, DevExpress.XtraGrid.Views.Grid.RowIndicatorCustomDrawEventArgs e)
        {
            if (e.Info.IsRowIndicator && e.RowHandle >= 0)
                e.Info.DisplayText = (e.RowHandle + 1).ToString();
        }
        #endregion

        private void btnFilter_Click(object sender, EventArgs e)
        {

        }

        //加载
        private void FormICSInvTransferGauge_Load(object sender, EventArgs e)
        {
            init();
        }

        #region 初始化查询条件
        private void init()
        {
            #region 单号
            string sql = @"SELECT DISTINCT A.TransferNO AS [单据号] FROM ICSTransVouchs A
LEFT JOIN (SELECT TransferNO, SUM(ISNULL(PLANQTY, 0)) PLANQTY, SUM(ISNULL(ACTQTY, 0)) ACTQTY FROM ICSTransVouchs WHERE 1=1
GROUP BY TransferNO) B ON A.TransferNO = B.TransferNO WHERE 1=1 AND B.PLANQTY <> B.ACTQTY AND A.WorkPoint = '{0}' ORDER BY A.TransferNO DESC ";
            sql = string.Format(sql, AppConfig.WorkPointCode);
            DataTable dt = DBHelper.ExecuteDataset(AppConfig.AppConnectString.ToString(), CommandType.Text, sql).Tables[0];
            txtMOCode.Properties.ValueMember = "单据号";
            txtMOCode.Properties.DisplayMember = "单据号";
            txtMOCode.Properties.DataSource = dt;
            txtMOCode.Properties.NullText = "";//空时的值    
            txtMOCode.Properties.ImmediatePopup = true;//输入值是否马上弹出窗体  
            txtMOCode.Properties.ValidateOnEnterKey = true;//回车确认  
            txtMOCode.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard;//要使用户可以输入，这里须设为Standard  
            txtMOCode.Properties.AllowNullInput = DevExpress.Utils.DefaultBoolean.True; //可用Ctrl + Delete清空选择內容 
            //自适应宽度
            txtMOCode.Properties.BestFitMode = DevExpress.XtraEditors.Controls.BestFitMode.BestFitResizePopup;
            #endregion
        }
        #endregion

        private void loadData()
        {
            DevExpress.Utils.WaitDialogForm _wait = new DevExpress.Utils.WaitDialogForm("正在查找...请稍等...");
            try
            {
                _wait.Show();
                if (string.IsNullOrWhiteSpace(txtMOCode.Text.Trim()))
                {
                    ICSBaseSimpleCode.AppshowMessageBox("请输入单据号！");
                    return;
                }
                string sql = @" SELECT
	                                a.TransferNO AS cDLCode,
	                                a.TransferLine AS irowno,
	                                a.ITEMCODE AS cInvCode,
	                                b.INVNAME AS cInvName,
a.cTVBatch as cTVBatch,
	                                b.INVSTD AS cInvStd,
	                                a.PLANQTY AS iQuantity,
	                                a.FROMStorageCode,
	                                a.TOStorageCode,
	                                b.INVUOM
                                FROM
	                                ICSTransVouchs a
                                LEFT JOIN ICSINVENTORY b ON a.ITEMCODE = b.INVCODE AND a.WorkPoint=b.WorkPoint
                                WHERE a.TransferNO='{0}' AND a.WorkPoint = '{1}'
                                ORDER BY a.TransferLine,a.ITEMCODE
                                ";
                #region 20190916ZM注释


                //                sql += @"
                //                        SELECT  DISTINCT
                //	                        c.cDLCode,
                //	                        c.cInvCode,
                //	                        c.cInvName,
                //--c.cTVBatch,
                //e.VenderLotNO AS cTVBatch,
                //	                        c.cInvStd,
                //	                        c.INVUOM,
                //	                        c.iQuantity,
                //	                        d.WHCode,
                //	                        d.BinCode,
                //	                        d.LotNO,
                //	                        ISNULL(d.LotQty, 0) AS QTY,
                //	                        d.MTIME,
                //	                        f.QTYTotal
                //                        FROM
                //                        (
                //                        SELECT
                //	                        a.TransferNO AS cDLCode,
                //													a.ITEMCODE AS cInvCode,
                //													b.INVNAME AS cInvName,
                //													b.INVSTD AS cInvStd,
                //	                        SUM(ISNULL(a.PLANQTY, 0)) AS iQuantity,
                //													a.FROMStorageCode,
                //a.cTVBatch,
                //													b.INVUOM
                //												FROM
                //													ICSTransVouchs a
                //												LEFT JOIN ICSINVENTORY b ON a.ITEMCODE = b.INVCODE AND a.WorkPoint=b.WorkPoint
                //												WHERE a.TransferNO='{0}' AND a.WorkPoint = '{1}'
                //                        GROUP BY a.TransferNO,	a.ITEMCODE,	b.INVNAME,	b.INVSTD,a.FROMStorageCode,a.cTVBatch,b.INVUOM
                //                        ) c
                //                        LEFT JOIN ICSWareHouseLotInfo d ON c.cInvCode=d.INVCode AND c.FROMStorageCode=d.WHCode  AND d.WorkPoint='{1}' AND d.LotQty>0
                //
                //LEFT JOIN ICSITEMLot e ON e.LotNO=d.LotNO and c.cTVBatch= e.VenderLotNO                   
                //
                //                        LEFT JOIN (SELECT INVCode,WHCode,SUM(LotQty) AS QTYTotal FROM ICSWareHouseLotInfo WHERE WorkPoint='{1}' GROUP BY INVCode,WHCode) f ON c.cInvCode=f.INVCode AND c.FROMStorageCode=f.WHCode
                //                        ORDER BY c.cInvCode,d.MTIME,d.LotNO
                //                        ";
                #endregion
                sql += @"SELECT DISTINCT
	c.cDLCode,
	c.cInvCode,
	c.cInvName,
	k.VenderLotNO AS cTVBatch,
	c.cInvStd,
	c.INVUOM,
	c.iQuantity,
	k.WHCode,
	k.BinCode,
	k.LotNO,
	ISNULL(k.QTY, 0) AS QTY,
	k.MTIME,
	f.QTYTotal
FROM
	(
		SELECT
			a.TransferNO AS cDLCode,
			a.ITEMCODE AS cInvCode,
			b.INVNAME AS cInvName,
			b.INVSTD AS cInvStd,
			SUM (ISNULL(a.PLANQTY, 0)) AS iQuantity,
			a.FROMStorageCode,
			a.cTVBatch,
			b.INVUOM
		FROM
			ICSTransVouchs a
		LEFT JOIN ICSINVENTORY b ON a.ITEMCODE = b.INVCODE
		AND a.WorkPoint = b.WorkPoint
		WHERE
			a.TransferNO = '{0}'
		AND a.WorkPoint = '{1}'
		GROUP BY
			a.TransferNO,
			a.ITEMCODE,
			b.INVNAME,
			b.INVSTD,
			a.FROMStorageCode,
			a.cTVBatch,
			b.INVUOM
	) c
LEFT JOIN (
	SELECT
		d.BinCode,
		d.LotNO,
		ISNULL(d.LotQty, 0) AS QTY,
		d.MTIME,
		d.INVCode,
		d.WHCode,
		e.VenderLotNO
	FROM
		ICSWareHouseLotInfo d
	INNER JOIN ICSITEMLot e ON e.LotNO = d.LotNO
	WHERE
		d.WorkPoint = '{1}'
	AND d.LotQty > 0
) k ON ISNULL(c.cTVBatch, '') = ISNULL(k.VenderLotNO, '')
AND c.cInvCode = k.INVCode
AND c.FROMStorageCode = k.WHCode
LEFT JOIN (
	SELECT
		INVCode,
		WHCode,
		SUM (LotQty) AS QTYTotal
	FROM
		ICSWareHouseLotInfo
	WHERE
		WorkPoint = '{1}'
	GROUP BY
		INVCode,
		WHCode
) f ON c.cInvCode = f.INVCode
AND c.FROMStorageCode = f.WHCode
ORDER BY
	c.cInvCode,
	k.MTIME,
	k.LotNO";

                string Where = txtMOCode.Text.Trim();

                #region 查询
                if (!string.IsNullOrWhiteSpace(cmbSEQ.Text.Trim()))
                {
                    Where += "'  AND a.TransferLine='" + cmbSEQ.Text.Trim() + " ";
                }
                sql = string.Format(sql, Where, AppConfig.WorkPointCode);
                DataSet ds = DBHelper.ExecuteDataset(AppConfig.AppConnectString, CommandType.Text, sql);

                if (ds != null && ds.Tables.Count == 2)
                {
                    grdDetail.DataSource = ds.Tables[0];
                    grvDetail.BestFitColumns();

                    #region 拣料表
                    DataTable dt = ds.Tables[1];

                    #region 20190916先拿掉

                    string ItemCode = "";
                    string _cTVBatch = "";

                    string ItemCodeAndcTVBatch = string.Empty;


                    decimal QTY = 0;

                    bool CanDelete = false;
                    int count = dt.Rows.Count;
                    for (int i = 0; i < count; i++)
                    {
                        DataRow dr = dt.Rows[i];
                        //if (!ItemCode.Equals(dr["cInvCode"].ToString()))
                        //{
                        //    ItemCode = dr["cInvCode"].ToString();
                        //    QTY = 0;
                        //    CanDelete = false;
                        //}
                        if (!ItemCodeAndcTVBatch.Equals(dr["cInvCode"].ToString() + dr["cTVBatch"].ToString()))
                        {
                            ItemCodeAndcTVBatch = dr["cInvCode"].ToString() + dr["cTVBatch"].ToString();
                            //ItemCode = dr["cInvCode"].ToString();
                            //_cTVBatch = dr["cTVBatch"].ToString();
                            QTY = 0;
                            CanDelete = false;
                        }
                        if (CanDelete)
                        {
                            dr.Delete();
                            continue;
                        }

                        QTY += Convert.ToDecimal(dr["QTY"]);
                        if (QTY >= Convert.ToDecimal(dr["iQuantity"]))
                        {
                            CanDelete = true;
                        }
                    }
                    #endregion

                    dt.AcceptChanges();
                    gridControlGauge.DataSource = dt;
                    gridViewGauge.BestFitColumns();
                    #endregion
                }

                #endregion

                _wait.Close();
            }
            catch (Exception ex)
            {
                _wait.Close();
                ICSBaseSimpleCode.AppshowMessageBox(ex.ToString());
            }
        }

        private void txtMOCode_EditValueChanged(object sender, EventArgs e)
        {
            grdDetail.DataSource = null;
            gridControlGauge.DataSource = null;
            cmbSEQ.Text = "";
            cmbSEQ.Properties.Items.Clear();
            string MOCode = txtMOCode.EditValue.ToString();
            string sql = "SELECT TransferLine FROM ICSTransVouchs WHERE WorkPoint='{0}' AND TransferNO='{1}' ORDER BY TransferLine";
            sql = string.Format(sql, AppConfig.WorkPointCode, MOCode);
            DataTable dt = DBHelper.ExecuteDataset(AppConfig.AppConnectString.ToString(), CommandType.Text, sql).Tables[0];
            cmbSEQ.Properties.Items.Add("");
            cmbSEQ.Properties.Items.AddRange(dt.AsEnumerable().Select(a => a["TransferLine"]).ToList());

            loadData();
        }

        private void cmbSEQ_SelectedIndexChanged(object sender, EventArgs e)
        {
            grdDetail.DataSource = null;
            gridControlGauge.DataSource = null;

            loadData();
        }

        #region 导出
        private void btnOutPut_Click(object sender, EventArgs e)
        {
            SimpleButton btntemp = (SimpleButton)sender;
            if (AppConfig.GetUserExcuteRight(this.Tag.ToString(), btntemp.Name) == false)
            {
                ICSBaseSimpleCode.AppshowMessageBox("对不起您没有:" + btntemp.Text + "权限,请联系系统管理员！");
                return;
            }
            FormOutExcel foe = new FormOutExcel(this.Tag.ToString(), grdDetail);
            foe.ShowDialog();
        }
        #endregion

        #region 打印
        private void btnPrint_Click(object sender, EventArgs e)
        {
            try
            {
                //this.gridViewGauge.OptionsView.RowAutoHeight = true;
                //PrintingSystem print = new DevExpress.XtraPrinting.PrintingSystem();
                //PrintableComponentLink link = new PrintableComponentLink(print);
                //DevExpress.XtraPrintingLinks.CompositeLink compositeLink = new DevExpress.XtraPrintingLinks.CompositeLink();
                //print.Links.Add(link);
                //link.Component = gridControlGauge;//这里可以是可打印的部件
                //link.Margins.Top = 50;
                //link.Margins.Bottom = 0;
                //link.Margins.Left = 0;
                //link.Margins.Right = 0;
                //string _PrintHeader = MOTitle.Text;
                //PageHeaderFooter phf = link.PageHeaderFooter as PageHeaderFooter;
                //phf.Header.Content.Clear();
                //phf.Header.Content.AddRange(new string[] { "", _PrintHeader, "" });
                //phf.Header.Font = new System.Drawing.Font("宋体", 14, System.Drawing.FontStyle.Bold);
                //phf.Header.LineAlignment = BrickAlignment.Center;
                //link.CreateDocument(); //建立文档
                //print.PreviewFormEx.Show();//进行预览
                SimpleButton btntemp = (SimpleButton)sender;
                if (AppConfig.GetUserExcuteRight(this.Tag.ToString(), btntemp.Name) == false)
                {
                    ICSBaseSimpleCode.AppshowMessageBox("对不起您没有:" + btntemp.Text + "权限,请联系系统管理员！");
                    return;
                }

                if (string.IsNullOrWhiteSpace(txtMOCode.EditValue.ToString()))
                {
                    ICSBaseSimpleCode.AppshowMessageBox("请选择生产订单号！");
                    return;
                }

                List<PrintPara> parasList = new List<PrintPara>();
                PrintPara para = new PrintPara();
                para.PrintKey = "CODE";
                para.PrintValues = new object[] { txtMOCode.EditValue };
                parasList.Add(para);

                if (parasList.Count == 0)
                {
                    ICSBaseSimpleCode.AppshowMessageBox("请选择数据！");
                    return;
                }
                //FormPrintDialog f = new FormPrintDialog("015", this.Text, parasList, false, null);
                FormPrintDialog f = new FormPrintDialog("023", this.Text, parasList, false, null);

                f.ShowDialog();
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.ToString());
            }
        }
        #endregion
    }

}