meswork/8-Heli-Differential-MesProject
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: 初始化合力差速器MES采集程序

Browse Source
This commit is contained in:
yexingqiang
2026-06-08 10:59:21 +08:00
commit 1591062eef
1379 changed files with 181389 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
MisDataFunction/MesServer.Function/Function1053/OpcServer/Barcode.cs Normal file
View File

@@ -0,0 +1,90 @@
using System;
using System.Windows.Forms;
using bizFacade;
//using SystemFramework;
using MesServerWork;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
///1.扫描配送单号，用于接收物料，扫描单号的时候，将接收的物料信息显示在“物料拉动”Tab区域
///2.扫描料箱标签/看板卡，用于追溯物料批次信息
///3.扫描零件条码，根据零件图号进行防错
///第一步，判断条码类型，根据条码类型，执行对应的存储过程
///第二步，条码类型(将扫描的条码保存到对应的表中)
///第三步，扫描完成之后给出允许工作信号
/// 处理页面扫描条码
/// </summary>
/// <param name="OpName"></param>
/// <param name="barcode"></param>
public void Barcode(object e)
{
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
string barcode = Convert.ToString(msgEvent.TagValue);
string AlarmStr = "";
int IsAllowWork;
bool IsSuccess = false;
bool EngineGetOver_PLC_NextWorkStep;
//传递机型是否到位
MIS_BASE.Read_EngineGetOver_PLC(OpName, out EngineGetOver_PLC_NextWorkStep);
if (!EngineGetOver_PLC_NextWorkStep)
{
SendMessageFun.AsyncSendMessage_Notice(OpName, "PLC未传递机型");
return;
}
//物料验证
BaseDataSystemMES.PartMaterial_DM_Update(OpName, barcode, out IsSuccess);
if (!IsSuccess)
{
SendMessageFun.AsyncSendMessage_Notice(OpName, "条码无效,请确认");
return;
}
else
{
SendMessageFun.SendInfomation("MaterialList", "1", OpName);//通知界面更新零件信息
}
//获取是否允许工作
BaseDataSystemMES.MesServer_Judge_IsCanWork(OpName, out IsAllowWork);
//此处逻辑有问题 需要考虑到批次扫描 提示PLC未传递机型的情况
if (IsAllowWork == 1)
{
//BaseDataSystemMES.Material_Insert(OpName, 1);
//更新订单完工数量及物料
SendMessageFun.SendMessage("24", "11", OpName);
//通知PLC允许工作,允许工作在保存完成时清空
MIS_BASE.Write_FixAllow(OpName, true);
}
else
{
SendMessageFun.AsyncSendMessage_Notice(OpName, "请扫描物料！");
}
}
catch (Exception err)
{
////ApplicationLog.WriteLog(err, "Function02:Barcode");
}
}
}
}
}

88
MisDataFunction/MesServer.Function/Function1053/OpcServer/CallMaterials.cs Normal file
View File

@@ -0,0 +1,88 @@
using System;
using bizFacade;
using MesServerWork;
using WebApiCall;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// 叫料
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void CallMaterials(object e)
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
int tagValue = Convert.ToInt32(msgEvent.TagValue);
// 信号名称、库位1变量号、库位2变量号
// 请求叫料 1 206 2 211
// 请求退料 1 207 2 212
// 允许进入 1 208 2 213
// 退料类型 1 209 2 214
// 叫料类型 1 210 2 215
// 到料类型 1 202 2 205
// 请求进入 1 200 2 203
// AGV已离开1 201 2 204
int tagType = Convert.ToInt32(msgEvent.TagType);
if (tagValue == 1)
{
// 根据变量类型代码 获取 位置号 与 叫料类型
string positionName = "-1"; // 位置号
string engineType = "-1"; // 型号 1 3 吨
string type = "叫料"; // 操作类型 分 叫料 退料 退余料
// 206 库位1
if(tagType == 206)
{
positionName = "H1";
engineType = MIS_BASE.ReadPLC(210,OpName).ToString();
}
// 211 库位2
else if (tagType == 211)
{
positionName = "H2";
engineType = MIS_BASE.ReadPLC(215, OpName).ToString();
}
// 1.调用WebApi通知叫料
bool isOk = AGVWebApiCall.MES_To_AGV_CallGoods(positionName,engineType);
if (isOk)
{
// 2.叫料成功后 记录叫料日志
BaseDataSystemMES.Get_AGV_CallRecord(OpName, positionName, engineType, type);
}
}
else
{
if (tagType == 206)
{
MIS_BASE.WritePLC(200,OpName,false); // AGV已离开
MIS_BASE.WritePLC(201, OpName, false); // 请求进入
MIS_BASE.WritePLC(202, OpName, false); // 叫料类型
}
// 211 库位2
else if (tagType == 211)
{
MIS_BASE.WritePLC(203, OpName, false); // AGV已离开
MIS_BASE.WritePLC(204, OpName, false); // 请求进入
MIS_BASE.WritePLC(205, OpName, false); // 叫料类型
}
}
}
catch (Exception err)
{
////ApplicationLog.WriteLog(err, "Function02:ConfirmOkGo");
}
}
}
}

