Make_NewPallet.cs 2.7 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980
  1. using System;
  2. using System.Data;
  3. using System.Windows.Forms;
  4. using UAS_MES.DataOperate;
  5. using UAS_MES.PublicMethod;
  6. namespace UAS_MES.Make
  7. {
  8. public partial class Make_NewPallet : Form
  9. {
  10. DataHelper dh;
  11. DataTable Dbfind;
  12. //生成的箱类型,2表示大箱号,3表示栈板号
  13. string pa_type = "";
  14. public Make_NewPallet(string Caller,string MakeCode)
  15. {
  16. InitializeComponent();
  17. switch (Caller)
  18. {
  19. case "PACKAGE":
  20. title.Text = "新增大箱号";
  21. pa_type = "2";
  22. break;
  23. case "PALLET":
  24. title.Text = "新增栈板号";
  25. pa_type = "3";
  26. break;
  27. default:
  28. break;
  29. }
  30. pa_outboxcode.Caller = Caller;
  31. pa_outboxcode.MakeCode = MakeCode;
  32. }
  33. private void 新增栈板_Load(object sender, EventArgs e)
  34. {
  35. dh = new DataHelper();
  36. pr_code.FormName = Name;
  37. pr_code.SetValueField = new string[] { "pr_code" };
  38. pr_code.TableName = "product";
  39. pr_code.SelectField = "pr_code # 物料编号,pr_detail # 物料名称,pr_kind # 物料种类,pr_spec # 物料规格";
  40. pr_code.DbChange += Pr_code_DbChange;
  41. }
  42. private void Pr_code_DbChange(object sender, EventArgs e)
  43. {
  44. Dbfind = pr_code.ReturnData;
  45. BaseUtil.SetFormValue(this.Controls, Dbfind);
  46. }
  47. private void pr_code_UserControlTextChanged(object sender, EventArgs e)
  48. {
  49. pa_outboxcode.ProdCode = pr_code.Text;
  50. }
  51. private void pa_outboxcode_IconClick(object sender, EventArgs e)
  52. {
  53. pa_outboxcode.Text = dh.GetSerialNumberByCaller(Tag.ToString());
  54. }
  55. private void Confirm_Click(object sender, EventArgs e)
  56. {
  57. if (pa_outboxcode.Text != "" && pa_packageqty.Text != "" && pr_code.Text != "")
  58. {
  59. string sql = "insert into package (pa_id,pa_outboxcode,pa_makecode,pa_indate,pa_packageqty,pa_type,pa_prodcode,pa_level,PA_STATUS)values";
  60. sql += "(package_seq.nextval,'" + pa_outboxcode.Text + "','"+pa_outboxcode.MakeCode+"',sysdate,'" + pa_packageqty.Text + "','" + pa_type + "','" + pr_code.Text + "',0,'')";
  61. dh.ExecuteSql(sql, "insert");
  62. MessageBox.Show("生成箱号成功!");
  63. pa_outboxcode.Text = "";
  64. pa_packageqty.Text = "";
  65. pr_code.Text = "";
  66. }
  67. else
  68. {
  69. MessageBox.Show("请先填写完整信息");
  70. }
  71. }
  72. }
  73. }