private void Form1_Load(object sender, EventArgs e) { /* * Try / Catch til initialisering af variabler gennem WebService til Navision * */ BalanceWS.BalanceWS CBPAutomation = new BalanceWS.BalanceWS(); CBPAutomation.UseDefaultCredentials = true; tbCommunication.AppendText("Sending Param request to Navision\r\n"); try { CBPAutomation.WSReturnParam(ref ioLogicIP, ref s_port, ref s_timeout, ref s_DOnewSSCC, ref s_DIwrap, ref s_DIReady, ref s_DOlabel, ref s_DIfin, ref s_DOst, ref s_DIst, ref EidosPrinterIp, ref EidosPrinterPort, ref NewPalletPosIs, ref s_SSCCPath, ref s_SSCCLabelName, ref b_DeleteFile, ref i_DoDummyPallet); ioLogicPortNo = ushort.Parse(s_port); ioLogicTimeout = ushort.Parse(s_timeout); DO_DATA_SEND_TO_FISKER = byte.Parse(s_DOnewSSCC); DI_DUMMY_PALLET = byte.Parse(s_DIwrap); DO_LABEL_SEND_TO_PRINTER = byte.Parse(s_DOlabel); DI_READY_FOR_LABEL = byte.Parse(s_DIReady); DI_PALLET_FINISHED = byte.Parse(s_DIfin); DO_DUMMY_PALLET = byte.Parse(i_DoDummyPallet.ToString()); DI_SignalFilter = int.Parse(s_DIst); DO_SignalFilter = int.Parse(s_DOst); tbCommunication.AppendText(string.Format("ioLogic IP from Nav: {0}{1}", ioLogicIP, "\r\n")); tbCommunication.AppendText(string.Format("ioLogic Port from Nav: {0}{1}", ioLogicPortNo, "\r\n")); tbCommunication.AppendText(string.Format("Eidos Printer IP from Nav: {0}{1}", EidosPrinterIp, "\r\n")); tbCommunication.AppendText(string.Format("Eidos Port from Nav: {0}{1}", EidosPrinterPort, "\r\n")); tbCommunication.AppendText(string.Format("SSCC Label path from Nav: {0}{1}", s_SSCCPath, "\r\n")); tbCommunication.AppendText(string.Format("SSCC Label Name from Nav: {0}{1}", s_SSCCLabelName, "\r\n")); tbCommunication.AppendText(string.Format("DoNewPallet from Nav: {0}{1}", DO_DATA_SEND_TO_FISKER, "\r\n")); tbCommunication.AppendText(string.Format("DiLabelRequest from Nav: {0}{1}", DI_READY_FOR_LABEL, "\r\n")); tbCommunication.AppendText(string.Format("DoLabelDataSend from Nav: {0}{1}", DO_LABEL_SEND_TO_PRINTER, "\r\n")); tbCommunication.AppendText(string.Format("DiDummyPallet from Nav: {0}{1}", DI_DUMMY_PALLET, "\r\n")); tbCommunication.AppendText(string.Format("DoDummyPallet from Nav: {0}{1}", DO_DUMMY_PALLET, "\r\n")); tbCommunication.AppendText(string.Format("DiPalletEND from Nav: {0}{1}", DI_PALLET_FINISHED, "\r\n")); CBPAutomation.WSReturnServiceParam(ref NavServiceServer, ref NavServiceUserName, ref NavServicePassword, ref NavServiceServiceName, ref IsNavLocalService); tbCommunication.AppendText(string.Format("Nav Webservice Server from Nav: {0}{1}", NavServiceServer, "\r\n")); tbCommunication.AppendText(string.Format("User for starting Service from Nav: {0}{1}", NavServiceUserName, "\r\n")); tbCommunication.AppendText(string.Format("Password for starting Service from Nav: {0}{1}", NavServicePassword, "\r\n")); tbCommunication.AppendText(string.Format("Service to Start from Nav: {0}{1}", NavServiceServiceName, "\r\n")); tbCommunication.AppendText(string.Format("Service is running local from Nav: {0}{1}", IsNavLocalService.ToString(), "\r\n")); btnInit_Click(sender, e); btnAutoRun_Click(sender, e); } catch (Exception ex) { tbCommunication.AppendText(string.Format("WebService faild with message: {0}{1}", ex.Message.ToString(), "\r\n")); } }
//------------- Format variable ------------ private void RunTimer_Tick(object sender, EventArgs e) { Int32 dwShiftValue = 0x0000; int i = 0; UInt32[] dwGetDIValue = new UInt32[1]; if (cbService.Checked) { CheckService(NavServiceServer, NavServiceUserName, NavServicePassword, NavServiceServiceName, false); } BalanceWS.BalanceWS CBPAutomation = new BalanceWS.BalanceWS(); CBPAutomation.UseDefaultCredentials = true; try { bool OK = false; OK = CBPAutomation.WSNewPalletExist(NewPalletPosIs); if (OK) { ret = CheckConnection(false); if (ret == MXIO_CS.EIO_SOCKET_DISCONNECT) { CreateIoHandle(); } ret = MOXA_CSharp_MXIO.MXIO_CS.E1K_DO_Writes(hConnection[0], DO_DATA_SEND_TO_FISKER, 1, TRIGGER_TYPE_LO_2_HI); MXEIO_Error.CheckErr(ret, "E1K_DO_Writes"); if (ret == MXIO_CS.MXIO_OK) { tbCommunication.AppendText(string.Format("New Pallet E1K_DO_Writes Set Ch{0} DO Direction DO Mode value = ON success.{1}", DO_DATA_SEND_TO_FISKER, "\r\n")); } else { tbCommunication.AppendText(string.Format("New Pallet E1K_DO_Write Ch{0} ON returned ERROR: {1} Return value: {2}{3}", DO_DATA_SEND_TO_FISKER, MXEIO_Error.CheckErr(ret, "E1K_DO_Writes"), ret.ToString(), "\r\n")); } GlobalChannel = DO_DATA_SEND_TO_FISKER; Thread.Sleep(2000); ResetChanel_Tick(sender, e); } if (OK) { try { CBPAutomation.WSRenameNewPallet(NewPalletPosIs); } catch (Exception ex) { tbCommunication.AppendText(string.Format("Rename New pallet failed: {0}{1}", MessageBox.Show(ex.Message), "\r\n")); } } } catch (Exception ex) { tbCommunication.AppendText(string.Format("New pallet check failed: {0}{1}", MessageBox.Show(ex.Message), "\r\n")); } ret = CheckConnection(false); if (ret == MXIO_CS.EIO_SOCKET_DISCONNECT) { CreateIoHandle(); } ret = MXIO_CS.E1K_DI_Reads(hConnection[0], bytStartChannel, bytCount, dwGetDIValue); MXEIO_Error.CheckErr(ret, "E1K_DI_Reads"); if (ret == MXIO_CS.MXIO_OK) { for (i = 0, dwShiftValue = 0; i < bytCount; i++, dwShiftValue++) { MyString = (((dwGetDIValue[0] & (1 << dwShiftValue)) == 0) ? "OFF" : "ON"); if (MyString.Equals("ON")) { // se hvilken Ch det drejer sig om og udfør handling. //tbCommunication.AppendText(string.Format("DI value: ch[{0}] = {1}{2}", i + bytStartChannel, ((dwGetDIValue[0] & (1 << dwShiftValue)) == 0) ? "OFF" : "ON", "\r\n")); if ((dwShiftValue) == DI_DUMMY_PALLET) { try { CBPAutomation.WSAddPalletToQue(string.Format("W {0}", DateTime.Now.ToShortDateString() + ' ' + DateTime.Now.ToShortTimeString())); tbCommunication.AppendText(string.Format("Add Wrap-only pallet OK: {0}", "\r\n")); } catch (Exception ex) { tbCommunication.AppendText(string.Format("Add Wrap-only pallet failed: {0}{1}", MessageBox.Show(ex.Message), "\r\n")); } } if ((dwShiftValue) == DI_READY_FOR_LABEL) { try { if (CBPAutomation.WSIsDummyPallet()) { ret = CheckConnection(false); if (ret == MXIO_CS.EIO_SOCKET_DISCONNECT) { CreateIoHandle(); } ret = MOXA_CSharp_MXIO.MXIO_CS.E1K_DO_Writes(hConnection[0], DO_DUMMY_PALLET, 1, TRIGGER_TYPE_LO_2_HI); MXEIO_Error.CheckErr(ret, "E1K_DO_Writes"); if (ret == MXIO_CS.MXIO_OK) { tbCommunication.AppendText(string.Format("Dummy Pallet DataE1K_DO_Writes Set Ch{0} DO Direction DO Mode value = ON success.{1}", DO_LABEL_SEND_TO_PRINTER, "\r\n")); } else { tbCommunication.AppendText(string.Format("Dummy Pallet E1K_DO_Write returned ERROR: {0} Return value: {1}{2}", MXEIO_Error.CheckErr(ret, "E1K_DO_Writes"), ret.ToString(), "\r\n")); } Thread.Sleep(2000); GlobalChannel = DO_DUMMY_PALLET; ResetChanel_Tick(sender, e); } else if (CBPAutomation.WSCreateSSCCDataFile()) { if (System.IO.File.Exists(s_SSCCPath + s_SSCCLabelName)) { System.IO.File.Copy(s_SSCCPath + s_SSCCLabelName, EidosPrinterIp + EidosPrinterPort, true); } if (b_DeleteFile) { System.IO.File.Delete(s_SSCCPath + s_SSCCLabelName); } ret = CheckConnection(false); if (ret == MXIO_CS.EIO_SOCKET_DISCONNECT) { CreateIoHandle(); } ret = MOXA_CSharp_MXIO.MXIO_CS.E1K_DO_Writes(hConnection[0], DO_LABEL_SEND_TO_PRINTER, 1, TRIGGER_TYPE_LO_2_HI); MXEIO_Error.CheckErr(ret, "E1K_DO_Writes"); if (ret == MXIO_CS.MXIO_OK) { tbCommunication.AppendText(string.Format("Create SSCC DataE1K_DO_Writes Set Ch{0} DO Direction DO Mode value = ON success.{1}", DO_LABEL_SEND_TO_PRINTER, "\r\n")); } else { tbCommunication.AppendText(string.Format("Create SSCC E1K_DO_Write returned ERROR: {0} Return value: {1}{2}", MXEIO_Error.CheckErr(ret, "E1K_DO_Writes"), ret.ToString(), "\r\n")); } Thread.Sleep(2000); GlobalChannel = DO_LABEL_SEND_TO_PRINTER; //RunTimer.Stop(); //ResetChanel.Start(); ResetChanel_Tick(sender, e); } } catch (Exception ex) { tbCommunication.AppendText(string.Format("Send SSCC Data to printer failed: {0}{1}", MessageBox.Show(ex.Message), "\r\n")); } } if ((dwShiftValue) == DI_PALLET_FINISHED) { try { CBPAutomation.WSRemovePallet(); tbCommunication.AppendText(string.Format("Remove pallet success: {0}", "\r\n")); Thread.Sleep(2000); } catch (Exception ex) { tbCommunication.AppendText(string.Format("Remove pallet failed: {0}{1}", MessageBox.Show(ex.Message), "\r\n")); } } } } } }