41
MisDataFunction/MesServer.Function/Function1053/OpcServer/ConfirmOkGo.cs Normal file
View File

@@ -0,0 +1,41 @@
using System;
using bizFacade;
//using SystemFramework;
using MesServerWork;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// 合格放行
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void ConfirmOkGo(object e)
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
int tagValue = Convert.ToInt32(msgEvent.TagValue);
if (tagValue == 1)
{
BaseDataSystemMES.Material_Insert(OpName, 1);
//更新订单完工数量及物料
Sendmessage("24", "11", OpName);
//工作完成
MIS_BASE.Write_MaterialVerifyOver(OpName, true);
}
}
catch (Exception err)
{
////ApplicationLog.WriteLog(err, "Function02:ConfirmOkGo");
}
}
}
}

86
MisDataFunction/MesServer.Function/Function1053/OpcServer/EngineGetOver.cs Normal file
View File

@@ -0,0 +1,86 @@
using System;
using System.Data;
using System.Windows.Forms;
using System.Xml.Linq;
using bizFacade;
//using SystemFramework;
using MesServerWork;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// PLC传递机型处理
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void EngineTypeGetOver_PLC(object e)
{
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
int tagValue = Convert.ToInt32(msgEvent.TagValue);
// 收到传递机型就不给允许工作了
//MIS_BASE.Write_FixAllow(OpName, false);
if (tagValue == 1)
{
int EngineTypeID;//机型代码
int PartPallet_Code;//托盘编号
string EngineType;//机型
string EngineID;//工件编号
string OrderForm;
MIS_BASE.GetEngineTypeFromPLC(OpName, out EngineTypeID, out EngineType, out EngineID, out PartPallet_Code, out OrderForm);
if (EngineTypeID <= 0 || EngineID.Length == 0 || EngineType.Length == 0)
{
MIS_BASE.WritePLC(34, OpName, true);
string msg = "【" + OpName + "】" + "PLC传递机型为空！";
MyLog4Net.MyLogHelper.Error("EngineTypeGetOver", msg);
SendMessageFun.AsyncSendMessage_Notice(OpName, "PLC传递机型为空！");
return;
}
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.EngineTypeID, EngineTypeID.ToString());
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.EngineType, EngineType);
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.EngineID, EngineID);
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.OrderForm, OrderForm);
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.PartPallet_Code, PartPallet_Code.ToString());
//显示当前订单信息
SendMessage.ShowMoby(OpName);
//判断该订单数据是否已经工作过，有的话则在WEB跳出弹窗选择 并同时禁止工作
//DataTable dt2 = BaseDataSystemMES.EngineIsTwoWork(OpName, OrderForm, EngineID);
//if (dt2.Rows[0]["result"].ToString() == "1") //已完成
//{
// //不允许工作
// MIS_BASE.Write_FixAllow(OpName, false);
// //通知WEB校验重新工作还是跳过 点重新工作给允许工作，点跳过给工作完成
// string message = "MES|Engine_Is_TwoWork|" + OpName + "|1";
// SendMessage.AsyncSendMessage(message);
//}
//else
//{
// EngineTypeGetOver_PLC_Work(OpName, EngineTypeID, EngineType, EngineID, PartPallet_Code, OrderForm);
//}
EngineTypeGetOver_PLC_Work(OpName, EngineTypeID, EngineType, EngineID, PartPallet_Code, OrderForm);
}
}
catch (Exception err)
{
// 保存出错日志 1.申请上线 2.传递机型 3.允许保存 4.扫码
MisDataSaveDate.FuntionMesRead.Alarm_SaveFileLog4Error(System.Reflection.MethodBase.GetCurrentMethod().Name, e, "Fun1053", err);
////ApplicationLog.WriteLog(err, "Function02:EngineTypeGetOver_PLC");
}
}
}
}
}

46
MisDataFunction/MesServer.Function/Function1053/OpcServer/FalseGO.cs Normal file
View File

@@ -0,0 +1,46 @@
using System;
using System.Data;
using System.Windows.Forms;
using System.Xml.Linq;
using bizFacade;
//using SystemFramework;
using MesServerWork;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// 不合格放行
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void FalseGO(object e)
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
int tagValue = Convert.ToInt32(msgEvent.TagValue);
if (tagValue == 1)
{
//不合格放行信号
//MIS_BASE.Write_FalseGO(OpName, true);
//总合格标志2（不合格）
BaseDataSystemMES.Material_Insert_NG(OpName, 2);
Sendmessage("24", "11", OpName);
//工作完成
MIS_BASE.Write_MaterialVerifyOver(OpName, true);
}
}
catch (Exception err)
{
////ApplicationLog.WriteLog(err, "Function02:FalseGO");
}
}
}
}

