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.
345 lines
14 KiB
345 lines
14 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.Frame.Data.Entity;
|
|
namespace ICSSoft.Frame.MRP
|
|
{
|
|
public partial class FormICSMRP : DevExpress.XtraEditors.XtraForm
|
|
{
|
|
private DataTable dataSource = null;
|
|
private string IDs = "";
|
|
|
|
#region 构造函数
|
|
public FormICSMRP()
|
|
{
|
|
InitializeComponent();
|
|
this.MaximumSize = new Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height);
|
|
this.WindowState = FormWindowState.Maximized;
|
|
}
|
|
#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(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 退出r0
|
|
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
|
|
|
|
#region 分页
|
|
private void rptPage_PageIndexChanged(object Sender, EventArgs e)
|
|
{
|
|
|
|
DataTable data = AppConfig.GetPageData(dataSource, rptPage.PageIndex, rptPage.PageSize).Copy();
|
|
//DataTable data = AppConfig.GetPageDataByDb(tempTableName, "pagerowindex", rptPage.PageSize, rptPage.PageIndex, dataSource.Rows.Count);
|
|
gcAging.DataSource = data;
|
|
}
|
|
#endregion
|
|
|
|
#region 导出
|
|
private void btnOutPut_Click(object sender, EventArgs e)
|
|
{
|
|
FormOutExcel foe = new FormOutExcel();
|
|
if (foe.ShowDialog() == DialogResult.OK)
|
|
{
|
|
try
|
|
{
|
|
string outtype = foe._OutType;
|
|
string exceltype = foe._ExcelType;
|
|
string filename = foe._FileName;
|
|
string url = foe._Url;
|
|
string sheetname = foe._SheetName;
|
|
if (outtype.ToLower() == "excel")
|
|
{
|
|
DevExpress.XtraPrinting.XlsExportOptions op = new DevExpress.XtraPrinting.XlsExportOptions();
|
|
op.SheetName = sheetname;
|
|
gcAging.MainView.ExportToXls((url + "\\" + filename + (exceltype == "2003" ? ".xls" : ".xlsx")), op);
|
|
}
|
|
else
|
|
{
|
|
gcAging.MainView.ExportToPdf(url + "\\" + filename + ".pdf");
|
|
}
|
|
MessageBox.Show("导出成功", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
|
|
}
|
|
catch (Exception ex)
|
|
{
|
|
MessageBox.Show("异常:" + ex.Message, "异常", MessageBoxButtons.OK, MessageBoxIcon.Error);
|
|
}
|
|
}
|
|
}
|
|
#endregion
|
|
|
|
private void FormICSMRP_Load(object sender, EventArgs e)
|
|
{
|
|
//btnFilter_Click(sender, e);
|
|
dateEditMonthS.Text = DateTime.Now.ToString("yyyy-MM-dd");
|
|
}
|
|
#region 选择单据
|
|
private void txtTransferNO_ButtonClick(object sender, DevExpress.XtraEditors.Controls.ButtonPressedEventArgs e)
|
|
{
|
|
try
|
|
{
|
|
txtTransferNO.Text = "";
|
|
ButtonEdit btn = (ButtonEdit)sender;
|
|
string sql = @"SELECT D.MoCode AS 生产订单号,A.SortSeq as 行号,C.startDate AS 计划开工日期,A.InvCode AS 存货编码,E.cInvName AS 存货名称,E.cInvStd AS 规格型号
|
|
,A.modid,D.MoCode+CAST(A.SortSeq as varchar(10)) as Code
|
|
FROM mom_orderdetail A
|
|
inner join mom_morder C on A.modid=C.modid
|
|
inner join mom_order D on A.MoId=D.MoId
|
|
inner join inventory E on A.InvCode=E.cInvCode
|
|
where A.Status<4
|
|
ORDER BY C.startDate desc";
|
|
sql = string.Format(sql);
|
|
DataTable data = DBHelper.ExecuteDataset(AppConfig.GetDataBaseConnectStringByKey("[DB.ERP103]"), CommandType.Text, sql).Tables[0];
|
|
FormDataRefer reForm = new FormDataRefer();
|
|
reForm.FormTitle = "生产订单号信息";
|
|
DataTable menuData = data;
|
|
reForm.DataSource = menuData;
|
|
reForm.MSelectFlag = true;
|
|
reForm.RowIndexWidth = 35;
|
|
reForm.HideCols.Add("modid");
|
|
reForm.HideCols.Add("Code");
|
|
reForm.FormWidth = 800;
|
|
reForm.FormHeight = 600;
|
|
reForm.FilterKey = btn.Text;
|
|
if (reForm.ShowDialog() == DialogResult.OK)
|
|
{
|
|
DataTable retData = reForm.ReturnData;
|
|
string Num = "";
|
|
IDs = "";
|
|
foreach (DataRow dr in retData.Rows)
|
|
{
|
|
Num += dr["Code"].ToString() + ",";
|
|
IDs += dr["modid"].ToString() + ",";
|
|
}
|
|
txtTransferNO.Text = Num.TrimEnd(',');
|
|
}
|
|
}
|
|
catch (Exception ex)
|
|
{
|
|
MessageBox.Show("异常:" + ex.Message, "异常", MessageBoxButtons.OK, MessageBoxIcon.Error);
|
|
}
|
|
}
|
|
#endregion
|
|
|
|
private void btnFilter_Click(object sender, EventArgs e)
|
|
{
|
|
if (string.IsNullOrWhiteSpace(txtTransferNO.Text.ToString()))
|
|
{
|
|
MessageBox.Show("生产订单号不能为空!");
|
|
return;
|
|
}
|
|
if (string.IsNullOrWhiteSpace(dateEditMonthS.Text.Trim()))
|
|
{
|
|
MessageBox.Show("需求截止日期不能为空!");
|
|
return;
|
|
}
|
|
DevExpress.Utils.WaitDialogForm _wait = new DevExpress.Utils.WaitDialogForm("正在查找...请稍等...");
|
|
try
|
|
{
|
|
string sql = @"SELECT --a.MoCode,b.InvCode,d.cInvName,c.StartDate,e.cComUnitName,CAST(b.Qty AS DECIMAL(28,3)) AS Qty,CAST(g.BaseQtyN/g.BaseQtyD AS DECIMAL(28,3)) AS Rate,
|
|
--b.SortSeq,b.Define25,d.cInvAddCode,d.cInvStd,c.StartDate,c.DueDate,b.MDeptCode,f.cDepName,
|
|
--g.SortSeq AS SubSortSeq,h.cInvAddCode AS SubcInvAddCode,CAST(g.Qty-g.IssQty AS DECIMAL(28,3)) AS SurplusQty,
|
|
g.InvCode AS SubInvCode,h.cInvName AS SubcInvName,h.cInvStd AS SubcInvStd,i.cComUnitName AS SubcComUnitName,
|
|
SUM(CAST(g.Qty AS DECIMAL(28,3))) AS SubQty,
|
|
SUM(CAST(ISNULL(g.IssQty, 0) AS DECIMAL(28,3))) AS IssQty,
|
|
MAX(CAST(ISNULL(j.iQuantity, 0) AS DECIMAL(28,3))) AS iQuantity,
|
|
MAX(CAST(ISNULL(k.WayQty, 0) AS DECIMAL(28,3))) AS WayQty,
|
|
MAX(CAST(ISNULL(k.Qty, 0) AS DECIMAL(28,3))) AS Qty,
|
|
MAX(CAST(ISNULL(l.MakeQty, 0) AS DECIMAL(28,3))) AS MakeQty,
|
|
MAX(CAST(ISNULL(m.OutQty, 0) AS DECIMAL(28,3))) AS OutQty,
|
|
MAX(CAST(ISNULL(n.PickQty, 0) AS DECIMAL(28,3))) AS PickQty,
|
|
MAX(CAST(ISNULL(j.iQuantity, 0)+ISNULL(k.WayQty, 0)+ISNULL(k.Qty, 0)+ISNULL(l.MakeQty, 0)-ISNULL(m.OutQty, 0)-ISNULL(n.PickQty, 0) AS DECIMAL(28,3))) AS NeedQty
|
|
FROM mom_order a
|
|
INNER JOIN mom_orderdetail b ON a.MoId=b.MoId
|
|
INNER JOIN mom_morder c ON c.MoDId = b.MoDId
|
|
INNER JOIN Inventory d ON b.InvCode=d.cInvCode
|
|
INNER JOIN ComputationUnit e ON d.cComUnitCode=e.cComunitCode
|
|
INNER JOIN Department f ON b.MDeptCode=f.cDepCode
|
|
INNER JOIN mom_moallocate g ON b.MoDId=g.MoDId
|
|
INNER JOIN Inventory h ON g.InvCode=h.cInvCode
|
|
INNER JOIN ComputationUnit i ON h.cComUnitCode=i.cComunitCode
|
|
LEFT JOIN
|
|
(
|
|
SELECT cInvCode,SUM(iQuantity) AS iQuantity
|
|
FROM CurrentStock
|
|
WHERE cWhcode IN (SELECT cWhcode FROM Warehouse WHERE bMRP=1)
|
|
GROUP BY cInvCode
|
|
) j ON g.InvCode=j.cInvCode
|
|
LEFT JOIN
|
|
(
|
|
SELECT A.cinvcode,sum(A.iquantity-isnull(A.iArrQTY,0)) as WayQty,sum(isnull(A.iArrQTY,0)-isnull(A.freceivedqty,0)) as Qty
|
|
FROM po_podetails A
|
|
where A.cbcloser is null --and dArriveDate<={1}
|
|
group by A.cinvcode
|
|
) k ON g.InvCode=k.cinvcode
|
|
LEFT JOIN
|
|
(
|
|
SELECT a.invcode,sum(a.Qty-a.QualifiedinQty) as MakeQty
|
|
FROM mom_orderdetail A inner join mom_morder B on A.modid=b.modid
|
|
WHERE a.Status=3 and b.DueDate<={1}
|
|
group by a.InvCode
|
|
) l ON g.InvCode=l.invcode
|
|
LEFT JOIN
|
|
(
|
|
SELECT b.cinvcode,SUM(b.iquantity -isnull(b.foutquantity,0)) as OutQty
|
|
FROM SO_SOMain A inner join so_sodetails B on a.id=b.id and dPreDate<={1}
|
|
GROUP BY b.cinvcode
|
|
) m ON g.InvCode=m.cinvcode
|
|
LEFT JOIN
|
|
(
|
|
SELECT B.invcode,sum(b.qty-b.issqty) as PickQty
|
|
FROM mom_orderdetail A inner join mom_moallocate B on A.modid=B.modid
|
|
inner join mom_morder C on A.modid=C.modid
|
|
where A.Status=3 and C.startDate<={1}
|
|
group by B.invcode
|
|
) n ON g.InvCode=n.invcode
|
|
WHERE b.MoDId in ('{0}') {2}
|
|
GROUP BY g.InvCode,h.cInvName,h.cInvStd,i.cComUnitName
|
|
ORDER BY g.InvCode";
|
|
string date = "''";
|
|
if(!string.IsNullOrWhiteSpace(dateEditMonthS.Text.Trim()))
|
|
date="'"+dateEditMonthS.Text.Trim()+"'";
|
|
string qtystr = "";
|
|
if (chkAll.Checked)
|
|
qtystr = " AND l.MakeQty<=0 AND j.iQuantity+k.Qty<=n.PickQty";
|
|
sql = string.Format(sql, IDs.Replace(",", "','"), date, qtystr);
|
|
dataSource = DBHelper.ExecuteDataset(AppConfig.GetDataBaseConnectStringByKey("[DB.ERP103]"), CommandType.Text, sql).Tables[0];
|
|
|
|
gcAging.DataSource = dataSource;
|
|
gvAging.BestFitColumns();
|
|
rptPage.RecordNum = dataSource.Rows.Count;
|
|
rptPage.PageSize = 99;
|
|
rptPage.PageIndex = 1;
|
|
rptPage.ReLoad();
|
|
rptPage.PageSize = 100;
|
|
rptPage.PageIndex = 1;
|
|
rptPage.ReLoad();
|
|
_wait.Close();
|
|
}
|
|
catch (Exception ex)
|
|
{
|
|
MessageBox.Show("异常:" + ex.Message, "异常", MessageBoxButtons.OK, MessageBoxIcon.Error);
|
|
_wait.Close();
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|