|
|
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
}
}
|