35
MisDataFunction/MesServer.Function/Function1053/OpcServer/HeartBeat.cs Normal file
View File

@@ -0,0 +1,35 @@
using bizFacade;
using MesServerWork;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// MES与PLC心跳监听
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void HeartBeat(object e)
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
int tagValue = Convert.ToInt32(msgEvent.TagValue);
//返写在MES心跳中
MIS_BASE.WritePLC(15, OpName, tagValue);
}
catch (Exception err)
{
////ApplicationLog.WriteLog(err, "Function02:FalseGO");
}
}
}
}

156
MisDataFunction/MesServer.Function/Function1053/OpcServer/MesRead.cs Normal file
View File

@@ -0,0 +1,156 @@
using bizFacade;
using MesServerWork;
using MesWork;
using System;
using System.Threading;
//using SystemFramework;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// 允许保存(针对半自动和手动压装工位)
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void MesRead(object e)
{
{
try
{
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
int tagValue = Convert.ToInt32(msgEvent.TagValue);
MIS_BASE.Write_FixAllow(OpName, false);
if (tagValue == 1)
{
int qualityMask;
// 保存质量数据
qualityMask = MisDataSaveDateMesRead.Funtion.MesRead(OpName, tagValue.ToString(), msgEvent.TagID.ToString());
MIS_BASE.Read_EngineID(OpName, out string EngineID);
MIS_BASE.Read_TagTypeID(39, OpName, out string OrderForm);
// 分装线保存 扣数
Db.SubLine_WorkFinish(EngineID, OpName, OrderForm, qualityMask);
// 保存物料数据
// BaseDataSystemMES.Material_Insert(OpName, qualityMask);
// 测量数据发动机在线状态 过站信息
BaseDataSystemMES.WorkStartInsert(OpName, qualityMask);
// 读取当前选择的计划中的机型，写入PLC
// 获取订单的机型
string Program_No = "";
int planCount = 0; // 计划上料数量
int haveUplaodCount = 0; // 已上料数量
int remainingQuantity = 0; // 待上料数量
Db.GetEngineType_Order(OpName, Program_No, out int EngineTypeID_Program,
out string EngineType_Program, out string EngineID_Program, out string OrderForm_Program,
out int isCheckOk_Program, out planCount, out haveUplaodCount, out remainingQuantity);
if (isCheckOk_Program == 2)
{
MIS_BASE.Write_EngineTypeID_MES(OpName, 0);
MIS_BASE.Write_EngineType_MES(OpName, "");
MIS_BASE.Write_EngineID_MES(OpName, "");
MIS_BASE.Write_OrderForm_MES(OpName, "");
MIS_BASE.WritePLC(95, OpName, planCount);
MIS_BASE.WritePLC(96, OpName, haveUplaodCount);
MIS_BASE.WritePLC(97, OpName, remainingQuantity);
//MIS_BASE.WritePLC(34, OpName, true);
string msg = "【" + OpName + "】" + "分装线无上线订单，请下达新订单！";
MyLog4Net.MyLogHelper.Error("PartLoad", msg);
SendMessage.AsyncSendMessage_Notice(OpName, msg);
Thread.Sleep(200);
MIS_BASE.Write_MaterialVerifyOver(OpName, true);
MIS_BASE.Write_MesReadOver(OpName, true);
}
else
{
// 写入机型代码 （大机型） 机型 发动机号 订单号
MIS_BASE.Write_EngineTypeID_MES(OpName, EngineTypeID_Program);
MIS_BASE.Write_EngineType_MES(OpName, EngineID_Program);
MIS_BASE.Write_OrderForm_MES(OpName, OrderForm_Program);
MIS_BASE.WritePLC(95, OpName, planCount);
MIS_BASE.WritePLC(96, OpName, haveUplaodCount);
MIS_BASE.WritePLC(97, OpName, remainingQuantity);
// 通知web显示
SendMessage.ShowMoby(OpName);
Thread.Sleep(200);
MIS_BASE.Write_MaterialVerifyOver(OpName, true);
MIS_BASE.Write_MesReadOver(OpName, true);
}
// 记录手动存储的物料数据
int byte1 = Convert.ToInt32(MIS_BASE.ReadPLC(211, OpName));
int byte2 = Convert.ToInt32(MIS_BASE.ReadPLC(202, OpName));
int byte3 = Convert.ToInt32(MIS_BASE.ReadPLC(203, OpName));
int byte4 = Convert.ToInt32(MIS_BASE.ReadPLC(204, OpName));
int byte5 = Convert.ToInt32(MIS_BASE.ReadPLC(205, OpName));
int byte6 = Convert.ToInt32(MIS_BASE.ReadPLC(206, OpName));
int byte7 = Convert.ToInt32(MIS_BASE.ReadPLC(207, OpName));
int byte8 = Convert.ToInt32(MIS_BASE.ReadPLC(208, OpName));
int byte9 = Convert.ToInt32(MIS_BASE.ReadPLC(209, OpName));
int byte10 = Convert.ToInt32(MIS_BASE.ReadPLC(210, OpName));
BaseDataSystemMES.HeLi_HMIMaterialFactory_Add(OpName, EngineID, OrderForm, byte1, byte2, byte3, byte4, byte5, byte6, byte7, byte8, byte9, byte10);
// 推送质量数据到MES的页面
// SendMessageFun.SendInfomation("ShowTimelyQuality", "1&" + qualityMask.ToString(), OpName);
// 对应手动工位的
// MIS_BASE.Write_ConfirmOkGo(OpName, true);
// 通知设备，MES的质量数据（和物料数据）保存完成
//统计在线产量，在线节拍
// SendMessage.SendActuallyCount(OpName, tagValue);
}
else
{
// 分装上线工位没有托盘到位离开，通过申请上线和保存完成代替
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.WorkStartOut, DateTime.Now.ToString());
MIS_BASE.Write_MaterialVerifyOver(OpName, false);
MIS_BASE.Write_MesReadOver(OpName, false);
MIS_BASE.Write_ConfirmOkGo(OpName, false);
MIS_BASE.Write_FixAllow(OpName, false);
MIS_BASE.Write_ConfirmOkGo(OpName, false);
// 清传递机型时 去判断一下是否申请上线 还有 如果有就不清
int isEngineGetOver = Convert.ToInt32(MIS_BASE.ReadPLC(19, OpName));
if (isEngineGetOver == 0)
{
MIS_BASE.Write_EngineTypeGetOver_MES(OpName, false);
}
else
{
MyLog4Net.MyLogHelper.Error("MesRead", OpName + "清传递机型时存在申请上线!");
}
}
}
}
catch (Exception err)
{
// 保存出错日志 1.申请上线 2.传递机型 3.允许保存 4.扫码
MisDataSaveDate.FuntionMesRead.Alarm_SaveFileLog4Error(System.Reflection.MethodBase.GetCurrentMethod().Name, e, "Fun1053", err);
////ApplicationLog.WriteLog(err, "Function08:MesReadOver");
}
}
}
}
}

