华恒Mes鼎捷代码
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.

374 lines
17 KiB

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using DevExpress.XtraEditors;
using ICSSoft.Frame.WorkPoint.Entity;
using ICSSoft.Frame.WorkPoint.BLL;
using ICSSoft.Base.Config.AppConfig;
using ICSSoft.Base.Config.DBHelper;
using System.Text.RegularExpressions;
using ICSSoft.Frame.Data.BLL;
using ICSSoft.Frame.Data.Entity;
using ICSSoft.Base.ReferForm.AppReferForm;
namespace ICSSoft.Frame.APP
{
public partial class FormICSOPBOMDETAILAdd : DevExpress.XtraEditors.XtraForm
{
int flag;
string ITEMID=null;
string ROUTEID=null;
string OPID=null;
string OPBOMVER=null;
string WORKPOINT=null;
public FormICSOPBOMDETAILAdd()
{
InitializeComponent();
}
public FormICSOPBOMDETAILAdd(string itemid,string routeid,string opid,string opbomver,string workpoint)
{
ITEMID = itemid;
ROUTEID = routeid;
OPID = opid;
OPBOMVER = opbomver;
WORKPOINT = workpoint;
InitializeComponent();
flag = 0;
string sql = "select a.*,b.ROUTECODE,c.OPCODE from ICSINVENTORY as a,ICSROUTE as b,ICSOP as c where a.ID='" + ITEMID + "' and b.ID='" + routeid + "' and c.ID='" + opid + "' and INVCLASS='产品' and a.WorkPoint='" + AppConfig.WorkPointCode + "' and b.WorkPoint='" + AppConfig.WorkPointCode + "' and c.WorkPoint='" + AppConfig.WorkPointCode + "'";
DataTable ds = DBHelper.ExecuteDataset(AppConfig.AppConnectString, CommandType.Text, sql).Tables[0];
foreach(DataRow dr in ds.Rows)
{
labITEMCODE.Text = dr["INVCODE"].ToString();
labITEMNAME.Text = dr["INVNAME"].ToString();
labROUTECODE.Text = dr["ROUTECODE"].ToString();
labOPCODE.Text = dr["OPCODE"].ToString();
labUSER.Text = AppConfig.UserCode;
labUSERTIME.Text = DateTime.Now.ToString();
labWORKPOINT.Text = AppConfig.WorkPointCode;
}
}
public FormICSOPBOMDETAILAdd(string itemid, string routeid, string opid, string opbomver, string workpoint, string obitemseq,string obitemcode,string obsitemcode,string obitemuom,string obitemqty,string obitemcontype, string obvalid,string snlength)
{
WORKPOINT = workpoint;
ITEMID = itemid;
ROUTEID = routeid;
OPID = opid;
OPBOMVER = opbomver;
InitializeComponent();
string sql = "select a.*,b.ROUTECODE,c.OPCODE from ICSINVENTORY as a,ICSROUTE as b,ICSOP as c where a.ID='" + itemid + "' and b.ID='" + routeid + "' and c.ID='" + opid + "' and a.ID='" + ITEMID + "' and b.ID='" + routeid + "' and c.ID='" + opid + "' and a.WorkPoint='" + AppConfig.WorkPointCode + "' and b.WorkPoint='" + AppConfig.WorkPointCode + "' and c.WorkPoint='" + AppConfig.WorkPointCode + "'";
DataTable ds = DBHelper.ExecuteDataset(AppConfig.AppConnectString, CommandType.Text, sql).Tables[0];
foreach (DataRow dr in ds.Rows)
{
labITEMNAME.Text = dr["INVNAME"].ToString();
labROUTECODE.Text = dr["ROUTECODE"].ToString();
labOPCODE.Text = dr["OPCODE"].ToString();
labUSER.Text = AppConfig.UserCode;
labUSERTIME.Text = DateTime.Now.ToString();
labWORKPOINT.Text = AppConfig.WorkPointCode;
labITEMCODE.Text = dr["INVCODE"].ToString();
txtITEMNAME.Text=dr["INVNAME"].ToString();
rDESC.Text = dr["INVDESC"].ToString();
string a = dr["INVCODE"].ToString();
}
labTop.Text = "修改工序BOM信息";
flag = 1;
txtOPBOMMVER.Text = opbomver;
txtITEMSEQ.Text = obitemseq;
txtITEMCODE.Text = obitemcode;
txtFIRSTITEM.Text = obsitemcode;
txtUNIT.Text = obitemuom;
txtDOSAGE.Text = obitemqty;
comTYPE.Text = obitemcontype;
if (obvalid == "1")
{
checkBox1.Checked = true;
}
if (snlength != "1" && snlength!=null)
{
checkBox3.Checked = true;
txtLENGTH.Text = snlength;
}
}
#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
private void btnClose_Click(object sender, EventArgs e)
{
this.Close();
}
private void btnCancle_Click(object sender, EventArgs e)
{
this.Close();
this.DialogResult = DialogResult.Cancel;
}
#region 保存
private void btnOK_Click(object sender, EventArgs e)
{
Regex rex = new Regex(@"^\d+$");
int j = 0;
string str1=null;
string str2 = null;
string sql = "select OBITEMSEQ,OBITEMCODE from ICSOPBOMDETAIL where ITEMID='" + ITEMID + "' and OBCODE='" + labROUTECODE.Text + "' and OPBOMVER='" + OPBOMVER + "' and WorkPoint='"+WORKPOINT+"'";
DataTable dd = DBHelper.ExecuteDataset(AppConfig.AppConnectString, CommandType.Text, sql).Tables[0];
if (dd.Rows.Count == 0)
{
j++;
}
else
{
str1 = dd.Rows[0][0].ToString();
str2=dd.Rows[0][1].ToString();
}
if (txtOPBOMMVER.Text == "" || txtITEMSEQ.Text == "" || txtITEMCODE.Text == "" || txtUNIT.Text == "" || txtDOSAGE.Text == "" || comTYPE.Text=="")
{
ICSBaseSimpleCode.AppshowMessageBox("不可为空!");
}
else if(j==0 && txtITEMSEQ.Text==str1 && flag==0)
{
ICSBaseSimpleCode.AppshowMessageBox("同一产品次序不可相同!");
}
else if (j == 0 && txtITEMCODE.Text == str2 && flag == 0)
{
ICSBaseSimpleCode.AppshowMessageBox("该子阶料已存在!");
}
else if (txtLENGTH.Text==""&&checkBox3.Checked==true)
{
ICSBaseSimpleCode.AppshowMessageBox("序列号长度不可为空!");
}
else if (txtLENGTH.Text != "" && checkBox3.Checked == false)
{
ICSBaseSimpleCode.AppshowMessageBox("请勾选序列号长度!");
}
else if (!rex.Match(txtITEMSEQ.Text).Success)
{
ICSBaseSimpleCode.AppshowMessageBox("[子阶料次序]只可填入正整数!");
}
else if (!rex.Match(txtDOSAGE.Text).Success)
{
ICSBaseSimpleCode.AppshowMessageBox("[单机用量]只可填入正整数!");
}
else
{
try
{
string str = "select * from ICSINVENTORY where ID='" + ITEMID + "'";
DataTable dt = DBHelper.ExecuteDataset(AppConfig.AppConnectString, CommandType.Text, str).Tables[0];
foreach (DataRow dr in dt.Rows)
{
ICSOPBOMDETAIL opbomdetail = new ICSOPBOMDETAIL();
opbomdetail.OPID = labROUTECODE.Text + labOPCODE.Text + labITEMCODE.Text;
opbomdetail.ITEMID = ITEMID;
opbomdetail.ITEMCODE = labITEMCODE.Text;
opbomdetail.OBCODE = labROUTECODE.Text;
opbomdetail.OPBOMVER = txtOPBOMMVER.Text;
opbomdetail.OBITEMCODE = txtITEMCODE.Text;
opbomdetail.OPCODE = labOPCODE.Text;
opbomdetail.OBITEMNAME = txtITEMNAME.Text;
//opbomdetail.OBITEMECN = dr["SBITEMECN"].ToString();
opbomdetail.OBITEMUOM = txtUNIT.Text;//物料单位
opbomdetail.OBITEMQTY = int.Parse(txtDOSAGE.Text);//计量数量
opbomdetail.OBSITEMCODE = txtFIRSTITEM.Text;
opbomdetail.OBITEMTYPE = dr["INVTYPE"].ToString();//子阶料物料类型
opbomdetail.OBITEMCONTYPE = comTYPE.Text;
opbomdetail.OBITEMEFFTIME = System.DateTime.Now;
opbomdetail.OBITEMINVTIME = System.DateTime.Now;
opbomdetail.ISITEMCHECK = "0";//是否检查厂内物料
opbomdetail.MUSER = labUSER.Text;
opbomdetail.MUSERName = AppConfig.UserName;
opbomdetail.MTIME = System.DateTime.Parse(labUSERTIME.Text);
opbomdetail.WorkPoint = labWORKPOINT.Text;
opbomdetail.EATTRIBUTE1 = dr["EATTRIBUTE1"].ToString();
opbomdetail.ACTIONTYPE = 0;
opbomdetail.CHECKSTATUS = dr["CHECKSTATUS"].ToString();
opbomdetail.OBITEMSEQ = int.Parse(txtITEMSEQ.Text);
opbomdetail.OBPARSETYPE = dr["INVPARSETYPE"].ToString();
opbomdetail.OBCHECKTYPE = dr["INVCHECKTYPE"].ToString();
if (checkBox1.Checked == true)
{
opbomdetail.OBVALID = 1;
}
else
{
opbomdetail.OBVALID = 0;
}
if (checkBox3.Checked == true)
{
opbomdetail.SNLENGTH = int.Parse(txtLENGTH.Text);
}
else
{
opbomdetail.SNLENGTH = 0;
}
opbomdetail.SNLENGTH = int.Parse(dr["SNLENGTH"].ToString());
opbomdetail.NeedVendor = dr["NeedVendor"].ToString();
ICSOPBOMDETAILBLL.Add(opbomdetail, AppConfig.AppConnectString);
ICSOPBOM opbom = new ICSOPBOM();
opbom.ITEMID = ITEMID;
opbom.ITEMCODE = labITEMCODE.Text;
opbom.OBCODE = labROUTECODE.Text;
opbom.OPBOMVER = txtOPBOMMVER.Text;
opbom.OBROUTE = labROUTECODE.Text;
opbom.MUSER = labUSER.Text;
opbom.MUSERName = AppConfig.UserName;
opbom.MTIME = System.DateTime.Parse(labUSERTIME.Text);
opbom.WorkPoint = WORKPOINT;
opbom.AVIALABLE = 1;
ICSOPBOMBLL.Add(opbom, AppConfig.AppConnectString);
}
if (flag == 0)
{
ICSBaseSimpleCode.AppshowMessageBox("添加成功!");
this.Close();
}
else
{
ICSBaseSimpleCode.AppshowMessageBox("修改成功!");
this.Close();
}
}
catch (Exception ex)
{
ICSBaseSimpleCode.AppshowMessageBox(ex.Message);
}
}
}
#endregion
private void txtOPBOMMVER_ButtonClick(object sender, DevExpress.XtraEditors.Controls.ButtonPressedEventArgs e)
{
txtOPBOMMVER.Text = "";
ButtonEdit btn = (ButtonEdit)sender;
string sql = @"select SBOMVER as [标准BOM版本],SBUSAGE as [标准BOM用途]
from dbo.ICSSBOM where WorkPoint='"+AppConfig.WorkPointCode+"'";
sql = string.Format(sql);
DataTable data = DBHelper.ExecuteDataset(AppConfig.AppConnectString, CommandType.Text, sql).Tables[0];
FormDataRefer reForm = new FormDataRefer();
reForm.FormTitle = "标准BOM信息";
DataTable menuData = data;
reForm.DataSource = menuData;
reForm.MSelectFlag = false;
reForm.RowIndexWidth = 35;
reForm.HideCols.Add("ID");
reForm.FormWidth = 800;
reForm.FormHeight = 600;
reForm.FilterKey = btn.Text;
if (reForm.ShowDialog() == DialogResult.OK)
{
DataTable retData = reForm.ReturnData;
foreach (DataRow dr in retData.Rows)
{
txtOPBOMMVER.Text = dr["标准BOM版本"].ToString();
}
}
}
private void buttonEdit1_ButtonClick(object sender, DevExpress.XtraEditors.Controls.ButtonPressedEventArgs e)
{
txtITEMCODE.Text = "";
ButtonEdit btn = (ButtonEdit)sender;
string sql = @"select INVCODE as [子阶料料号],INVNAME as [子阶料名称],INVDESC as [描述]
from dbo.ICSINVENTORY where INVCLASS='物料' and WorkPoint='" + AppConfig.WorkPointCode + "'";
sql = string.Format(sql);
DataTable data = DBHelper.ExecuteDataset(AppConfig.AppConnectString, CommandType.Text, sql).Tables[0];
FormDataRefer reForm = new FormDataRefer();
reForm.FormTitle = "子阶料料号信息";
DataTable menuData = data;
reForm.DataSource = menuData;
reForm.MSelectFlag = false;
reForm.RowIndexWidth = 35;
reForm.HideCols.Add("ID");
reForm.FormWidth = 800;
reForm.FormHeight = 600;
reForm.FilterKey = btn.Text;
if (reForm.ShowDialog() == DialogResult.OK)
{
DataTable retData = reForm.ReturnData;
foreach (DataRow dr in retData.Rows)
{
txtITEMCODE.Text = dr["子阶料料号"].ToString();
txtITEMNAME.Text = dr["子阶料名称"].ToString();
rDESC.Text = dr["描述"].ToString();
}
}
}
private void txtFIRSTITEM_ButtonClick(object sender, DevExpress.XtraEditors.Controls.ButtonPressedEventArgs e)
{
txtFIRSTITEM.Text = "";
ButtonEdit btn = (ButtonEdit)sender;
string sql = @"select INVCODE as [物料料号],INVNAME as [物料料号名称],INVDESC as [描述]
from dbo.ICSINVENTORY where INVCLASS='物料' and WorkPoint='" + AppConfig.WorkPointCode + "'";
sql = string.Format(sql);
DataTable data = DBHelper.ExecuteDataset(AppConfig.AppConnectString, CommandType.Text, sql).Tables[0];
FormDataRefer reForm = new FormDataRefer();
reForm.FormTitle = "物料料号信息";
DataTable menuData = data;
reForm.DataSource = menuData;
reForm.MSelectFlag = false;
reForm.RowIndexWidth = 35;
reForm.HideCols.Add("ID");
reForm.FormWidth = 800;
reForm.FormHeight = 600;
reForm.FilterKey = btn.Text;
if (reForm.ShowDialog() == DialogResult.OK)
{
DataTable retData = reForm.ReturnData;
foreach (DataRow dr in retData.Rows)
{
txtFIRSTITEM.Text = dr["物料料号"].ToString();
}
}
}
}
}