锐腾搅拌上料功能
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.

159 lines
7.3 KiB

5 months ago
  1. using System;
  2. using System.Collections.Generic;
  3. using System.ComponentModel;
  4. using System.Data;
  5. using System.Drawing;
  6. using System.Text;
  7. using System.Windows.Forms;
  8. using DevExpress.XtraEditors;
  9. using ICSSoft.Frame.Data.Entity;
  10. using ICSSoft.Frame.Data.BLL;
  11. using ICSSoft.Base.Config.AppConfig;
  12. using ICSSoft.Base.Config.DBHelper;
  13. namespace ICSSoft.Frame.APP
  14. {
  15. public partial class FormICSErrorApplyAdd : DevExpress.XtraEditors.XtraForm
  16. {
  17. FormICSShifTypeUIModel typeUIModel;
  18. int flag;
  19. string typeid;
  20. string DeptCode = "";
  21. public FormICSErrorApplyAdd()
  22. {
  23. InitializeComponent();
  24. InfoSelect();
  25. //txtShiftTypeCode.Text = Convert.ToString(Convert.ToInt32(ICSShifTypeBLL.SearchMaxCode(AppConfig.AppConnectString)) + 1);
  26. flag = 0;
  27. }
  28. private void InfoSelect()
  29. {
  30. #region 加载申请部门
  31. string deptsql = @"select cDepCode AS 部门编码,cDepName AS 部门名称 from ICSDepartment
  32. where WorkPoint='{0}' AND bDepEnd='1'";
  33. deptsql = string.Format(deptsql, AppConfig.WorkPointCode);
  34. DataTable deptdt = DBHelper.ExecuteDataset(AppConfig.AppConnectString.ToString(), CommandType.Text, deptsql).Tables[0];
  35. txtApplyDept.Properties.ValueMember = "部门编码";
  36. txtApplyDept.Properties.DisplayMember = "部门名称";
  37. txtApplyDept.Properties.DataSource = deptdt;
  38. txtApplyDept.Properties.NullText = "";//空时的值
  39. txtApplyDept.Properties.ImmediatePopup = true;//输入值是否马上弹出窗体
  40. txtApplyDept.Properties.ValidateOnEnterKey = true;//回车确认
  41. txtApplyDept.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard;//要使用户可以输入,这里须设为Standard
  42. txtApplyDept.Properties.AllowNullInput = DevExpress.Utils.DefaultBoolean.True; //可用Ctrl + Delete清空选择內容
  43. //自适应宽度
  44. txtApplyDept.Properties.BestFitMode = DevExpress.XtraEditors.Controls.BestFitMode.BestFitResizePopup;
  45. #endregion
  46. #region 加载申请类型
  47. string typesql = @"select EnumText AS 申请类型 from Sys_EnumValues
  48. where EnumKey='00011' AND WorkPointCode='{0}'";
  49. typesql = string.Format(typesql, AppConfig.WorkPointCode);
  50. DataTable typedt = DBHelper.ExecuteDataset(AppConfig.AppConnectString.ToString(), CommandType.Text, typesql).Tables[0];
  51. txtApplyType.Properties.ValueMember = "申请类型";
  52. txtApplyType.Properties.DisplayMember = "申请类型";
  53. txtApplyType.Properties.DataSource = typedt;
  54. txtApplyType.Properties.NullText = "";//空时的值
  55. txtApplyType.Properties.ImmediatePopup = true;//输入值是否马上弹出窗体
  56. txtApplyType.Properties.ValidateOnEnterKey = true;//回车确认
  57. txtApplyType.Properties.TextEditStyle = DevExpress.XtraEditors.Controls.TextEditStyles.Standard;//要使用户可以输入,这里须设为Standard
  58. txtApplyType.Properties.AllowNullInput = DevExpress.Utils.DefaultBoolean.True; //可用Ctrl + Delete清空选择內容
  59. //自适应宽度
  60. txtApplyType.Properties.BestFitMode = DevExpress.XtraEditors.Controls.BestFitMode.BestFitResizePopup;
  61. #endregion
  62. }
  63. private void btnOK_Click(object sender, EventArgs e)
  64. {
  65. try
  66. {
  67. if (txtApplyDept.Text.Trim() == "")
  68. {
  69. ICSBaseSimpleCode.AppshowMessageBox("申请部门不能为空!");
  70. return;
  71. }
  72. if (txtApplyType.Text.Trim() == "")
  73. {
  74. ICSBaseSimpleCode.AppshowMessageBox("申请类型不能为空!");
  75. return;
  76. }
  77. if (txtApplyDetial.Text.Trim() == "")
  78. {
  79. ICSBaseSimpleCode.AppshowMessageBox("申请修改内容不能为空!");
  80. return;
  81. }
  82. #region 自动生成单据号(先获取当天最新的单据号)
  83. string DocNo = ICSErrorHandelApplyBLL.GetDocNo(AppConfig.AppConnectString);
  84. string NewDocNo = "";
  85. if (DocNo == "")
  86. {
  87. NewDocNo = DateTime.Now.Year.ToString() + DateTime.Now.Month.ToString() + DateTime.Now.Day.ToString() + "001";
  88. }
  89. else
  90. {
  91. string tempstr = DocNo.Substring(DocNo.Length - 3, 3);
  92. tempstr = (int.Parse(tempstr) + 1).ToString().PadLeft(3, '0');
  93. NewDocNo = DocNo.Remove(DocNo.Length - 3, 3) + tempstr;
  94. }
  95. #endregion
  96. ICSErrorHandleApply info = new ICSErrorHandleApply();
  97. info.ID = AppConfig.GetGuid();
  98. info.DocNo = NewDocNo;
  99. info.ApplyDeptCode = txtApplyDept.EditValue.ToString();
  100. info.ApplyType = txtApplyType.Text.Trim();
  101. info.ApplyDetail = txtApplyDetial.Text.Trim();
  102. info.DocStatus = "新增";
  103. info.Muser = AppConfig.UserCode;
  104. info.MuserName = AppConfig.UserName;
  105. info.MTIME = DateTime.Now;
  106. info.ApproveMuser = "";
  107. info.ApproveMuserName = "";
  108. info.ApproveMTIME = null;
  109. info.WorkPoint = AppConfig.WorkPointCode;
  110. info.EATTRIBUTE1 = "";
  111. info.EATTRIBUTE2 = 0;
  112. ICSErrorHandelApplyBLL.Add(info, AppConfig.AppConnectString);
  113. ICSBaseSimpleCode.AppshowMessageBox("新增成功");
  114. }
  115. catch (Exception ex)
  116. {
  117. MessageBox.Show(ex.Message);
  118. }
  119. this.Close();
  120. this.DialogResult = DialogResult.Yes;
  121. }
  122. #region 关闭
  123. private void btnCancle_Click(object sender, EventArgs e)
  124. {
  125. this.Close();
  126. this.DialogResult = DialogResult.Cancel;
  127. }
  128. private void btnClose_Click(object sender, EventArgs e)
  129. {
  130. this.Close();
  131. this.DialogResult = DialogResult.Cancel;
  132. }
  133. #endregion
  134. private void txtApplyType_EditValueChanged(object sender, EventArgs e)
  135. {
  136. try
  137. {
  138. string Type = txtApplyType.Text.Trim();
  139. string sql = @"select EnumText AS 申请类型,Define1 AS 类型说明 from Sys_EnumValues
  140. where EnumKey='00011' AND EnumText='{0}' AND WorkPointCode='{1}'";
  141. sql = string.Format(sql, Type, AppConfig.WorkPointCode);
  142. DataTable dt = DBHelper.ExecuteDataset(AppConfig.AppConnectString.ToString(), CommandType.Text, sql).Tables[0];
  143. if (dt != null && dt.Rows.Count > 0)
  144. {
  145. txtApplyhint.Text = dt.Rows[0]["类型说明"].ToString();
  146. }
  147. }
  148. catch (Exception ex)
  149. {
  150. ICSBaseSimpleCode.AppshowMessageBox(ex.ToString());
  151. }
  152. }
  153. private void txtApplyDept_EditValueChanged(object sender, EventArgs e)
  154. {
  155. }
  156. }
  157. }