55
MisDataFunction/MesServer.Function/Function1053/OpcServer/MesReadOver.cs Normal file
View File

@@ -0,0 +1,55 @@
using System;
//using SystemFramework;
using MesServerWork;
using bizFacade;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// 保存完成(针对半自动和手动压装工位)
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void MesReadOver(object e)
{
//try
//{
// DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
// string OpName = Convert.ToString(msgEvent.OpName);
// var tagValue = msgEvent.TagValue.ToString ();
// if (tagValue == "1" | tagValue.ToLower () == "true")
// {
// int qualityMask;
// MIS_BASE.Read_QualityMask(OpName, out qualityMask);
// SendInfomation("ShowTimelyQuality", "1&" + qualityMask.ToString(), OpName);//发给Web页面显示质量数据
// if (qualityMask == 1)//全部OK，给出合格放行
// {
// //如果存在线外扫描工位，根据扫描条码绑定线外数据 需要时解除禁用
// //BaseDataSystemMES.TransLaunchDataByMainMaterial(OpName, EngineType, EngineID, EngineTypeID);
// //如果存在线外排队工位，根据排队编号绑定线外数据 需要时解除禁用
// ////BaseDataSystemMES.MailLineAndSubLineData_InsertByEngineID_Subline(OpName,EngineID, EngineTypeID, EngineType);
// MIS_BASE.Write_ConfirmOkGo(OpName, true);
// //MIS_BASE.Write_FalseGO(OpName, false);
// }
// else
// {
// //MIS_BASE.Write_ConfirmOkGo(OpName, false);
// MIS_BASE.Write_FalseGO(OpName, true);
// }
// }
//}
//catch (Exception err)
//{
// ////ApplicationLog.WriteLog(err, "Function02:MesReadOver");
//}
}
}
}

40
MisDataFunction/MesServer.Function/Function1053/OpcServer/MesSaveNowData.cs Normal file
View File

@@ -0,0 +1,40 @@
using bizFacade;
using MesServerWork;
using System;
using System.Collections.Generic;
using System.Data;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using static System.Net.Mime.MediaTypeNames;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// MES保存实时质量数据
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void MesSaveNowData(object e)
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
int tagValue = Convert.ToInt32(msgEvent.TagValue);
// 直接发送实时的 质量数据
string message = MisDataSaveDateMesRead.Funtion.GetRealTimeQualityData(OpName);
//推送质量数据到MES的页面
SendMessage.AsyncSendMessage("MES|ShowTimelyQuality_Resources|" + OpName + "|" + message);
//SendMessageFun.SendMessageMESToWEB("ShowTimelyQuality", "1&" + qualityMask.ToString(), OpName);
}
catch (Exception err)
{
////ApplicationLog.WriteLog(err, "Function02:FalseGO");
}
}
}
}

