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.
421 lines
17 KiB
421 lines
17 KiB
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;
|
|
using ICSSoft.Frame.Common;
|
|
|
|
namespace ICSSoft.Frame.APP
|
|
{
|
|
public partial class FormICSDispatchListsGauge : 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 FormICSDispatchListsGauge()
|
|
{
|
|
InitializeComponent();
|
|
this.MaximumSize = new Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height);
|
|
this.WindowState = FormWindowState.Maximized;
|
|
|
|
}
|
|
public FormICSDispatchListsGauge(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 FormICSDispatchListsGauge_Load(object sender, EventArgs e)
|
|
{
|
|
init();
|
|
}
|
|
|
|
#region 初始化查询条件
|
|
private void init()
|
|
{
|
|
#region 单号
|
|
string sql = "SELECT DISTINCT DispatchCode AS [单据号], MTIME FROM ICSSODispatch WHERE 1=1 AND ISNULL(Quantity,0) > ISNULL(HasQuantity,0) AND WorkPoint = '{0}' ORDER BY MTIME 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()
|
|
{
|
|
try
|
|
{
|
|
if (string.IsNullOrWhiteSpace(txtMOCode.Text.Trim()))
|
|
{
|
|
ICSBaseSimpleCode.AppshowMessageBox("请输入正确的单据号！");
|
|
return;
|
|
}
|
|
string sql = @" SELECT
|
|
a.DispatchCode cDLCode,
|
|
a.DispatchRow irowno,
|
|
a.InvCode cInvCode,
|
|
b.INVNAME cInvName,
|
|
--b.INVSTD cInvAddCode,
|
|
b.INVSTD cInvStd,
|
|
a.Quantity iQuantity,
|
|
a.WHCode cWhCode,
|
|
b.INVUOM,
|
|
a.cBatch as cBatch
|
|
FROM
|
|
ICSSODispatch a
|
|
LEFT JOIN ICSINVENTORY b ON a.InvCode = b.INVCODE AND a.WorkPoint=b.WorkPoint
|
|
WHERE a.DispatchCode='{0}' AND a.WorkPoint = '{1}'
|
|
ORDER BY a.DispatchRow,a.InvCode
|
|
";
|
|
|
|
sql += @"
|
|
SELECT
|
|
c.cDLCode,
|
|
c.cInvCode,
|
|
c.cInvName,
|
|
--c.cInvAddCode,
|
|
c.cInvStd,
|
|
c.INVUOM,
|
|
CAST(ISNULL(c.iQuantity, 0) AS DECIMAL(18,2)) AS iQuantity,
|
|
d.WHCode,
|
|
d.BinCode,
|
|
d.LotNO,
|
|
ISNULL(d.LotQty, 0) AS QTY,
|
|
ISNULL(e.QTYTotal, 0) AS QTYTotal,
|
|
d.MTIME,
|
|
c.cBatch
|
|
FROM
|
|
(
|
|
SELECT
|
|
a.DispatchCode cDLCode,
|
|
a.InvCode cInvCode,
|
|
b.INVNAME cInvName,
|
|
--b.INVSTD cInvAddCode,
|
|
b.INVSTD cInvStd,
|
|
SUM(ISNULL(a.Quantity, 0)) AS iQuantity,
|
|
a.WHCode cWhCode,
|
|
b.INVUOM,
|
|
a.cBatch cBatch
|
|
FROM
|
|
ICSSODispatch a
|
|
LEFT JOIN ICSINVENTORY b ON a.InvCode = b.INVCODE AND a.WorkPoint=b.WorkPoint
|
|
WHERE a.DispatchCode='{0}' AND a.WorkPoint = '{1}'
|
|
GROUP BY DispatchCode,a.InvCode, b.INVNAME, INVSTD,a.WHCode,INVUOM,a.cBatch
|
|
) c
|
|
LEFT JOIN (SELECT z.InvCode,z.WHCode,z.WorkPoint,z.LotQty,zz.VenderLotNO,z.BinCode,z.LotNO,z.MTIME
|
|
FROM ICSWareHouseLotInfo z
|
|
LEFT JOIN ICSITEMLot zz ON zz.LotNO=z.LotNO) d
|
|
ON c.cInvCode=d.INVCode AND d.VenderLotNO=c.cBatch AND c.cWhCode=d.WHCode AND d.WorkPoint= '{1}' AND d.LotQty>0
|
|
LEFT JOIN (SELECT INVCode,SUM(LotQty) AS QTYTotal FROM ICSWareHouseLotInfo WHERE WorkPoint= '{1}' GROUP BY INVCode) e ON c.cInvCode=e.INVCode
|
|
ORDER BY c.cInvCode,c.cBatch,d.MTIME,d.LotNO
|
|
";
|
|
|
|
|
|
string Where = txtMOCode.Text.Trim();
|
|
|
|
#region 查询
|
|
if (!string.IsNullOrWhiteSpace(cmbSEQ.Text.Trim()))
|
|
{
|
|
Where += "' AND a.DispatchRow='" + 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];
|
|
|
|
//dt = TranOutClass.TranOutX(txtMOCode.Text.Trim());
|
|
|
|
string ItemCode = "";
|
|
//string VenderLotNo = "";
|
|
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() + dr["cBatch"].ToString()))
|
|
{
|
|
ItemCode = dr["cInvCode"].ToString() + dr["cBatch"].ToString();
|
|
QTY = 0;
|
|
CanDelete = false;
|
|
}
|
|
if (CanDelete)
|
|
{
|
|
dr.Delete();
|
|
continue;
|
|
}
|
|
|
|
QTY += Convert.ToDecimal(dr["QTY"]);
|
|
if (QTY >= Convert.ToDecimal(dr["iQuantity"]))
|
|
{
|
|
CanDelete = true;
|
|
}
|
|
}
|
|
dt.AcceptChanges();
|
|
gridControlGauge.DataSource = dt;
|
|
gridViewGauge.BestFitColumns();
|
|
#endregion
|
|
}
|
|
|
|
#endregion
|
|
}
|
|
catch (Exception ex)
|
|
{
|
|
MessageBox.Show("异常:" + ex.Message, "异常", MessageBoxButtons.OK, MessageBoxIcon.Error);
|
|
}
|
|
}
|
|
|
|
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 DispatchRow FROM ICSSODispatch WHERE WorkPoint='{0}' AND DispatchCode='{1}' ORDER BY DispatchRow";
|
|
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["DispatchRow"]).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
|
|
{
|
|
#region
|
|
//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();//进行预览
|
|
#endregion
|
|
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.Text };
|
|
parasList.Add(para);
|
|
|
|
if (parasList.Count == 0)
|
|
{
|
|
ICSBaseSimpleCode.AppshowMessageBox("请选择数据！");
|
|
return;
|
|
}
|
|
FormPrintDialog f = new FormPrintDialog("022", this.Text, parasList, false, null);
|
|
f.ShowDialog();
|
|
}
|
|
catch (Exception ex)
|
|
{
|
|
MessageBox.Show(ex.ToString());
|
|
}
|
|
}
|
|
#endregion
|
|
}
|
|
}
|