添加ERP问题追踪单据生成

UAS-MES/FunctionCode/Make/Make_Repair.cs

@@ -592,6 +592,37 @@ namespace UAS_MES.Make
                     //取消最近拆解部件
                     SQLS.Add("update craftmaterial set cm_lastdeco=0 where cm_sncode='" + ms_sncode.Text + "' and cm_makecode='" + ms_makecode.Text + "' and nvl(cm_lastdeco,0)<>0");           
                     dh.ExecuteSQLTran(SQLS.ToArray());
+                    //插入ERP生成追踪单
+                    try
+                    {
+                        string code = "";
+                        string[] param = new string[] { "makebadhandle", "2", code };
+                        dh.CallProcedure("SP_GETMAXNUMBER", ref param);
+                        code = param[2];
+                        //查询不良原因组数据插入，插入第一条
+                        sql.Clear();
+                        sql.Append("select mb_bgname,mb_badname,mbr_brgname from makebad left join makebadreason on mbr_mbid=mb_id where mb_sncode='" + ms_sncode.Text + "' and mb_status<>-1 and rownum=1");
+                        DataTable badinf = (DataTable)dh.ExecuteSql(sql.GetString(), "select");
+                        string mb_bgname = "";
+                        string mb_badname = "";
+                        string mbr_brgname = "";
+                        if (badinf.Rows.Count > 0)
+                        {
+                            mb_bgname = badinf.Rows[0]["mb_bgname"].ToString();
+                            mb_badname = badinf.Rows[0]["mb_badname"].ToString();
+                            mbr_brgname = badinf.Rows[0]["mbr_brgname"].ToString();
+                        }
+                        sql.Clear();
+                        sql.Append("insert into makebadhandle@N_malata_zz(mbh_id,mbh_code,mbh_linecode,mbh_sn,mbh_indate,mbh_inman,mbh_statuscode,mbh_status,mbh_returnstep,mbh_wccode,mbh_badname,mbh_badgroup,mbh_badreason)");
+                        sql.Append("values(makebadhandle_seq.nextval@N_malata_zz,'" + code + "','" + User.UserLineCode + "','" + ms_sncode.Text + "',sysdate,'" + User.UserName + "',");
+                        sql.Append("'ENTERING','在录入','" + cd_stepcode.Text + "','" + User.WorkCenter + "','" + mb_badname + "','" + mb_bgname + "','" + mbr_brgname + "')");
+
+                        dh.ExecuteSql(sql.GetString(), "insert");
+                    }
+                    catch (Exception)
+                    {
+                        LogicHandler.DoCommandLog(Tag.ToString(), User.UserCode, macode, User.UserLineCode, User.UserSourceCode, "回流工序", "完成维修", ms_sncode.Text, ms_checkno.Text);
+                    }
                     LogicHandler.InsertMakeProcess(ms_sncode.Text, ms_makecode.Text, User.UserSourceCode, "回流工序", "完成维修", User.UserCode);
                     LogicHandler.DoCommandLog(Tag.ToString(), User.UserCode, macode, User.UserLineCode, User.UserSourceCode, "回流工序", "完成维修", ms_sncode.Text, ms_checkno.Text);
                     OperatResult.AppendText(">>序列号" + ms_sncode.Text + "回流成功\n", Color.Green);