104
MisDataFunction/MesServer.Function/Function1053/OpcServer/PartLoad.cs Normal file
View File

@@ -0,0 +1,104 @@
using System;
using bizFacade;
//using SystemFramework;
using MesServerWork;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// 申请上线(针对上线工位)
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void PartLoad(object e)
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
int tagValue = Convert.ToInt32(msgEvent.TagValue);
MIS_BASE.Write_FixAllow(OpName, false);
//上线工位清MES传递机型信号
MIS_BASE.Write_EngineTypeGetOver_MES(OpName, false);
// 清除报警
MIS_BASE.WritePLC(34, OpName, false);
if (tagValue == 1)
{
int planCount = 0; // 计划上料数量
int haveUplaodCount = 0; // 已上料数量
int remainingQuantity = 0; // 待上料数量
// 分装上线工位没有托盘到位离开，通过申请上线和保存完成代替
//MIS_BASE.Write_TagTypeID(115, OpName, 0);
//MIS_BASE.Write_TagTypeID(95, OpName, 0);
//MIS_BASE.Write_TagTypeID(96, OpName, 0);
//MIS_BASE.Write_TagTypeID(97, OpName, 0);
//MIS_BASE.Write_TagTypeID(98, OpName, "");
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.WorkStartIn, DateTime.Now.ToString());
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.WorkStart, tagValue.ToString());
// 读取当前选择的计划中的机型，写入PLC
// 获取订单的机型
string Program_No = "";
Db.GetEngineType_Order(OpName, Program_No, out int EngineTypeID,
out string EngineType, out string EngineID, out string OrderForm,
out int isCheckOk, out planCount, out haveUplaodCount, out remainingQuantity);
if (isCheckOk == 2)
{
MIS_BASE.Write_EngineTypeID_MES(OpName, 0);
MIS_BASE.Write_EngineType_MES(OpName, "");
MIS_BASE.Write_EngineID_MES(OpName, "");
MIS_BASE.Write_OrderForm_MES(OpName, "");
MIS_BASE.WritePLC(95, OpName, planCount);
MIS_BASE.WritePLC(96, OpName, haveUplaodCount);
MIS_BASE.WritePLC(97, OpName, remainingQuantity);
MIS_BASE.WritePLC(34, OpName, true);
string msg = "【" + OpName + "】" + "分装线无上线订单，请下达新订单！";
MyLog4Net.MyLogHelper.Error("PartLoad", msg);
SendMessage.AsyncSendMessage_Notice(OpName, msg);
return;
}
else
{
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.EngineID_MES, EngineID);
// 写入机型代码 （大机型） 机型 发动机号 订单号
MIS_BASE.Write_EngineTypeID_MES(OpName, EngineTypeID);
MIS_BASE.Write_EngineType_MES(OpName, EngineType);
MIS_BASE.Write_EngineID_MES(OpName, EngineID);
MIS_BASE.Write_OrderForm_MES(OpName, OrderForm);
MIS_BASE.WritePLC(95, OpName, planCount);
MIS_BASE.WritePLC(96, OpName, haveUplaodCount);
MIS_BASE.WritePLC(97, OpName, remainingQuantity);
// MES传递机型
MIS_BASE.Write_EngineTypeGetOver_MES(OpName, true);
// 通知web显示
SendMessage.ShowMoby(OpName);
}
}
else
{
////上线工位清MES传递机型信号
//MIS_BASE.Write_EngineTypeGetOver_MES(OpName, false);
//// 清除报警
//MIS_BASE.WritePLC(34, OpName, false);
}
}
catch (Exception err)
{
// 保存出错日志 1.申请上线 2.传递机型 3.允许保存 4.扫码
MisDataSaveDate.FuntionMesRead.Alarm_SaveFileLog4Error(System.Reflection.MethodBase.GetCurrentMethod().Name, e, "Fun1053", err);
////ApplicationLog.WriteLog(err, "Function08:MesReadOver");
}
}
}
}

80
MisDataFunction/MesServer.Function/Function1053/OpcServer/QuitMaterials.cs Normal file
View File

@@ -0,0 +1,80 @@
using System;
using bizFacade;
//using SystemFramework;
using MesServerWork;
using WebApiCall;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// 请求退料
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void QuitMaterials(object e)
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
int tagValue = Convert.ToInt32(msgEvent.TagValue);
if (tagValue == 1)
{
int tagType = Convert.ToInt32(msgEvent.TagType);
// 根据变量类型代码 获取 位置号 与 叫料类型
string positionName; // 位置号
string engineType = "-1";
string quitType; // 1 退空托 2 退1T余料 3 退3T余料
string type = ""; // 操作类型 分 叫料 退料 退余料
// 206 库位1
if (tagType == 207)
{
positionName = "H1";
quitType = MIS_BASE.ReadPLC(209, OpName).ToString();
}
// 211 库位2 212
else
{
positionName = "H2";
quitType = MIS_BASE.ReadPLC(214, OpName).ToString();
}
if (quitType == "1")
{
type = "退空托";
}
if (quitType == "2")
{
type = "退余料";
engineType = "1";
}
if (quitType == "3")
{
type = "退余料";
engineType = "3";
}
// 1.调用WebApi通知退料
int returnType = 0; // 默认空托退料
if (quitType == "2" || quitType == "3") returnType = 1; // 余料退料
bool isOk = AGVWebApiCall.MES_To_AGV_ReturnGoods(positionName, engineType, returnType);
if (isOk)
{
// 2.叫料成功后 记录叫料日志
BaseDataSystemMES.Get_AGV_CallRecord(OpName, positionName, engineType, type);
}
}
}
catch (Exception err)
{
////ApplicationLog.WriteLog(err, "Function02:ConfirmOkGo");
}
}
}
}

304
MisDataFunction/MesServer.Function/Function1053/OpcServer/WebSubmit.cs Normal file
View File

@@ -0,0 +1,304 @@
using System;
using MesServerWork;
using bizFacade;
using System.Threading;
using MisDataSaveDate;
using System.Collections;
//using SystemFramework;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// 处理WEB页面发送过来的请求（m_Command + "|" + m_Value;）
/// </summary>
/// <param name="OpName"></param>
/// <param name="Content"></param>
private void WebSubmit(object e)
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName=Convert.ToString(msgEvent.OpName);
string Content = Convert.ToString(msgEvent.TagValue);
string[] dataArray = Content.Split('|');
if (dataArray.Length != 2)
return;
//消息类型
string m_Command = dataArray[0].ToString();
//消息参数
string m_Value = dataArray[1].ToString();
//消息参数数量
string[] m_Value_array = m_Value.Split('&');
//消息参数长度
int m_Value_length = m_Value_array.Length;
//工件信息
string engineID = "";
if (MIS_BASE.hashtable_EngineGetOver_EngineTypeID == null)
{
MIS_BASE.InitHashtable_MesServerCode();
}
if (MIS_BASE.hashtable_EngineGetOver_EngineTypeID == null)
{
return;
}
if (MIS_BASE.hashtable_EngineGetOver_EngineID.ContainsKey(OpName))
{
engineID = MIS_BASE.hashtable_EngineGetOver_EngineID[OpName].ToString();
}
DoWhatPlc.CustomeEvetnArgs _e = new DoWhatPlc.CustomeEvetnArgs();
_e.OpName = OpName;
_e.TagValue = m_Value;
//根据请求的命令处理逻辑
switch (m_Command)
{
case "Barcode":
if (m_Value_length > 1) return;
fun_Barcode(_e);
break;
case "ConfirmOkGo"://合格放行
//删除不合格放行记录
//修改托盘状态
//Update_PalletStatus(OpName, 1, false);
BaseDataSystemMES.BaseData_tagTable_Engine_IsNG_Delete(OpName, engineID);
MIS_BASE.Write_ConfirmOkGo(OpName, true);
MIS_BASE.Write_FalseGO(OpName, false);
Thread.Sleep(1000);
MIS_BASE.Write_ConfirmOkGo(OpName, false);
break;
case "FalseGO"://返修放行
//修改托盘状态
//Update_PalletStatus(OpName, 3, false);
BaseDataSystemMES.BaseData_tagTable_Engine_IsNG_Delete(OpName, engineID);
MIS_BASE.Write_FalseGO(OpName, true);
MIS_BASE.Write_ConfirmOkGo(OpName, false);
Thread.Sleep(1000);
MIS_BASE.Write_FalseGO(OpName, false);
break;
case "NgGO"://不合格放行
//修改托盘状态
//Update_PalletStatus(OpName, 2, false);
//保存不合格信息(必须保存不合格放行信息，由于B5A的Moby没有不合格标志位)
BaseDataSystemMES.BaseData_tagTable_Engine_IsNG_Insert(OpName, engineID, "", "");
MIS_BASE.Write_FalseGO(OpName, true);
MIS_BASE.Write_ConfirmOkGo(OpName, false);
Thread.Sleep(1000);
MIS_BASE.Write_FalseGO(OpName, false);
break;
case "OnLineState"://在线0、离线1、屏蔽2
try
{
if (m_Value_length > 1) return;
int a = Convert.ToInt32(m_Value);
if (a <= 2)
{
BaseDataSystemMES.IsOnLine_Update(OpName, m_Value.ToString());
MIS_BASE.Write_OnLineState(OpName, Convert.ToInt32(m_Value));
if (a == 2) SendMessage.AsyncSendMessage_Notice(OpName, "屏蔽MES！");
if (a == 0) SendMessage.AsyncSendMessage_Notice(OpName, "启用MES！");
}
}
catch
{
}
break;
case "Reset"://复位，将MES所有的信息都复位了
SetMoby(OpName);//将MES所有信号清空
break;
case "FixAllow"://重新拧紧
MIS_BASE.Write_FixAllow(OpName, false);
MIS_BASE.Write_FixAllow(OpName, true);
break;
case "IsAutoGetEngineID"://自动手动申请编号（线首）
if (m_Value_length > 1) return;
MIS_BASE.Write_IsAutoGetEngineID(OpName, Convert.ToInt32(m_Value));
break;
case "PartPalletGoOver"://空托盘放行
int Is_PartPalletGoOver;
MIS_BASE.Read_PartPalletGoOver(OpName, out Is_PartPalletGoOver);
if (Is_PartPalletGoOver == 1)
{
MIS_BASE.Write_PartPalletGoOver(OpName, 1);
}
else
{
MIS_BASE.Write_PartPalletGoOver(OpName,0);
}
break;
case "SetMoby"://清空托盘（线首）
SetMoby(OpName);//将MES所有信号清空
//MIS_BASE.Write_PartPalletCode_PLC(OpName, 1);
break;
case "RepairUplineMES"://返修上线
MIS_BASE.Write_RepairUpline_MES(OpName, true);
break;
case "CancelRepair"://将返修件置为正常件
break;
case "PartPalletCode"://申请写入托盘号
//MIS_BASE.Write_PartPalletCode_PLC(OpName, 1);
break;
case "WritePartPalletCode"://写入托盘号
if (m_Value_length > 1) return;
MIS_BASE.Write_PalletCode(OpName, Convert.ToInt32(m_Value));
break;
case "Normal"://启用正常拧紧工位
MIS_BASE.Write_Normal(OpName, 1);
MIS_BASE.Write_UnNormal(OpName, 0);
break;
case "UnNormal"://启用备用拧紧工位
MIS_BASE.Write_Normal(OpName, 0);
MIS_BASE.Write_UnNormal(OpName, 1);
break;
case "ResetDevice"://复位设备
MIS_BASE.Write_ResetDevice(OpName, true);
System.Threading.Thread.Sleep(1000);
MIS_BASE.Write_ResetDevice(OpName, false);
break;
case "IsNeedRepaire"://返修上线(返修上线点)
if (Convert.ToInt32(m_Value) == 1)
{
//修改托盘状态
MIS_BASE.Write_PalletInfo(OpName, 3);
//通知修改成功
MIS_BASE.Write_UpdatePalletOK(OpName, true);
IsNeedRepaire_OK(OpName);
}
else if (Convert.ToInt32(m_Value) == 0)
{
//通知修改成功
MIS_BASE.Write_UpdatePalletOK(OpName, true);
//直接给出工作完成
MIS_BASE.Write_MaterialVerifyOver(OpName, true);
}
else
{ }
break;
case "ContinueMatch":
BaseDataSystemMES.QualityVerifyStatus_Hash_Write(OpName, true);
break;
//初始化网页信号
case "IniSingalToWeb":
InitializeSingalToWeb(OpName);
break;
case "Reset_Engine"://返修上线(返修上线点)
SetMoby(OpName);//将MES所有信号清空
//fun_EngineTypeGetOverPLC(OpName, 0);
//fun_EngineTypeGetOverPLC(OpName, 1);
break;
case "twoWorkSkip"://重新工作工件跳过工作(重新工作工件)
//工作完成
EngineTypeGetOver_PLC_Work_Skip(OpName);
break;
case "twoWork"://重新工作工件重新工作(重新工作工件)
//允许工作
EngineTypeGetOver_PLC_Work_two(OpName);
break;
default: break;
}
}
catch(Exception err)
{
////ApplicationLog.WriteLog(err, "Function02:WebSubmit");
}
}
private void SetMoby(string OpName)
{
try
{
//清空Moby时，需要将MES信号清空
MIS_BASE.Write_ClearMesMoby(OpName);
BaseDataSystemMES.MesServer_Process_EngineTypeOver(OpName);
Sendmessage("5123", "1111", OpName);
MIS_BASE.Write_ResetDevice(OpName, true);
System.Threading.Thread.Sleep(1000);
MIS_BASE.Write_ResetDevice(OpName, false);
}
catch
{
}
}
/// 网页重现登录，恢复关闭前的页面状态
/// </summary>
/// <param name="Opname">工位号</param>
private void InitializeSingalToWeb(string Opname)
{
//工件到位 DBX0.1
bool S_WorkStart;
bool S_FixAllow;
bool S_EngineGetOver;
bool S_MaterialVerifyOver;
MIS_BASE.Read_WorkStart(Opname, out S_WorkStart);
MIS_BASE.Read_FixAllow(Opname, out S_FixAllow);
MIS_BASE.Read_EngineGetOver_PLC(Opname, out S_EngineGetOver);
MIS_BASE.Read_MaterialVerifyOver(Opname, out S_MaterialVerifyOver);
Sendmessage("13", "1111", Opname);
string S_plcStatus;//DBX501.5 PLC直通，1 强制放行 0 正常循环
// 新增查询PLC直通状态 网页显示
MIS_BASE.Read_TagTypeID(63, Opname, out S_plcStatus);
if (S_plcStatus.ToLower() == "false")
{
SendMessageFun.SendInfomation("PlcStatus", "0", Opname);
}
else
{
SendMessageFun.SendInfomation("PlcStatus", "1", Opname);
}
if (S_WorkStart == true)
{
SendInfomation("WorkStart", Convert.ToString(Convert.ToInt32(S_WorkStart)), Opname);
}
if (S_FixAllow == true)
{
SendInfomation("FixAllow", Convert.ToString(Convert.ToInt32(S_FixAllow)), Opname);
}
if (S_MaterialVerifyOver == true)
{
SendInfomation("MaterialVerifyOver", Convert.ToString(Convert.ToInt32(S_MaterialVerifyOver)), Opname);
}
if (S_EngineGetOver == true)
{
SendInfomation("EngineTypeGetOverPLC", Convert.ToString(Convert.ToInt32(S_EngineGetOver)), Opname);
Sendmessage("2", "1111", Opname);
SendMessage.ShowMoby(Opname);
// 直接发送实时的 质量数据
string message = MisDataSaveDateMesRead.Funtion.GetRealTimeQualityData(Opname);
//推送质量数据到MES的页面
SendMessage.AsyncSendMessage("MES|ShowTimelyQuality_Resources|" + Opname + "|" + message);
}
InitAlarm(Opname);
}
private void InitAlarm(string Opname)
{
FuntionMesRead.Alarm_InitAlarm_Send(Opname, out Hashtable ht);
foreach (DictionaryEntry kv in ht)
{
var TagID = kv.Key.ToString();
var TagValue = kv.Value.ToString();
FuntionMesRead.Send_AlarmMsg(TagID, TagValue);
}
}
}
}

45
MisDataFunction/MesServer.Function/Function1053/OpcServer/WorkIsOk.cs Normal file
View File

@@ -0,0 +1,45 @@
using bizFacade;
using MesServerWork;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// 工位合格标志
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void IsOk(object e)
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
int tagValue = Convert.ToInt32(msgEvent.TagValue);
int qualityMask;
MIS_BASE.Read_QualityMask(OpName, out qualityMask);
//判断是否合格
if (qualityMask == 1)
{
qualityMask = 1;
} else {
qualityMask = 0;
}
//通知WEB修改状态
string message = "MES|QualityMask|" + OpName + "|" + qualityMask.ToString();
SendMessage.AsyncSendMessage(message);
}
catch (Exception err)
{
////ApplicationLog.WriteLog(err, "Function02:FalseGO");
}
}
}
}

51
MisDataFunction/MesServer.Function/Function1053/OpcServer/WorkStart.cs Normal file
View File

@@ -0,0 +1,51 @@
using bizFacade;
using MesServerWork;
using System;
using System.Threading;
//using SystemFramework;
namespace MesServerFunctions
{
partial class FunctionMES
{
/// <summary>
/// 工件到位与离开时，清空MES自身信号
/// </summary>
/// <param name="OpName"></param>
/// <param name="tagValue"></param>
private void WorkStart(object e)
{
try
{
DoWhatPlc.CustomeEvetnArgs msgEvent = (DoWhatPlc.CustomeEvetnArgs)e;
string OpName = Convert.ToString(msgEvent.OpName);
int tagValue = Convert.ToInt32(msgEvent.TagValue);
if (tagValue > 0)
{
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.WorkStartIn, DateTime.Now.ToString());
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.WorkStart, tagValue.ToString());
}
else
{
BaseDataSystemMES.OpName_MIS_MOBY_Insert(OpName, MobyTagType.WorkStartOut, DateTime.Now.ToString());
MIS_BASE.Write_MesReadOver(OpName, false);
MIS_BASE.Write_ConfirmOkGo(OpName, false);
MIS_BASE.Write_FixAllow(OpName, false);
MIS_BASE.Write_ConfirmOkGo(OpName, false);
MIS_BASE.Write_EngineTypeGetOver_MES(OpName, false);
//工作完成
MIS_BASE.Write_MaterialVerifyOver(OpName, false);
MIS_BASE.Write_EngineTypeID_MES(OpName, 0);
MIS_BASE.Write_EngineType_MES(OpName, "");
MIS_BASE.Write_EngineID_MES(OpName, "");
MIS_BASE.Write_OrderForm_MES(OpName, "");
}
}
catch (Exception err)
{
////ApplicationLog.WriteLog(err, "Function02:WorkStart");
}
}
}
}

BIN
MisDataFunction/MesServer.Function/Function1053/OpcServer/vssver2.scc Normal file
View File

Binary file not shown.