From e73091f7b80ca459d7caf33cca2b258ffdaebcef Mon Sep 17 00:00:00 2001 From: "Samuele E. Locatelli" Date: Wed, 22 Mar 2017 08:41:37 +0100 Subject: [PATCH] aggiunta folder con materiale (sw) usato x setup OSAI (fuori area progetto) --- MaterialeSetup/OSAI/CNC.Runtime.vb | 66 + MaterialeSetup/OSAI/CNC.Runtime_ALL.vb | 66 + MaterialeSetup/OSAI/CNC.Runtime_fanuc.vb | 47 + MaterialeSetup/OSAI/CndexLinkDotNet.dll | Bin 0 -> 46080 bytes MaterialeSetup/OSAI/Config.Options.vb | 324 + MaterialeSetup/OSAI/DCom/CNC.OSAI.vb | 1022 + .../OSAI/MTConnect_AreeMemoria.xlsx | Bin 0 -> 462544 bytes ...CMSControl.OPENcontrol.AxesRefR.datasource | 10 + ...MSControl.OPENcontrol.BootModeR.datasource | 10 + ...l.OPENcontrol.BootPhaseEnquiryR.datasource | 10 + ...Control.OPENcontrol.BootRebootR.datasource | 10 + ...ntrol.OPENcontrol.BootShutDownR.datasource | 10 + ...ntrol.OPENcontrol.CheckHistoryR.datasource | 10 + .../CMSControl.OPENcontrol.CycleR.datasource | 10 + ...CMSControl.OPENcontrol.DncDataR.datasource | 10 + .../CMSControl.OPENcontrol.DncEofR.datasource | 10 + ...CMSControl.OPENcontrol.DncInitR.datasource | 10 + ...CMSControl.OPENcontrol.DncStopR.datasource | 10 + .../CMSControl.OPENcontrol.EseExR.datasource | 10 + .../CMSControl.OPENcontrol.EseR.datasource | 10 + .../CMSControl.OPENcontrol.ExeR.datasource | 10 + ...ENcontrol.GetActivePartProgramR.datasource | 10 + ...ntrol.GetAvailableCustomEventsR.datasource | 10 + ...rol.OPENcontrol.GetAxOriginNumR.datasource | 10 + ...ntrol.OPENcontrol.GetAxesInfo3R.datasource | 10 + ...ol.OPENcontrol.GetAxesPositionR.datasource | 10 + ...trol.OPENcontrol.GetBinaryFileR.datasource | 10 + ...SControl.OPENcontrol.GetBlkNumR.datasource | 10 + ...ntrol.OPENcontrol.GetCNCRegKeyR.datasource | 10 + ...trol.OPENcontrol.GetCodeNumberR.datasource | 10 + ...ontrol.OPENcontrol.GetDateTimeR.datasource | 10 + ...CMSControl.OPENcontrol.GetFileR.datasource | 10 + ...MSControl.OPENcontrol.GetGCodeR.datasource | 10 + ...MSControl.OPENcontrol.GetHWKeyR.datasource | 10 + ...MSControl.OPENcontrol.GetMCodeR.datasource | 10 + ...trol.OPENcontrol.GetMarkerInfoR.datasource | 10 + ...Control.OPENcontrol.GetNcInfo1R.datasource | 10 + ...Control.OPENcontrol.GetNcInfo2R.datasource | 10 + ...ENcontrol.GetOffsetTabRecordIIR.datasource | 10 + ...Control.OPENcontrol.GetOptionsR.datasource | 10 + ...ENcontrol.GetOriginTabRecordIIR.datasource | 10 + ...trol.OPENcontrol.GetPTechSizesR.datasource | 10 + ...PENcontrol.GetPartProgramLinesR.datasource | 10 + ...rol.OPENcontrol.GetProcInInputR.datasource | 10 + ...l.OPENcontrol.GetProcVarDoubleR.datasource | 10 + ...rol.OPENcontrol.GetProcVarWordR.datasource | 10 + ....OPENcontrol.GetProcessConfNumR.datasource | 10 + ...l.OPENcontrol.GetProcessStatusR.datasource | 10 + ...OPENcontrol.GetSelectedProcessR.datasource | 10 + ...ol.OPENcontrol.GetSerialNumberR.datasource | 10 + ...ontrol.OPENcontrol.GetServoParR.datasource | 10 + ...Control.OPENcontrol.GetSysTickR.datasource | 10 + ...ntrol.OPENcontrol.GetToolNamesR.datasource | 10 + ...OPENcontrol.GetToolTabRecordIIR.datasource | 10 + ...OPENcontrol.GetUserTabRecordIIR.datasource | 10 + ...SControl.OPENcontrol.GetVarJOGR.datasource | 10 + ...SControl.OPENcontrol.GetVarRCMR.datasource | 10 + .../CMSControl.OPENcontrol.HoldR.datasource | 10 + ...SControl.OPENcontrol.LoadPTechR.datasource | 10 + ...ontrol.OPENcontrol.LockTableIIR.datasource | 10 + ...trol.OPENcontrol.LogFSAddDriveR.datasource | 10 + ...Ncontrol.LogFSChangeFileAttribR.datasource | 10 + ...rol.OPENcontrol.LogFSCloseFileR.datasource | 10 + ...trol.OPENcontrol.LogFSCopyFileR.datasource | 10 + ...rol.OPENcontrol.LogFSCreateDirR.datasource | 10 + ...ol.OPENcontrol.LogFSCreateFileR.datasource | 10 + ...rol.OPENcontrol.LogFSFindCloseR.datasource | 10 + ...rol.OPENcontrol.LogFSFindFirstR.datasource | 10 + ...trol.OPENcontrol.LogFSFindNextR.datasource | 10 + ....OPENcontrol.LogFSGetDriveListR.datasource | 10 + ....OPENcontrol.LogFSGetDrivePathR.datasource | 10 + ...OPENcontrol.LogFSGetFileAttribR.datasource | 10 + ...l.OPENcontrol.LogFSGetFileSizeR.datasource | 10 + ...ontrol.LogFSGetHiddenDriveListR.datasource | 10 + ...ntrol.OPENcontrol.LogFSGetInfoR.datasource | 10 + ...l.OPENcontrol.LogFSGetNumDriveR.datasource | 10 + ...Ncontrol.LogFSGetSecurityLevelR.datasource | 10 + ...OPENcontrol.LogFSLongFileNamesR.datasource | 10 + ...trol.OPENcontrol.LogFSOpenFileR.datasource | 10 + ...ol.OPENcontrol.LogFSReadRecordR.datasource | 10 + ...ENcontrol.LogFSReloadDriveListR.datasource | 10 + ...rol.OPENcontrol.LogFSRemoveDirR.datasource | 10 + ...l.OPENcontrol.LogFSRemoveDriveR.datasource | 10 + ...ol.OPENcontrol.LogFSRemoveFileR.datasource | 10 + ...ontrol.OPENcontrol.LogFSRenameR.datasource | 10 + ...OPENcontrol.LogFSSetFileAttribR.datasource | 10 + ...Ncontrol.LogFSSetSecurityLevelR.datasource | 10 + ...l.OPENcontrol.LogFSWriteRecordR.datasource | 10 + ....OPENcontrol.ManagePartProgramR.datasource | 10 + ...rol.OPENcontrol.MonAddVariableR.datasource | 10 + ...ol.OPENcontrol.MonCloseChannelR.datasource | 10 + ....OPENcontrol.MonDeleteVariableR.datasource | 10 + ...rol.OPENcontrol.MonGetVariableR.datasource | 10 + ...rol.OPENcontrol.MonOpenChannelR.datasource | 10 + ...l.OPENcontrol.MonStartSamplingR.datasource | 10 + ...ol.OPENcontrol.MonStopSamplingR.datasource | 10 + ...trol.OPENcontrol.PutBinaryFileR.datasource | 10 + ...CMSControl.OPENcontrol.PutFileR.datasource | 10 + ...Ncontrol.ReadCurrentAnomalyMsgR.datasource | 10 + ...PENcontrol.ReadCurrentEmergMsgR.datasource | 10 + ...PENcontrol.ReadCurrentErrorMsgR.datasource | 10 + ...Control.OPENcontrol.ReadErrMsgR.datasource | 10 + ...Ncontrol.ReadHistoryAnomalyMsgR.datasource | 10 + ...PENcontrol.ReadHistoryEmergMsgR.datasource | 10 + ...PENcontrol.ReadHistoryErrorMsgR.datasource | 10 + ....OPENcontrol.ReadHistoryLogMsgR.datasource | 10 + ...OPENcontrol.ReadPartProgramMsgR.datasource | 10 + ...ENcontrol.ReadRemapDefinitionsR.datasource | 10 + ...trol.OPENcontrol.ReadVarDoubleR.datasource | 10 + ...ontrol.OPENcontrol.ReadVarTextR.datasource | 10 + ...ontrol.OPENcontrol.ReadVarWordR.datasource | 10 + ...rol.OPENcontrol.ReadWarningMsgR.datasource | 10 + .../CMSControl.OPENcontrol.ResetR.datasource | 10 + ...OPENcontrol.ResetSingleTableIIR.datasource | 10 + ...PENcontrol.RestoreBackupMemoryR.datasource | 10 + ...OPENcontrol.RestoreSingleTableR.datasource | 10 + ...l.OPENcontrol.SaveBackupMemoryR.datasource | 10 + ...ol.OPENcontrol.SaveSingleTableR.datasource | 10 + ...Control.OPENcontrol.SaveTablesR.datasource | 10 + ...rol.SelectPartProgramFromDriveR.datasource | 10 + ....OPENcontrol.SelectPartProgramR.datasource | 10 + ...rol.OPENcontrol.SelectProcAxisR.datasource | 10 + ...trol.OPENcontrol.SelectProcessR.datasource | 10 + ...ontrol.OPENcontrol.SetDateTimeR.datasource | 10 + ...rol.OPENcontrol.SetFeedManOverR.datasource | 10 + ...l.OPENcontrol.SetFeedRapidOverR.datasource | 10 + ...ol.OPENcontrol.SetFeedRateOverR.datasource | 10 + ...ntrol.OPENcontrol.SetIpAddressR.datasource | 10 + ...OPENcontrol.SetManMovDirectionR.datasource | 10 + ...ntrol.OPENcontrol.SetMdiStringR.datasource | 10 + ...ENcontrol.SetOffsetTabRecordIIR.datasource | 10 + ...ENcontrol.SetOriginTabRecordIIR.datasource | 10 + ...l.OPENcontrol.SetProcVarDoubleR.datasource | 10 + ...rol.OPENcontrol.SetProcVarWordR.datasource | 10 + ...rol.OPENcontrol.SetProcessModeR.datasource | 10 + ...ontrol.OPENcontrol.SetServoParR.datasource | 10 + ...l.OPENcontrol.SetSpeedRateOverR.datasource | 10 + ...OPENcontrol.SetToolTabRecordIIR.datasource | 10 + ...OPENcontrol.SetUserTabRecordIIR.datasource | 10 + ...SControl.OPENcontrol.SetVarJOGR.datasource | 10 + ...SControl.OPENcontrol.SetVarRCMR.datasource | 10 + ...SControl.OPENcontrol.SetVarUASR.datasource | 10 + ...rol.OPENcontrol.SkipPProgBlockR.datasource | 10 + ...rol.OPENcontrol.SndProcInpDataR.datasource | 10 + ...ontrol.OPENcontrol.SyncroCycleR.datasource | 10 + ...trol.OPENcontrol.UnLockTableIIR.datasource | 10 + ...Ncontrol.WriteRemapDefinitionsR.datasource | 10 + ...rol.OPENcontrol.WriteVarDoubleR.datasource | 10 + ...ntrol.OPENcontrol.WriteVarTextR.datasource | 10 + ...ol.OPENcontrol.WriteVarWordBitR.datasource | 10 + ...ntrol.OPENcontrol.WriteVarWordR.datasource | 10 + .../OSAI/OPENcontrol/OPENcontrol.wsdl | 5895 ++++ .../OSAI/OPENcontrol/Reference.svcmap | 29 + MaterialeSetup/OSAI/OPENcontrol/Reference.vb | 28838 ++++++++++++++++ .../OSAI/OPENcontrol/configuration.svcinfo | 10 + .../OSAI/OPENcontrol/configuration91.svcinfo | 195 + MaterialeSetup/OSAI/Reference.vb | 28838 ++++++++++++++++ .../OSAI/SIMULATORE_192.168.157.2.wsdl.xml | 8995 +++++ MaterialeSetup/OSAI/SOAP/CNC.OSAI_SOAP.vb | 997 + 159 files changed, 76762 insertions(+) create mode 100644 MaterialeSetup/OSAI/CNC.Runtime.vb create mode 100644 MaterialeSetup/OSAI/CNC.Runtime_ALL.vb create mode 100644 MaterialeSetup/OSAI/CNC.Runtime_fanuc.vb create mode 100644 MaterialeSetup/OSAI/CndexLinkDotNet.dll create mode 100644 MaterialeSetup/OSAI/Config.Options.vb create mode 100644 MaterialeSetup/OSAI/DCom/CNC.OSAI.vb create mode 100644 MaterialeSetup/OSAI/MTConnect_AreeMemoria.xlsx create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.AxesRefR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootModeR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootPhaseEnquiryR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootRebootR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootShutDownR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CheckHistoryR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CycleR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncDataR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncEofR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncInitR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncStopR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseExR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ExeR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetActivePartProgramR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAvailableCustomEventsR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxOriginNumR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesInfo3R.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesPositionR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBinaryFileR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBlkNumR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCNCRegKeyR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCodeNumberR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetDateTimeR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetFileR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetGCodeR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetHWKeyR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMCodeR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMarkerInfoR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo1R.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo2R.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOffsetTabRecordIIR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOptionsR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOriginTabRecordIIR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPTechSizesR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPartProgramLinesR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcInInputR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarDoubleR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarWordR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessConfNumR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessStatusR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSelectedProcessR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSerialNumberR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetServoParR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSysTickR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolNamesR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolTabRecordIIR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetUserTabRecordIIR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarJOGR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarRCMR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.HoldR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LoadPTechR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LockTableIIR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSAddDriveR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSChangeFileAttribR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCloseFileR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCopyFileR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateDirR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateFileR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindCloseR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindFirstR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindNextR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDriveListR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDrivePathR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileAttribR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileSizeR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetHiddenDriveListR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetInfoR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetNumDriveR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetSecurityLevelR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSLongFileNamesR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSOpenFileR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReadRecordR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReloadDriveListR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDirR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDriveR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveFileR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRenameR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetFileAttribR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetSecurityLevelR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSWriteRecordR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ManagePartProgramR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonAddVariableR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonCloseChannelR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonDeleteVariableR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonGetVariableR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonOpenChannelR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStartSamplingR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStopSamplingR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutBinaryFileR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutFileR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentAnomalyMsgR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentEmergMsgR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentErrorMsgR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadErrMsgR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryAnomalyMsgR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryEmergMsgR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryErrorMsgR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryLogMsgR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadPartProgramMsgR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadRemapDefinitionsR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarDoubleR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarTextR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarWordR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadWarningMsgR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetSingleTableIIR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreBackupMemoryR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreSingleTableR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveBackupMemoryR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveSingleTableR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveTablesR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramFromDriveR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcAxisR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcessR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetDateTimeR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedManOverR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRapidOverR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRateOverR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetIpAddressR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetManMovDirectionR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetMdiStringR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOffsetTabRecordIIR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOriginTabRecordIIR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarDoubleR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarWordR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcessModeR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetServoParR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetSpeedRateOverR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetToolTabRecordIIR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetUserTabRecordIIR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarJOGR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarRCMR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarUASR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SkipPProgBlockR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SndProcInpDataR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SyncroCycleR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.UnLockTableIIR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteRemapDefinitionsR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarDoubleR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarTextR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordBitR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordR.datasource create mode 100644 MaterialeSetup/OSAI/OPENcontrol/OPENcontrol.wsdl create mode 100644 MaterialeSetup/OSAI/OPENcontrol/Reference.svcmap create mode 100644 MaterialeSetup/OSAI/OPENcontrol/Reference.vb create mode 100644 MaterialeSetup/OSAI/OPENcontrol/configuration.svcinfo create mode 100644 MaterialeSetup/OSAI/OPENcontrol/configuration91.svcinfo create mode 100644 MaterialeSetup/OSAI/Reference.vb create mode 100644 MaterialeSetup/OSAI/SIMULATORE_192.168.157.2.wsdl.xml create mode 100644 MaterialeSetup/OSAI/SOAP/CNC.OSAI_SOAP.vb diff --git a/MaterialeSetup/OSAI/CNC.Runtime.vb b/MaterialeSetup/OSAI/CNC.Runtime.vb new file mode 100644 index 0000000..478a5f7 --- /dev/null +++ b/MaterialeSetup/OSAI/CNC.Runtime.vb @@ -0,0 +1,66 @@ +Imports CMSControl.App.Runtime +Imports CMSControl.CNC + +Namespace CNC + + Public Class Runtime + Public Shared NC As CMSControl.CNC.CNC + + Public Shared Sub CreateNC() + + '************ Istanzio l'oggetto NC ***************** + Try + Log.WI("TRY crating NC CNC.NC", "TypeNC=" & Config.Settings.Settings.TypeNC.ToString, CLog.Lev.Principal) + Select Case Config.Settings.Settings.TypeNC + Case NC_DEMO + NC = New DEMO + Case NC_FANUC + If Not Config.Settings.Settings.Hssb Then 'Ethernet + NC = New FANUC(0, Config.Settings.Settings.IpFanuc, Config.Settings.Settings.PortIpFanuc, Config.Settings.Settings.CncScreenHssb) + Else 'Hssb + NC = New FANUC(1) + End If + Case NC_OSAI + If Config.Settings.Settings.OsaiCommType = 1 Then 'SOAP + NC = New OSAI_OPEN(Config.Settings.Settings.IpOsai) + Else 'DCOM + Dim DotNet As Boolean + If OSAI.GetWinnbi(DotNet) Then + If DotNet Then + NC = New OSAI(Config.Settings.Settings.NcName) + Else + NC = New OSAIVB6(Config.Settings.Settings.NcName) + End If + Else + Log.WE("Error on GetWinnbi or WINNBI are not installed", "Install Osai WINNBI before run this software", True) + End If + End If + + Case NC_SIEMENS +#If SIEMENS Then + Try + NC = New SIEMENS + Catch ex As CmsNcException + 'NC.frmMain_ref.ExitApp() + 'frmMain.ExitApp() + End + End Try +#End If + Case NC_BECKHOFF + NC = New BECKHOFF + + Case Else + NC = New DEMO + End Select + Log.WI("OK crating NC CNC.NC", , CLog.Lev.Principal) + Catch ex As Exception + Log.WE("ERR crating NC CNC.NC", ex.Message, True) + End Try + + + End Sub + + + End Class + +End Namespace \ No newline at end of file diff --git a/MaterialeSetup/OSAI/CNC.Runtime_ALL.vb b/MaterialeSetup/OSAI/CNC.Runtime_ALL.vb new file mode 100644 index 0000000..478a5f7 --- /dev/null +++ b/MaterialeSetup/OSAI/CNC.Runtime_ALL.vb @@ -0,0 +1,66 @@ +Imports CMSControl.App.Runtime +Imports CMSControl.CNC + +Namespace CNC + + Public Class Runtime + Public Shared NC As CMSControl.CNC.CNC + + Public Shared Sub CreateNC() + + '************ Istanzio l'oggetto NC ***************** + Try + Log.WI("TRY crating NC CNC.NC", "TypeNC=" & Config.Settings.Settings.TypeNC.ToString, CLog.Lev.Principal) + Select Case Config.Settings.Settings.TypeNC + Case NC_DEMO + NC = New DEMO + Case NC_FANUC + If Not Config.Settings.Settings.Hssb Then 'Ethernet + NC = New FANUC(0, Config.Settings.Settings.IpFanuc, Config.Settings.Settings.PortIpFanuc, Config.Settings.Settings.CncScreenHssb) + Else 'Hssb + NC = New FANUC(1) + End If + Case NC_OSAI + If Config.Settings.Settings.OsaiCommType = 1 Then 'SOAP + NC = New OSAI_OPEN(Config.Settings.Settings.IpOsai) + Else 'DCOM + Dim DotNet As Boolean + If OSAI.GetWinnbi(DotNet) Then + If DotNet Then + NC = New OSAI(Config.Settings.Settings.NcName) + Else + NC = New OSAIVB6(Config.Settings.Settings.NcName) + End If + Else + Log.WE("Error on GetWinnbi or WINNBI are not installed", "Install Osai WINNBI before run this software", True) + End If + End If + + Case NC_SIEMENS +#If SIEMENS Then + Try + NC = New SIEMENS + Catch ex As CmsNcException + 'NC.frmMain_ref.ExitApp() + 'frmMain.ExitApp() + End + End Try +#End If + Case NC_BECKHOFF + NC = New BECKHOFF + + Case Else + NC = New DEMO + End Select + Log.WI("OK crating NC CNC.NC", , CLog.Lev.Principal) + Catch ex As Exception + Log.WE("ERR crating NC CNC.NC", ex.Message, True) + End Try + + + End Sub + + + End Class + +End Namespace \ No newline at end of file diff --git a/MaterialeSetup/OSAI/CNC.Runtime_fanuc.vb b/MaterialeSetup/OSAI/CNC.Runtime_fanuc.vb new file mode 100644 index 0000000..4567571 --- /dev/null +++ b/MaterialeSetup/OSAI/CNC.Runtime_fanuc.vb @@ -0,0 +1,47 @@ +Imports CMSCncLib.App.Runtime +Imports CMSCncLib.CNC +Imports CMSCncLib.Tools + +Namespace CNC + + Public Class Runtime + Public Shared NC As CMSCncLib.CNC.CNC + + + Public Shared Sub CreateNC(ipFanucTgt As String) + + + '************ Istanzio l'oggetto NC ***************** + Try + 'CMSCncLib.App.Runtime.Log.WI("TRY creating NC CNC.NC", "TypeNC=" & Config.Settings.Settings.TypeNC.ToString, CLog.Lev.Principal) + Dim ipFanuc As String + Dim portIpFanuc As String + Dim CncScreenHssb As String + + ' SIMULATORE + ' IP LOOPBACK: 192.168.211.5/255.255.255.0 + 'ipFanuc = "192.168.211.5" + ' PRODUZIONE + ' IP ETH: 192.168.139.201/255.255.255.0 + 'ipFanuc = "192.168.139.1" + + ' imposto IP da chiamata + ipFanuc = ipFanucTgt + + + portIpFanuc = "8193" + CncScreenHssb = "0" + NC = New FANUC(0, ipFanuc, portIpFanuc, CncScreenHssb) + + 'CMSCncLib.App.Runtime.Log.WI("OK crating NC CNC.NC", , CLog.Lev.Principal) + Catch ex As Exception + 'CMSCncLib.App.Runtime.Log.WE("ERR crating NC CNC.NC", ex.Message, True) + End Try + + + End Sub + + + End Class + +End Namespace \ No newline at end of file diff --git a/MaterialeSetup/OSAI/CndexLinkDotNet.dll b/MaterialeSetup/OSAI/CndexLinkDotNet.dll new file mode 100644 index 0000000000000000000000000000000000000000..2ab44b83d4836e14d336d298b4ebd1c5807ad03e GIT binary patch literal 46080 zcmeHw34D~*)&9Nj%)GN@CYb~R$dU=59R(trii%3e0+DPc0YtHJNCp^4X5!3*MXilX zwYIiutJbwzw~G2v*H*1sL|dz()w)!zw$!>%wRLT^Zv3Bf?tR~RCkfQ{`}+O*`~C** zx%WBe+;h*}?|Wx!I_ezZ5<<8UcJ3774#e~~kLm8o0L0;nyTal&|D%<6$i_!2J60#N z(Y{Q2RVLmW?TV*T>0ES0BAV$>MU$y$ZA*K!H{G463WWlbwdvM6AsVGyEO>NLgH_sg z5v~kMpAc740gC(m`w&MFwj+>tQACFF8!7gmVlhwJK#5C)z<(wjYe+2oHNtKSr=(bo zB8U7%r6?lib|Jgjh_??CV)^MpU}W%LYc#(mXx46{+aP`H;kWLk{O2O{v~SGj61`Pz ziEO$*)0N2DskTJCJCT_h?ag+jGd;-_Q=>}~nQSthI%H(3+(NhSJo znRw6CXlwt9o@Cde#Kw;F+C=J*6$cy;->+-G{bw9FYj$G#oC7BfEv!G4OZFzL(%Ta` znm^WGYjrLCC!d#O;c;L9#GQpoU;xCuj}T?kr3gX}LF6Qorm|R8Q>SwDIB{c`pMf+i2c||dVDy!LD}qvDn3sWU2;}%I zR=&UhXkBS%x)93w_uDE6iG z%s_h0gJL8#S=n@h*G#lb#PwM@T4`*06f(O?#b+Z4nI{w7XMz!fmB2ovkE&x7qU~I< zG2q4aAOU#P4_?G3$zo%fYxNEIk;lb+#B|~hZha!)o z0)uU%pB%QOs6ct}9eoZ*#!eea{-{n?-9vC6gM2f1J3{A1xE){{?LgGg4yL#S_Ry6P z;{;d^Obx3z9R(<#wSTq}ahcnQO+=hIj(ZaWK$dwTp7Mx0JqhfyCV+8e#1oqg@D;M6 zY{d3NGGNB`Ld0!c3->kR{V}Eb> zjqw=CqSFFFud6&Zh02*qWEx1i3M62ZS%dN1AGkM zNX5u+eF^mm=s4su{b6_56T1ewMZWT?8QFbdxXkU2xXp5-R8)*eUjb2iI=Dx8B5psJ zt^%eHFCd}J7Rj#7jmqF8S$vT@CsUouz2j=hh4T|MUb6xHrb7~TjSL*Lpw)IHKYQC zE|g6-MIFk=y7e!XZ?|jgzqnOt?Nc_f>ixHEZnkauXx!8KTsR(MKVprt=}JC+i2SAk zITo2g`EM?eW8E1f$6*tr-LfAYBEQv^9|Hfd&_%+YQO~IHqGy+nCRgk>C_3k-spe-fI5c1-393A})`c*T{Qp zTPE!(0xPmr4(8mw1^KX0Te8^C?0m{Utlze5%ODw+bz64dAQ@I>Tej69gC7Fxv(+cV zFI_>G8%q~f`ujO&*>vR#`qQ@gfNfK?$xKTY`?=1e__J*OFA8kUw)iOJLEDyx+DYsO z8SiC*U9Gv6f4{VCQoj8^cfN;oJ~iJC$or!9kl4evU7Rn(oV+~th{IQsVK1}WWScGX ziY1WYSRbjFq*gW^qh{qtT6c|$i^IWxY5IsHYyu`NbQJeDPc3x%oP>0; z$21z$UKjHC`9Kvt1&R(g(eYNlW52V<-LrO^sQ#&U$ey!hY8}G)!^($s=y{e}HW%h) zvESPHyrLUkG(Z-WIIgna!F)1=Vd7P%oEMOXDsiA5()Q?$(xaTC9@xp%;c&2k&WA-} zF|-e-^6YjB=95MFWGJ63b34)=N7{6xy^gdGONh@OaYt~dh$vPae*9OTJJ7hZs$*>n#b1wELTc-S7nwPP^uMd(RIY|D7Em!_7 z%gbYL+A_8G9%ad5e`ZP9boD%Rw8eKkGyTQR8=&VCv3#gbI1qbF+fnw9v2q`F{Jk|_ z`Q4}Zv3&;FInLIfqV-kT8H%$+8>sXq$@vRhw^Wz8Vt)iXZdZc2xbaKUjSi^EqUDp`EeCMEDetoq=1U zBA0R|=7$>XG(NX4J(I4JXj7p%N_lWB7%op>_&jQzJuUA8ud_kh4^zZo6Gz1Yn{JUFjyi^6?yt5C2E8g!)V6IoFcK zMi=Dyj>SiwF?Js1-*@ve_`ZkE=cRi|ab8~5%AGk@Wu|_a0{Qun>$}k5pKtMK!`&Mj zXZu6>F0k?y`G(JDAJ@n0e5!umv;2uoDBxdc^D8u8tvwf6d~5%WMGNE?50O`Dxl4?P zpO-*h?jH60?M1;UVOOj7-11q5cOUPlBX7rx2s8ddFQM@MLb{g@(*4dby7{|ggP#pA zL!Of`1Krc2865fg9Y_e8oqmr15pVQUa#HWq7)P%&w7 zyI6>YxdgmP3l=xjB0dt>jRkws{GK$<1N>*;(t7D3SC02r0DdHA(d90c4!`McOTa0C zmo~&faCkoO;Rsk{#M20ugYQD@L7@5o@@vYNXPkEHnA(luD)ZL>@;TlcpL&gxDUQtnDieoAkRs_W36`LwBx}!Ug9u+Nv zo%zvyqo(L&dS-Mz(pN<(*OQ^1jQQqDtcISxKB3NSBK5RGwIAiU%sMt_+Bm zD$6i$J_V;#luso7l!;{LP^PPyrkGwZ@oN(U;>Q!o&L7<#S!t@-bmomMF>61)?9e^vXHsa24rD9Uf1{F-w5t! ztb<6`;H?1IRcQslX`@C|NkZ2#Ivj{b%$-2v@qD4s!;F?`^em%eHF}BBYK`7tl+x$} zMmdeBl<{JNM%a^pPS6NzCD270;hYC_twysL-Kf!_jDDt31EXykEn)PuMsY^ZX_RL4 zvPNHF^qNNBV)T|qmoa(|h7GpYXL=~pI;Jg5moQz!^f;y)m<}-g zI@5EQUdZ$crq?mOiRm3ow=jK>>0?ZvVfrG|SD3!T^i!sO4|zM9>6e)9$FzoNJJUGR zex|1~J(uaFOgDj=rf)RaDH$CME*Y4@w4UiPOtVbC0cvUfaC9*=?`HZW(>IxV#}K~~ z)GS#rrVO-+X$R9zrrk`}FwHPMp6S=ez>|`*$CM-2#hkv9=^8KDxq)?V8?y(}yVtyT z%mnECg6XdGA7#tWFx{1oD*g8kofG_I`4zVO`j|?j-(y(9_3~Ki_6fG(hPKIeit=8^?YLoZC3> z-K_ZwPCv%!XPN$s=x}ND*n4Ze?Or~cuJ)h~N8Gse9#1|8nU*mf%XA{seVEQW7^3yF`oKejiMB5u4n#NnV!L% zvzcDZ^y=|bpnv^%s@F|Sf6SWqGJS;Uv*Y)L^!H3({Tvql%r>2+D9e9k{-^ArF@gN_ zGA&}N=0#)zjkgICsE&IxJ%Bm&6R5}AIlY|Iy-ZJKdNI>mm_EYvC8i%S^;J;bkriJG zM#Q{|*`UdaIYD0~wonln9WnygRHBT^d?So7&>W5SH^u_BDowG@*biv=M9L?{X5$c? z*iK_)j()_b!#UtAM)ihtH340xQNY!PQ^VbiP8DNaOMsrzvPrI^fp$3ZxrKWYl~8X` zK93m9Nagd0=~_nlJffCSggx_!K1RwjQ=G*}dFB=8F>?8)x>n%5ICF7w!r6(v_KMm9 z)TofS)l(|H;xvuk@Qjy1aj8b8xff2RpJ+72oF&UdEl%5X9$RGA$}wWKMkkxgjG(ZRkV<2-SiMvHKFexbNRqot5tChpKE z0rUg$xJJFuyhgmKQO;LsTrcR=IjYemkliFEYjhLP?P8urzXG~TEZ695pr45i8b$om zj0eO`8co3~2@i>F8qM_=8IOsVHEQ%rK+l?NnuR@4$)1r{Y+R>H}vQhCETD zF9$9#yz&l>HUzFTLh>n%P77?t`$pc@=$yb^#wb}dP1(FMP;QKq^fo2(dNWX^tkvkQ zz|W1n8_*Yr5Z(w4s*rj%Nk89I^30z{FVmzxuj^RYmFR-D=YFk zS=8-H%Q+gIRCJsxCp$Dcx9B9-Mw!#-Cq-wu2IP4fJq(*?$eT2J5jM|~+cbI`HqVti zH1dRwb6p_a^pJ}3Mu#qTT_PuIG&S@?*OjtXqr*bw#wK~JMx7yPY?d1|S|7U2b&I@I zqnkqyxPB_PX!KyH$oRQ@R-+ey9+Gcs^g7U^(l<+${!!>@*AsHGMtg)`ay=vGX*47J zmg~22xkd}apSZTm4H_L2_Pbw^=V_D)k95B-Z_?<@aHab#xlN-h!qeRE%N-is9zM|h zcj=z3O8+3d!2OvVr%`cnt6Lg#G&;EW7`JJ3XmmvJ8h6m>(!FWoeM~bg=R~m0>^mg%W?mZ3Pe#)1zCHJ}aF{WzNTk@QH zw$Y){4M2w(Cu($O$(!!OjY~D!TJn**&A3COZ6&7XNaF>KJ}xQutT250s}fowp{MdM3qb8ucj3V3|(b(-QyVY~A5z}Y`(EUcOM(3CP%=1g*SdDHjd)V`+aiT^~ zl|AEm(zsBg56fQlJZIdd(WnuB^Zee}rcrE!F#l-m(5Pm_CeIFouYOQ^2V`#=Tpw!m^oYI8 z64&U1R0%tQM!V){ud3eqp3ifZFI12g7;<{E%L>@x7%nbWOvyp0d%j8dZD@1MmgUs z?}IkF1hPkMbQ938ZS*Uk-`MDFpciZu@gL^>gN>&6W8PP7G}k}D`-Y7g{bk;_Y_!I| z$orm+PJ@*XZFB|Dr#5OIxx{O@t(IRoa+Nn=quj`xx7bESfs?%>Z1kOxXM6Xs(X}Hl z^;X#E%YjYa$u`;$__22%8=V%|>fP5y=L8<}&bHB&ftdF|8*K(U)JC_Ce9l{Aqc;MF zc^BHKIQXi!$wrkxZ8n+}eAm0wMy$g#)Xuj_R z8#R?T`MzqSc==Jj(`?jVzRGu|jlNl)^L^V!=N6sp`>u_CQgpWOVjEo!n?JD8t+08m zjUI%}8*KCRsPoZFIn>oxYE3)HLc@-%cBK zA)ni0jlmO;&u^peB45}>y(LBdG8^3hG{Hu9mQ?unw$av-Y5o~D+E#L){{S0p8r9&h zwoywY=54XjQIUkd!$zk>a{gm%^kihf-({l_rRVsQHafVp%-d_D6{T(FaW>jmdZ|BW zqw7mI`8V3=DWH>Vw4?NP|EV?#mfi3FhK=?vd%}N?jpmlU=s({^O+XjfsI%-f|7AAX z0Cc5|&M$k<|3e$yT=tp&MjJgdDiFBEMmt9B5xB!fqeko#xYtIp5winZZB#SjMgM~~ z>VWJK8>L1Z7I@r7-yE?h@QjT%k2uWxqK)nVddWsxM_`=U=nO%|pAzue=-}eB14TAEqWDt0Kg!Zf7hfO1%N07`8O1*d zjI+^Y#rFrIHoCR=SAoekdZhUIz?W?FcJZr$DK;8g@?K!Nc_Hu9WxoE3xxs_Xr!+dV zq8ez2M(0=51JNDBH3reGOnq3hrBGCHw&L1fiu*hU?jg2;y2Nv!Zt+LdUy6^IPaIbP zr`#k?C8(SAJq6M^ES<+v(($m4S)j9wbvjvRCF`sOHN|nDUa=9>$GQA=E_!Y2Y}Cjl z&I5Iei$Oi&`=EF&3e+pE-$kx1kh;V+P`CIEs7JiSWl_Dn1@;Ry$@9;4p-C28VhgAn zmWS4nyd7%oAC*hie)GAlk^lKtr4kcfs_7a~x5$8c#0F4PeAP=eC4FB(egF6Mf5QH3 z`M3GA1C~wk=g)1QK4v_;KFx^HzRx=&3g-y*Mg1^&iBG-b677%cW;fP zUqc<;;#`zCcqZokA?fh`kcF+gmA%#wr^aMY(@UK8U;#t2DHN_ubZMYe?1|!oY{S*)Nbw5da~<&*|n7HU%K1UcirQZch^#?^@D8rapgIvDP98IbuWnE zu4+ML?Xg?w)ZI#Jga3HOE!m|7s>?c-eg)Jc&IC1i^)B44)L6QnHE&_fyI6B8s8>7; z>Jz^P^^500@!kv2AloS_*ag&z^f9D(-JodbxT2Xg5&Yq1);#7P4m#X;`1eV#DWX1_ z2kI7^*=HJc!?n`q*PMs<*SW;5>+qtu0gKhPG!5!MW?c@oQv}MdF%xW#@;o%7+3!+UyZcl@X-3w zy7%vt(x}*Vx&O0L184FFP)9>N3+fVY45_bKOj74*WKX;!%@9@KyTpE=h4Xax(gf!v z9T!`0vxUNaXZIFpjWRe_;dmR4PqiZt^Zpa(Ip(~~{!_iIXOmBvZ%0hxry)>NyawtO zZ-V;7JD;OXs1y&EVv10N{22}E6H!pVh=B&gY|x-M6tqaxgNC@3!o#%EuFk{GHe3^- z5;LH9e;z3H!r&F@d*B=5I#8GR38-8A0_6_Z4sWo|`;fW?K8QC&hsMuT@C(PSdLnM! z1>ZUEl;&Bic`0aqeCD65A1Eb1AN!}JR7aKfLs)R*iyx?Es4m0p8V|4!70_|B&Ty@v ztf|%*dT#uXEjVYN8cVz9XUc}wnmkvzzO_p!waN9nl|ICEc@#Rs)kWEVg)O`_j1Kke zE3n`ac&i55qy%(0J0u<4`^taHdl2XSXWEK#t=MHQC8a((X&3%bU%SM`BS_~;)}eK8 zxE@z0I%Qi;99NO2r;=c%ga680ay$&RXY)_%>RGhR^7)fGxYqR_StQ_ zl+tedpKv$z0{7`lpu?X)sApf}TD;Age`ietUjyeAK~SF<0qPgyK?7nh(0}!Asv3ER zJE#5oZl88>F5esOc+Y?J@Mo0F&% zxH*aP%}JDRPNM(8Hz)9OH#aA{l~Ns%7j^uHHz%xV*qU@VGWgk0Tf^=%?9B-*40}WJ z5BbC1oY=XBy*XhioehS)IkBa?xjC`z|C?@3ln-dnVQ)_C(g)o<*tv$iIdMpLd2^z4 z&@%STNtEs=c6Dx{HvIdjp?3x9yh_sl?3UL&BsQ#Jzm zZp@D_S#ATRPk229>1)9!Ko=I(3i@R8nWAoDoA?vwY7ngxtAl?MUErK4PMWx-NXpA5 zJ_NdX;;)MQa_hvWk$!sOABrOK5#w(~V?gUfrQB z>E80lNs~i+!~VUX!!_y1G2fAH^ zKwsu^cd&17vTtv*Z|^hzL*{?N9tufq>z34>K1r=t!kiJz8O@w=lG-yWsXZr4YR{>x zGo5v2v(6mWnaeu!pcBP+9IO{rcr(VwMODIO+#0SDizKB#mfuJEN!bMYTe$?Z%plGm z9LxU4+ESYkd(ecQ_|nU{4LDc&Qutr z6V;S-j^*^R2BilKYLiKBs>LKX)ob1e;#?`-30;kFEy8sO*CX7Buo>Ydgj>XWq1(jY zLqA4*2f|(8-HmXs_-hEY2yKPz0mQ#R_$Bxci;qLw5FUg4aqxZ(`BR9WL3kG7dGKFA z{5$Yb|IkYaFC)AP{to1O9pO#!Y3MHqZ^PcZ2=62O4g3!gK0^2e;WO}rd?#cexDibG zX~-u(4h7`SP!ZB$gc9&e5k??gjxZWw4}@_D6Tpv3BRmm#CL`>H5JT7pVJbou!gTpw zXeRV#OHX)z|jLEI~LD{G$+- zL+8r~$0Dpi=tfwHuo__vLJvX;p${R0kV9C9umRzCgcD^Td=laT*g6H_G=$R;zK-w> z@Xtc{Ho`dw-$6JJ;R47mM0_#Ar3l|gxB}rygsTy*MYs++*CW0WVKc%_2)D?R@NMA# z7~u}!yAbY1`d)-B2wP<+`~bo)p!ZA29!A)P@R%$MKMp^C4V|YDo|fA~&mevly3ZrL z0R7*|^6+->UP5>o_*FS3yhDx)zmD)G!e0>HM!UX?@IG|@hVUWMAE7NjLHrqFVZ0YI z5ZnkRf)62pP=pXhC^0I+#lG#Kp9WqI-GlHmg!>Twim(&GAAC6!L>PrI24NDyG=%*S z4nbIea0J592&)jzKsXcOT!f1dE1B(HPjtU2Db*c1)m8%AN*bLk9NEb zyd6cOLebFF&>YZcXnv?AbQJ!z;2&Z2Z%$~fowj)SI4@gk>*ZK~z>(|B(06T=3tfh^ zDlu>8e?E1)UE=+r`;n%wyMF_rhi&{7JfXuN<4-5*>GC?7HKQq z2Hx+(e+<8d@Ot?@j& zcU>m623b(OMtW(Hr?Z2zgLCknL44;Co{1`P=Ek>K8ua1!HO4g1)vh(5(<>VBUdSI* z905(brKR8jEyXP`-jyW%p!?!m0VKW!D=2<6X{J#BI>nOUF~K{Fgj^tR^+;SUHOMzO zUL;L?)t`_}atg;SauLTz$dfs4mp5~~SiZ&aQdx#C0TgnX+>7I*mE){DnB#uAh~xEgDaRXS zg5wipFUMbzIgY<7FX8xPc@xK{%3pE(HTgEjXUGV?-Au?c*S3ui*H6*^aNv6Y_g9REOmnfX`A4IE!1 zPviK9@*Ivg$tyX&L2l;wzvQi)??>_t#y87i`a&jotHh6YA--MC;`k@BmE${QC&xdP z=W%?G+!tTlC*;p$1n;{P@;=$b_pA|tyqV)a$Ok$8qkMtmSLEv) zzb4;ddw-H%e3_t-Z^#Oc|11yS_$}GQ@jJ4MOhE5|$KHjbsSiS=DZ3%*!UNRM$8$6n(Uj{U}y90!dN_;N)dLk2!ejkwrY!Ewac zh}bR5jO#fbX*|XJQN|9&V~ilac2UT&#@-x{H|BC&VKi}EX>@Wt$=Ja0p2qncf62I+ zp4vwc8qv(t96((VFE%0LKK0%pAhd)gli=zhhl-U6t2*?5^;-o z0dvX^AMp_eA?7xvyZd_*hYIVrxkOX4E0fNqSLUjgB(weTp84@?vP(2=Y|W(CB)W2< zCe@wT(3niEtxe~e6S=CUjS$wSGrd{FOA{;F6Pb0%u0&RJtj^$fzuMy~6D=z!Ck(7h z;&;G~ouO1`R7ZE&Kg*UC>POUs>K{?n)s;(U#HvKDQ}t(Wr|#Lp4rC2y zPm`Vl57Jh)9CA^Efsspeb~dE4xp=AzDeXzs(qyVTy*^u|@({((LRo5}Hks{9XA3hX zwGDVr&g-9rt4a6tV94Po=CWd8Ji9sr26bnIVRJDku)eRk@tqubiBMMUpMp_ql zz#?YN{5FA+)>+qB*VNgLsfXcD#uv1xe=Jr}j!5T$P)fmR4)YjQtjTzcl z*DM-3Yg%gSM2m`=ma2Gxj@xzIs^i5vZmQLKI&RhRVjWj2F%|(bj;7*xp@ua&Ue?so zX%$3iow=RT+5)B9Fo7Lv1g&E1Ip5h(>zMY0oHL)WbJo_1`7JFS`E{wYiQHr!8egH- z*4lX=~Xo={n%VcVL z;@K>xn)`c2O%J9{KBH3^qnE}#v{ocCFq#LVeZBsvMw$;TeLSO}p;Mwg(bb=6Osq@v zkQ_rk(ShG!ghJo4L_8z|a_1t()jcsP;l`RpFME zls&5?-Dqjl#9Xev$zkx;7YZpAG}-=&n!)6x`B92!S07mF^k0v+b5L_ zx#(LG@99ri>a}V7<|Socnn~so`TR~eKbeC9sIr5EGGXc1Hna;J`0ZI_XipxGWsQD^ z)>71h#zacYPp5OOtK->3UFx|0WM(7u`xvvNEwKV}Dil%s>i%49dOeLif;c>ozZ8j@ zja}?~O)q+NV+w}|i-XMwOJohYvxk}kU0$C^bT`FQE$eu=IS`ikj9Rxz4Ju9Pbv7%X zw++qg$ZSE&bX&YH*E7B*ave203as9c$hM}l zNt&17C{x%5`%okmAo?0oIVg~Bb5}!ZWqJl#2cmSIJ5!nKNT+!&k$;pH*r*^=>9(3Cq|wMWUkz-< zSzO(2OO+;#Z>(`m*;NoAffH$BhLxCUC1zQP**wWw^Np-B7Ba|{1vFb>vX2wQX|gz+ z5bbM|eXZ0k`0DSjwa`S}T2?a1iaMN5Ff~X5Hs!9yDPQ4ZNwD`rzXnbKV@+WS{n zNn~=UQ@yCQTU%8PRXkJUSvsDrz#LrW&PDw$Fph0aK1$w?$^KDW}+ zcqWA-l4_wmP$rVuj`)f;EZ)4dsRUb5$@%>&SCS$P8mA&yEh|@MA#mgdleVEjEWr9? zqNm$l%E0KM%}Fqu5>$ZJYG0ks@Crwhq0l)DoxyH^HPj6-2fIO82fN|mISPeZdx8eO z<>fjI;$AgLhzCGZje30$Kc4AY?W`kJ4EZv8X>ZS^F?ngT=xd7Sx>l<+Tcn(p3r+Ft zTJ%~Lix2v&C&6ws;IxHJuxo7|Elw5U!F|M83j1(SOR)y^BM%~2R@xT3pb42t4dxsM z7IQee&>hY$*hB5stWI>TU6{<`yw7_T{S-a#M%h(0Y5WRw0_$IOPtRbMrG_&aw^!am zeG=_PXMS2#G`p@hkHS)r#hAHjrVL+ z8kDQ1Ka)wMa#+fowk&R;H=0{ugImQelQsa@2FAGCnAMu>fUN_$9$;#}!$T8o9W;f} zgyd5}0evVHdFxW^gidzQ*uxo*ZV>pKiFW7Z4x0`Q_f=@9r07F`bE2lYnT)pA;vqoP zCe~3~CcB&I@R03ap~p9lkLms#pCAOcGZ8waAUB^~RCb`|rViLaf=(MM)sW)jQAZNX zZw5!Lz8OSjik5zS6($H$ScGbm@l|XOgPFTIk?Nv>M4sr0TixBw8zk1`mE@)+N;KmE zyeo%iM)Z@Y>+RY|u2Ias!kPK$xH|MzH`n0lGu@M@SxH+I{GhVQ3y$fWj5Hlp>)Sgr z@l+O#P6H87AflarK)oZLS%qzzo*xy1#I120sB05htWUO-peX+0*@emO?nH_?e1@UPuaK3&p`lH&oLec$%cZ5sd}nd!ROWGG z2(Rq2A8Am5pYDc>ZBOdCKd-xNsx}i4Didv`cgvb|Z*Lr~G~^P!)~a5c!V#8dI8sz0*hi`^O-D>5Xv;)u z0j)BKo3QnE^Ndemo+VPN=uuRyZW=A%6$PsEH|7%6nM|CgGbaQ+yxFWi$0KoH{+YN> zJqPQlVLt~Kp33>`WgosB2#4-DqK}W)be7)LL7Q_}=j%DVE?Wm*WXIyJ5YFQTr&~HU zBvVl6UjdOmJ?g|vi!;kg%(fEyS&99v!~s@f=php2@AiDiISS4IRAqEBErEQ*QfCOw zrP*$uD~N|lFz8Unydf5$H;hGahgd|}1-a==GMqlav7+9+=r+e3Y`wTC(J zaQ%j{jhzLqJ9aB5Zp>nCRPj^2+Q8@cCwmHJw_X9}^S{8A-p?QI&(=z|?x*A*>=5saUy33iPp&6Im4Yi%E z)or*5#FaiPx3qRNv@~~;a$PfBr7QFFlvmr(&Wz5b3+tLY=~)lAqR#98&g$AGTrXmi zbi5|O4mIG#fO;#33n<>UDBsFMyGSRuMNLAT=Z zTnFxQuts8uOw+?7l1dfJF+KBkCh7T}9vS1Jmrhu?IOkgeJlE&qJ!-bl;|8APDZfr- z6$8gHoua&*S-$BIYtpMayK$wKr5lsZ^g6Lp$C-Fvr+_(OJ0c!+8M-ZYyG7K@=-93EZ|2TDj`LnUu(-(Otx51dv4=knRkoGnvj}I-BW! zO!sGc0Mj{44`e!Hy2xO5WY*CWM6OGX;I6f>nOhm}?LuSay7+oKrw3}TE0xRipmR6m zX!>Lly&PkBCo(exM>AD~ca0Krw#cP>R;Dr{7w^jTK&1~{4XY)-O_fKPTrFzb6isKd3mGr#X%Q5vDbrbHc6PXk*DJt23 zm7-ddR`TLI|WB=#F)e`VfI51E1@L(a-Z!_W!#Z4JK%{HXgrMtNC>Na#Gc(E02xY5Ckrb)37mBUQ~o#BA!DqM5$q@BYG zmtBc*>Rs5g2kUl1lx63Y#iXY~wczhH~SnBKpD zAsWXFwfw@lP75&fk%@Y+A%*75s}QRR0~bRDFTddhv4RYCpWq2Jh53mF$NorN%FueX z+v+>r4tC$!eXa!y6FsOCS6RIPk13AVmYOy$$fW!6{9?Tzp6`Xa?j&kEKZ6(CX{Xzz zfc77Hti-Em)CPFU$|UHOZP7-jk6y01exRZn>&q!?#;6iBDOwpi@E@%aQBZyGY zs-Swm2=$#xQRmU{<40F64-D=EbT@WsdIdC##g)f!vI|c?dSOP-u$nb{)c~r34~a|~ zw-|b^pr!E+mt;ZBtJ`ZD8tPJA>2C5vm6JmmSXnVF(kTp1VT<7oJvU~>;*R<`HkVlB zx*l)1bn~j;kjhJHdwLq^a>9|{e(z0HcTW$E^!~0~ zV|-)US%$)k@N6%tv)M%Nik^+!LpHFD=r{0K6C_)OHA=5@YT_1-3dKXa&_KmF>rZy) zovmqXr;*!}jHev_T4myXt2@yf&#cX7utannfIVmRFu5>Jx>3R5^7Qt_QyYg0czaCp zx-nGPk<2*<`QT=t7R8UXE)_|U!tZ*f@d=+^krkbyO(aB@=m*Y1whqXW)_|7~ar{bn zLWuo_=4=N)AsS#Wg&6mR_|45Or23E}i4sym^qwH5pEY-4)aUo{apv-P?H;6`P zr^H&w($HuIk4mJvQu$O{WlM-ZbiK3vmMxFh{MV()TS9vkUnP7OTy}@&kXaLNq^}sq zdx1-fyynQ#5wf(1K#2w=ZXYB>N{k7@TO#EIykX5dT}oLpLAav$^qN^3a^tfe;{bf_ zs3?sf5ymfcB3&j7GwhCW>~quG^W5|{J9_7_aMPRH-1y;h;f4poO-%kl0RHZFH@>7t zpjZ%kha3OKj2mB8CEWOqDd8?Baww6*h|rsu-Fp+6LS!ltdP}pLez?iKFOlg)=r@Vn z-9*sU!o8BnDk7^v0#UaaE-_1dB|cx&Wpbh@>Omrmf8drxO@Q$p`p=9JQ9l^Yf6xjO zQ~gn#>NOJ3 zg>p$j_N9dDrPExj@{!pQ_JCVZx1v^b7*Oq`4Er3FL}?|yV(JiT1)Y6Nw1}|klstuI znEHULx`8sP*5hKV+O#@r)8Pb1I>B-RJP^p9?ltm){eX-|3=oSfz>XJNLo1~Ett1-Y ze2%Q>9A8P~Si3-g)lSgk1bqa!#e6D@PIC^O<_tQ``XO}7c;9&Bq<=J1I6Gqz9@Rwt9@Qk>Y#{vgX)mSYZjDN+vQj|mn1_)_PkdZdV zX=Om$CGVB7Ft1SPQq{r5dbP1y(i=4(^7vG2`hvnu-N6;|32V_5@NGP`K1#y7qZLqa zgcxqgB&Pafrv+Mu^6Q>1wy`S6HmM-qgRRw7d4=nvu%Mc07G#gZ7E-JEmBLO292awq)Jsqsbck- zsI<6T<)vCNbmpAHO|FS@UoU~I1nU?g)Vip))nQ`il2$5)E*ZKb^^&3bKrI>h64|4%VmC_$duxvl>H%xXz$XT%^)Scvl;^>x((D`t zx9&FNFCEG05VZ?ts#4<-6fPZU8GxR(W{@#8x2XlJHG|XK={y#!HG@0}JJt-s&NYLK zaV{QZYQ<9q)S98ZGWDKNtS1#lhVC&;2dpOcj)7%@tx+xWJB9{o$AAZp9Yc%McA%Px z)oAg7qiV;1Rcprp+iE=Bl4_KWLeH@vPuUTd8Nq%NnQWLQqL>TaVwm_JGRz_XFvo|m z%tg9!)U8C=lMcw0ME3LuDS>f3t|YRjK0&Lf#O*apPcqTxo<0Sw=_eWhU7vMOw;ney@9i2$vp$ z9A2Et@ukA!#<{%GK=4ta5hTLis2c@`!$(RnMn6dxygQ%YqhG47N}O-yFB|4v`lU@9 z@i`HF`=Q_5FFbH1LLZP*pPz|KG21F9v7*X)Os_(&TpAa?*{b$*yl-JH*H_a+*O?ao zbGm?II=5{ZK8@oFmwqKYp4zDNxG=ZWaV9^XjB^L@{mN)f2*!oHX6bQdVqBRh?H@mm z8qT0kCF0DFM;9MR*o6=HpoLJ8@t&~H>l*JV9r%`s#xuQ9R~Va}FX*Ms2*aXu;3BlT zP8E4cQ7w{Y!0XlkKXC2M^G#%dO=g&|10%`~n2;em8;s!u??U5at1G^NiqVcFEuf!G--C zn4aN;*jtLp2kzH(z^qyO9XKtq-+{BI&7L*0Yg&B80bSGfpEGAheE*fRXB~JT9%9i6 z=myM)Qv2>8x^+`DiqBo(*EjKjvf@FH_V`GY6v3AE>V{~0RbN##9_`SAn4qO4E)$QU z=J+tuhZv@TD1vaD%cSSeagZRC_PeQ#h+KqOo&#rO?ml*!$+syT&0}Y3z@aBZXH7bT zTOEE~o`pCie!^O~R)fwCK)m z)i9PiSZ6x!64k%iVg*tH-+F|P)!X-lRK`Zs2yY3%Jsa4ur~(h!`c8XA?6|AQ`DfC%ou0G{|!J0$-sb$K#@ck5L>ovfdJRF z_%C+uR1qkW2*mtv{;evPu@{Pnp}NdE8rFL1swkV1QW-T8Og(DrMz{+b_qtRdIu z-sb#!K!}3op7&38W`R2ZTQJ-P{(Zp(`(9_6G|p-7iy~O#d<)XU{|#VJLxOS55h#-X z)HwI*;i{W$K?^(c;lCU&RNc3rQFY6L2bAG0@Uq~KrrJOO=W_tbQa8QQ8^Y qyyF_8q(mXwZyj6e=P>+*%Kv%`Y!NsO2yw-X|Mil;DDXd^1^yo&9mDYe literal 0 HcmV?d00001 diff --git a/MaterialeSetup/OSAI/Config.Options.vb b/MaterialeSetup/OSAI/Config.Options.vb new file mode 100644 index 0000000..8561dd5 --- /dev/null +++ b/MaterialeSetup/OSAI/Config.Options.vb @@ -0,0 +1,324 @@ +Imports System.ComponentModel +Imports System.IO +Imports CMSControl.App.Runtime + +Imports System.Security + +Namespace Config + Class Options + + Public Shared CurrentOptions As Options + Public Shared sPathFile As String + + Private _Machine_Enabled As Boolean + ''' Maintenance Machine + Public ReadOnly Property Machine_Enabled() As Boolean + Get + Return Me._Machine_Enabled + End Get + End Property + + Private _Maintenance_Enabled As Boolean + ''' Opzione Maintenance + Public ReadOnly Property Maintenance_Enabled() As Boolean + Get + Return Me._Maintenance_Enabled + End Get + End Property + + Private _OpPanel_Enabled As Boolean + ''' Opzione OpPanel + Public ReadOnly Property OpPanel_Enabled() As Boolean + Get + Return Me._OpPanel_Enabled + End Get + End Property + + Private _Launch_Enabled As Boolean + ''' Opzione Launch + Public ReadOnly Property Launch_Enabled() As Boolean + Get + Return Me._Launch_Enabled + End Get + End Property + Private _TcpSocket_Enabled As Boolean + ''' Opzione TcpSocket + Public ReadOnly Property TcpSocket_Enabled() As Boolean + Get + Return Me._TcpSocket_Enabled + End Get + End Property + Private _QsMonitor_Enabled As Boolean + ''' Opzione QsMonitor + Public ReadOnly Property QsMonitor_Enabled() As Boolean + Get + Return Me._QsMonitor_Enabled + End Get + End Property + Private _ToolTable_Enabled As Boolean + ''' Opzione ToolTable + Public ReadOnly Property ToolTable_Enabled() As Boolean + Get + Return Me._ToolTable_Enabled + End Get + + End Property + + Private _ToolTable_Famiglie As Boolean + ''' Opzione Famiglie + Public ReadOnly Property ToolTable_Famiglie() As Boolean + Get + Return Me._ToolTable_Famiglie + End Get + End Property + + Private _ToolTable_Vita As Boolean + ''' Opzione Vita + Public ReadOnly Property ToolTable_Vita() As Boolean + Get + Return (Me._ToolTable_Vita_S Or Me._ToolTable_Vita_N Or Me._ToolTable_Vita_m) + End Get + End Property + + Private _ToolTable_Vita_S As Boolean + ''' Opzione Vita a Tempo + Public ReadOnly Property ToolTable_Vita_S() As Boolean + Get + Return Me._ToolTable_Vita_S + End Get + End Property + + Private _ToolTable_Vita_N As Boolean + ''' Opzione Vita a Cicli o Colpi + Public ReadOnly Property ToolTable_Vita_N() As Boolean + Get + Return Me._ToolTable_Vita_N + End Get + End Property + + Private _ToolTable_Vita_M As Boolean + ''' Opzione Vita a Profilo + Public ReadOnly Property ToolTable_Vita_M() As Boolean + Get + Return Me._ToolTable_Vita_M + End Get + End Property + + Private _ToolTable_AttrezzaggioAutomatico As Boolean + ''' Opzione Attrezzaggio Automatico + Public ReadOnly Property ToolTable_AttrezzaggioAutomatico() As Boolean + Get + Return Me._ToolTable_AttrezzaggioAutomatico + End Get + End Property + Private _ToolTable_AttrezzaggioDaFile_Path As String + ''' Opzione Percorso Attrezzaggio Da File + Public ReadOnly Property ToolTable_AttrezzaggioDaFile_Path() As String + Get + Return Me._ToolTable_AttrezzaggioDaFile_Path + End Get + End Property + + Private _ToolTable_PercorsoAutoadattativo As Boolean + ''' Opzione Percorso Autoadattativo + Public ReadOnly Property ToolTable_PercorsoAutoadattativo() As Boolean + Get + Return Me._ToolTable_PercorsoAutoadattativo + End Get + End Property + + Private _ToolTable_Multiprofilo As Boolean + ''' Opzione Multiprofilo + Public ReadOnly Property ToolTable_Multiprofilo() As Boolean + Get + Return Me._ToolTable_Multiprofilo + End Get + End Property + + Private _ToolTable_CompensazioneDinamica As Boolean + ''' Opzione Compensazione Dinamica + Public ReadOnly Property ToolTable_CompensazioneDinamica() As Boolean + Get + Return Me._ToolTable_CompensazioneDinamica + End Get + End Property + + Private _ToolTable_Offset As Boolean + ''' Opzione Offset + Public ReadOnly Property ToolTable_Offset() As Boolean + Get + Return Me._ToolTable_Offset + End Get + End Property + + Private _ToolTable_FeedMax As Boolean + ''' Opzione FeedMax + Public ReadOnly Property ToolTable_FeedMax() As Boolean + Get + Return Me._ToolTable_FeedMax + End Get + End Property + + Private _ToolTable_Gamme As Boolean + ''' Opzione Gamme + Public ReadOnly Property ToolTable_Gamme() As Boolean + Get + Return Me._ToolTable_Gamme + End Get + End Property + + Private _ToolTable_Manine As Boolean + ''' Opzione Manine + Public ReadOnly Property ToolTable_Manine() As Boolean + Get + Return Me._ToolTable_Manine + End Get + End Property + + Private _ToolTable_GeometryManagement As Control.ToolTable.GeometryManagement + ''' Tipo di gestione dati dimensioni utensili + Public ReadOnly Property ToolTable_GeometryManagement() As Control.ToolTable.GeometryManagement + Get + Return Me._ToolTable_GeometryManagement + End Get + End Property + + Private _ToolTable_MaxToolsManaged As Integer + ''' Massimo numero di utensili gestibili + Public ReadOnly Property ToolTable_MaxToolsManaged() As Integer + Get + Return Me._ToolTable_MaxToolsManaged + End Get + End Property + + Private _ToolTable_Inch As Boolean + ''' Opzione gestione in Pollici + Public ReadOnly Property ToolTable_Inch() As Boolean + Get + Return Me._ToolTable_Inch + End Get + End Property + + Private _ToolTable_Diameter As Boolean + ''' Opzione gestione Diametro + Public ReadOnly Property ToolTable_Diameter() As Boolean + Get + Return Me._ToolTable_Diameter + End Get + End Property + + Private _ToolTable_AttrezzaggioInRun As Boolean + ''' Opzione modifica con macchina in RUN + Public ReadOnly Property ToolTable_AttrezzaggioInRun() As Boolean + Get + Return Me._ToolTable_AttrezzaggioInRun + End Get + End Property + + Private _ToolTable_AttrezzaggioAssistito As Boolean + ''' Opzione Attrezzaggio magazzini inaccessibili tramite macchina + Public ReadOnly Property ToolTable_AttrezzaggioAssistito() As Boolean + Get + Return Me._ToolTable_AttrezzaggioAssistito + End Get + End Property + + Private _ToolTable_SharedDB As Boolean + ''' Opzione magazzino utensili condiviso tra più macchine + Public ReadOnly Property ToolTable_SharedDB() As Boolean + Get + Return Me._ToolTable_SharedDB + End Get + End Property + Private _ToolTable_AllowRemote As Boolean + ''' Opzione AllowRemote Tool Table + Public ReadOnly Property ToolTable_AllowRemote() As Boolean + Get + Return Me._ToolTable_AllowRemote + End Get + End Property + Public Shared Sub CreateOptions(ByVal sPathF As String) + If CurrentOptions Is Nothing Then + CurrentOptions = New Options + End If + + ' Memorizzo il percorso del file INI + sPathFile = sPathF + + CurrentOptions.LoadOptions() + + ' Gestione QsMonitor (in funzione dell'opzione QsMonitor_Enabled) + Control.QsMonitor.GestioneQsMonitor() + End Sub + + 'carica le opzioni da file + Private Sub LoadOptions() + ''leggo la matricola dal cn + ''se non è possibile disabilito tutto e chiedo che venga attivata la connessione + ''se leggo 0 avviso che la metricola deve essere popolata + + ''leggo il codice dal file + ''valore = decodifica(valoreletto, matricola, passwordpubblica) + + Dim szFileIni As String + Dim Ini As App.Native.Ini + + ' imposto il nome del file + szFileIni = sPathFile & "\" & My.Application.Info.AssemblyName & ".ini" + + ' verifico che esista il file + If My.Computer.FileSystem.FileExists(szFileIni) Then + 'istanzio la classe di gestione del file + Ini = New App.Native.Ini(szFileIni) + 'leggo i settaggi dal file + Me._Machine_Enabled = Ini.GetBoolean("OPTIONS", "MACHINE_ENABLED", 0) + Me._Maintenance_Enabled = Ini.GetBoolean("OPTIONS", "MAINTENANCE_ENABLED", 0) + Me._OpPanel_Enabled = Ini.GetBoolean("OPTIONS", "OPPANEL_ENABLED", 0) + Me._Launch_Enabled = Ini.GetBoolean("OPTIONS", "LAUNCH_ENABLED", 0) + Me._TcpSocket_Enabled = Ini.GetBoolean("OPTIONS", "TCPSOCKET_ENABLED", 0) + Me._ToolTable_Enabled = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ENABLED", 0) + Me._ToolTable_Famiglie = Ini.GetBoolean("OPTIONS", "TOOLTABLE_FAMIGLIE", 0) + Me._ToolTable_Vita_S = Ini.GetBoolean("OPTIONS", "TOOLTABLE_VITA_S", 0) + Me._ToolTable_Vita_N = Ini.GetBoolean("OPTIONS", "TOOLTABLE_VITA_N", 0) + Me._ToolTable_Vita_M = Ini.GetBoolean("OPTIONS", "TOOLTABLE_VITA_M", 0) + Me._ToolTable_Multiprofilo = Ini.GetBoolean("OPTIONS", "TOOLTABLE_MULTIPROFILO", 0) + Me._ToolTable_AttrezzaggioAutomatico = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ATTREZZAGGIOAUTOMATICO", 0) + Me._ToolTable_AttrezzaggioDaFile_Path = Ini.GetString("OPTIONS", "TOOLTABLE_ATTREZZAGGIODAFILE_PATH", "") + Me._ToolTable_PercorsoAutoadattativo = Ini.GetBoolean("OPTIONS", "TOOLTABLE_PERCORSOAUTOADATTATIVO", 0) + Me._ToolTable_CompensazioneDinamica = Ini.GetBoolean("OPTIONS", "TOOLTABLE_COMPENSAZIONEDINAMICA", 0) + Me._ToolTable_Offset = Ini.GetBoolean("OPTIONS", "TOOLTABLE_OFFSET", 0) + Me._ToolTable_FeedMax = Ini.GetBoolean("OPTIONS", "TOOLTABLE_FEEDMAX", 0) + Me._ToolTable_Gamme = Ini.GetBoolean("OPTIONS", "TOOLTABLE_GAMME", 0) + Me._ToolTable_Manine = Ini.GetBoolean("OPTIONS", "TOOLTABLE_MANINE", 0) + Me._ToolTable_GeometryManagement = Ini.GetInteger("OPTIONS", "TOOLTABLE_GEOMETRYMANAGEMENT", 0) + Me._ToolTable_MaxToolsManaged = Ini.GetInteger("OPTIONS", "TOOLTABLE_MAXTOOLSMANAGED", 0) + Me._ToolTable_Inch = Ini.GetBoolean("OPTIONS", "TOOLTABLE_INCH", 0) + Me._ToolTable_Diameter = IIf(CNC.Runtime.NC.Type = CNC.CNC.NcType.OSAI, True, False) 'Ini.GetBoolean("OPTIONS", "TOOLTABLE_DIAMETER", 0) + Me._ToolTable_AttrezzaggioInRun = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ATTREZZAGGIO_IN_RUN", 0) + Me._ToolTable_AttrezzaggioAssistito = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ATTREZZAGGIO_ASSISTITO", 0) + Me._QsMonitor_Enabled = Ini.GetBoolean("OPTIONS", "QSMONITOR_ENABLED", 0) + + ' Se è attiva l'opzione ToolTable_Remote, l'AllowRemote e SharedDB sono ignorati + If Config.Settings.Settings.ToolTable_Remote Then + Me._ToolTable_AllowRemote = False + Me._ToolTable_SharedDB = False + Else + Me._ToolTable_AllowRemote = Ini.GetBoolean("OPTIONS", "TOOLTABLE_ALLOWREMOTE", 0) + Me._ToolTable_SharedDB = Ini.GetBoolean("OPTIONS", "TOOLTABLE_SHAREDDB", 0) + End If + Else + Log.WW("ERR LoadOptions", String.Format("File {0} not found", szFileIni), True) + End If + + End Sub + + 'verifica che le opzioni sul cn siano coerenti, se no le corregge + Private Sub CheckOptions() + ''leggo le opzioni dal cn + + ''verifico che siano uguali a quelle del file, se no modifico il cn e avviso l'utente della modifica + End Sub + + + End Class +End Namespace diff --git a/MaterialeSetup/OSAI/DCom/CNC.OSAI.vb b/MaterialeSetup/OSAI/DCom/CNC.OSAI.vb new file mode 100644 index 0000000..78a47c2 --- /dev/null +++ b/MaterialeSetup/OSAI/DCom/CNC.OSAI.vb @@ -0,0 +1,1022 @@ +Imports CndexLinkDotNet +Imports Microsoft.Win32 +Imports CMSControl.App.Runtime +Imports CMSControl.Config.Settings + +Imports T_memType = System.Collections.Generic.Dictionary(Of System.Int32, System.Collections.Generic.Dictionary(Of System.Int32, System.Object)) +Imports T_memDim = System.Collections.Generic.Dictionary(Of System.Int32, System.Object) + +Namespace CNC + + Partial Public Class OSAI + Inherits CNC + + 'Variabili per server Cndex (Osai) + Protected _szRemoteName As String + Protected _UserSession As Short + Protected _ErrClass As Integer + Protected _ErrNum As Integer + Friend Cndex As CndexLinkDotNet.Cndex + Private nReturn As Short + + Protected Const ERRORE = 0 + + Public Enum MemTypeWord + I_CODE = 0 + O_CODE = 1 + + MW_CODE = 20 + GW_CODE = 21 + SW_CODE = 22 + + PW_CODE = 62 + UW_CODE = 63 + End Enum + Public Enum MemTypeDouble + MD_CODE = 40 + GD_CODE = 41 + SD_CODE = 42 + PD_CODE = 43 + UD_CODE = 44 + L_CODE = 145 + End Enum + + Public Enum MemTypeText + LS_CODE = 18 + AA_CODE = 28 + A_CODE = 45 + SC_CODE = 50 + SYMO_A_CODE = 102 + End Enum + + Private nLicenzaTmp As Integer + Public Overrides Property Licenza() As Integer + Get + Return nLicenzaTmp + End Get + Set(ByVal value As Integer) + nLicenzaTmp = value + End Set + End Property + + Private bLicenzaScadutaTmp As Boolean + Public Overrides Property LicenzaScaduta() As Boolean + Get + Return bLicenzaScadutaTmp + End Get + Set(ByVal value As Boolean) + bLicenzaScadutaTmp = value + End Set + End Property + + Public Sub New(ByRef szRemoteName As String) + Me.New() + + Try + Cndex = New CndexLinkDotNet.Cndex + Catch ex As Exception + MsgBox(ex.Message) + End Try + + _szRemoteName = szRemoteName + End Sub + + Public Sub New() + MyBase.New() + _Type = NcType.OSAI + + 'Definisco l'area della Cnc Window + SetCncWindowSize() + + 'Inizializzo le variabili + Me._Descrizione = "NC OSAI" & vbNewLine + Me._Descrizione = Me._Descrizione & "RemoteName: " & _szRemoteName + End Sub + + Public Overrides Sub Connect(Optional ByRef szStatus As String = "") + Dim nReturn As Short + Dim pPhase As Short + Dim szReturn As String = "" + Dim sValue(0) As Short + Dim TimeStart As Date + + 'apro una sessione col CN + Log.WI("TRY OpenSession CNC.OSAI", "RemoteName=" & _szRemoteName, CLog.Lev.Secondary) + nReturn = Cndex.OpenSession_C(_szRemoteName, _UserSession, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("OpenSession_C({0},{1}) Connect CNC.OSAI", _szRemoteName, _UserSession), szReturn) Then + Throw New CmsNcException(szReturn) + Else + Log.WI("OK OpenSession CNC.OSAI", , CLog.Lev.Secondary) + 'leggo in che fase di boot mi trovo + nReturn = Cndex.BootPhaseEnquiry_C(_UserSession, pPhase, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("BootPhaseEnquiry_C({0},{1}) Connect CNC.OSAI", _UserSession, pPhase), szReturn) Then + _bConnected = False + Throw New CmsNcException(szReturn) + Else + 'verifico che il sistema si trovi in una fase operativa "stabile" + Log.WI("OK BootPhaseEnquiry CNC.OSAI", "Phase=" & pPhase, CLog.Lev.Secondary) + If pPhase = 4 Then 'SYSTEM_UP_PHASE + + 'leggo matricola e verifico che sia diversa da zero + TimeStart = Now + Do + Select Case Settings.MemoryMapping + Case MemoryMapping.ElsManager, _ + MemoryMapping.Default + 'Matricola + nReturn = O_RW_Short(False, MemTypeWord.MW_CODE, 3187, sValue) + + Case MemoryMapping.ToolManager, _ + MemoryMapping.ToolTable + 'Matricola + nReturn = O_RW_Short(False, MemTypeWord.MW_CODE, 3403, sValue) + End Select + + If sValue(0) > 0 Then + Threading.Thread.Sleep(500) + Exit Do + End If + + If (Now - TimeStart).Seconds > 30 Then + Select Case MsgBox("Matricola non inizializzata in 30 secondi: Verificare CMSKMG o PLC", MsgBoxStyle.Exclamation + MsgBoxStyle.RetryCancel) + Case MsgBoxResult.Retry : TimeStart = Now + Case MsgBoxResult.Cancel : Exit Do + End Select + End If + Log.WI("OK Connect CNC.OSAI but SERIAL NUMBER NOT YET INITIALIZED", , CLog.Lev.Secondary) + Application.DoEvents() + Threading.Thread.Sleep(500) 'aspetto 500ms prima di ritentare + Application.DoEvents() + Loop + + _bConnected = True + Log.WI("OK Connect CNC.OSAI", "Connected=" & _bConnected, CLog.Lev.Secondary) + Else + _bConnected = False + Log.WI("OK Connect CNC.OSAI but PHASE NOT OK", "Phase=" & pPhase & " Connected=" & _bConnected, CLog.Lev.Secondary) + Throw New CmsNcException("ERR BootPhase NOT OK CNC.OSAI") + End If + End If + End If + + End Sub + + Public Overrides Sub Disconnect(Optional ByRef szStatus As String = "") + Dim nReturn As Short + Dim bRet As Boolean + Dim szReturn As String = "" + + 'chiudo la sessione + nReturn = Cndex.CloseSession_C(_UserSession, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("CloseSession_C({0}) Disconnect CNC.OSAI", _UserSession), szReturn) Then + _bConnected = False '? + bRet = False + Throw New CmsNcException(szReturn) + Else + _bConnected = False + bRet = True + End If + + End Sub + + Public Overrides Function SetCncWindowSize() As Boolean + Dim CncWindowSizeNew As Size + + Select Case Config.Settings.Settings.OpPanel_ScreenSize 'Screen.PrimaryScreen.Bounds.Size + Case New Size(800, 600) '10" + CncWindowSizeNew = New System.Drawing.Size(640, 480) + Case New Size(1024, 768) '15" + CncWindowSizeNew = New System.Drawing.Size(773, 600) '(800, 600) 'per visualizzare senza barra almeno 3 teste + Case New Size(2048, 768) '15" doppio monitor + CncWindowSizeNew = New System.Drawing.Size(800, 600) + Case New Size(1280, 800) '15,6" widescreen + CncWindowSizeNew = New System.Drawing.Size(800, 544) + Case New Size(1280, 1024) '17" + CncWindowSizeNew = New System.Drawing.Size(990, 750) '(1024, 768) 'per visualizzare senza barra almeno 3 teste + Case New Size(1920, 1080) 'FullHD + CncWindowSizeNew = New System.Drawing.Size(1370, 770) + Case Else + CncWindowSizeNew = New System.Drawing.Size(800, 600) + End Select + If _CncWindowSize <> CncWindowSizeNew Then + _CncWindowSize = CncWindowSizeNew + Return True + Else + Return False + End If + End Function + + Public Overrides Sub RunCnc() + Dim szProgramFilesDir, szPath As String + Dim key As RegistryKey + Dim myProcess As System.Diagnostics.Process + + If Not FindCncWindow() Then + key = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion") + szProgramFilesDir = key.GetValue("ProgramFilesDir") + szPath = szProgramFilesDir & "\OSAI\WinNBI\ProVideo.exe" + + myProcess = System.Diagnostics.Process.Start(szPath) + End If + End Sub + + Public Overrides Sub CloseCnc() + If FindCncWindow() Then + _CncWindowProcess.Kill() + End If + End Sub + + Public Overrides Function FindCncWindow() As Boolean + _CncWindowProcess = FindProcess("ProVideo") + Return _CncWindowProcess IsNot Nothing + End Function + + Public Overrides Function CncIsIconic() As Boolean + If _CncWindowProcess IsNot Nothing Then + Return ProcessIsIconic(_CncWindowProcess.MainWindowHandle) + End If + End Function + + Public Overrides Function CncIsZoomed() As Boolean + If _CncWindowProcess IsNot Nothing Then + Return ProcessIsZoomed(_CncWindowProcess.MainWindowHandle) + End If + End Function + + Public Overrides Sub MinimizeCnc() + MinimizeWindow("ProVideo") + End Sub + + Public Overrides Sub NormalizeCnc() + Try + MakeExternalWindowBorderless(FindProcess("ProVideo").MainWindowHandle) + Catch ex As Exception + End Try + ShowNormalWindow("ProVideo") + MoveWindow("ProVideo", _CncWindowPosition) + End Sub + + Public Overrides Sub SetCncFocus() + SetWindowFocus("ProVideo") + End Sub + + Public Overrides Sub MoveCnc() + MoveWindow("ProVideo", CncWindowPosition, "OSAI ProcessController") + ResizeWindow("ProVideo", Me.CncWindowSize, "OSAI ProcessController") + End Sub + + Public Overrides Function GetCncWindowId() As Long + _CncWindowProcess = FindProcess("ProVideo") + If _CncWindowProcess IsNot Nothing Then + Return _CncWindowProcess.Id + Else + Return -1 + End If + End Function + + ''' + ''' Legge le memorie di configurazione dal cn + ''' + Public Overrides Sub GetStaticData() + Dim sValue(0) As Short + + If Not bStaticDataReaded Then + 'Try + Select Case Settings.MemoryMapping + Case MemoryMapping.ElsManager, _ + MemoryMapping.Default + 'Matricola + nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3187, 1, sValue, _ErrClass, _ErrNum) + If nReturn = ERRORE Then + Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) + Else + Me._Matricola = sValue(0) + End If + 'Teste + nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3161, 1, sValue, _ErrClass, _ErrNum) + If nReturn = ERRORE Then + Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) + Else + Me._Teste = sValue(0) + End If + 'Magazzini + nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3163, 1, sValue, _ErrClass, _ErrNum) + If nReturn = ERRORE Then + Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) + Else + Me._Magazzini = sValue(0) + End If + 'Manine per Magazzino + ReDim Me._ManineMagazzino(Me._Magazzini - 1) + For i = 1 To Me._Magazzini + If i <= 8 Then + nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3164 + (i - 1), 1, sValue, _ErrClass, _ErrNum) + If nReturn = ERRORE Then + Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) + Else + Me._ManineMagazzino(i - 1) = sValue(0) + End If + Else '8-20 + nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3188 + (i - 1), 1, sValue, _ErrClass, _ErrNum) + If nReturn = ERRORE Then + Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) + Else + Me._ManineMagazzino(i - 1) = sValue(0) + End If + + End If + Next i + + Case MemoryMapping.ToolManager, _ + MemoryMapping.ToolTable + 'Matricola + nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3403, 1, sValue, _ErrClass, _ErrNum) + If nReturn = ERRORE Then + Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) + Else + Me._Matricola = sValue(0) + End If + 'Teste + nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3405, 1, sValue, _ErrClass, _ErrNum) + If nReturn = ERRORE Then + Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) + Else + Me._Teste = sValue(0) + End If + 'Magazzini + nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 3407, 1, sValue, _ErrClass, _ErrNum) + If nReturn = ERRORE Then + Log.WW("ERR GetStaticData CNC.OSAI", "Return=" & nReturn & " ErrClass=" & _ErrClass & " ErrNum=0x" & Hex(_ErrNum)) + Else + Me._Magazzini = sValue(0) + End If + 'Manine per Magazzino + Dim bPari As Boolean + Dim nTmp As Integer + ReDim Me._ManineMagazzino(Me._Magazzini - 1) + If Me._Magazzini Mod 2 = 0 Then 'pari + bPari = True + nTmp = Me._Magazzini / 2 + Else 'dispari + nTmp = Int(Me._Magazzini / 2) + 1 + End If + For i = 1 To nTmp + nReturn = Cndex.ReadVarWord_C(_UserSession, Cndex.MW_CODE, 0, 5520 + (i - 1), 1, sValue, _ErrClass, _ErrNum) + Me._ManineMagazzino(i * 2 - 2) = ShortToByte(sValue(0), LOW_ORDER) + If Not (Not bPari And i = nTmp) Then Me._ManineMagazzino(i * 2 - 1) = ShortToByte(sValue(0), HIGH_ORDER) + Next i + End Select + + Me._MaxUtensiliGestibili = 300 'TODO IMPLEMENTARE + Me._MaxIdUtensile = 300 'TODO IMPLEMENTARE + + 'ZoomSpeed + Select Case Settings.MemoryMapping + Case MemoryMapping.ElsManager + O_RW_Short(R, MemTypeWord.MW_CODE, 3921, sValue) + Case MemoryMapping.ToolManager + O_RW_Short(R, MemTypeWord.MW_CODE, 5670, sValue) + Case MemoryMapping.ToolTable + O_RW_Short(R, MemTypeWord.MW_CODE, 3425, sValue) + End Select + If sValue(0) > 0 And sValue(0) <= 100 Then + Me._ZoomSpeed = sValue(0) + Else + Me._ZoomSpeed = 1 + End If + + bStaticDataReaded = True + + 'Catch ex As CmsNcException + ' Me.CncException(ex.Message) + 'End Try + + End If + End Sub + + + ''' + ''' Verifica se è installata la WINNBI e se è una versione compatibile con .NET + ''' + ''' Versione compatibile con framework .NET + Shared Function GetWinnbi(Optional ByRef DotNet As Boolean = False) As Boolean + + Dim DotNetMinVersion As New System.Version("3.1.1") + Dim readValue() As String + Dim Ver As System.Version + Dim key As RegistryKey + + 'leggo le versioni installate + key = Registry.LocalMachine.OpenSubKey("SOFTWARE\OSAI\WinNBI") + readValue = key.GetSubKeyNames + 'verifico che ci sia al massimo una versione installata + If readValue.Count > 1 Then + MessageBox.Show("Risultano installate più versioni di WinNBI." & vbNewLine & _ + "Verificare le chiavi in HKEY_LOCAL_MACHINE\SOFTWARE\OSAI\WinNBI", _ + "Error on GetWinnbi", MessageBoxButtons.OK, MessageBoxIcon.Error) + End If + + 'La precisione di Osai nel rilasciare le versioni !!! + If readValue(0) = "3.03" Then readValue(0) = "3.0.3" + If readValue(0) = "3.04" Then readValue(0) = "3.0.4" + If readValue(0) = "3.05" Then readValue(0) = "3.0.5" + + For Each szVersion As String In readValue + Ver = New System.Version(szVersion) + 'Log.WI("GetWinnbi VersionInstalled=" & szVersion, , CLog.Lev.Principal) + + 'se versione compatibile con framework .NET + If Ver >= DotNetMinVersion Then + DotNet = True + End If + + 'se entro almeno una volta ho trovato almeno una versione installata + GetWinnbi = True + Next + + End Function + + + ''' + ''' Legge o scrive Boolean da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Bit della memoria + ''' Valore da scrivere su scrittura e letto su lettura + ''' True se andata a buon fine + Public Overridable Overloads Function O_RW_Boolean(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByVal MemBit As Integer, ByRef Value As Boolean) As Boolean + Dim szReturn As String = "" + Dim nValue(0) As Short + + 'leggo la memoria + nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, nValue.Length, nValue, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Boolean CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + Else + If bWrite Then ' *** Write + If Value Then 'True + nValue(0) = nValue(0) Or UnsignedToShort(2 ^ MemBit) + Else 'False + nValue(0) = nValue(0) And Not UnsignedToShort(2 ^ MemBit) + End If + nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, nValue.Length, nValue, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_Boolean CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + If (nValue(0) And (2 ^ MemBit)) = (2 ^ MemBit) Then 'True + Value = True + Else 'False + Value = False + End If + End If + End If + + Return True + End Function + + ''' + ''' Legge o scrive Byte da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Ordine di partenza LOW_ORDER = 0 HIGH_ORDER = 1 + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overridable Overloads Function O_RW_Byte(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByVal MemOrderStart As Integer, ByRef Value() As Byte) As Boolean + Dim szReturn As String = "" + Dim bStartHigh As Boolean = MemOrderStart + Dim bEndDispari As Boolean = (Value.Length + MemOrderStart) Mod 2 + Dim cStart, cEnd As Byte + Dim ValueTmp(((Value.Length + MemOrderStart) \ 2) + ((Value.Length + MemOrderStart) Mod 2) - 1) As Short + + + If bWrite Then ' *** Write + 'se comincio con hi leggo la prima memo + If bStartHigh Then + Dim ValStartTmp(0) As Short + nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValStartTmp.Length, ValStartTmp, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Byte CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + Else + cStart = ShortToByte(ValStartTmp(0), LOW_ORDER) + End If + End If + + 'se finisco dispari, leggo l'ultima memo + If bEndDispari Then + Dim ValEndTmp(0) As Short + nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex + ValueTmp.Length - 1, ValEndTmp.Length, ValEndTmp, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Byte CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + Else + cEnd = ShortToByte(ValEndTmp(0), HIGH_ORDER) + End If + End If + + For i = 0 To ValueTmp.Length - 1 + Dim cLow, cHigh As Byte + 'Low + If i = 0 AndAlso bStartHigh Then + cLow = cStart + Else + cLow = Value(i * 2 - MemOrderStart) + End If + 'High + If i = (ValueTmp.Length - 1) AndAlso bEndDispari Then + cHigh = cEnd + Else + cHigh = Value(i * 2 + 1 - MemOrderStart) + End If + + ValueTmp(i) = ByteToShort(cLow, cHigh) + Next + + nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, ValueTmp, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Byte CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + Else + For i = 0 To Value.Length - 1 + Value(i) = ShortToByte(ValueTmp((i + MemOrderStart) \ 2), (i + MemOrderStart) Mod 2) + Next + End If + End If + + Return True + End Function + + + ''' + ''' Legge o scrive Word da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overridable Overloads Function O_RW_Word(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As UShort) As Boolean + Dim szReturn As String = "" + Dim nValue(Value.Length - 1) As Short + + If bWrite Then ' *** Write + For i = 0 To Value.Length - 1 + nValue(i) = UnsignedToShort(Value(i)) + Next + nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, nValue, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, nValue, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + For i = 0 To Value.Length - 1 + Value(i) = ShortToUnsigned(nValue(i)) + Next + End If + + Return True + End Function + + + + ''' + ''' Legge o scrive Short da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overridable Overloads Function O_RW_Short(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As Short) As Boolean + Dim szReturn As String = "" + + If bWrite Then ' *** Write + nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_Word CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + End If + + Return True + End Function + + + ''' + ''' Legge o scrive DWord da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overridable Overloads Function O_RW_DWord(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As UInteger) As Boolean + Dim szReturn As String = "" + Dim ValueTmp(Value.Length * 2 - 1) As Short + + If bWrite Then ' *** Write + For i = 0 To Value.Length - 1 + ValueTmp(i * 2) = DWordToShort(Value(i), LOW_ORDER) + ValueTmp(i * 2 + 1) = DWordToShort(Value(i), HIGH_ORDER) + Next + nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + Else + For i = 0 To Value.Length - 1 + Value(i) = ShortsToDWord(ValueTmp(i * 2), ValueTmp(i * 2 + 1)) + Next + End If + End If + + Return True + End Function + + + + ''' + ''' Legge o scrive DWord da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overridable Overloads Function O_RW_Integer(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As Integer) As Boolean + Dim szReturn As String = "" + Dim ValueTmp(Value.Length * 2 - 1) As Short + + If bWrite Then ' *** Write + For i = 0 To Value.Length - 1 + ValueTmp(i * 2) = IntegerToShort(Value(i), LOW_ORDER) + ValueTmp(i * 2 + 1) = IntegerToShort(Value(i), HIGH_ORDER) + Next + nReturn = Cndex.WriteVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + nReturn = Cndex.ReadVarWord_C(_UserSession, MemType, 0, MemIndex, ValueTmp.Length, ValueTmp, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarWord_C({0},{1},{2}) O_RW_DWord CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + Else + For i = 0 To Value.Length - 1 + Value(i) = ShortsToInteger(ValueTmp(i * 2), ValueTmp(i * 2 + 1)) + Next + End If + End If + + Return True + End Function + + + + ''' + ''' Legge o scrive Double da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overridable Overloads Function O_RW_Double(ByVal bWrite As Boolean, ByVal MemType As MemTypeDouble, ByVal MemIndex As Integer, ByRef Value() As Double) As Boolean + Dim szReturn As String = "" + + If bWrite Then ' *** Write + nReturn = Cndex.WriteVarDouble_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarDouble_C({0},{1},{2}) O_RW_Double CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException("ERR WriteVarDouble_C O_RW_Double CNC.OSAI") + Return False + End If + + Else ' ************* Read + nReturn = Cndex.ReadVarDouble_C(_UserSession, MemType, 0, MemIndex, Value.Length, Value, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarDouble_C({0},{1},{2}) O_RW_Double CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException("ERR ReadVarDouble_C O_RW_Double CNC.OSAI") + Return False + End If + End If + + Return True + End Function + + ''' + ''' Legge o scrive Stringhe da MEMORIE SC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Indice di memoria + ''' Lunghezza caratteri + ''' Stringa da scrivere su scrittura o leggere su lettura + ''' True se andata a buon fine + Public Overridable Overloads Function O_RW_Text(ByVal bWrite As Boolean, ByVal MemType As MemTypeText, ByVal MemIndex As Integer, ByVal MemLength As Integer, ByRef Value As String) As Boolean + Dim szReturn As String = "" + + If bWrite Then ' *** Write + nReturn = Cndex.WriteVarText_C(_UserSession, MemType, 1, MemIndex, MemLength, Value, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("WriteVarText_C({0},{1},{2}) O_RW_Text CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException("ERR WriteVarText_C O_RW_Text CNC.OSAI") + Return False + End If + + Else ' ************* Read + nReturn = Cndex.ReadVarText_C(_UserSession, MemType, 1, MemIndex, MemLength, Value, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, String.Format("ReadVarText_C({0},{1},{2}) O_RW_Text CNC.OSAI", [Enum].GetName(MemType.GetType, MemType), MemIndex, Value), szReturn) Then + Throw New CmsNcException("ERR ReadVarText_C O_RW_Text CNC.OSAI") + Return False + End If + End If + + Return True + End Function + + + ''' + ''' Legge o scrive Length and Radius Offset da tabella Utensili CN + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Numero dell'offset utensile + Public Overridable Function O_RW_ToolOffset(ByVal bWrite As Boolean, ByVal ToolOffsetNumber As Integer, ByRef CutterRadius_Wear As Double, ByRef CutterRadius_Geometry As Double, ByRef ToolLenght_Wear As Double, ByRef ToolLenght_Geometry As Double) As Boolean + + End Function + + + + ''' + ''' Blocca l'accesso alla tabella dei correttori + ''' + ''' =True: Blocca la tabella, =False: Sblocca la tabella + ''' True se andata a buon fine + Public Overridable Function O_LockOffsetTable(ByVal Lock As Boolean) As Boolean + + End Function + + + ''' + ''' Legge il numero del processo attivo + ''' + ''' Valore di ritorno del processo selezionato + ''' True se andata a buon fine + Public Overridable Overloads Function O_GetSelectedProcess(ByRef ProcessId As Short) As Boolean + Dim szReturn As String = "" + + nReturn = Cndex.GetSelectedProcess_C(_UserSession, ProcessId, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, "GetSelectedProcess_C O_GetSelectedProcess CNC.OSAI", szReturn) Then + Throw New CmsNcException("ERR GetSelectedProcess_C O_GetSelectedProcess CNC.OSAI") + Return False + End If + + Return True + End Function + + ''' + ''' Legge la riga del programma attivo + ''' + ''' Riga in esecuzione del programma attivo + ''' True se andata a buon fine + Public Overridable Overloads Function O_GetActiveLineProgram(ByRef Line As String) As Boolean + + Dim szReturn As String = "" + Dim ProcessId As Integer + Dim szLine1 As String = "" + Dim szLine2 As String = "" + Dim szLine3 As String = "" + Dim szLine4 As String = "" + Dim szLine5 As String = "" + Dim szLine6 As String = "" + Dim szLine7 As String = "" + Dim szLine8 As String = "" + + O_GetSelectedProcess(ProcessId) + + nReturn = Cndex.GetPartProgramLines_C(_UserSession, ProcessId, szLine1, szLine2, szLine3, szLine4, szLine5, szLine6, szLine7, szLine8, _ErrClass, _ErrNum) + Line = szLine2 + + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, "GetPartProgramLines_C O_GetActiveLineProgram CNC.OSAI", szReturn) Then + Throw New CmsNcException("ERR GetPartProgramLines_C O_GetActiveLineProgram CNC.OSAI") + Return False + End If + + Return True + End Function + + ''' + ''' Legge la tabella assi + ''' + ''' Processo selezionato + ''' Valore di ritorno Assi del processo selezionato + ''' True se andata a buon fine + Public Overridable Function O_GetAxisTab(ByVal ProcessId As Short, ByRef AxisTable() As Char, ByRef AxisIdTable() As Short) As Boolean + Dim szReturn As String = "" + Dim sAxisTable As Cndex.AXIS_TABLE + Dim i, j As Integer + + For i = 1 To 32 + sAxisTable = New Cndex.AXIS_TABLE + nReturn = Cndex.GetAxisTabRecord_C(_UserSession, i, sAxisTable, _ErrClass, _ErrNum) + If O_CheckRetError(nReturn, _ErrClass, _ErrNum, "O_GetAxisTab GetAxisTabRecord_C CNC.OSAI", szReturn) Then + Throw New CmsNcException("ERR O_GetAxisTab GetAxisTabRecord_C CNC.OSAI") + Return False + End If + 'Codice dell’ambiente proprietario dell’asse + If (sAxisTable.ax_owner = (&H6000& + (ProcessId * &H100&))) Then + 'scarto gli assi slave e l'eventuale asse Spindle quando ho un inverter analogico + If (sAxisTable.ax_name < Asc("a") Or sAxisTable.ax_name > Asc("z")) And sAxisTable.ax_name <> Asc("S") Then + AxisTable(j) = Chr(sAxisTable.ax_name) + AxisIdTable(j) = i + j += 1 + End If + End If + Next i + + Return True + End Function + + + Public Overridable Function O_CheckRetError(ByVal nReturn As Short, ByVal ErrClass As Long, ByVal ErrNum As Long, ByVal Position As String, Optional ByRef szReturn As String = "") As Boolean + Dim szErrorClassDesc As String = String.Empty + Dim szErrorDesc As String = String.Empty + + 'Cndex 3.1.2 messages + + ''' aggiornare dal manuale di programmazione 4606R.pdf + ''' alcune classi di errori sono del cn e non sono specificate nel documento + + If nReturn = 0 Then + 'Seleziono il messaggio + Select Case ErrClass + Case 1 + szErrorClassDesc = "COM error class" + Select Case ErrNum + Case &H80080005 : szErrorDesc = "CO_E_SERVER_EXEC_FAILURE" + Case &H800706BA : szErrorDesc = "RPC_S_SERVER_UNAVAILABLE" + Case &H80070005 : szErrorDesc = "E_ACCESSDENIED" + Case &H80040154 : szErrorDesc = "REGDB_E_CLASSNOTREG" + Case &H80012 : szErrorDesc = "CO_S_NOTALLINTERFACES" + End Select + szErrorDesc = "0x" & Hex(ErrNum) & ": " & szErrorDesc + + Case 2 + szErrorClassDesc = "SERVER error class" + Select Case ErrNum + Case 1 : szErrorDesc = "Memory for dynamic allocations insufficient" + Case 2 : szErrorDesc = "Impossible to create synchronisation events" + Case 3 : szErrorDesc = "Session aborted and no longer usable" + Case 4 : szErrorDesc = "Session not open" + Case 5 : szErrorDesc = "Impossible to allocate a channel" + Case 6 : szErrorDesc = "Function of a non-existing process requested" + Case 7 : szErrorDesc = "Broadcasting command aborted" + Case 8 : szErrorDesc = "Buffer supplied by function in which the data supplied by the NC are copied is too small" + Case 9 : szErrorDesc = "Session already open" + Case 10 : szErrorDesc = "Broadcasting list invalid" + Case 11 : szErrorDesc = "Realtime command aborted" + Case 12 : szErrorDesc = "Function already active" + Case 13 : szErrorDesc = "Function not yet active" + Case 14 : szErrorDesc = "Reception thread ended" + Case 15 : szErrorDesc = "No reply to command received within allotted time" + Case 16 : szErrorDesc = "NC release to which you are connected is not compatible with communications with server" + Case 17 : szErrorDesc = "Cookie does not identify any communication session" + Case 18 : szErrorDesc = "Realtime thread cannot be created" + Case 19 : szErrorDesc = "No more sections available" + Case 20 : szErrorDesc = "Error in symbol acquisition" + Case 23 : szErrorDesc = "Internal object instance cannot be created" + Case 24 : szErrorDesc = "Broadcasting thread cannot be created" + Case 25 : szErrorDesc = "Function cannot be executed in the numerical control boot phase" + Case 26 : szErrorDesc = "Parameter wrong" + Case 27 : szErrorDesc = "Invalid buffer" + Case 29 : szErrorDesc = "Session identifier (UserSession) is invalid (session closed or never opened)" + Case 31 : szErrorDesc = "Session identifier is invalid (value out of range) or session has been closed automatically by Cndex server" + End Select + szErrorDesc = ErrNum.ToString & ": " & szErrorDesc + + Case 3 + szErrorClassDesc = "NETBIOS error class" + Select Case ErrNum + Case &H1 : szErrorDesc = "Illegal buffer length" + Case &H3 : szErrorDesc = "Illegal command" + Case &H5 : szErrorDesc = "Command timed out" + Case &H6 : szErrorDesc = "Message incomplete, issue another command" + Case &H7 : szErrorDesc = "Illegal buffer address" + Case &H8 : szErrorDesc = "Session number out of range" + Case &H9 : szErrorDesc = "No resource available" + Case &HA : szErrorDesc = "Session closed" + Case &HB : szErrorDesc = "Command cancelled" + Case &HD : szErrorDesc = "Duplicate name" + Case &HE : szErrorDesc = "Name table full" + Case &HF : szErrorDesc = "No deletions, name has active sessions" + Case &H11 : szErrorDesc = "Local session table full" + Case &H12 : szErrorDesc = "Remote session table full" + Case &H13 : szErrorDesc = "Illegal name number" + Case &H14 : szErrorDesc = "No callname" + Case &H15 : szErrorDesc = "Cannot put * in NCB_NAME" + Case &H16 : szErrorDesc = "Name in use on remote adapter" + Case &H17 : szErrorDesc = "Name deleted" + Case &H18 : szErrorDesc = "Session ended abnormally" + Case &H19 : szErrorDesc = "Name conflict detected" + Case &H21 : szErrorDesc = "Interface busy, IRET before retrying" + Case &H22 : szErrorDesc = "Too many commands outstanding, retry later" + Case &H23 : szErrorDesc = "Ncb_lana_num field invalid" + Case &H24 : szErrorDesc = "Command completed while cancel occurring" + Case &H26 : szErrorDesc = "Command not valid to cancel" + Case &H30 : szErrorDesc = "Name defined by another local process" + Case &H34 : szErrorDesc = "Environment undefined. RESET required" + Case &H35 : szErrorDesc = "Required OS resources exhausted" + Case &H36 : szErrorDesc = "Max number of applications exceeded" + Case &H37 : szErrorDesc = "No saps available for netbios" + Case &H38 : szErrorDesc = "Requested resources are not available" + Case &H39 : szErrorDesc = "Invalid ncb address or length > segment" + Case &H3B : szErrorDesc = "Invalid NCB DDID" + Case &H3C : szErrorDesc = "Lock of user area failed" + Case &H3F : szErrorDesc = "NETBIOS not loaded" + Case &H40 : szErrorDesc = "System error" + End Select + szErrorDesc = "0x" & Hex(ErrNum) & ": " & szErrorDesc + + Case 4 + szErrorClassDesc = "CNC error class" + Select Case ErrNum + 'Error codes for Real Time functions + Case &H101 : szErrorDesc = "Command unknown" + Case &H102 : szErrorDesc = "No channel available" + Case &H103 : szErrorDesc = "Tick requested not multiple of system tick" + Case &H104 : szErrorDesc = "Id channel wrong" + Case &H105 : szErrorDesc = "Data acquisition still underway" + Case &H106 : szErrorDesc = "Channel not configured" + Case &H107 : szErrorDesc = "Error on stop trigger" + Case &H108 : szErrorDesc = "Channel already configured for other types of data" + 'Error codes for Dry Run functions + Case &H200 : szErrorDesc = "Process not configured" + Case &H201 : szErrorDesc = "Axis not present in process" + Case &H202 : szErrorDesc = "Dry run not configured" + Case &H203 : szErrorDesc = "Dry run already being executed" + Case &H204 : szErrorDesc = "Dry run already in stop status" + End Select + szErrorDesc = "0x" & Hex(ErrNum) & ": " & szErrorDesc + + Case 10 + szErrorClassDesc = "DLL_INTERFACE error class" + Select Case ErrNum + Case 1 : szErrorDesc = "The server has been created more than once" + Case 2 : szErrorDesc = "An error has occurred during the creation of the Cndex server" + Case 3 : szErrorDesc = "A function has been called without having created the Cndex server" + Case 4 : szErrorDesc = "One or more function input parameters are not valid" + Case 5 : szErrorDesc = "Option A06 -CndexLink communication- for network communications with external applications is not enabled on the CNC you are trying to connect to" + End Select + szErrorDesc = ErrNum.ToString & ": " & szErrorDesc + + Case Else + szErrorDesc = ErrNum.ToString + End Select + szErrorClassDesc = ErrClass.ToString & ": " & szErrorClassDesc + + 'Stampo il messaggio + szReturn = "ERR " & szErrorClassDesc & " " & szErrorDesc & " - Occurred in: " & Position + Return True 'presenza errore + End If + + szReturn = "" + Return False 'assenza errori + End Function + + + End Class + +End Namespace diff --git a/MaterialeSetup/OSAI/MTConnect_AreeMemoria.xlsx b/MaterialeSetup/OSAI/MTConnect_AreeMemoria.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..b1ded7ec80c2b9ef79631d55ca352725214be873 GIT binary patch literal 462544 zcmeFa2|Uzm8#gY}LQx@=Y?VZzB0`L`AfZDYl`=f-K2uc4 zZpb<&yU8+^F~h9?-;C%Nxz+P>EzeXjX}91A!Wad2=* za$G4gin%(EgF^}UR)Av>r`aBeqw8r$SMXu4bEjQS%6mH4OWc{yx#<=MC-D31KmWrN zsJPkcShRJ?CA{>I=>0ZBr57P_n@$X#%awehq4jRnn%a$j*sm&}wQ-=8wk_j4Q+TFf z1D#R*=oD!|@co0m%W8JUUomW1xwxtAjHPs}C(OqYb7j8Xv4;n2Bn9-fw)Ml|6YWuA zTRUunV>ex<7T$;vJ|uH6abdZ-rLgQi>gtVk8NT;7O5_g_uU8~WJ+8lVd=J4VbnBm) z5fN$J3J6`zYeHqkA5J*jT-*aaqEth=V})rypx+ue%`i$P-hSA!D;0_vysb#STXE$zs$UsQ5r&(238MNa5t zA+4}ZiQzJduJOsuBBzNb4ke#n?D;`iXdg*cSoXZwat}&b**rfxeCPY+N=vHN8|88Y znOZ0sf9Q|0kz8c;-shhE*(z+vu63dE>h+381KK;~x+?H6Ku{SBE{;QAiSV-{Th|i+ zzB~v>C@&zwVCU2JE(-F@uWZr%AC}iI9{oXtfl)D2bakmgrKAQ-*fMQ>kKMZYl861y z>$UMeyMA|r2nHp+cG=-I0bDw;LO<%;R?M#JA4(;Ook|aaR|u-Ff9~<{QZ(7gZK3Q& z=cxTo4?12gcW;{F7%H2QbMLl(8Fu}C^yuCv%c|u~*DMxDS$k=vM(l;- zZw!vLpPGC$uR+^n=;5Wu*($d_L{`Vc8lzHiOF@@a4-VGF3YEH?vT1(gTWT*kF}3E1 ziLL6H$ET8<)z*1|t?XZn?~O+Z(0t_#6H1NODXo~?UaeCib!!54JWFY`Jkjfw%HraT z(vdR%VDWqH-xZQF;^8Y|z)u!0;NV!pv1p#By~4DdctD)bo`OKmGA-RFnVAQeJK%T! zxBnE}FmMdmx-5`%(|chzbX(ZPtRn}NkEGbQ5;#^aS;cMN?F7q#>Krz>Dwr$M-E*yn zq`F`H0H;aR{qEqeM);G0|P7NpR>rZ}UWuvr6ne!>s$tTn2f}vX8 z#rvXL*9l$sm+8BtQ}yIZ8^bNe8Fe1Kdrwd5mH%14RWJs+Bc5|EaoN$N> z@09D)v6uE-#rDvx$Nq|`SQxqB(kMN4*Vco>@f91lR=lAcys@qPp_1&G+um+bD|i() z?>I}beRn}8llXGi7PZwX?l<1`WfiB>pY>&OC?LPfU5O#5JWm4ZSCgBAgCAfUfV;lr ztK`G2jxActpon_dW1_|?u5C+;_R8S6Wzz3l+MrOdWMG^56JZYz(Ne5OfqcDzvCI+h zNPAVRs*QC_68`2jv060?*EbR7@O}4k%L3c21|6rSy19ZA7A6KLtx+Ui3`wkRN5v0c z!#uj)ynpYllWz{-GxXM~o8RGVR1~tyleu=}{h6~WPcpV>4!LGlbV=xxjo-8h{x7kZs?&2%TJL01IA4KkLylNFbzYo+? zWSR72n?ofZW9MVHi6<)~93w|}8XViD9@Y6~zv{|E`l#e}Yx{8)aY;)JCsAM~%R zw3pXH$k#d)rvKTff52cpDI=t3%*O*an7B>=fd~wYvOaR+07TXmhPXh zxzY8~j{4w|$Hjb}lWTp=5D0@1)1s*)|NC4bZhzhFdz_mt;)Qr&TOYD+Ppi90;l%s1 zBp%tJTSZ4*{~$@6^e>D;5R~i9Xc6 zdF*DNORv=R9_1%5JD95Bu7ex;|jOj0XZ=FxNtDwkBIKD!EJBUU?X%@f;q4`E| zER@>SS0W7B1*P^6hh~ezprjJ4pI_TE3d4J9vbIkFLZ6(dq=drSXw*rp2V9&%QeaSE zG(vSKoZdH%_wWFV;rL*_^r=xi7)hP#ij;<9>3*b+%06*Tx)&*^eXO;_NW9&*mO;Tm zj5HZjxZz3!Nf_$M=pMtN`;0UTyhtToLF&{=94NO0_-r2%ad@I68^${bQSE-zku=BAMh`p|Iz^%xh=a%@#FAnxeR2|4 z3C0dI(h$KJDv)R&ECZB73-W+~pj7H;wgRZ%-AK%Q6RZ-ERN#F_oi>K1;rC48qT$Gb zse$1xN+?_mN^S+i{0guj80`a**gF~t_VXT_s6gNe3PQ-x&N+573oT^>s`1w$cH>}@*G#QhHg{w&50KRD;wmDc7d^$)dC9dr0-1K z}uNdP$d3QJ$c>+s^ky*95)0?b0v0AgI=Y=dXrH&8tv&lA%i7 z!rKE7jmohh%h!BkYn*wT_uM(=A1ckiqJSY9!gpoQhcMM{zQ8@WL#p+B*Y^z6s1o=B ziu<>6KlWw}lwZJ)(?J+raigS#j0kg$XRvTc?;ca|`sUr{dmLF0nN96nxH#h6PPGku z>3e#^)CKuc_VgT5SK@oPr>{nR3E$mf!56ZNp)zC8h@BW+aNC239M99>*oq+Y1j^IX z9>aXq@=jDozbSSHvt`%3g00`#gXrZhPB`6kESJ^Zhm zfXRigQ-=;MvEsiXF}ekNHCA%do6uPv^?nR`l5moq<(s$s>Jw07TSbuARWECC z%c}O5^uy!cnu3B{&3o4A?kdkdWxeR?==xdcFWakh5*mHVP(^ziQMx96s%Fo&DD-ff zXj1F`pIt~hlH?KBZRjy(okZzNq4eSE_bA15Rkas`6y->Zo=OhsEtfIh6w}k&xGXDR z&*BY%R$*(6wGQZVr%NtP4s;C@+pe|0RPb$H3fi9p?ZtTU);Ai1J(@H6h*Q12r!*&O zA`0EI3*4amlvPA;RiWofSfa>~m+ZRNyxek?**s=r7{!;TWi|wKhjAKf%jzyYBO#X@ zKnR<+T|4#AJGsPn`FM0)0oNln&kLdYk3cIJBw?4We+aQ0uKxMttv|QR252A6z4&YChnMd zZCt|hR|dF>_1$WsjB(0qUpukI4?q;Em z%-NW;Wu~)9MBmRzPxJ~ofoi3xuSkO&P0)N?F*I3JP~hbjX-W^8nqKj-=%H7W$kT{kfyJ;S2XMP z>X_TR18i?pdUC3s>QrLd7aXJlwhNz9<|-%>@92xaICP#kUPuTGH3ZSZ~F1I$9!%9Igj81x z^Fz#2T%Z>4CiChv!r7yDa-^m?T(`uuX?@j(Fu{o3&bsqtB!!YMDTS@9+wEP-v0Bn( zQ--S{{+R);4Qwkymsld%KjYda-|5|)DS1*Q7#U|;hE^xkTnp?%4 zHeN`cfvwYA+@0x0b*hSKZ7vRy*qoq_&_zPmI# z4|3{BuHFzN7`DQAx1BE68A;LPpe13;w+B8Q?jB5_!d;!MHIT?xHfassgW|i~qXBZc z`3p_DYYO>VWJ>Q#_Pl*dK>SkZ&PXj|-34Wm+{qUYhpnm8Idk6G z;G|eDgaR#pNqPE|NjT*7c)V%ixmD(lEBwm*O_m!0hnG0X<2%dYVanc}oFsq`O=WXE zQW%vgw-Y8B>F1BDyo}y*)E5%XTkM*{JASy}P#B+w#o7ZBGwF{ZdrY80^RL2FSh)IVdc=Iyf1wty|4lhJm3kY&slx^ zp+8>c{j6Kr>PxOJZ019@A6r@+t+@n_T8wOug{*ka)uKS+L8fV473OJ)g$O6EIT`nC|p zIy^fwX-ZWrx>o%J8h zI0+4_^Vh;;Zn&wNdGw&MmjV#LGJW(YfTYOH07)4)SC*$g79D>3iDNgm+q z3kS?29rb*S_g)=c!56lE!;D9A`rI?Of)O8@0M zQQ}+J(}@L7%{Em0g&Y*YjMXOzhM(Fs!l9}?Gu;=MNjGd}ylfCDbqwDcF!gjRS51=e z{yBV_8{sWX{?n&zso==!3tTSqhKql;2eWzX)?Y9tu3mUyaOGmf7zJKMjv+4#fF3Wn zx)1<7W0b2@0#S7#qE-(j)f#Bwh?qpP~x#5~Whm7MWrs}}HZ zbLWmf_cA$y>(S+1&*sF1LZfRouLJltW}fNZq?X8a#@7~#N$BX#XlAPZ8o26tU1&Lz zZO?CBXT-de{FsgQ6}-8+s9A1>^$Vf!G-C2)!LADnOJ@;j#iqP<=9c>|GWqWP)lw6d z6#j_ofU|kBPTM{B;_7qzy3?7a!SnsR*)BLsoc;>n7_swyBwm!lgETh|T4U_bQwmP`#Xhn&bu8y(x z0ln2S(n84*hr{iR_t@!)rb{nP4p(|u%Gs>8)qL0MB3)yNRf1snHg10xp82U-fAPEm zU*U8zmN4XbrFUVc%ra^2&Sb3w!OM}~|IfwDg*1SLh`>TIYlIf{l_;iaoin`fLhv$b z#q96>>Qh#PaX)ptQQ&#?NJO&MR&Cj3e33Q>FT79Sydbj-CN;Osuom1P!D}^e!fRB} zM@sL)UrC2061G&waK2RK<}{I@ADHn$zS<1yk#)6JmcEl5@05u;7{U4ST)Ngy>!eR) zqTbx}Bg*`}VA%OBVGjlRUYpn_Y~c3SGr4fCcb6s4{64`&2QN%+{$sAB1{R!mOv0?B zIymhpNRMZ}Wg2G(hxZ%7MO8A(VmL=l@62*ce{W`b+ni6eo>$!wHhK~qA-Kr;5O>iT z!Zn#?2__O-xjPYi=WyWgifjbusL40X2nd0yfo&`2sD>dxy0F+k z0qzIRmi1-QQfMaG`9#CNrHsjPXS7>aUdB5yKcpgSS|q3CQat154%kqj<++w`s0qMd zR;gb-+tHtsOXs+n=iHq>2}}*3_>d`(G1Fg0OJsje3eXpy%PqrpF@-SpjL;_%0jdJ@ z=g;w6!p1Cz3zK4L07Xg^~F}Kp+36WB)g6kQ%ix zoA~H@%H~FWSzC`MhgK~bB39(GE-BOoe<>kEcd5x@8L89B35UZD81K8Uw=`YKEjdXk zY=2$WI+lcz7mZbra^iWzIAe{zQb4B85;Ds`DRWYcOf$?@KtEF0Y+E)51sQh!-Gvhl z=Eiu$35E1qnAh4C5?@?ac%u#%M65TGO1^O;+}U`yte#N%#vRE~_2J%iT5I&sS6OU` zTVHw;@1!Cu!Mz>+mEA#fYZ*)U9hjRvWGkRK*w#7OGP*(53PlD+`VsC+*hPu;}2Y(|9D+I#~IG##bFz@;=cQ$JA$)2rY30~PHdsB zfP_unyx0Y$N?NJ&wl57!;-2MwpMUg!!ve!v^a)Qr+PDH<|3k70mU{D%*7HJW2PR** zC0ikj1j{auPy>(AkYo#VXuMwwVLTPAOv}R+r-sIBI*-XRWe2Y}o0%(mdzXFIPA= z!#RAWCwqa9{Q7SoB95;cCa#bUqxV4d5(&NWs5+t2=h+GcJ|t}lF_1{dyB{;|(??=W zLH1-Pv{AfYJE1%ktO9K!IHA)F;408<f5kh4utDAje(0?Y0J)dkQ=3gh0j4FP-|Z zfW?$7fh9{}9XOK_-xcvMSxcWM%u?HDL9)+U34`+qxGz@lUOA(VU@!2s3jH?_F^_AC z)Fm}hjVe$`k8JlHH_hX0CK3ZZ@aDEyWKBB*Bd`C#w~R#j5M%&yB%eW7$NM!C22%Os zH66)Wxbaklc)wNxB^9I$EllB1-I%3=l3)yrk;w6S=MxZ)(*}g8HFA&G^ub_c?7-N^YF@su8iBQ8;s=!h+Sw#AbMJ>rpALUF3N3M~uQXMnONyP<;sdz1TQq8JsrqUw0JzS-T3@kftE-x zuv)(u$y?x`&JRc3e85LE0DPKRUO4N`b3SNWecm;c3%EBbVm|p!u?uvoIcIs_=O3{b z0DQ)O0}(wWuwNMRjBk7&B7-6Ah9<@TgdsN||o^N8obZT^vC{eMHC z;$IMJ`4>FGu$H;T-#5%}8T03za<2xB;faj@L#_`w=btgC&kkwZfGHx5LlwRBQw;CS zdBT<-X>69}jTV$Bxky~1OWFy@5qp9E77bh%j#ZcFe}Kchz{b*rUK78=EguB#m<=1W zs!UaY5a!45Zk@uEqksgI`$zWt1nWwmD1qq$LQCBTzg!`6_Itobd(K|K;QYUV26dvP zU%KVLLupPi-Ey!2XSc5#7m#lF7-gqL;Fagqnf{2mN~KuwP_8-+J|MJI<@&`68oWQ^ zYUTx&y}-YO2AB)ffzb$ZAGkfbUJqhU`%TFoza5Li#v8sgr25F#`MTiQd>^(Y{pcF9 zZxaF%(SR*Sg+|wd7-Ps}0N~;S!j=2!&=4=ay|4xey$v+kos6oViolZ^_~ZTB20FQ^^i4{Dx!nkYM-~B-5v&Nm6cg@ut5c#Exg%av(j+zK;AF4FFr-_nU1w3@GGa z+j6#J|7*bwz?Nfww_nc8{jmLVc4(pHSHdfGOG`nFQCB@03RNJN9^Xz)l-Dx1WoCV* z3pw!3cx5OGH^(XtX`qUOssjYs} z57&M7>XI7X`MT%(VLHR-9^G|?Z$4n2NDP9SuX@f~zK&U}$1bz`f1L(El^hswlu(}> zB{;m9*wcgFG%TX2m;Y zy5b!{*E5x9MZ!8T{0dp(U|R_48LQ&m56r40X4Ms+K?5b57@(ZEIv#1ys`sF`5!}$= zY*ym0U%2}SDF<)*4#Sq9A72lU4KT{!h^WNEHnL zz7qCR4%3KPT1?}``+44`O=|m49Px9gt_I_vc>X066jZ-^`fIns>~13P0G%_5Wk)=3h{u0BB4Y zvm%K;UGts+W3~z5ftvSX-k}oVmR1O>=Dh%G%E}EfGetnXFzglbyr-#XK&cGMQ~czg1-dsUr3*ldUp;&1?Xvq5)Q$5Mw%3lUct>`dGiohy=hp zpp2q?adTS`(24GMmO%mmiA@Nr!$espBU^b!Ca&ZHxD910rJD?yC*O#>Udev{oC`V$SZ9uf#K z09A%DjVdz%!tq$Ok`xLk9f8Cy-l3svRs&l*K7)nU!Nl$WP>xQc5lqMqR=+P39RVJX zbR-W%G28jXX#NEsfE(t(w+(FUI3_!enL6jx(LXXjwBMEa`QI|-gwtPi=KY3hZ+6MN zv);#w_m71fjlZLi1E_e%7ACO+?Cb`-xmEp-F?K$S+>l?X)OyF{s;A8UTA}NLM>21` znlkE^+axLVI5fKkL(GTTZppuH+5R1%jZ&$vI^7Vcsm(wz-e^$7m@x zWOopB;tO0PZ`6-q4xyCFZ<~YtzEDA*kvabP;@{BM`pbc6_5$Zm0CpesH_Rb<8s<<1 zfH|aSQvlem;c1vdzb4Z!q2x&Mtg1QmbU~8CblJzmrwb`H-={4bd+^)lU=?KrTT`O~4pq&yyX! zX&!kTUbhQ@ztG!IlD1E_4eFmza+H~S){Xpjo73(BeEDB%DEejCNA?0?zuwmM%R~gg zH~T(=Z9{AIa08{++c80H>mUSs@? zCO0t+jP#4X4+;n^A-}EN#6s8*?`)L%pXd>qg8$vK?l+Ak*Bj^oGzVh~Yuahk5byky z4<9QxS^YuNO_tvUhGo`n;>1Wp-zj&eu_4~sZIwUMRtaI|FQ=zskQ>0v{AIjw`^Ot5 z$%BDT}He<5KC;a*d3H313zY)7=(}-P_0Ad%i2I+IVkTQ+f zB~EPk*tZ5|P7$KbIurxJj25vknLjxS2^cT(sk!r8*k&SN!_HTz12abchjR1G5c_Y| znREanq4hf$2^2P%92=>A?r8mAfyoVg1d}uOBmwiSFuX&U>3J>G$A~X64)L>(xbh(7 zK)weI%g+6<3yXiMu=tDI4|p0F)~f^4D%=7L#_;$!6|flj<>a-G_3!ZMPIO4TAG5O( z@fjll1b}xyzXk6=V%fm3Y?%2uL+yVJCii^hGBp*!L)m!be2LMS>D zOb*NH5He>>gUPY*@bNy{Xn<8_LLGhvlf%vcCdW<` z%@s)PmzC4MU;!Yv-U#H@5iF1oBy7Ti3D`BAC<0o8+i7SP$j8@p#bjo|=I2?!Kr7L6 zCe-2d1VJEC1ak|e41aqc^m3uW&w6lOkruvA=T4C zPXMzE1DYOE{dK`RV7rlj52+qVg|KiAKLd6deII|5eIpG^;-2L){`p7jTRAYHFXH2D z%iqYD%-NRTgVJVe%>T5;B^Ag&$B5})PhSH1 z((8)|JL8)OJA(nQ2b$GrABVMk#6+S1a|i&0B<3g~L_E@g36Au+;)CG|1TrVS0Z3p6 zGUpt`V_nw&$A@$QflL-a0*!^(MH@h&0f6_9O+o-@*D#!g*roY(#XGC|$O!<{2H@VC zfl)2l%u&GOp8*npB00Rd(Ki4I?06A7UbKDboM|wuMQ08Y8ek0)!h;!!0QzR(bdek| zOUQ$f#Tq1J0saY<$u#9Y8sAJ$Z)YbZ*-6QtnQ%45oILO;DG9Wp|9Vo=gKf+IU!N8E z-@i=&wjA_DQgY&VBqh;6h`llLpEFmx*&+7-bcmhvWBMrf*L%l)Ij8u`3ru&feae>q z4#qTRmT|DXpP%er`=VTs4HL0ZOCHde6TjJ%H~u&7n2hrD!l5?jq|<9OgNj}u1A>Y<39U+ZF8q9sGA>E=OkFMVf*ScR0Le3H2>0&I(C)G>QABKb)TI`NwAgtAm46(}$h*Z^!#c1D}V zBijj;sSp)tHjZKdYGWl>f#wVpFtnQZ4T=}GJAe)R!3O^L8Q>2TGu!^r12Tm$hgN$4 zL#x|)hbDN3XkcbP8)U2lNw!6o#A`MaaH-YGP$Vwc0PIM%LpR1Fn+Zdycx5OG7xcNI zEq>Suf?|6>y6nkqzc{(A^$QPZVk5KEm=x%NFRU>~)wDBGPDa&FZ4@8Q2vvp_;35s+ zj%0guUp%sj(36T#h8E)D4X}=6M>HwkFDHc=meoN?pnw^yY^7O!-Zhj9h?y&5&L8Bm zVqTShVr&_E5D{|_5o{dDw@*cqq}=M%5x*sD1j#EYq6%J%9#%garx+*D=>T7RHn{>p;@>t1Gqie6>Sr*i6y*FRZxLG z!wncl8eM&v1R}L#-0EE4uFW}yWi~uWwVv$FOD$z<$B$J z!2*EN%=q0mO#m{MZO;FP2Mhsj2S;wf47eg$B+?cM+QvCtYoh;=2l_o;&;Z*DI%xav z@Ph9A_Z&GD2^8hG=7FfgrkJkw_J1}I8O$LI6vy$eDE|88>al;p0*v`%ri{^Q5PhhP2SU)OS9Om0s0;4rDCW9GMXaj37nrswjlwqq7^mv9p6$hqIRzv6$a2Oc`GG&xgKz`(L z;G1j}*aWcW4j64RtqVcLl3`?A8VEHN+*Qh;;EWiQK1LJ0gTckY!2rG-(&w5l$gzN9 z5eEl{B!{}gcKw&YEA4q49P5F9J?#}dAkJr9Y)_wdbx{C2pSE{VV12V)-qXQep85U7 z(3e+>whHbeanbj9`b549T(ZYRWnIpZKCV;bmIbZRVI)DCPv+XwFM4{;Rre^zQ+B0` zSo4K%sn6pK?6wrPeLUjRB8S@jWao!A!NqdB!Yt78$T%)T!vj}J!j1~@J_-C|18r5Y z->c>)A&b+)G<%!%u6S)Nn+g`Gd2rv(VGO)5OTq9NeoHshG(b(m_!xaK1S-DE@h+-L zcdYuNo@&@%ns;=GWhtztIkGQ2UbW1H+i(>p1dz#;+bxlpACVT^DN#z z&bYOSzeoj*Mpey!S!W_K;hzel<6$uB$RL~_j6^c1xQX$G;Jba*Vw!~%>Hx(E2BQ@` za%2oNjN5=wg*3uID?c2hQQ$|12O+8%6a@x}L8T(9!SucXJU>4+sd>336iTC#AXxe& zuBRM<_k&GN5(k2-VY_^vGJ3MB!J0^#HDjV23-+URl^3^y0U!kG$k=3mKeeYM8xPVD z4;?{A<5l1EVf}m<@j1l2qRqtR&M;Iz9?Uy?=;Ws+FVpmv2a zyh&4C;_jDGg^Uq;D@=@^Ol>al0AXk}be{r*L427+LYbyPum&Z5RE3??5)vNiOD9id zLlg$jDU=BGxFCJKrs_fn(Qp_PQvDYtl-3*_gf#~-20o-&JX1TS0h@}3i!+w*z>Cu- z8Ym1n)Q6Hi)=^xX58+3(7=4(^guoe1yQst=V3*?dl-Ib?ahq20w^&UW9X`~qZsukc zIzHi4O>}BUQiyaoe-{}nUsW|EO<{UXuL$U1ynHv zLc{%N)f2^y9>n4-G}Ng8O2%u#9+zY>D1%)Tha1F9PYS+-L2aD$l+F+?K~()|)7M%e z!mplqr4=-s1zQ)Yp3Sgoi#0FUnZHxbYga9oh*8@cH0=#q7*SPaSPdS6mksV|S*)R% zOiS}A?P>^az}1?h*@3Q=K!q6tI$5yY;vOxqJe^%&FA$$*d2|;DTLPb$XoWx+W8=}) z3~y@&u^H5lfE8fq`2}QLlVLxMmYFHuLfi?%i1km5cj=!cOpGJmy$3Oz3FGCkIhEvi^}QWr`Ma|M^018nxS& zWSQ?z-F_8bk-ni=$fo0}$fKS7rftrz_vM@#s;bZ@9m!c&l#9LIDU^B+@%WF+LMs9f zOPZ7l@dO&*HohmcCh*VOCjCMS`2C9p?P!)ftzxB*%xow{34;n-QCg2ARl>|l*Q`)& z21gC=AH8}g$FynFE1oOb_rqkmc>=Z556RT?T-VO1ks zcuU_)%0=JMqn65DZ3BTi=Loqf1$^mcWR z1|!jD0p-5nu#hs(6YV=;vQ|8~+P4qM9_D$beYZx|m8Y=i{q93IX~vV5_glm^J$PI8 z^8TA0ente!nJ69C!n%GEGl^{(sXb-t*cmE32_-uJaU9Bql?a~OX@TRXlN zn}<2owPrv>{9|Vz;yIJQ+!$2m5xuHFzN7`DQAx1BE68A;LPpe4wQuN|bHZW^8(UC)^b zU(|#-;(qr8Xsb>TmxwSo2#o9Y-tlOZt5xIpvX}yF{_8h8HaM?HIKQ^9>ftCC`VZo4 z+kEl7xOv}&>n0fJeACS;eHv|zz)nZs=8v8AkU%MT*iJpuDw%4^xwO~NUm(omiU(S8 zv^_ajps8%OMUl@fTlPV(kDo*-sEjg~EM<%$ixyfCYE(9R*y8jTQXHG<3GY~suO=5S zRyCks(n>m-IpfJwTB^ARU2Nu-qzBD|wF73pUg!l$Av&*O)TvATAaDqIE}^%YzJEaf8) zMLQ>`XTO07q?+JoJDm#-B{{*IF5}?8&!pf$$XV(O_t2H|QzIES9Z&38C;f8q`y<9_ z7)aYAT4rI;jGW{DBE$x=(60!hA{>tk|Z9^+j8z=$TB~JB1LpXA;q0wvJCB=TT@Zp6@J_<^DYa$9P3ahro z%8hZEiQ@E=&ANq^)muUDnl%9#sU2M1FP;^X6l}Wc5@nV{<&75|h8bC?K~QS+q(6{m zf-6%|dU^Z&EHX2xmeh1!jr1LSLX}Au{N`JF%bQ!Q>b0z#@hP|1eUF;Y!#Bm2R9 z(^65SSmW~^?J~N;#pbd2C5xGNc+eiF1)~I6?RbKZ?azmH@E-+HKCGO&QW-)BbxRJt zepXk>XMx(on53lWRo3KL$R=Q>h6eQ>gxx7N-Bv{~-F$8Hn|*$#@`J_^r=-=;9%=6} zJN)+=7L|@_UkRrZ1`9G)?I#} zdxP%aDuo+rMKDDTb%kvwGhfE7iqJCFT~H>;oqX|d*qS=6iW4Te=mF;efV1%3(9_Y$2r; zk`bQKv^PkgD{azL+FQs)XG|bobO_#WE6&oxt8&d>r}lM9U8>cbMXA4v3LzS8ZSipS z+|s);5Ckstx@d_#Si)CwDz2Al9%|cGCv>h$4WO!^R}X@vC1>HVl)JPckJ$Mz&#t#+ z0)e9@xY<560zsUa@#S3+Hcrl9EXis3JmHKKhbbO0|dKM6Iqp*Y5> zJUtKa=&KR!^hhSHJRz@LD;J!d$@*Q9OB{lqdk(7Ycx7!(vGKh9${xlz=XWYit<|HP z`igKU+)QBOCE)`V#5Bc`6~*@Av#(T9(Ldpn`>5^CdtnZ!0r~XtZs_jB^^8Dc&}CTg z4yGVRsJ(%UVSNl<*^EE2=DH%ectfC7*ji()1G?Pll1q~VUBkq-Pp){E<$4WPRNaKA z>bcqTR?fS#u`G8zPW-K#&QpGI2b3UnbRdx=c%qol8*bJMF5cP+YYW#s|3nvW4sT&`{H$ zV2j7D;mSN4EaY3~amEn1Qxdzez&iyjJ@|25MeAYR-ELi)4-N5Zxru&m-UI8H zD+c!ytO`C5wFU{NOGz)gz8-j9QzzgK zQn@S9k{Vli2Hq&@DE-&W)?m;PH+0dY-7u#A{ewoiG3kdTlY8PF!x{c+nhE<;Jsvy; zY?WuPhk)1a4*mtRth2-pR~cZ^zAL8x+@S)mbH2%>w6<{Stv3#9ZnVRT0L$JPi#6!x zPElDfJPRW)ct-g1r3_=$i@iYsopP7D))!FfM7UIjn^x4vwqJKHr>cOx?_IX>QwbLq z99}v5b};@Xe*J)P+CAF-Vl=#61W-hXLtV;C4?vbO&u_E>zj4gJ=sL&D>TLe*M7hG{ zBRSismx0?)fOBvW>5$rax8Q+K;}3skG~~$XKjKjG6XQx^K;`3+sYRgyUtA4i>h*>sqpKT z-L%bhHzTE;JG-f#DdNR1pFk394b^rs>FVERAU)i3akc6!f|U?eRa#9j88tObD!l^F z0d}%ipaki3N3{cQ@-Fgt*P-Rzj%rQ{(g#at;ke!`S8cykaWj442gRsw!sn-mx1)NhcF3&5 z7}dvxZc?}KUzHkq!1$-J^=281_LyGrHG0z<>guLJTpxJ zUR4kc2Q;-#w}9x9w{koS7EH=3WS8>3y<&dXbuaT|n5)=|3(n@)0&KPp)OXnzkebSC zr4t#=)2yn~-A9h~VDd-O6lSmap;h6t@CTp?E>jcMk6qzgxI=MWqrz>JJCjdE!{GxZ z&0p~8-q~n+FJ=AMI3~Nq2zFq^jw!=;Ka`NKzi%AY^#f!WT83V&3S3NAoc;>3>SA|Cam*+!@CeAeH-m@MXK=+!BZo>y|to=g#x@WoS0(993@`$v;KN6xs|uGZ{?6*$nM<8;z)z+O_Ngiz4-k1O)7?2(xNw*x5(YY zsRAVDqFZav&U}S5)L+=sN8L2FHwa;*80k#&t^*#2K~|#tG3JuUTIHi+yEoe^hxB!N z`qthwa@~0^_77F$rbf{+e!I4f!kcJUFEd@bkLMf{Ir}*$P<^f2A7V#5dsb?UuG#6a zfyVU~IH6OSk>k9yb4;?-4!YFhPXR8Nu&6a|76RYNKdPn=Yg^@quXy5@GJ4a@b!T4l zdYlNr!NFBm%o|di^Cgf*|XqRT4g}F2PtwsG&RjmqdE)aLQ(==JTi}?3A(g0ln2S(n84*hr{iR_t@!) zrb{oK7dRv*+6o?gL)`5{zP=s(w0Njv<%ai8m~HX(nGS&%)vlV;gi&485~*^~l=Y?Gy-m#V==9#` zngQ)Ooq*CNN1_{dkIZdnp*gF9Mu{i;@~ab6y-zK>R!spLQ3@c7TsNT5$U4M+=6cRn z;4qEE516dCkhh63SizZ})j!o-t`IYlGdkgdlF z1_l`gsk)@(r7|0(l5gAycQ)QFt0$DcaYu4geYkhsvO`Vvb@_`CZJ7CZwVwVfsUzu( zfirNAMCW7!98Crw)jFNsCc|5(sahoT6JmyPa?Fh|W8?jA^|;eF97&F=4?AwG^FeQq zmW7EvUZG%3$>2-3w+8L}$P#DDpL91nkBn0!vGRv?sRVOQ{^uL_h4`m>V*hICFC>P~ zx|9g8RNrnB$2)#GGVSZn1&wXbcLH{#!TE7VtLUg$WwL=q!=;Rw7~VjxP<+HL;le_L z+$WPAsXHkiK|FDBi8NFlXh9JmhuxcOc?1AIZa+$qGMt`^Doto8LbDY- zhl*nuZyweS+^8aWJq8X-P${sC8h_?4RD@qxFxs_7Cpldm3*Tw|>NL099< zqD}U8I4ZqiXC_~qv*loMqfFHY%x(XH`oRb04CiRGkIxj7!+Its`RXGx@pfudRS)=j zX8$c2l_bqJL7S1`L%U5f6(>#A0{WPo18hc*JiVEr*)~%^YuIVY+)Q7wfz$J0J|U$Y z>SnN%Ot(*437g(ZNY!jxsRcWQ4EJA|671_oYr-^lP;NtMS-eMW4)5!^k!wwklyRWx2UCJ#vNol^I@-x>EzcSUl zyV7x;HeG2@Ka))ObyU5o8lW}9@7|KBs!hA@2kgz|$V>|O3mPy_5|!SpN>1_XO;m48 zF8!m1dAdv)shw3u$Wnd%AxXAZT?l93*!sb>CmG5gJ~8$*5qIkJ-Je-`0MDFoSKa## zbGyt(08ZuWQ=FBN{>cULaq)NIVz|C(HsWToh65qKb8X^G+Jf8QVMr8TT}fic2I$k` zV?%#>WfE5B$8Je5P87o_L9OxLZ|;;)bKD0Cu8^-`s++9ebgtI7-jevl{>|9x&DIYR zp4h$lu==d^gTyC}Z^)}fv?JT1s+vr7);={N9(G)tiFfyId{U;QBAQh__^fSYRaC33 zh2z@ic%rvy=IYG0$BoVb#~inoFSX8nxkV+WXF+D$Ur{0zU;k%seD`x#DpIYJ3VoX9 z+%?}XTd~x^aRJObS#dJ9FiJ$M*jYrb;=0Qurd>kCu+!$209QG8qsjqYIM^v^#f5M5jXEzb!7LNya$}`k}%E3^bY(P z5pgrwN=oKOFTFNM$tAu)guMCVnP@Ywp5x0C1{waQFBH832<47PMh3b)eenavX{UXj zK6bt7mST0RGBLxCt8#b?5$mq^w5IKHJIYGtnC*d;aS?&3R<~z+sk5S`ZaM9PZ2~yx zc9~7BTo!(6l0toA73dhdNRNPQ5aTWjU4dzQfySVmBY? zNac^n91A`0?ry}yJu3~_SzhYYb=8g1fe(V>2Odu%`&`D*_a(X&X;HRf?dE@Ycr5Ur zB>1UhANTcsx)L67vsdheffao(up4tMH!dE1_$+bC^x4gJJ$UokCmo)D z0-D05w=dNySLT@GfvEV1o*%yK4ex%Q*dSkCY2X#mme5=*>Y4p~jcH(RnVEdK!-*b- z@dsOqLa0i>v5sN2=f~~6mCi0TdU4#PH#^npq0F(f2j0a+Jp19x-tesFiFo<5l?Imr z-X&<%w&cj#4xNxUddGa>KnmM^Hs@K$!*_9FmB)((9=~(tq+hanh?6~QPAM>b zc1X?oa#zH==K}9fKfIpV^?qr*h%_i1Soh%4u8^AmJMYDG^gO-P`k~1#9ap<$2kR7I zM}CUa0M-aOAAPg;Qpw9BmCXX_*E0qah=_nbDu$yZ`ke9Ikdb~}>OI#S&z!H*i09Wjxw zFX=pPa$V&3MCO?NftB$QuT!ml{L*W~6NjLJ@>4Ed9TLhmMz53~@mQi!HLlOrm~!Kr z-1%2$UCLk3WcLu@(;d6!oi!+VKc{p3eDFGTE$$Wh51u(`tu3&0QS6d77BS^c$AK@L zMXl}c7<$^vr+{xd*UDigw?iW?1(0^!s9K?6N!fS&O58~TVqMQMXo#X?ek{#m^Ne&J@BXv9BMMS@|ogG z|3CJwJFdy=d%LMxpcW_F1r-GfvZtdmlu?<=R1uLGhV1181sRHh>?%kE3m&4TEhjHQxBmAg+ zp66BAcHHEnSuQCh00^`bqBgP5R#Vz&MU-da@xJi6r1Ty(BNyr)w%utjB#X|=^BS&) zk$7t%nv4s0+%~w8t(Qb$M(4&ewl&klmE_SEcmw;nPJaxRoX5>>Nr6K2^7W6}WL}*1 zM>?lpuS-$=`D9th+QFRKF%y`?{>_^G9d4&}v)?~B#QekCW6S10 zqB`2uw}ZESBv0s22)WVG$GZgn@-N9&nWjvfcGG18X2XF!owvN${EhKEFud-$Wc*E>>k8#&?pD=%t?lLeOdDEc_}SVs^P@+Y zvT(gl#Oc)78Fq;1lc8a1aOi}3m_@7fD}z&-VV6=5oVAwQfLLJ(ov*P>{XgCg^nb+B zQ6KQgraSF-NuS>*cFxI8P5^yF>!R#q)qfoS_%WdIaa&k+NJ&fiJ%KyvpW(9N_3{V? zbxXu9&!wY*CjH0J$QY%o4^tu>moNKE`hx1D7da8-?rgm70eoxSb7t)Nu9^SQCRCCW zvA5`E*RXUtVOWQAi0d5Dt7SmjIcvaSVpY572CRjbH0u#Ahr3^Yz}ffIUbQGV!&I#BA4_>BOhP&|vepr^irGyx-v;vX(=;m~0sLQOMQ&4=#or_9p;Tx9 zXjpP4@7RI@a){Mmi1r6N#Kq1Ds2G548`3;4rHgXMoz z)oF2iUHCl5Ns9YHUqw0fa-f+aO8=LwSV3fSp&&xgvzW#Qs)h8 z0mI3j(o9P?APL{GwbZ=s{T#~|-Wn}CH%ePe?r*;*W#DQ}8zPYI8Q@MCac`|Fpbin* znC`F_-&={Fap6+?)r~I|pprwZ9U~0ZcJWwS=tph$kLqo~?S;Xka%2Q>3SL;fR{W~s*s6kENjPd~?>)hAn^*EB^xhp|4QXh~+OyrSPpygM z$cQ`FdovAYTwgU4l%e;z82`ftu9rt% zdc$nq+j!4rMq@&{4k?J7h=FVeWTRZ+`~k{Md1 z+Rhubr@D}t4hdR&znc`Fh-`oIK3u~*Or6UGCje8)m#?iz6CerT6_ARxHgpk^K+S90 zHU(PHO^K3KwJE2^5)2U1*WMOQhMQueZTs{5tP-sq8 z+NogCV}&CNs`I*gQ5>+=Kah3TNFeL#aLM&!?y4YtWx>thHP6UYrWXoJWD#kGz}$RkY0%Bnx7oH?(%=iuPUw| z$gj^%&r7;kK60E|p&&7C*1p*7n z?rg{j0X72M&t)2-i_N#-L5x{Jed$%;XZcyh$_c-|@(A?-_F!xxKf?q(pt92)-%o z(Mp%59uQnoM5Bu@O+^yCQ~09&E=@foxSwLqom~+-R3YKvm!jViAtf?c+a)0cS2e0m z1Rc$M0+?Sq7Gu?(c^LWjriA(JWm=k+2m9=!3A_Gjto}u#(3)I-^^u`>$K4JGkg`MFe79iwnnv~*h7=YMEN%-E-ReEe zBJ&?9FjS;SPGA;-T}MrVB*+0^;+}mW%S?Zv$@`lOFcY94M<%3Tu2n3QU~n~K8eJ(p zQf|j%%vV{Duc1KJeY-_mngm}87gGbAPDLHQPM>bWF0^5LpSfzrxE}|OC{X&M|8;8@ z5y@!9#xGO^m0zMp7urQk(SK+cBgqL1#dX(Fm@Vdi0_sH3V*d@;y3l|BK&}qd4zVY0 znaWEmsCRVcrEQNzX4LNvlK5Bb^LKaY!*+bS& z0MI?v(sXfVko@8angYqRW6KrqFSUAlxUheQS+@a4Z4z1yYIl{I{tw7s)UwuU-2}6< z?@!20Q%@(+@RvZ&&gEwl%KVJ^Z+LhEctN2)Z%wo#ia3a@kHsQUUT9B(+P(bo!=3qmaxM>huA}I0e z{fdX+XO(034R^oYsIH~veC$5Q{kZU+oBIU!$u7B+vQHhoiux#7tiZA#Z8CeuPil=0 zt4F_k$#lYdBUev9ep{2K_JKIZ-gO5B_3Ycy+D$w!cq&wLph5qxkoA?`{mV7WH)kOGA^(>jVyJ z+>8F3ih_f(=P?_-wZ3*K_Wq#o+GY!C#czn_biz<5GRp?;PWeq~)P+pSGQ>^r_0L%E z=JhGw>Z8?xD+rmq-ZL)QPkV%F>2O(-$T1oBs(+o5;IQm9%tr7F|G1?4Yq6z@_s{r8 zLsCAH!)>L~2ChC%1y{(VQbXKk^SDQ-ryUdrV3(Cgakz(aCRT8Hlgzu|AIKG>0>f6% znly*479#y@Wvh?cfm)R{^D^DlyEFLsSl(E<7s2P}7oJ=(TT0|g`o?;UAr^AGR#MMi zBQ%`Z6=}R-yN0KG(sKeKCQT#dMN)7UbItf$qBZs1I>WR}<{7E@0Kd_7iGg@#QCp{E z{?m6*n0NUmWY-XHnRLZ#R&&iDK0lnVg26arU}VQ8oBC;Q`~5uITT!RIO*Sdv4^2ur zbe~lAx{jeZeiPX*!PZotjPxXn`B><*4%ZJeYuj|k$eH?K({jNQTm3Ra9L2x(ik~AN zlD$nR;dG^z}$yJ^m)vEID4`XEavv2K29opQP(kr*C0fxb-R4V zV<@8BUrzgbw43q)v@@3Wk$l$r)~@uhKQ z1V<QP(22?F( zAV=tY2ENYnyCp)CIZ2x^M0UI77ArDsL%qe4Z)WP5FgyCES3Ve2uu97}m*kgBXx`sTov3 zL2m7eIaG4fI*rYplsY`PS-73{Q++aRT;BI8XcNEKX+&)!0&k!*SGk~`tLd^Gxkij)f`uD|Ot0VUQ zurTm?5_sJSyk;xT3NkL>b~Hf+8YOsm57$#)?^twN%At%wolK|L)=Vmt^}qdhZre;c zbR8GgE>fJdVTuxyDRZKRlHyH-q;XeB_Dz6MtFknDL?nl0{R3WvLocGuOUhU&w8 zYRq!Tln#1hKkgCU4Y_G~mN1i?z)W%nkmSG3CwcGP=0%*Jxw6h@cn`*hx9JAv&Wg%m ztWKG`*OjrW7ADPXG7V$HcRfw(M`%{Xt+UOZ-kp@ys%BGru;^;saLN9Of$5kiM4JXg z99cakf~9NliThTK9l-W$n2Y;Xj|pQZG?c|>s>Tjt$&oi900Ym_c;1lwaZo<7%sedX zFZq2|0*JHbyIU9*ZqLP9!beJA=Hb7Bm(K^MsK}Wvrxa$?ppU)lsVUbnJYl1N0i26n z57ch*3TZm#@Q+Y=l1b$}K;_8l^ce;VH&oR^zibENkIsU$PSA}iTXTvlk8D&mn=7?& zhcb}n=_wqc8XXjq6=eF?gqn7wU3r%wyCdp$=x zrr8EpETk~{6~c*YwvW}X^I2ou$hYd>5}^id$v-_V7dF+B8B*+*R~(%yTNptQOKm0c zhGH155@D)6Xr2h^7Vk%|w6FQBs$cP%^mbl65-9QJE`Fn)w=og_wjlQ6GMJqKezw_aVx-OY9K_ioHX#y`zH3E@22}}rDd`2&pnUszNFA# zlT@L^a7ktS>ik?orQLJ(IV)wbg`7lAH9^0dtp#C|ziGl^l&gQaBbdz2@wKpiHq8uv z&x3W&(Vl#3&tgZ>{yP!^>)j?p^g~A9`nz0gOP_h=;rI3|{(%2EZeom*;8;0dM}2-Z zyE5O_bJZJdwa&P_j^SvCd(n4OQt-L#`F~u}RBwpfG9hLw$qi{pBb@;YSCal54FsF# zHVrkR&Ch!=*NY!GJ>h8RV!tZMw`MpZ@q5NT*>8Dp(SDZ;-%EqFqnBVUp}ARU#*`iA z@fj6qmq^q1tBqzK^`FY>yO}$=_FOf~>g9Y~FdM6baFg?K9PNKMi#Q@Ad_0lml1Ofv zZg6791-cc~l|FlL=z!nVVCL3CP08u`#nJYopt1M!UCF~FSR74ZSFG2vNb{wIO*E!1 ztl}gdzYSJ$U9PAHYo9A;E;bfdfenHob1Scijn>7#EVGzDw=#G|Nx=SYI@m=%M^?Zx zx3uIEt(gmBivEuXCf!^45NWQI%=P!e`*s{LLcW^*f#vb;9uU)e4nmbuHv zi(RtI$A0AvRgG)MRP^@1L9n&u^OA|_f7yuOUEGM!4L#|XQoh9-tn1J19sb)5v#NAO zM-@j!=57pv(?%a`pNt(A)@lMfvWwe>|6#ElZ0I$%C%9u;5?IC*dT(=37t`Pe0`|o= z=faMmHuz|v8rNG)j?DS6Q}_Cq9|FlKVEosuJyV~^?zvBbkU<8Ny=881JlH$Gy^-)= zHu%6^w{-#2VRc|vaa}SEtntt3)XF!{{<&*-3an?_GWR&m01A6=FQ5Q+dH-v;fC$i{ z|J_b(-P1O1rM;6bmW7$PxayRj&ZL~-AmvHjRa4ZOH7W^6AOqfsJ0 zw7bVr$8F}f*{SL3GpNA7W@j_~r~6B0>52aI zi32!n2-Pl05r4TUsIlX`A!*G}eaob+6%kp~e)(KlD$SB7=1J)R&V(ncg*cx)IV!}N z^5mKjXWEleAxW{nZYU0O}!p0x}S!^GbYR#lXU-0zd}lK zL%lsZTF;xh(uhz;`I6TsS34vT2yQ&e1HHMw+@0ain}OaYr=M+4)o<0+|`G=ZwL_6%@T@V+?_d>&vZIt&S`s#U96EG&MiB* zaG)*4eeYUU=g6O81P8o$?kax>Q>Y21>n!o|uJ+UCnJs53{9d%q>b^nnXAn8j1@Nr9 z8^EoX9rEw=idQIAWN+xWkm~gFp)Z}@dx)4W6`93%2*KD&!@0n04<(Jfw3Gl?Ej!d` z9*T;d5Q~%)-hrN6(;RDrC>t%py#Y|F9!7KjUXfdLNA*T8HF3{u{WVupi?fYz=(0BF zZp$>hng$FT?Lc!YG!*be_O}TD3}s`^_Qi>1+yYh{7zakBM~oWJsB~K|3+){GF2q9+ z_Qaa${Lw`J?hdP4V~wdTHG|%!lI%CK6^-3Fj`}|>r%=*sAWivrv@1{GJ|a(voVmP< zab|qt_2za56S_kZ5`URbss$B7wNCPFzickm(ilRuPx8fIR+ehPgivjhW`;CdBgG~k zLpw-2|8jSb)bpRbV`wtQ!ur!2ye;L zdV#0)NvSaB_Xc~1F1SWTm=o9G@fuj)pnR*1e)o1(hoop@AHS3a&76+y^iunr8d!s* z!-o#=7b_TCI1rXyzISnt9s+lj`^R}@&gR4PLyRTzLM}NtW#6Zl3R7?3F2@_kttnD6 z$F*x%Ebk_mM4x~IdLMl!LToL$)kdVa3}(P|Nh&74{Ej+|sEuf1cSv$|5NiuGmPlBM zo8aF{I~fbqq4GkS-TDnELp%<-X->f#5Fe_9wT{`C_Rr5;IECs6E?!>A5F48(9MNyl zT2WQtk}gYSLm1WPod8qq+b+nRo8b~X(;)>8|G|2IivW!k4Amg^cSgk=EVj4h*ZX({ z8pCWrFzqE=f+K>B8uQEj9JydF!3X5O7vV4B&jc}f5`bti)M_(Sv=qcYV8qr7%6TCT z`Q>BWD+3Vlff?*IJ|NgUAlTaNod)Tg04uKQ)~@8o4XzGZe61?LtPtDE00cniyE?cB zYHyo0N!7h&BM;p~Op7*#TS0BQ`Y>-4%o`;gn7L%y4bO<}cW7>pGq>QS^cA>s5!)d- z>|CU76?)DGB}k4a7m27shkq!B$;AN(f3+}BOM$C4bXLUCAF3ojx@PI`et zsjsKfD7y`$@osI@+=0z^~gFhWMZat37P$Q5SzQ)PZA z{Og$Emj~fbSQ`G+V=$s};R2!lXBHO;rT4!el-|E2)E7XK9n(KaQQDtGxkcI724rI; z841$4^^JY>D!y*1OQ?9`>InC|B~f|i8gD$vg80DXP}vuW_Z=Ocli;gBf?sw634Xgo zg5!kh3ThU_Qlq?cW%3Jj4N*gy9Zr3nc+fTNPkXDX!i<=FOK-O{0f*VZ0|}W#PDCrY zw;;pGxUm|#X)cG9^ebJ-QVlCBMjMA8Lvb^Yco0zITtx>-SBC{j(!DjV->-Yi&XJ1_ zba)%H4+81y7h-I(dD-k|Dknz=P|m?Tmvqn3GDynAXEEO9T(X0hOPY(n7&A~n-`gD| z^2+6wi5OEpHx2{&bZgD8SBP%(?$GNj{!}(nj}5UPn!=#WQuHI}GONbtY+qV6w%M36 zn*T+-K3NoFNR9MnO5zP;OOA-)u)0!?<+;u4T29ON83AD$X2qx%X#} zKELzpaE_aCzx1r*7o3(UMQv1Mpqh~+m6{~0t;G+|Iq*9~nZmC{%YG!Z;psC&67J!v z@@Ef89@tjm?)3bK>gw%kk#U}W&3kap0>c+yYYBY3cuY&6&cpR_oZkQ$`jOV_(VRS6kTC{}V*q23OL^4K(y4f?jvdF)ZJ>p+cWU;jg>1tG%l% zaQqp(1( zwH>Dk)ddZ`&?<(zA7Cx?6e#UW%Foq_$s{>qqQ@Y|`1Tn5^ zyjncH%9BsoUJ*G|Mm+*A54y=RlRI8)u(~<(0{9F>BgAz&E%mCME{f}-_PBUge?SRb z)Oua>1TK)PXX+Na@)4oc;(}|$IrtB+{^sDUw%WP*q|%0L`(uXT>|W`8zW8*%X?Zt3 z{rw-=cTSvMf3YNJlQ<*peXywMJsr(D!$S0qc$!(NGHEX3@Y+r8{J^X6Qw+c=zY}CVyUzN>;`S~^p8Zt(j79>4@uLy z7hBnId1$>c%Py9Rad8pR29r$xy2g^^)8+zWmdBPISPzT|%QvCMa*^as70TRHo>3kj zGonu~9~|D(uZh;v005IIqjr?B*tz-BEtKdJA1LHdHoSek>;v zqa@n-DK}S#N3V+Bxa=UCyei-BCg0j-`1|z7lN-a@;)*{MGxKhCjf;7@haCrHLu&U9 z&E5^oDUntW-&!i%N#ts(e%rmyA$&!d2a@ynrZBY1q*$2!W~7JDlaf{!ymX7ZLQO*u zWEPV_Hv&2Rh}U)cNvemPZZN9Z@(qU7qpEw|vVyTFCv2%+J~BSjqgIy`{bcEx52&Z* z3)`@{U9m$iiApwOO}bunBf%-fV>X!$dJGOMo_w|>xs#q-8|w-inLLry?pfyzW!K`1 zSCaL0o9Y^?C&YpShxxRW1$h^J}s-c_876_2~B{cwm3a#f0BiiDQigkM#Yvf<&WtfJEaN+cav#xZ3|1lA}D! zQy3=nYsNUc$JDbm+2$wKM>9e{mgh2WBg}7{7WLTw)k{D1y_E{*S1p^#b9v58XX9>g z7tQfiss5#u_Y>_PokPu;>CCteT}9fMU-mCe!<*wVcfdz2sgSHT2CKznP>Q z4dxFk7Wgxe|3+UWZ5$c@(d zxnV2ubZ#AyLOv(c9HRRk@Hm?3_Hu(%@*dI^ z*Rjbb)zc{a25Va{A6pL|{inUn(NX@zDGws8wk1r}5*}jBapUF*KgG4nAYHxs$Jz-u zu&PjPt;G0Z8DH0_zOgn!AXXb{u2phslQo)cp-FyTmPzae-T*1 z|GV|MS{aGdQgv2so2xp{kx&e(EE zXPacwYTGp`knuV05mdigC5;x8I$gp#QILdA_KnYhL{NQe{WMxI>U2r#65Gv@=mhd( z@Aj?{|0;3+!p@vf-1&T%)C;{EmbPzo1P!9njT>(~ZMe}pmM+tKa4p>FmSv*xnY2v zQ;~A*M#`>}T!(NEO*juh&C3t?!_IRVo}uR7`nKiIH{&*bVd54MmSsnO-@Ah+BQuj? ze-J9@TM}dI(NlSWM{-*7hW#a)K)dooh6^q1DB03eEE?UGZLWSkKX+79!C%=e*7!&6 z1y2ae8jNiickm3-lo^WjZDr1+(;>B@Ej!l>p zCFA*qF90GgcEw2FWVEa$;P{*AfGD$g|K8%U5U`St|>W z`jcm3a`3t95tdfd@7qWPq|~TFV~BU_l!H%a$_7LOFnq2-n}_V+kl8RUBptuK$P6{Y zN0?f>s#St*1zrp13Cp*m@^X=*?_lIaa%I2U&&Qm4`(>r`a>s=bPACRO zx&G>R5%>fOuIV~1JHq#_F>Y;U>r}B!;ski_iBcLs(Ac(A7_UaZz+;$it(ccv z-mcWX*;A0i^xq(Z2 zo5E1r#a6mH{da3VK@v9EHz7wfg6djZtl2W5P8YLQ79=$$&txz;{wi?D0Se|l0Uj8ga*)$MqwK1n?|8%5IMW%MF-deak<~xbc(7Gs$1=Q}i}eyPQ6JX9F_Vc|$<|4#Yp>Ci;f@DWx(k4LZ+{o4|Y488vz2z%UH)Db&epvssN|Wr9PylR zq0mk9m4_5m(q0@i;=Zk6e3NuFGrhiDD^pA7loxF4!ALw52w{T*GDP%Z(P?it=e1E4 z$VU=G#+)q4?G-!3scvGolZx9Er{4wF8i%bpt@Y+lfuAgo{VA}@^0l_WRF~LPvx=|;%5T`jTx&F&IFjtRl46h>d58p z`S>>1IzjVBnu_Rp<3Lu(tYH^4ySPbe)5GXLqc<)y9N+X1Z8jwK(051Pv!V~_kq%QY zcpgTS*GNyj)FfUwVHsO69no_O@G_^gRud&Ncpyeob2Hf8d2w}}yQeK3&!Y>?0UEc-+3sXP7VdOvytt4VMJ zXjLsvaiGrta;k_>=BB5$T^|2Y8~QwW+e3Ssw7NU#{ZF#}?M}-gw<4c8#LJ}(9!4b| zJp5RkLuk3dS?#fN^AV+#Y>1-a!_{}ZE%_?8DNtQ{FJ@6-vy!Ow5m7m!z+paw~oH2_vGzvjD{KAOn-nif%pQYU$b4lKWr^Vi}>QS zB_ve`RRjuPc6&N31Te`!Tb}5A=cz&P9@})RG?c8R z9OoxD<2+@m^UTBz#@==iLick&?Fsenm9tZwgC)VOp*-lFl%)QEM3c+uW@Wc&HYIvN z4Z^GCY+#5G-KNalF~qCTw+}E?cFPKQnlK5_kw&J~)x5V~K!@ollcj(@mj{{jG1k)( zJpnG(ownqab6?LdK^a%Hi_sP4v

WE>n|kpiJ6A9DW&HTwcSs%L zy#2Q?Hx=KoS_YLx;Mfl6iO`8CJ!(Ad$*B6dj!#)z^9493o;Dos9n+c4iLlzXLdDd0 z#!OlzA2`M8QXHvO=|f_vQJ`XmGrWnW1?WAWvsUs6^wA!wjcvETJ@~E~>A7wox#J`R zULNq0C&a7&G&x>L#`nrp&sZ}d7z0`V{jBc8lY>M#Ji*$E2Z&DhX1z;Z#GCK9Z!M$zOwnJ+D*XZZ z$$WO)Y1y-bKG4r8g&X;wq|}}61>12fCxD(U=mEU@?|NYV*N;-tN1u>*aG_L9c(uq* zoIhb{JCDmr7z)Ewd2EfGonAC*#|q=R1Qfl#O!Tme<${v6FEHj=mA}~Zg~ITWT|US> z=gdzjOWj!3Tr;)08>^-D$0Gf{nY>GQnFgZRzmT%XrJO$&1g3yo$f*i%OM#(>(Rqg7 zH2L{2J{$LpY=@&D+Eb0YzIlhhcZ8>tAd$KBKO6Y|PoK@x(rUqBXXi~y_kt;;wipy5ZSz)E5S`-AYK*eKGiYyfe?YUf{JRH#}~``x=(eEVF^)K^8Gm_{%Gde z=-!7$){<+^%nN0W|JAX>O*@_)vDamhiJ+f=Y#X2tJ1r`i==a zaDSnLVj{E9K{544^`WQFwPkc*p+(^aeFC*HEOk(xa>CMqLrJl1d`@uMOo6bNK7VGX ztNXOZO<~8w8H->*nvd32pg)^ao0W+1k~)}V$|>2Ts;C_w+sCDf zk2Horw}*HuS*z8`3_)zv2JC&VIY7$r&Tlli3}=gzxF!yV+z91#t9z9cz$-cVtW%Zs zh|NzrH^Mms>W(A_?2+7=+IiV-wRQ8a${SMcQ$!)2yk_Gc-Pg9|I!&K_KE6JgA(wyc zRQIc=8$=`>Q?I2XM&b*Q`X=@!^7*a%$B(rUmFq#-(-Yu|jRWxD+ZJC*s|Pii4Yu4qVB0Zwe&I#2=FK zBoDPo**Uft$<-4Q`@8gromadL%((*;O$#g0 zhx&1lOQ?DDI%j29@0TLdcfnE%S%5T? z?E5GuEP`rXtEAl$rB0W##tV?>$uo~~5+kU#wSJA;wW4N*k56Ff@CaV5aflBnv08$` zn(fuzw5n3;*cdI>V;}Qn+LYW(*`c78WVrJg#8b;|jnIoxoq7PBZ(ywth&hMi zfKoya=n`zKinL)`^wobjE#v)M+))4_(=iJz+^n}uy&27y58izxyQwFnn0TSruO%f# zH~yfPh!!G@Cl0jrnA5&Ct}S8vg1*j_FQ*{~cPto8=W}Us>q*xw>7FQN$2rNJwHpn^ zyJmIeXlg>`tUn`@m^5|m&14Zi>L7;hAX9JhH6kuG&ve_D4%`m)m#HUrv`;L=b*fOr zAP%0|DS*|?{tfL$#P^yGqdd3S(T$iW&Jn*t>WcqS=c=e!u?8A$gD83?IC}(nJ zJoZvTFqUM&0w^=$@}Nf7F|DHb!S`}#31322h059ovUJwbb%3~I-(HB2UWZ0}DU?`Osy^YGTuQ}KdDZ1XHp>O@jU+nau%hjEjabE)QW%V)l!(4G}(I<(4_OIlbmPS@bLwDvz8Gr zbWhB*FCdOXv1x&)%Km3cxpMZpXv&I{e*yIRRJ`o;`#`6SVR5Rkq)GMxXWm|SHuC`1 z2`qK>BKWpDaql~PVBHBCQ7%B3Lv||hlo2b@5QfTHMrDtg<7YPZfk?JZ?jmmB~ zrnz7j@hA*#EDyp;NrHm$&c&&~cd!GLBfrpE&rRQ{Y)j2AVT#N+2D*@%h+WEdU#8~F zA{r~g*hXeaY66x(088e}XUWKaPfZzQzML0t{iO=eI?@5W27=YQj&Mb+WW-}9yiL0? zQj4NsBRjyDG| zUGH<}XHS%svDd{~C#Y)nbzPx1k-#!kLCpk>JC`k8%eCVAN~;5~@6y7?{@Qxh$IGRD z4wyc~9!M}NeqzD<9nksIWV#P3rzX$DQ-PKCEQ>6OVVDi{rLlMaIy>W8Cl$o_OQip_ zm-guIc6o_#b~UIcuVge3^M&j@uA~anP1lXja#a3mKK`v!TAD-ku@R7r`6Qa|>#@&r zR$huxDG=UKS(|vH_<_6YS6coTs?bert1>cwV6M5K6h1)AGriBV?&4x)F2|gf)AmG) z7?zN2xtC}B5>j^7DJOy@E6^0tNbjT#aW6XQezu(wj4o90Ta!2&#e@lHR9F9R@z4&v z5c=O{|7D-JkWEW$*Qd54d=>*cAq)wANN1K$CN1XzJMr&xsZ#efIMm#X>BX z7Uu6aa0@YJwkn^V;Y}t(J5cE5zCicWcZRDy;>HZV%?`>~vhmd`O&4-DZCG!;8!8Z4rD=YNDEn83*~a+B@*ya^G5D zeqjMK4Zg5|t9d!GN*#mJo=TXW^c@`%a$C!A#Rk@wcRk)}Z=Z#>-(V+f8kUfmtH1G8 zTu_O|aIBA}b{D34IyV%2_B=}Vdeyp0jjPKJyVqA*x=in^gu~2!R=mTaQmjg?b{9G4 zXdC{rd{ny#Jn@FxU$|bE?_Ls$);j`EjatY26m{o?nHUlOc1yarYWU2-lIh*7VQVgi ze)*~SSw1WG`#lDsFk=s)M(1@xAB8xZ@93Qj(lg!BCV#`dA3|-|X!mCmQT4VpwD9Lu z>cOIFn{d6(e?Ro*)UTD@+o!oJo&4L6R%l;n%`~PO^ScMCZzG3W=&zN%f3)JNJbX

f8|NF4B z|8pCDRq@J47f}XBrX-FGC8(HKHKtMTnTopj1};6|=Uc}BG2J$!1Go3qye&}*?k1<0 z4mBca!r_HwV>FC>&zbrop%=r&vO{54$E>fmDzf^zbns-GVW-##Z{)vq=F-x`c}(sf z;oZ^He~XMCDH+jQW?24_2o%14^O`A`^1zGuk#O*!62^I)Y{G;zho zrR#xl`5`v(Oxpp0>Ft$m=cihGd7PQR4Deh0UYVGU+!n4?bbKfwpxxdx@Ofj-^(!j? z9ULSjqRt<7kl@0PvUFqFrOfsglRb@L%ux7Hd=!5=bg=sTY@za1?sU$|dq0b(RA+4q zS7Hq>gl3KbdW`lyJ1tT%JJ-+aS&`(}ESOclLgy#7H!? zso#_hh;v33UR;SatEn@OD3+a;HH7&;ixzcRy^G-L;1fZxPjQcKx0(tkSfpr2D_Kq5 zC)lPyqKmDj?h&j`t?@L8PV@>?P(c+HC zrj{c^X1W?SeYQqNy>_l%QE>NNQ^=^oT;q-+wf(7KGufHR7~pYsKciu@$o;xEOzyKX zsh@nQIAz;KWYsvks+^Qg^=A&=^+K*o;!zUI59 zy!{gt`N~Ii3eOJGjQOPl6>EJrPb|uCvcRGY{~%#p!`Zd9ZDw0igGW?Hxaw@`VZkG$ z^J1x~`UfjdZrBwO(=^rfE1_3|e_UGPK3CA3`~8gDcugCd zFBB#|hN&>Q*IJP&|CTO=j{#ktGwI?U2;670N$g7 zy1s6q!!44Q0HeKk4j6vLyB*8-1B<0;9(ESMyg-oo zn|p?s!gZdtr|B}ttUIu)+{Rp$ZP?rD)u5!RvF}~}7(GzWmjDi?KgXB#p9O2H8iR!D zk6J+cKPKlK+R}lv##>5-|Jm)jqh?xj$*CUVuQ|gPW#me{;NuO1cA3Kl=owqKv` zJFi#F+#G*sZiuWI6Tq${H$8Vnkw`qF)=Z0<%LQ@ON;@ONKG3|Nscb+`Q4sR9s7S?E ztDCqvHo|+v{a==z^v8k|UF15Gfs+Y>!-c^kMh)yhZ(%n4DB7a5{HNTZogbr}x=pJ% zV?VP#w>iPSVa6Mq0O1Vn5;HTyiJJJ=z_sFRiJ9xTw6}caJ!MK(*Fy}KytpiKpA@Q` zDl64}a{3XE8UArXYw$+=(@0p!UsAZ2r=<3ko9#PsTt{M`zOnyN`&}vQI<5fx8wJ1#2CkZ<9yMjdC%;1rE5V%3kTW6GiV~N-EBvvSSDBJ%T|?;A`vB7 zpd)(AZ=uI+yqbXZP;LbYR8`%W<9C8$s=VUjc~6POxz%za^KyNQVb0~spb8dS38gbh zoxgF0r{!i|F7{(!Od6EVAU8>U<4tg%Um(dvAL)%Xy2Oihvh7 z>9;bv%e5)sC2-;;Pwd%)6Z_KjS$jOTZ`h@r{wuSlW%yreQVN;0E@n35#V1*ku|$ol zV?y6;J?E5rSP?WR+Yp(T-Rm1NFE=NcW`ClzhgCY0R#x>7%z=5A`j~xqy}jRkFUKOv>i0uqTU_o}@IdH) z`26DXw6I`fz^HR`3Ph1nP?zm@rs|=MKK&2wej>+*5}}<}E!r|+lP=fsLz3kt*2O8~ z93R{}maFS?JtFhr@bv_EIMi=t?M>V@a4i2?D+ne}r2nOz^N&4#XNGD3nb(0jQ>lEo z4s^yVXf7A(*JeCu8}yy%&wU*k)+U4P^##=PTp{eZ%RWsi-AEBm_>*htM)VgjA_^UqSAzncT@DWlNWJ`5P(a${7eN8(mtO@1Jiq)tC;*nbvC+xXo6XRa zKB^jQUcxbY&0nZL3~dT49AE9D=)l%HvYi!@L?a3NjfqcO_`RmAW7hIbk4=WHh%GrY z0DU>{?(&04tO+lotly*onQhXyqs+*i=rZZm+9l2@qWTg&c@1HND)E-Xlv&0FqG!;R zxO+y8CMso?5-S-pG)2M+`&>j&!mcHvsSQJ?o{XsMWOe*7*%7iK<8ntDxH7OEc{FH4 z^5r8d7>tYq$3Bi-?#hg3Osg^sCOXWf3)1o(W(=Z8&HHgB(j;06vMDF35$>0sj_NQ! z8%_3NL=z*aHdr%AORT1Mp*2~GG?U`nloJ+9wZ*u9?`)kJr?cfySdwUcfsLsUDDM~>`{&QsY%0VX*0O;jzbc2a!EmJTNu8s>l9ZyC|xmZm;ywbOyF#r$U z!wr@`H@32>eYm>pV9Sx*ZA9ZvcG^vXxQ^(ShS`|X4R$bXZCe=XTMz{We?Z7OA11&2 zi_gFEx1Ve|GP;8%xibn(8lYCwm+q+MhPuDQv!eU5sRU2o+r3y934gB&?MMBdJMU6{ z&-2|i(H-d3UjY6ZE{$9T*X21T6=9N!X|C0lHC27teWO#q1fxF;iu=7+n5Q)f zJ&cJTg^3LH(R3Xp+C`H(0r{63ob8=GO+*u2WJOZwhyojuv8jZTM-sp|guVT8N6>~0 z<|Wg(OvC}L-<^-$F=S4?LyM$Bsle?!T;*y=5s;q`G$>-U- zqGS}(h`q+F{N=6nnQxT^%dIXVQ?{+7>Q z?Oy>_^pGi&$W!2%jGy>!CT103Opb#ex#_#l+WBBnL*x!v)M!MLFh7T-!~8E*QU~vo z@Ua_`WWuE3mye{uXQLmtOz95ZJEt4fW2pZ1H`0FYLu5)Xsb6q0*_dc?SR{g;xQn;K z5Q)mQn>l`_k9$J<&E#1;%C+R@ zUcBi@L$=!^<%aiCY_^HFU6sf$(8}BV?(ivx!6qrz!?+@W#PNO;a4J0Z%u0&c+)Bxa zH&~+*9}4I~J>YFDAKf&%2kvtm7r(6}E!RLY%=Q1+dlRUp&h33zt727_a3ZxRk%A&1q*ehDLXZe3qlzTP01*-h znZNg(Fe;FM`d`0$Ki9e|mld1$?6cozKl|Bxzd5;YmP;F#x7F;-EjDp?8tMn!7Ixq| zwsESzc48lodH?9Gdo%sa^aE*rQ*Co%#q2oF#1UnA-j@R()-~M}Ydo|oH7jdwnSx~f zin=N}`GC|cy%(S@m~+Cvu=J{iqa?QPXUX@xNZt82&G*(?Fc0mt#Doc`Wc|N9eXHUo zV*ku^$SLjY)Go`l!k?d7Lp+fO>R`&o9f=j9t7L&6-s`nQ@zeHad557k z(pG|okJe**D-4jbhl`N31GH1M|JWpM4deRyg%a&Mm8?uNgyOVJ4=s>Rfto&8e5k^v z4{&;jMXR)ZZ`GbO9VYk!8}k57|AjQmoo1}Iru800cf{IK@a8^trQOWu?fz2l+0T6^ z5BO8hP!v_I22tdZ9ERV-DJKT$u{H?xBIevVkaeiKEM`7gq`t^Mn6jfw64^MU4J zAN=%NpK+BsbKQ!jE3|cg?P$=SCw=t(T6puC@KLeS#qY@lJIhcZrrGHY`K|PCJ?kdu zzQ-5%v!){dJRh*cj@DG}H>E23_C01yK^bjzZR^95G2t6;dmX#3u`q5IYvhJGb}Jry z^p^g*g<(1@^g_0N=BiU6*>mnRd{@xueyG$KwSQsW)|5~^+x)ECH-ir@Ohe5|5;4jy zUH264?r*W4>qpEC&&%O05BI)ay)748dttjzNPS!Cz2+Fw(r~9lJ7M%0RD=H?jsd&1 zPGbtHZTzOD;m|LhlxWHnSqxuf!^DC*oN#JE#tV;yddy(oMVUE=1GeuJo8NFg4LuF_ zLS5B3AW*_9NfRUR(7Jr(*NukOeaU$1=%}ri*VtvbOm6wM++oZ4|NgCe7yE}NaedYB zqFW0#gbnZ4zaP5fU@LG5t$G_{)~-c$TH>}avr2l4_U-Vc;a8)a3(pZBIoSPNSAAIY zYs>s%TbV4qX(ujqx9(l>q}?;^gbVxH!LBRRpMTVHFV!ON@1#tff;oO9n*xvIDnf$# z9uM5UZBF1Rv$-a~a>F9<@Y)-XYTM%q$}k($NBO3Cy{`TU7F~;WfTv)VcQ^`#vXWK^ zX!t75!n%ktRA*zmCX~i4*NF53&fBO9o&Jgqa6C{H;CE2+JL?{jT<~2ucS1O(U@aM4 z7h~mVlvTj9pa)y&8DXFBmeV7w9F4FAJac-O6>ty|* zr?@lD_D?b4%^Fpx{Vx`UXVMAp77XWv-?^C#o^tGz8w-%gZ1zaU&KFud$h=PaPL@A% z16e88bggb2j;dqcBbNQWV__O8=b~$e@iqk5_%>+qCG}A|%7Nbvl}5~J5kSo9+HJWP zneK9!Tlq2EPuD-+7rvyvJ2(@}(CjBAL8=2nq-!_3OvZpk{IOu-$h0e)jCIwrA&~Bby1vhx2O2!65a`wJ%$mgoku7f=?8;L1FHAF7*y(bMNB#3_ z*A4XWiq1@#b|F$9hG8Xr&l95#uAPT!`rX<5fKvxdY{PZ;{-ZE50j=xbNWPzm@p)q8 zv+oJ_8AZYiWB*;7B95V()u-$4uq$#2C$t=B%LcV4p8G5Go+th+7NIA0HX4 zufa0aSx|mxLdeh+v?Mq~Z1aDT@&bzaTtJ54ieMZ4&kpZ9iFG*{zH<6Z*zV+;3xv5X zM@eQF{=UA=)+uPTX}-wJ@OEZdstk}LyO!^lCyvtyaPv+f4EHB<6fO z|H+EH0_EW=5|A&iFyA`b5Q0CpJ^DJyET&UJ~J|8kcIH-*GFpw{xLWzFGe0(Ngx zue9?Zt_L>*#NcSH0W)uBxOT(Db0KHX6Er2fdQZCfq69N;YVP3!OFLKHw%E8YMFLSPNIz*w3nOmi$fPux zh=~MxaNvpoj@<4I$^ueZ8QEr2^o#mkkIzS7v#tvAf^+;zB z7S*9-mPrrH=Qeo2SvYV1PU-NAb3TI>1oCyy6K?#MiA}RVzf5e3jY4G9toj}z?LQl2 zPs*4WNCP%#7gUeq9>O~Sh!0+v1o05Czi(kcN!&lj7F48L`R$pkXdhW4dn7b8k35e? z2ijGkSB9otM}H~pYP*)t5u`DshxqYj)rZrO`V2GfJr#7r(!xmY8;4zGb;}|}%!xsS zbj&5zHWkCTv#jG*bM~&7K_3&f@v+yB2^t^0#W-EE=ZgTI-8yv!wi~0gH@OEYdZjTJKpir0I_yxi;B5`~P`V zfhXYQ(`V+J=~vV8Z?c8@TwG|NZdt|-Lw;UPp{s8B-ZNR@T1LdGkV5~e*=X6$J#UTp zNrvX-E4vNr-_twK@73iuG5408&f1&%jJf+(<}5URXDF6&$eQtdf7Ft;{H(_}^9~yF zX|os>XwH24Rp5#N_O0WZg|pT%4z=Poy4Y82a8bo|n)^m>u02D;QNxT-Cv1YymjyPmWRD60+DOJrdR4!1 z(tTM7e5UOHd~Mk_Eu3ePx~7iJEIiWbmJv_7Hq&J#w3$xhmD^13s0g}IJjEwh_3du3 zT!xOJjBzg#*qm6n4`468O7vR4vS2@5=Cx!*bbw~mIR|^x4wsdRrzMa-NHsD( z=R?aE8M&(glGIe}6Q+EWoa!kEB!VlxG!YeO|9BzI}t9U17 z6{B`4h?R7YOWUZh$#R)0BtkdB`QE4`k?mffI(KVU{+0n7t+2_@0vPtyHEg6K6yI=e z`OxB4bFQbucIcnwkoJ!oqli#@5uWPXq>h9*uB|H}ezb}Hg##xE8~Xu8pHCu996fe#`#tJPP$3IP}rLJNY$;O5pb_kTXSHYVVazJ;SjT7 zpV^xf2ExI_<9s@&GYZgiqSzR~G|wxY72RWpB6@LtuSZw9P<@+FHZ6ZAM2?55W}<5s zL`gY54pnbJe1VkRdny1k?PT z6u@G+HTo%c?UmEOJ@t!08id>ZHO$0Hdmp z76zOF@USa~lq}%Lnh4_;4)!t95&*@9gN8q3flexvJ?)eHiL6x#VNn*&!dTXZ1aefi zvyi}AlR%8ZISb8UN29Q``_CG)r0tLodIAK9H#pxj+c;7DK#)DP*%^Sw&a%LdW*TOV z9Wd2>fV|BRpwHBCO=Mh08HWPBGQlfThJDM8fzjA?v5ki1967$P0dkTxo(1vLvZ!-4J5l?M;uZa(EdeHOQnqUiQ2JjqGVemJ z&}GIDnZ|YZ)-kd>) zb4_DNAA&5?Vjoz;X4mK|&DT9-0tyIEg(jDk`OtMi0B%vF^Y6}#s+=ZX9_1ZCdwNiX zH`8Th+MTAg3?ZlDnz(v4e;&QNYklP27Krz&Ai`PD(%u&e zB@^H}4fF`IK-%2^vJb379-zbK?qjEAqWr$#E~6l zI+p;abML6qg^*C-*IVDUEl;3;%2GQZrf{ui66ucCrknl|iT!=!GQlwlhk_NEO|22< zU7G_QRF>L(!%oC649JG~$Q$CL$6o$13N`HqTxSaw)(_*3&at3q^Zdwts&O>{p;Bs8ZtWs>D<=p z4Xd$1qB*6o5-7-0#R{@IHE+J6u0SshiS~*aUJW`L3jJ~O)=-k5E!+2ZJoQMf;WQwx zlR+hb?5r!v#`!z(kRXGh(eBF0ucCYlmYdO%zNkT^$B>LZYk;?u||6FMR_@_ zyc8uWxR=o_yikUE=6@*RjUg3@QqvLsyy;3frLdyHS()B*cbPBu^_MFX7lSg9q$qZumPaSk@uO{m}b?t8EFMWNQvenGR*$;zW*=MWo5bZ3dr<~bqwjZ z1w2)^WT4aiLDwyU0YE?0mJNu-f*_c#p@@;I>5jGGP7?t9AlhT@;ez)()weXL+1igT zomH8*pYE6esdQ_XYsTgDqyfJ**&`Z3C-oIBK=zg)#5cP}Jk>96qkPvWxFVrl$+APt zEk(;LMyxOOAk(ns6%UJYjlO+u(&Njyv3-1j7rYe{{>UYBIx^3NvK@bu(z;|tpdFjw zwf<@RB(=_$UmFef&-MH9J;lf}KQaEz$XRpdF1O4dvwq{I!^h5RT#WtTt<4**q*l8T zul|a8b!C!_;A_Vg(tehGH>#FYM#@3X$<1J`smm@$YCC-!7hq{eYm{AWBw$YBH->sk z0%BcN{_*-IL1S^;5!OhnIlER2r;mx;`0-nd#xQ&?W5>JL|4v(6clEk~`u^(Sg{|(* zJqmB#WLBU}_bnI`EPmSJ^SKu+c&^wJ>9hW}&$Jr(32+ z(k&Lrmi)q=9T{L$IK>hfn)Od;ZdhY$<{RW}Gu@YK(iIvDt?aVlSh~F{F=(6St7B2J z#M@=l{@F?Vj)H2tU1q(Q?-IG>D6lt_djynk?byGQlkj<u`FaBC`*yTbx$e zfL_ejjlEilsGp4^HtdGXHd|z|RcN>|W>-_dC^~V=Bc#_mEj<4lBW=hhl#R>Eyd&@2 zd8n+nqabew0dG4&-Ug{r^EU1!H;f3JUb)w)TJChb-03nMP{KfOdj_)(4M#pvu$i6y zsdfhbNqc!ri((DjB6pD0GWZ76jB;t|nvtzlV?gisbwqw{&3HQfn||TZ12Ki+E|Fmy z!!}DBLVtNO3m0|ZrpUN3U}H$_EFJcW!hI*S=*%in%XuJFsrdTWM%TfQ$rm2lDf&g1 zb)*ugK{J~b0M;I8XEl`Kf)z2f#-Y^MhouJf!Jjas`%P2szkKGVs^U36iC%= z;`uM^%6I!uZDt6Mv*+*fpR5eXTXDec6>QOZ@ae1DF~iW#^^y=?L;Qy23(j>E2>>yBYT<3gatUZM1MM(?(;Fc%0?jP#!qbKkgjgeI`ReD_u( zu)}X^A|gN^^`LM8-^5~_FeB-~)Vw=-_2+6Bx&1#mOWwzUylzvwM6dih=%l{38JU|g zB9aYxrGrmqgR>ZbPo!7H1lTS1z%98kY>kRHbC!KW*Ey;%{mA`34!BphyzjLku99!3 zuE#L?NlsshtatR>of%nKDq0@t?QRgcMBulRJ$_dbDkPr<$2&L_C58?~q31+`fnYxE zdF5{Zd&4_puJ=N{^X7~5yF6?;%w1*IC8|aiKMPy#$=US+u`^o=^1HI-1!8jAL*8#A z6kEGuc*?8?RY^6p2RAnaJP6IF)yWCU3YY7y0fvFQbKlJ2e*=br55O=Gya_n_p_+1> z4Vcv*IXXqZag@<)WF>xnw#2_`;5Y|Go@`6gK$@Y$L){$0eCu;ax)=l`Bp&MB1rti@ zQpYf|F((Ai%1sUQyYkJDLz4T$HNEl`4zKipPuD|aauXzD)Z&hPth8QS?zpYfFSv`Q z{b-#YJ6jmu<(Sp;It=egelqG%8JoJ87)ua~U$DR~u7QGBs>UV2B;p-estPs%G*lts z8Y6pB&s-Chr3Ne4ictZIJE|R#NPGrGB1B7YX8#a-ZJbDcpmR5UfNA66tg!=vup8D{ zy8wG|4~xky3jI7t{6TI;?W=x(>5*hAH3j^%5Q4=YpCdnVA6_LsQ-(kK)WJQl0f^uO z`q=#0=>zgJbDdlh&ql)0Qoh)!+mP_l5~-NO2Vq8~tWQ=>n$uIV{$`eAk(} zim;Zop6I%MzkX#zCtFcSaC*7Hi8S_hhgz%R(7siUT(1IV$^eXg+PHj9>bboKMkW}4 z(|0lU5wSwztV$_R4?ZcT-{{-sZe?a(HB4~3AUM!AUnUH} zu^y;|{E$cCiWkn|H*ZNC>w6PKZ&}bGae5^2Gaj1Ev?T)A6A>hV(=MW;JeBVfQZ)UO zpLbRnfTjaXLB`$P=YqXa(j#ZNMq=Q_K{E%0-=&Q}+1MFBs3PtHVh0i+X)(K!D1UdB z8sfPaB|8CfDHgKX3g_|JDvjvf;Hh*tP&MY$?4d}&KfKR`N+a)SE=%Fc2(fA>qHr6iT z2p~cNWxB4%{d9}V*0?=CEY6xRh?K}wE(2scDcr_xriN31a_cHiwcX1~MsiOgBkNz( zfBvPvkj2U^TUI6|AMU@8)fJxIo-kh{%QC^YOrMPeCxnNg{i0==am>z2QMxulGo-gv zzj33=|+RB1atx+f$(^;2ig2H71h)uY_cn~%?^RwpWyipQ&O5g*e z!Zs)sf>0!wfl##Ldq(nO0qG?tJ-i9JW`H&f48R$klDE%d zON0TFeu$I2q4tMo63XoY@%gt_o+AfzdT%9`eoLvGRl7uCqpUk=!Kr0O-!^|zfk=-) z(DcFalF!`=f+}SXd7BnE`?EHJs>&1z=sS00iG!1L;Gj(l*JL&l_CyN;uiC&ZfXnd7 zRvheS$b_gpE$AK4s2?Pk`Ed}UfdWN7=up$1#t(Mlp=t>3jkW(WxWZQRI?!JVeF8Nl zlu@~ehxbk4CJm^BpnN3JVVJ|kEPHXH7Svth6l?%TZI;O{af2UcXD97noOh^kjo-Dj z^k(~n0Vn-%H}4syFf${yT+b28vVHexrg1;HN7JN~FnEMf+)nB4AHXuVv~Qbx_kNUd zb64vJ`H;tKvd9DnHTv|%C#(!LmC_TH;v&WM)dy5$tB8t*k_prDX`rOUKxEWA1RXh_ zqb95bVN&`9`!lfNpQWJ=+A{>GJp(%D!01qK*$F=y)by5*FhD!KYlI=5@i%#pGYo$) z!{EAuDMOe6R2BEtXY-Jq@uS(w^DghVI%?~fgDo1MNqTy~c|Z^85B2fD>6O0LhUXTY zRCh!mTb`a$wc@;6*1tAO0PX$t>hiE!(e#4zPu__brAD`z>b}$QeLGW)RFaxP{f`HbtEm(AifUxE;gD z?zxYvqGS*HEwcH8E5^VfIk6egkSUOc^{%jyX+PJ*zzrkY#ge+22AUtXj7$|XZ`_e? zl?>_ymbDd*0EMrC67ALOOM`E(em;Oi?{e@c+K2-ubi`&^&2N|)P2|OTE2tNU>70o9wxFwrFpS9B<==wt=(_l| zpv|G7=2CF2?>e!O1MX)iLj%`HX;vo9;J?Y_QS=MM0&6(FAy~-gC;lxdT`d=acqbps z1zT&!we1{bMOM@q>Dkng@?VQtKXmS43j&J8a(Kl1fG0EH9qyVv0@yS`lg;1(hhHDH z`-rl z0&BEFGn(?n=7MdVO<_#{%0bMKqj%SI=F&VUg-XYBkM^E)l+LPTLz51H<^w5O-d;^p zzP*YntW=<9PYV9&l}pRF{KK2Cs2cu2cYZc`-=#ZYb*NmWsyNAXt3%LTbu4TVAO8Hc zDx4F+Hwp%BgAQ$!c~DWR-L^wS86=LURs#(L8p4n#z>Gtd#(mv+Jcm+JU*AQiod*mC z9fmca^>P=CIPg(Qj5ux$t{yf3BMv3|7)qeS{e<9c=ZFJpfr?BEN5k#luED=882pnD zf)R(_SOHT$`1e$P@K1~kdpB@fXAWZoJbdjMapa>0JK|7$NCX~55C`no!c^P4T?8JJ z-e)W7liNC9>L8Aij!*&@U590$_7?X~MX^1k5yu6hC{hfY3`QK~|773m95mKMe1_I4 zIAQ~z!iiAg6waU%;YX)%KIM=Wb+I0?qo#BnC=W`XR0|>=4=EAmDVQ^AaF6~!I(&mt zTwe4}ux3f0y-xx%VQr>J{9ktZ20k6r^N`7hhxdkb@&<2E#PI+j4xdCKFdRpSI&$Hh z$S}{qEN-_bmCxh{aZuc-i$B?blusM63zVNWJ_`KXv4X4NEt62Bc`|{gjE|Jn37k_i_lt-jZF`#x(8`PmPhR$BJxGB2s?clqnv1Mludk z79_g%U|i=pa`;5~uZ@mnn_Bh`>+kgV2M5X*ohuF)|i(W z>-*lKg~U8a_7F1eajK+*J|=o& zvDdK#4Mbc#Yozs@kKUq&|Afvgv{;jp^kB7-hYC27vnra+eeLmEtnt$-ezZ#=ILV6u z=Rc|7{Acyc=augMyN30#%tvp%IPd0B{(|XNw)&o1ZuQFx+c9g=egwR`QSG1mtA9d! zCTMBAtr|x)3G=K0hx#fXBqz~%kB2ER7QRZ#tfy7_skEmz6W>QME{IP!u*bV6(LzKI z=G^hPl5R{7)$(fk-6eK3WU=I>UAa5dfVKbl&igdkwgQ;!Y_cW|f7k3Jv}Ds+hVcHq z8B>|o2!2+AmJMXIe-lp)9Qi!7%B0OF`ryy+nd6V3K3c60Z$mzbfG*&D&yAr5o@O;! zNV(4?TC%w<%f)BJ00!aEy^wft%Q~&}H#`9T%#f`& z1gS~Yt$CWr8DQy>okUIK4;Do+ZcPE!MhQ>THKW0a)!JzFz=O?3ubu2ktl^{j1N288 z$ps!MZ#S}*37O0Yl6*tk=QSUy`3ZbqB6>+!QC2bdz61h%Hvl=y0&J+R?@EPH11@rR zW^|>qczLwNlw?s|511a=)7%4wNUuss<4luP=H|skBdm0SlbjL($ zqoH&vH6vG(8mR)lp%{!PXXYT>I^xkP=x|p&BETbe5a#cX^dH^bYadvLNGoVZBiP!G z2q$e`D&%AW)A5b?wPB~5EnzpGgbwd&BZlG#B>ny)#9Q}Urq|Lf3=%Bs?wTpcjRcf2jk+VJL`0 zKil$lVOrVec15 zCE#yyx!|YG6hMS^bo78rb_6KQc=GtZqD7C-gp$n1CYwHmj$sGo!u$780_+Zvt~3ef z#BOweX%>_OB2`XvXGe=1=%MbLK!P#HT!FqGqH;PbE@8CpfH}7F5{phUe6;XqT8+U#=hplws~*l34Q zo!0fE6MFb~s)VyesO0L6L)t%ZG{+l2iv>B`TZ1amN&wpm@hIgaqh&u=R@@9)sU(1o z+TwonOwYUNVY<=v%19OPR0K%e0Pw<;x0+5l^{##vAE0^&5OIl)pwr`lbXCi!%0;-{ zG`%AD2cm!W3hF-CYSFv%jjeZBWP1pDKg*v2psn~R05JVOBQdTgHG^~rK+q@n((wB% z-roUf;U*i-0O0pvi+S@01b0twSj*Pta0|e*lAugWkN<4w3w#>t4n2bDzin9p6Yos9 z7y8-an}*QKLx3kG_GJB~Af4AcxPh;+L<7a^4xT3il&Md>E=Yr06wybw*Z{|Kw0R~8 zmf(!sz+9Jd*Jp6d(Xn@+iy8-lZv{x;PC%&RPju##ItR4ij-b34YKXY|zkFcqrKF~g zXaYGHgF*#?ldA5;7a+b^gU~a9thOg@qr$2K zt{s<2?to@O24*e{b`MT#&7^wEG6)FD(q$gg||6D?-4 z`7b_a9*klD;%!o-%7I=?s&bmFXy;fXd)T}@!#b#GkG7Yi;_%)$*h*rFS_T<>=iiZJ z=@eH4i7-%w6L&{1fpq~t#!a8HOr~9d2V*|~y7m)IeU;9YGyyX9K_y>#hnQdQyqVNUF9Xt;XnEmJr5GiIi>sk2XK)hci-cebs9+NnRj~W_XC4mQqDa26QHg3?7sY(!l~W1$eXJo% z(b>^~6JxKXb9jii(p)-tPRNL8^*E+`vA6xz<nOih@ZBXIaD4mwMGSf*V!`20hb<9;Rb9LfhW=ekwhR_mdlkL4*?#X0$NE>aD!WE z8dCSfTE#D9OU`7pE|Z@ldRi%aa4&D zDyYd5s>NIVfO~0B&v7+f7W1MYr!y%wBfukklrF`uM}dc=LP_yZy%Y#_r|JpR(Qqm+ zci(CR)c`fN{EkK`Xy6@0Ku<6Bv2PvVC*(T5!wB^oZ=k4^gG-8vN{bbiJ-v~DuYSiB zRel+vm)2YSf38Lf_;SUUXuVdK0m>`jigipJs=_{FWk>{R930*mxI_jI!Fggn=pHF( zzFGw-bjQ$oq-g`@#QJiE>~h_Zd!!g3AbWSZK}O7{7Knz}Lyva1SkciV1xxqYBc-(o zD|qGlP)GWz7K_@Nx=iiV7S7>Pk(HhywvacE&a`qg#8P>S=zJ@rp`?(vfX9J_(?b~@{B>x_fva>aHS6(sxxo{VQ9tN z2Ud6X@8IkOZe_@GkiURLh+qmFUl_D67fL9H=0pd;Wa{9S>nApHgNH0b(je|Npi}cp zKeF0lDHsdEjo6_Eq(y?ILYE9JAmP(C0}d@tv<*2RX?wJJ;1p61l3Ea*z-zG>a{{O7SfvMDsi=yZWh&xsL5*4 z7%*4Ld>SYY2Uq1dxF;pr_69>=wlik^&R7ykS%W^^yb66F$ikj!_6q3{RD>2lYcrQc zqbR?0*j@u}q@7kqInh>~muVYq@7u1<8vq^hf8w71kvk=~_G)@=yXkd2KpKf%m4eX2 zdmacX;v7T}o0%B~3qbn|A<$xgT)- z#qXmBjY5Z;Q1rBCNw@qh^Y{B~OJkx9fK53o_zS6dwK^cW19YgQ%2rxG8qAF$l!{SgO?O>9)KvHf&?&roAM>&(jQP0@m6mo0pgMv z^(k>#+Yy%zfK~jOmV>MXsT7*Md(u`o(c@YV-%ZooAw6geap5@XxokoEoq}aUrH4`NHLn>}btL#nXp3&>i}C z5-%TAJRjo3t<50ak9&A%3aAl5xtFCTWV_t8l!^1^K)EvD45Ky>jw0LW#7m&YqGmc~ z#WptPh2txs(Bc1xzUFCxYy4YHo0J_x$|kacqj0e-kUXh8t`((_$F`zSd7y#hB6LbX zrolBz88O~ymPnIa9735no$;3T!O)>=o3StV1iQidy*w#H)x@mYSwo3>L#oZ6M{ zcML3~O_?d!!_IW)k;|-Wi;i2PcGHhrYb>*Vj_BhL^t#<>)hC=}*0Z?iOAb3rZ?<{b zKMVbt>L!2T%_~M=%{36_qpUR$*2M@*`pAC%*txlQ>JJS8ZY$J-U9PK9_vwIx!dhzb z7mHERv)!WO-H#=V8Tb$Vd2VN3wU{H~eqEJPa>C_~8r7{hR0V#qCVtb;l|M8pViF?n zIbS!r=Q7Knb2Y8hOyC3(*xA4NtwkrQ!j5jxXMTyan%xj zp_5kj>xEvnP-l&zE}5SdoPf4<+gee4^X}zNhdhmE*(l)-$QH)=V~i<#YF5!t&P6OZ z=(e@8(;>hs(C+lVBR&2Jz0MLHs>!*`x;ZiW(lSKi!A^$&uLvh8wKdW4>DQ)F3o0)# zDIU>gjtK#-8CRB9PNp7k%#LlO2DOz2wY52As`7K$*#uH{6ss~SJBB5S!bP(3qH1V7 zx)qYfE3l#z@hYt-G~Vt6q>B)}0azvRkgVhWZS<(zfCl`Wx2)64z}46%nNjhqc}kcE z?N$Ru-P-k!Pu#7x%-{s0pFVN7MAfV4THk--Zb_Ohvs5R1%5KFk&&BbJy-s{fU9S^e z+RL$H2ae?~iDMxb#g5T>KQ){C8)8HW1bNW;9d(@MwHkeQLG+94z~z-OqZ<=P1G4t9G;-j#nzd4`YKwT)R<$(VLn~wv z50^l65&9)Kx(K}!YF&ijD72Ae37xnD#vL0KZ5uZu8|RmxMqSZ6$ZM!0tx-yZ=>G*r z%guz@lLOfEKcC2+U*oY?&P%`cIpVS81fvw$wDCC6!$ad$80#3rDKp-$I6JVo#>~yp z+|83|Q$yvoTGbZv8m(%nJVli`WD-Vt&961A=s%8lE1hWX14B-9U#YW~Li!rfz1#t% z6zZ%-H;Z)h2~sx0VuA&IGWA80n~SKW^nj;sDp@x*O|Oz7GyT^HYfd*d!kW@CMpz^r z@T>_P$cShbGYS{QDv!d&u)x#t3VC@}cn_c!lWT7w-7Q$E&8>+>2i?k&dnv{i5AgMp zu>(uaE{)Z9av7w?`kJ+S)d&A;$;1aCyFU$ZEL!`oBR9C1)7)N{v?(kEVxNM)pr*8&A31HE^W1F)T&zECWQz_Ot)3 z^LC`!3`RkuNv{b~K?O%H`dY!slivTK4gWt-!F^6%sCat+-WOnCO{jkJ{#w8F=ze{z z-@Zisc7~B6r(ca%pOb!Xex={8rWL~SEB$`ls{cGvyy9sfF5r7{ITibTV8Vjv6#J)z zZS{#SI=Ts;DI9WuPCciLh#+E4vYb+5%JY^-yrXWevo+r&Q)@i8!m`GQpOR#H$l=j4m84`9>JOt%zu-)Z_V^=+acvyc zT{F5=g}N`u<&I@a1sIA2CAb$O)S?qC=?J%I6>ECDyEekQ-#5)lPBYe!HD7V?eg^+K zvQ9D*&7U^3UGT(+Six;6>WxgLe

|Ynu?fX@3!%S#k2;vyUrE5{lGYPEVqF_-rD$)B^p?kIEComjIeSezLuqDJ61cTHqn5ZR{bBm zxY0JFIM(%pP^CO~FXojF9H5<8i~h`UzqvS4QgfMg!o+POu*?S>Way4jf}s-3@zt>Z zF^}>1aVpfh(%%^|dg7OjGXrt{2mh7rQ#Y2KQa2&KMp@(#ai@@?NqFh2D~^F~6mc=G z^|C~`N<fTrA~XmIzjf3WD3p)f+waDr%9b_^Mk3t7D$o zKXPqN7fah68{52eYY1E4xUZJK_)kC`G`rLMEZ0V7;6Kc_n{ONE=>M+mG2K0lq~VEL z(31MS{3YuT(lSDY@4mVlrw9H+_ZC6*q=C72_#0MgCH-U?X|mt;bMhC5M~V#SFfwc_ zYFTasA;Yf4tD=$hsFHrl?ABxW#m3;ZA_F>%T$4D5Tekr<&B$*B@W<=MPG@X=b3;=J zS3s7~ua;hLZn;isiZzS#30TqG*6EA|Ezd%fa0O%u>*>3EH$jQboK1v{ndWi60iDj6 z?DuZ9Qk!z8ndjEJmlnvn!JdmERTDPeH}7x;@JQ?TN^MGouYan)p?5a#*`iA%x(8~` z5aD5l<>K^YQqqe&N<}?ufdj#3D$4W>X<8orOr5(ug0NKwm3W#|noHkT=YFR-wZeD% zL9<)S26&sc6_rqgsU>-4#1`>ciPeOnheO?M8|DU-{l-t*?Hk9<>6H!Qm&LLNqD&1VJMZ)A#ir5-5etD$ntSJZVAAxJ_0 zJE%*X^Xa6NLznqd!tgSBL!Dz|3vaSPH{k;C>T3^@Z~=H-A+s_$blKa(D{4t(klECS zn(6;<1o!7~GZf8VxxZ5weU>O(M371(7E%c+B@BP3fNp!=tkI-fFl4w5tPJ|n5d@%f z<2czUSxvnc_(tKU=-jU)(_IZfI`=F3d*&cBNuCHR77<>K1*+*v5iMnci_~?WF)?Yl-9=M(b{>u8PYc~>dhqLYZ{oT$reZ}@v>SOS0+xA zi73)WO}z>OWU3?9jUp|^aW6~SR*9;E+eGS(nd*(|dKG%eR3z37FD;g~T$Z%15>*Db z@zopkFp$PdguE-Ep4+9+&ZZ|abbLY4RQU5*8U zAUyNoz$eF<%1|C zMNO;fZg4tfRhOt3oWAN8C}xuPUk1d;hOdg^tD^WY3SoX296j}Yenl5dEA(7l(_&0i zk3Y4w^gHt7_Ugik_v=o7YcWrSI4KBq>cO0xmlyWDU$>}*1a=Ct*Kh@cR{M0UaPunert4mTYP5%4Rr5CgrTkkDck{6jGTz+QM>B&2O8|zjW z*kHReDky%>@6RU}xJHh!n7e0-(He^fNXd>RyRYZmOkJD*{I|-#CZ8YWG)@%#=bguw zwxdf679^hWU+-LIGoO*z5IBCRhHKgOsodqJj`@ee+e{`TGfucJdgfaatCeWyir7k- zpEu>{^Q2AgOGK|y+6!HiEFE@<-3kwl4Sbx#n}LZ9N?|f1X;A`3=;b9G^O`wmk;S=D zl7|t(?b1c}eARJJUoO)}eNXcm|oW!)b@pvo?ognP=l&tx{$G*p}v7M4mP0p^fNOgjS87&*j#<=a251>ZfFnTY@-PIGcj~qY;hvZP>9>UBLE9 zDf~B#y7(b0K-1yGE&tZh!-mOZBZh6-FklI@jSuSC<5YmdIfX+6>kZk&AjoMGbM zErCU*+I7pG=K2oD`isohKbeF+Bv)*56jRw$O% zdDhla+8M7T0UTU_sF}p4NE$^VET+}bps7|QuBUn;vjnYmo}6rojEEs}WPEiQUlzzG zhY_VxK?H`AT}3w%w+TcdN}!-cl%}p5h!YiLs(V`C!4sA-6jrTR+)NKPcH}uCC5;c5 zwaBahF1GCV}>E|f}c_Rmy9do<&?npEk_BgU=GfoOne}q<2dw8 zB84K02=R;viO}ThiQiYZy1MzwnjDEi_-u^yxU97HJxh#dy@}LoY0({9`R@!Q?xs_D|ZVAT?1CP~gZ!T|^ zpd4|({0Eio*YcLd)zl0l)YM83a+@7lnS8vcK1A9|_av|#?@RKS271Vp42|@P04rT948w7Vq)0wZdN=YJWi{>9Jm{e!u)x zu>Wt|3-_hRDL8IDRUKfaog8p#2eOhzp)8l7>R(r`p#h-Cq$A%MVQ>UWEb*;K6y{Jv zA<-IKo!`^+baDKbMBycDrmmki`b{$Kp84SkdV)jdS7o?<2W^#J}C} zc=F6`^@7H$C8i!+6X~Ylm>E`Q!$I?{~y|uTL_YPwvgy zcD5;`{ijozdLA?97S2GMEPpfp_f@P-%b$%uy^3ADoHst`;oHT_3&(F5_RDVnd@*{g zDe{~{8UeTHz$LQ5V&snwtMq5so*j8UsioDK_1h1Y69%;Ik5j%au9FYpzRzNqNw+_m zkMgKr^LYQ`S#QRkUs$k*j?OcZI`YBPrRQ$(UK>CX+p!*|__4f8Z}?EN^KoeR(+OW#ieJu*!(p z_+MY2t!cj8$gX_FSi31|72~(VkEe|dF1dX8&uQAhWtY)!r>O)#-F-N6TKKRlPk0Fe z+KmSBPg|q1a(un>CXgG>{Lr@SO)K?W{NHLf6<`RP7iC(zLHB8`v{jIlge^!#q z*9`22s5s+jr1N+afzvjFMIttbzgAqW$(9B{evIu_KKY95j8yEqK#upU59;hkRCEIMp!t!m6fCCKtzFTGd!=k~%(a6=$(Y==ci{ z8*Y#MkF(F^T9ft*WmK-wHn+AKMrrGs6yx8d-rO@rVT}bGcB@r!#eCfu)UUp~zFEh~ zID)OWIH1?G|F^TMhmXBE`_1Mb=dV?BpT6i?5bx}8!yjiqR^9gF$#G@|*YHKz*&eqX zYfULD_%CahOgAC;y>|SuoH-^aQ?l!6z|w$U?*BVNV{OJMoQZ5}fgc%pU=pvs;P45f zIcvwyn?CE>v1eyhN`73iR$XiQ4||Ulo}G2^9+_()Wb(XIQr~4(RbrSZaV2dW;X!$c zX^~lu=c_6+)Rd|WZiVsawoC8#VOz-RR?}Jbnzvu8v!mW)d;3O9}EiN^?B>eSWWS1k{fo-+)z4{UY2bUXCY zzlJL#Dn~pt{B8cL8(vrARTZJYi8EICI4#FE24En#=Z7a@Oje#5D0T~;XC5WUTq*>d z-$rp(rXTeHA732e&;ldq-oxRCj}N$aHEKL@gz%=SM||bw+u+sA8vs|avy(9+u*cQB zE&!Yu7dQTT+v{8s@N>?z@n?US85BEx`L!b#&yL-^N_*`%)^zi|M?%kzF9t{- zM|{}rqaG8(k9u=kedaF=(wU2zbxp~e#HC@EzEa7UHkK0o+lcxbP_!Qk9x>p){;4Y2 z!p5@OTSr{Q#K(*zYk`dV31<-O1>owrU0;$x1JwW?O8*}U4XveCZz zSH{vc3LM?FaY8vgd~6lvn-Q>Ig=uUR_~-W#e{>N$<5p1CjxKisvPdV~X@8D+6DvIkbGR{G5!^cD=km%oju-uSySL@|nE_7^P_ z-y^Li%?z+2CWG%QJ8sx{6^I28CwLp`qDe&>{ZF8K`H+p~vVP3 zh*|dMm9Ewdx?}ae%h{oPY%p5gacEgQ`_Z7C5&;Fl$*v$66q+Xv4b8KLhUN`JLvzHS z(R{^FU$<$RrKhget@yM_j}GmBFy24dzGk;A#_n+N_4`kbdd+mcrZI2Mwdbs^ zyXF=<>GXvwhc+WNp2}VK)MQ?NZ)%(ctE~X5HA1W1Bh(N=uDrte=Ph3ygg%u^zM||p z@D;6Ben+j@()xOaOX-eNS68`S5LsfYIe4!FD@6 z=bbtc!){EUtDTgDiM2tPkle)c2fnW!>%blux%X*9^&SJ=J)v3G=V})vr!j%=9@iY& z`1ED$(43Y4oEFyxIqezjw5^dn7`?*U9_ro{A($^Xd}9i>%s`eF z#w%k+7zjygYGY+#Nm6X{8)~H|UPxnOh_%@wYw7!#HT-hNaLUe|?I+sbfxRko`USCg z^#~jJ3vTitA_XAoo4?(PQfjl^0$2TtSg`u(&F{KaTD-c>_7_F5)(exfr-v}iM2#W2 z#y_o2**uB5@2g=7DC_?x9y@jQ|6}hJv<~Zj(_qp%i zxtHH}`;Lz%9X$vHr}y2VK6Vw~~d$??j*RR;qf*!k|9)*VIYItxD|)zh)Y! z0uSg3s*3mtc%bY_1Oz_!p9}mms=)u`P5l)6QTFvwZQ|cW5rDv_{&Ru9O%?cg0$)LD z@2|ANW+#c=LEMR4dF$A1&NC@1Zi!DLOb3Hvw{G-3>~isAElRR{M^}GVZ*Sux{Q=(7 zTWRUvSr>f6UOun&VwaDzekh?5AO)nWh+qZTYtL^e_^Z7DrD7xN^pO?@*+5UXgcTLd ztn=FT$^B}#N5&ln8FfQk0LAIsenW+{%oX#xJ^pf|M#a@3#uG9g@tm7M_GjPr8_)G< zoNLth%RLq;vn3lUOf^OF;ovOcd@anauE*R}YDm?(&)6{2o&~We4tof2xeT}RNqbpoddLv6rT>qtBy68+>#JZs&>|g zWqj$U3AB&gVGVJPPyPjJ;s4quQ|0cv9;%c%iiS#KIcU$}Zp|dm;gizQSyz=oX-&C7 z1Ml|^Oza(~4757!T6ANwD{)#(E(p`A?yYYpi}nwWsKgq@cZ=l(VLH{5_3h-)p~20S zSQAx+va`&&u9YsvQ*{T^L zcJmC*zi+d{122Q5`gIjX5+eFJHxB1O59f@+3qa(sfA zTqp*oE~0NIg-#6CL1FddGsW_>kG(ZYYk33*A&1;;+S_&t8B9Rv=k+pfXxzVxiW=ry7s{AO zil{1zh|C`Y-~rU&L3z{=^-oa)9t>)k!H;!zCLnW3SmHF8I566-83;qnbO!1o@hB$J z*rX;5k8en38c*~N1QRiRyuw6+4C!^xga@u{I&o;`jkUbu#unV52P~(HSwa|*V|Jc2 zR%o3ml4J|(Zp)FW%_F^1t<~v>L`^!3k&x*_q$%%7@OgO$(ntc5NT^MA%$lhZ8Pg>d zwv5XY#}nYm#A&n#%pr*g83W5Z;IXZyTDk-W91$rDHqkwk>o_yqimqXEltJLSJ-kT- zT;|v`X~oZquZqSQ(n)Mfmkd0nTd4SI_iXW1Q-e9DR)EQD@s&cOm@ z_0O5Na^mivi_kX8I~dP~AoZh~i~!C(TuZHO1) zK$ya1^6DlbWNdM51*St_5_TjLNt{YGeova{>hw%*X(mjdb9BL^iPoY(5`K8R6G`eM z5#hYV5nLGzO6V-`Fcs-%b)3exm+2y)(}ZcQWCViLS&(3@i=3XB_GsxR;c#PtnnQ>> z(#&YBmM)Am+S;Vav=WLRufdd*^l8DHp)&)Wt*i*rsIp1>7zzw?AhmXlO(UWB;fBnD zdk(naz8q64qAmB)FP}%+A~A_+0;bb2M4BLu0aX6{#Ig2dUL>Kf^`I_d3XqKf zT^LY1)&wJ7ZJ7jXbq_V8G6}=r>tk?v;Md^#y5UGDL}Ie{dh|?0vd;OuRBe126BwF4 zbb(YvY%BAC!yItDi9-pAiHU*9#Lswx0x%+*L~Lv5Zn5TdBu-2KS@HGQPD~lw zG}4(gGlN4;#5BMi9c(XV;>Qb;d7FnwqB^;0uo*&u-poWrDUpLT-AX?|%7OZ7dFvLE zCULuxc!~9QL_{3%!(%x}0)AkiTX)(U44p1qFGU)h!M2T7^kUmOXGo{uBwvTAsajoN z6QLtbaRgpq;o}Y6n%)Mm>(gN55DZ^i;gLKvAX2F@k%J}}=8|R-p@*kYY;gHOnso4_ zHOXPB8_cLXWHjD{3H7Wg>?735H1<32w@wxKPIQl4?;xVKg<(3a*#ZS1Oal0FCrInd zu>=|s;)lR=X1giB3Dod5O%y^q96qC&fS2a7#vzG!CPdl`w9;Yj$y0WnMCqyX2xHn(lS8GI}e3j6~H2iIcdmr!oW-s(H+<-yYW#sLY(9C zWh7#tKd%m%o7;;GWzCrpZ~Huuk2>*?<*M7ksFOV`c5VuKCxWTb8nbKuj>mpNsJtDwrJsb zy&?X3a>{X)4SU?qMIG6`VW->KsG|lOq}_D%j<9dwUwKr|%9PN}l7ZZm(~@noQ?MA# zU9Mfs(7~GOZp5eRlaLcPpm1*8>dDnIZYMS!FW#`)?O4>YhZ{KDPDLH>*+A=dRL^|v z20iZvn8vzk&eYBQ&&Dx&hj>f#?_OJOPLl%Hb{Yi}*OyaV?>h^2!Qe93F8 zMwB1lJbI!FFM3h)QN+OxTwz0j3QLHrXcN~#9!D-4o7LutDW^Vc-@5X&oZKxF7un|S zrX7vD`dN;-sc+KS&T`1@P}C^{ma}deQCjRQ2i-~(SbPXKh*C=jOt&-ks7LhZ@E(j{ z=n-wBk@kOM!nj44&+U2s!A(*(nYI@n-?#WuS6l}75y&H{Eb~jqtMynX<4+>Vz17>g zT4l)TZw{5-Qb5=NP8lMP1-AvH21RShej9l9{M(b_3;_#75*SqXjnWK_>vh!KWZYtv z>TP`tqBYt+t@nCG?A(40FI{1~TBTJ-FTrQ$<<(jHqmJx6vHJP`n72DESLfwNitbcr zjK0~=G=i$%IB2>4=zH7y_e#=L;RbcP0@8C&w ziS=3YlPaLx*Tw@9cVLzB_>@pAI6AyftiMLD3zxwtc2pbBCDZ6-+IRh(|C8NmPFofF zH6f%s#g3VI;U&-Gv_IIF_w()8>hhDSE)g^B>GN%H^n1Ns8=r5}3{BSZ2<~o>E;o|MV=kzJqr6Xe`D! zXvFw@@uj}Qz`xukb(wLgua2tvJQQkbXs%F95(=-=<9ECKlhUbr<_r2q5Wf>HtviTWW1(9>c#Bzu{XSHshGX(sVe8OJ^uDif<8!dMTzvupgM(P zDzrbTQPXJ?pYSYJGUgHws_J_fIO>lc-?;{NcArGp=RuN{0+X%vdLF^;iy8g)@A*j$ z-RSz-)D~&s$DJujSk%ep3mYthY>CQ`3+}>_Mrjix$^Y*0%<1pP-g}*`gE0g2$5y=j z^)tbPSBLVCA|w{s{6S-6?74RhdN~^ja+osS#Dem%JZ}By=8mH0WZB3pI648>43vsM z_|^`+mo%YKb)Fh(KSa!{bKgiZcv#lFh}<1DO;EOOfqjHL^Pp)zIr%`I-8~p$PcMeZ z+yyNZFMrX@v#s~Amv;LLhOJT)&|;)SgJ^s5RawE2CIY9vl@E*GPb#eZ17BpuOb>&r zwLh$%-UT7O%$UC4Fj#Xt>0Z9i5PhFXIiP^olG2Fkntdk4a+g;wBpGO_>_OrdjO+6h z&2A>aG|jAXo$!x`jG9igxEC~r(4_(gEZQ=qBElnLVyO@J)&(S2qq|3Z+B=q6JX@Z7 z@UfO1cLzrA4fx?x4a)*{_nAD#fSRDXeSUmLrB9ziDGGB7ChqoM;Pob?S)PG%h`#{F zi4SJ9MkhWXzGO3LNO0){>5KcgcE1QOk-LD|iRTfMQCVH`lbWg$wXn+SPArkz=>>(d?mC^8Oe+@Gv{=lL0>y>(Q-+D z!L9Pw&Yo&Uo;>C+Q)9ivHLBZRrt!%A#z#83>rILUtR>6A*N)YFeAv-*rtEmSG5e^k zp0!u-f;(1u4FiCj6yFK$@R~=mo3a@dQQbFQL`jM?X}WQa+Hy0F*^-a9Ird3swkvrw z44$yqnro}COcVER%$v+_(9C~3W^2}f$d@^i&w$Id^hLZWr}g8KyVhv0m&wC8mLt&r ze!>0ker}nGAgx`};bxx9QHJov!OED$7z^?8%kiMx^ufHiX0#kH?5zpf}R(qBzB1x1zk{Ylm>?wjCj!u*Sm zl;ikjz%H`;l630%TKc`Fz&-_Ce=7M&!Z3!Y6q|@GTAF^ic2f zFE+s$Gx`7-UmwwK#UJQ3SUt2mZ9&_H5o}6=a|cvc?QeZPmgqc$ETQX`Oza?c92b0%}bUCiB_fZRL6ySVh5c-QV2={cZ zam_9)gTTPUbt99!FtB8AIjva9vou7$%a)9RR#7-x#=wHcZ|rQgF<2(mxG1iWye^v^ z)4hj8KGI8c4CMi`{^@KyQ3Qr&15O=gVf%MfryJNKrj_*xiaC9$%j7tZ2aV+1n2xl@ zU4V;rT$~l=e2d0PY`W#mM#Tjcw`6!+DAq#9g{KE+`9cCLSG7TrEI$)nU*v}|qhk>( zY8hZsg38(kFUf0>eS3VlgpYPH2cV~C@D0J|SnUdNatqrGNzXXWVGEO&kkKFg$Xu%N@h9u$tlr!RO$z|!N9Kz8dpA;ZJq#uKugP(VU1KTN z#>+xzyr5ClfB<5# z`H5u{x+A!8*IK7W`s3dmju%Tf7J&_g)k0%Rr_1ny%W#6&=#J3qVaUw4!F$O&uM3m$ zFI&bYy!i1rjF2?4AQXy;;RG$a?U~&jSU=ET(x*|K8qXBV63kbXFJ1g-YJc=BxcCmK zBjszFKcI*B{q`2`-^@hPhy|Il*9a|?|VXk-w;mA;2Mnt@c>a}Y3`{f-L zuWFEb#d$ib7RKi10+NhHY{rK$ZU~)??h&L`cP&yx+xcknk*dxuz9)a?w0!@id+orH z_+TAvdbH7f6O762hRDLwusy3*tu~Kocxlm^o8gZZ(F&T*)>+K6W3Hr^pMRp% zEHL+i3IyV%xb=z!JjVAdJUz**xW3L>kEc&yMKe2^EjZjGGzW|GamT=^;6@)!6CKIv z4y=~U6SGDDI}tQG*4c5oJD8tVTSNo^fEeHi{m}KMq$IqYtWC1EcwU7n_8p#`;X`1C zymFssh(GuNKy@X0;rABCh#Dps>FK>-w&h5VE@{A)a)H@8undEp!&!W-@dHx1(@K(B zqc$%b!|Y~yE(0)1=2ae-a51At7X0)g8n3bXB(AT3RXRJ+J_h{EeGbQB+g;@MH3Nrr z()@G^S!TV$_ck+fyU)mRoEluj7Uc#cHR@V)0;UYW)rGq;g(|J?4(g}N$V1GkoA;wW zi(KXav@b-$7Z=vy%bq6zkZw13mgMvy5zW;S9hX8xD!q8tjAyQGBj1bg;U8bEg)^*Y z9Ak2qPAgDf2>Uly8my=YBA-W6_?DO+qH`pf}g+xf;W@LrMp|QKx77(rN7L?9jE4sq|Z_U z@gl#~)(tcZE4icQfoi(DZ6rk<3qPvEkhOrIh-Zm1x0GQxPv-lm4IYiQmm;i?BVREA zN!~?(CjRxo(B1u_gFHX`SL9tR8QI{H_P{Y-n=E(FwALhHZycRnF_M`OmMPldU$BdI zk$2h=fVg)K_N!_8P=M*Pql7w!S(VO1N-$7IV2x5T{+$gCqAbR7C~SR#Xa`S_bJ#%MOGT4ogL(8@u3W#8Cu!Fvtr&hDZko>U@-Do7(l%?7Hr}}N(r89 z7dYH)C)G6zPO}9Le{oTvlqQkZdc|^v&I|65nXsBfzNt;#R2|?ox8in>E=s1CHIz=> zig@WCZ`(6so#W9EK>ubu{IvIRZ??ONelaa~bhfa$&z!%nv)|EsVS8X=f@zy#5Mc)w zXonRXdDnO?OSIjX{Z7QgKJB}v`982pknZk5Vcu7TH?EP7dlBM6ExuHXeY8Sv*CJL1 z81)psLa&um?#k*8UK$07F{i;TY$|iWftTjSIw&x;OOciRq6_(KGM`!QCGb1gsX0hE zC#dU{b}!2gHZALRezZ41JoYj_oL+c@5y123+U^A};LDN>jN8>Gk^6eOf4yd~&F#sJ z@IAo34Pu2#BwEXG9?4s3ZQ85*_j)z#BX1VsJ>V@UU^~^i$WiMGNXl>F%6c<>ETTcj zBdTWyIQ>;OIr{QCJvU z2gcF&C2r9=)-Kcr++&4~v){=sNG@ko9Bl178V#Qs4-cBN8N2ZOiK6=`9kwX%y zolS?7HsA3a@rne13)1}^Ym_Q5%4Zv0H?=hSYU;k4#>`7r?>znRW&tWu&*+ zA*05wJ4iEhmSr@xv$`oWDu=9_8r}wT>o4eD4lqebwk)uhE5lt9GKJV>pBQzwR6FZ0 z9=p6d#jR0c5d?kiO?4CYfv`m~WaNtLCSBSdEBRr=tH6D9eOLjj`J%9Nqgw4-t!&r4 zh{C{i?hYFx8*uw{Y2(Gi4qa!|F6Le=#&JdPJgY9|G1iV%_aOV|m76BrG|-Jf_1Aa4 zk}}$4y%=tK@J#wlHd>C$5LrKhQSI51CCO7!WA@s_`vd-#vDfMR<8^+6DwDC?JGNbk z4Ljj;=$O)DRfb2~Zp21_d=6H#_#Q~Jtjm$E+R!_`MXAd5*>;W~C7LvY3#<&~(N)Kv z8KivNb_OJUrE2>b&>_})eo8Ty7k%7vTOU(ueIuGv)06)Q%i)yohr8b&LA&cLFwF5^ z7|c(pT_yTVcG~&yp3>^*RV+%(f_G^3t6mDu%@KP-kmFp6da6A~c&fpDL5^*n2TP)l zF8cU}yj)DSbX7&167%*u{HIxfWjdV!iFyL#_B=Wb`jF=*$YG?b%6d=Z7Z&WbH6*U# z1K?=~35D!C3VIbiw{Nop9@H$1eswJ1a@7SPwNwMk(!ZD)FmEK=ff|!O{*LQookb?lyd_nQ#rTX z+1YI<-0DeN%i=HiOB=|g3Q`NqNn|#%<|P-YHWdLys^w=u=SFyTdy_^WI22BF!0w_3y7uUotS4W zDulMap&`fVt2s?Wngd7s*`^6HiRhsT_|Q122A4D0Lc%78GU>L!rYdGSa?pV=Tr0s- z1dN#Rt|{;xIcUSrTVX_$Vi=eh>1y0Xt88TPdVNG`fTeP_z<|n*9a}nMolp4fJa+i1 ziqNAim8u@bs-G*2 zUr-WX=C;j~tS@w@g**>h-(o!+xjp0pQ144t6|-~vB%^=l^#UUQNm$YizR1ew5#=`g zwE~+rH{cP_82z=5WzkjK(LYybe`jvM&&EiGpbI%$J+`#p8&;POsdE6OH*7G5z7|&& zv`sH6dyp9`Q!Qtxd`NZUPgo9=W+&r0XsB_+!zM3e#~uE=)R(!aHTrj7CRLAohBCjS zNAAQ(Y3HtUl-$!yhw6w4u25FYIbZdjY!LjEEjabUnz$1NRb`GHD*Z`K_m0i8D%?`j zB3|ZoUyb@vkluH|C1b1S!Gyn|D5*;Pi&-F}zCTro&ww=sxN5!l)zW(Ik3#ehTz<6t z!z5IURd2&uYF+CUjqa(AMHSY9}$Nqq={7eyBZ%U57+<3+@v;g|;X76^Vf8WrqV zft^-Su&8j%M1V+Wh7k;y39~OP;+t8OCjMd>6-Ab|!yu_{h=*LP`NT5v%)q|c63f3= zXQ{77UeV-ROGQ`xIGT#9E9ckMEc@&CJiE);A&gHlhmMw?gnA6FLg1+@S`~VYqID=dfaZm25h9g%OGvJb>FW zP`G8Fvn4|)zdgHltY)q>HGWbI8iZ+AhwI~I(SgB;O004GkQgBd)2)uw$3tVuhD2L8 z1ZJ)1fJZ3;M-uXlk{Z4GYsG(5O*fBmAf8;o_vdIjN(dcA^pZdbsZqxjD0VsL%3JN# z6*XX>Z$E)DLh%}k@ED4aGK>MffV_z0xzawdJUFI6ofm=!p}T_-<=7kXreaVyrbrzO z!S6*6ZJAvazIrBsvkeX70Z@?KHsw{=Q-e!2uiwE<%9z(bM(8Mkz@)2Y zh6a?TP$DR$sZ9e0JoR4s84yzW#EkDmoA1P^X#=_5x)0Y|p$-HVB+%2r^5s~wcug^A z1g1<~7lIc@PX;@dV=dx!#R&4VQ0%El1<8u4a=)BNs-6D=Z$CXy1_}Zy*Mj0G7nZ$A zp3uFC+u(iLH#bk)z04r!iZAbU!3U~_`Tm+uH9|iaA({$*Qg#j<38~BDIoy&Sg=-K8 zd8b3X)4RRX*}T&O#{dhT7lHY8l^ZSsjM(cwg*E*F&eiZ}%*bU&N?;eMv6Z%nQ*8erOZR)%JSKjp>W9BK5@?#l|YxyBzA%YUo zvkqzuVwU!mG79Do6gpDpyGpZds;Nev8au>fd$qRp-JFEBl*9O7hWBMfe4)H?{qF47 zZ?D+KX!JjuUk6;|$a#?8UgV~)Wqb-&!0I#Ty!&)eTBftj4uYFeSiN{}F=z;8OkGzW zFOAL&Mxd~l;^AV15X_`6`P7*}4T|3y5^Z4fcjH@JBQiIin+1sf`k zB^Vp<7@~kbb7?u0T6n?QXVRhY5=bSH9Y)D(@^9+{V|C!e+<|L!ox$0 z-Ohe1BZouL-y_pfKy=J0=_?qU%o}PuHWqwRcn7QD;YpW&W{c;V#H?(5%>g*v@QZOuKxG3 z6`BCQLJKupVUFg9TG9JMMK2`~JCMCgPCNgWwW;MxksA89Sevwf>|Gd`nglspuumD@ zf&Wyk17(sRZOwtS^KYvwk&w?NY6-vP5L2ZJ?pKB%s^EUZ8aYOidTx47CPb(y`ut9X z_j#S`Bj2CJA~%_KklIoHeg|1_apwF~9D8ro@O$V9INlOq}B|4Nh*Z#F{Lgb1sL5f8sEm zEgz<0h0ob!R0sCI;=umIVG5@#Rsc9msaWAtWQH1O_#x0hk!vDN1)B5%V1guxcq>hr z*1w%G<_uA;|I}duKnu2|eZjxP8T}dLR*C>4_5h9rDib7?s{DJIB?nR|bCSt~4djHJ zZ#6FD%k6BgLhV=jOF-}zb42|}5UCCTx#*veJ5fRI@Aj~vg50l8bTTnQ!@HgG4;FYs|QG6$Q=UStL;(Gs@Oizp;HP;$N zHza`y6+U~zLLz@R=nI9<<0<}eko0aCl7O^+dl&dadsx%yOP2fM5C1Lo|G8#jp)1;K zR?cq)(5Py6&WlNztMnh^{{LfgCw>}0`-ga8Hh@O;EqqF)|8Hr!Kjs7hzJ(tHXc$Ta z(0G4r0!U4^p*HsUeRnRFBnhNYss#u(M4vx&Y-92<20qE|SP}!SK)3FmsrclBbK#;Z zGeobuy3x$XE)f0`$1j!DpX&Ji{aeEPrqmSy zj37;-ne{p%k{oK&1VU|wiJ+a9RT7Q-ZNo{jUb)QkreMU}%gu&(~LjE%{ z$hkyFD#H^sV6i~O_>aCokikJ0eez%N3H!e9ee`{++PNa5*%&eT9!Hp;2sy6-(C_f% zQ2VHS!`?|vg#5P>A;~;BL-T#Uka@(>zfp-fS2RJz3e-f%1%fA(Im!Sv8RfA8xyQuM ziYBOT1*%(tQf>te5IMPlvLKh7+(6a1e}=|Id`;o|Deno;N`xF|#sCxcYyBjp3`%&ZS9H;yqEMLWUA9)IX*$ULb_j4A6)W=hKKx{3A9{fq$o8Os_`H|?uZ>iSxyX~Qjb^T*xjuKiMD4Ib102PQKU)dl@q%E@OU#zkGQqvA0 zbCbzYN%g3tdOwROQ05o{x3k(GT)D7{i5cJ7{PW*Sw3%(CR{ImmF)GLnsbK`gD2Q>) z{Ut}GB#t~Yu5iqCv`(b zKK}~x0aPx0F|hE{CV-@NppEx{K`IDnI;r zpT6E&5dPDK*k5S%)W(qH(jZ%E74fX&_s{W@{?`C;GP$M=`ArpZ@IR>{2C~V3=2cXx zoIfL8@zqTK$4(GX6=eE-CzXFj!3#AclFQ$J79plGj!+}Sl#LL7+XCpH3hr$A`_J-s zspaqgOY?WpsNhJ9=e(2`@&zMXRAkCaj^7f-XjG(?cr`f#B zPsy3N5%WsA7r9|Buswe>!;>1``Y-#^t8aIKDK5CA|J!u^)By3~VJXV^WLAbGkZu4) zYA_@aXG0n)j%6Af@ECq_odG1gT|1H?c7KOfPX=HdA$MJ?YoT^sBX@10%xj{y0Q%zZ zoqZs8T^st*t?-qcY+^Rf78?9_xTC9QfY!ngO={`;Tw`p?;DZh$iS`^DpvR`wv@tjRKN6herW(JbWmJy zf!@MYjr&=2sT%iR(zvpD-*nx)yrgpXsIK=(dqW8aN$ zgE-%++Am}{Mu5&;+$9#Zu{Q7T^#QD&N#JZtOJMq;*azruMGkutMIhFhMq0KJhEpfb z$=}Sl;xZDwUQ5XkOQS+ZaQd*tuukJS^Rb|$Fh^ZQT)-a0bh!2!kpMd{^9$p z_s-|~`{}w8SU^Sn)(nRw4j7!OfBPgOY9m8PRpjhnm>s{gFCYbrLkbq z5NAjYbt3<<9WhiM`#8FJrZs$evje=+V6b6hg^_M!#YE3Rdxsb~+y`R!BpnLdsjgdr z9al%`+sUIP#PWhL4Z%8<*sJliVtK)s0ri#&EI}QRUp+Olo(q&WqppuT4e zKn3k=87;Y^f~_>rFMIV@Q~Vu*`eLE}W1CDph;yOHPb~8M29!}vRv=_fE*;FK8$s8S zAQm!hbx^E<%{uLq&XvzVZ~kQ$1PVP7XaAR&G*n zK>>YgPY-|4j&N5DiHPL$HfM?C zPh#$NA;PQ5CkmU4yiL-JBc+y(y266ATy~nB_CeZm?;)ghjP<3x&>Y)ATvvAf{v!=kYM}GtDs=+~U zDrA_4hNuVe-%(9gAh?c>D>&Ce*L4WJu>vX+6FlIVQ^(U};BA^Nz}sNBj;9tX1;<~F z2l6Gw(PP1gU`(NUOC{DkUP~-50#l)G3c;Ji4?*lC&`f~a1TfNA)iFb=+WiWQ{$twi zkHPMM+Vv>&9QLpt^c;pt$7Gp8Kxt4jiG~=?fsuO?9hYQ;^4qgTx{v?8n;P*g!$@lr z^am$HCkF5g?)cV@eGjK*k0=$XevhZ9JMzPh)K@uJ*{&lFS3=hzG$EkLfxG${B7^$& zmN9aOst5<81SOkulbsH|iNS~nOr1Ikg4d5{6NAd2%Yt<(uy*l)&mkO>6O4dkn$*ES zDmLKPsurk#P;YAUvQ?;J_k-9`thczb4OpjEkc$Mw5H$f;@vv_ zK$A3uVG)M@6pSTgyY-qnC6Z?O74R3!+>7{C!wDXjkUUNdrvVoR3vTPL^J1cWAwSa#s6yLIBfr9n&+ZiB_dAk!ku5Fbh@=e7 zzKQ}S)6t<+iM*PEfi5(@wT#I$iA?~uF%Kg*5WoZvunzU8VKOD2mdnF=Ta(6M4kT=P zpK60g0cBVJQ#&K^j zcK`tt&aH`pg_Kt^A#>q8gc)n?;lBYXTGWX4*=rh@Osw<8i?=+@SdKT}r)0FdJuqnsG(F~`MSD(H# znEUcxywh%USI0?@`-b?c&b|iS+Fk2f{WZ&qny%VE*EX@MpM0i_Ws{uP;V)A22kvwa#p8PLA^2oVGlsuj9s8bKpQ)@hH!#)3r=xayh(h zJhk5USiC)gO2-S1mGLl*g!Fm1`86>;i|q5b;?=}t7T>3Ab|SC3-|+;2H=!F{R#&C@ znvL=1*-q{yxBNZTLC*?S)K;PB*bE|aQ{H$G%6YFLLf;9h+&!^`?Uv7VmEo&vCO$an zSFX9=w?f8D`duacy^?}a6GE)b3wl{{GTVnl8b0<`o7em;8L=4<&^uDS?A&EE*fH z9Js3hKHt@zB(g+s%`pj=FgF!ll%ZH{$?FrXm`vY<+0<5lO zil6>4aj&Vf`Ud9IbL{Ort732YvfGGe*X9;u6H|$V#HK;poG^I8P8#Tmd-T_sN8Z|5 z^MnPeg}xkl8g;a{^1W7=&CU3|R}UgDy%Q8zS#qvXtIBXAvyc0v4|?Sbe-Onv|= zS;K2h^D)60ld)&bt0q$GG9H!qc)!-L&yjCGum3>^7ZyHg)g;sR+g#%cy`S^D z61>R`OA$%BGKLYvQ{PrrDh~4z#`)QZEPQ=HbMyKGCK%yg%)f z;<{%1MN19S>)B`3h1qPpR=1R|q-_7Q+C16#uOwpF+ zwVl?dZq_GaAxx^Ccm8AS%BlGu8dhJLiDPX; zstZH>C)3bpOn2uUD@)Z`8|QT1@PZb{hX))oE5(quLtcy)odf23V$<&`#6^X_lbc|) zWa-Z-J|qVfSs6<(s<>t2A;{q7tn3=jcBW8RESR?W)lL`j4ezbdC7ZL_#IoK&nqKTF zJ6aUrsNzt;^FBYCenf!J{#29n$LzsZXLA^Jw*~bY_vvl8S#P_Ckjq-+^h$&=zW1fs z8B=rFtkdcuq)`!FE0Uv`o#m}mBkeSgqVA><4 zX&LrSSN-FT}&5;PMIv&=pWIPAVviNx2|a0;_}Z z5n}aaIq{NFx!@vA`alRa;EI$vC_ItK=jPnMS#v$hzmS?PR#{PNN? zy4QC4TYG!7{cSV4beD#PMQ8}4PGI$(KE7jjHu2HD($$Z9XKZU9B~~W0#iyQ4R!TXK zfDvbGpNCKJZCth9MyL7d8t4?>#tOlXy_dXfU!}JJWJJ`C!KYbw>+q2ovr4nhNZ;l# z7lqVU`);Rev7a;2%1qQ;FK4)EQyzBuPQdtMG4~y>k`D*IQ91L($?5T{n-Zoe$)IuD zV3%wCgz=IRY^pT~9Kl`TY}J|#xqf_aXRh&0Sp1{p1M%?Ew3+zvo}D{&%g*lio{qfW zmD;$)o-WUO{8#|<$xE!6lO0wzCOf*_?pR+-Io3XW$?Bf_maCxc&h)!3USPN!FZp75 zFaE+w)6!tC3yh9==KJ4F#zRi|dbnRK6))V(dsXSRf7i|w^UKQ>^A28R%y^%FvPgBe zhnS(v+DrEwwCP{4xF1#9bn%?c`UfL>4DX>Iyn{HO5m;65b_d~M9Hv|K$sPVg8RwG@ zJSlV;bZeiiFc2F`xzk#(_HJTf=S-g005XgqDb={#;p1~|**=%VK4Qqrcl!=pH3^rW zxmkbV{RPlt>?^#;Y%8AP)iW}iYp@26j{Q#@ApS8i zaQ*H(!b^{o(+9YP9_>2Zc+4P+skuimM||>?_KKkAG-IzG3k7AIvRhxaqQ9`=)9 z5S7axbfs7v-xX28rC`}d8{5L!@~)&vNFVh?aA(O^H4&_GvkTCyLD&Y96Qn4^6XjyC+>Nlw1UKl2e++#_s7?zrkdj=#zemj8xi(7aevJgpQDcZy zQ{&?mwdKauEIaj0iW2tmn37&NIEubs+wgLYQF-`bHP*m~ap*LT1IOdnUg}#Nm71Rx zzGQEy&*Qkug+phbysJB2#QWr7cHW1h{P31>lczT>(CBR6>Q#MuGG@u$HJ45(cHa7! z1?@hxZ`GY_YuMUh_DIvHwQGzRvi2GgwW zzUPUpdA`;z{>EN!myJ!^6i;3>U{a;u?)_TRf2iH1QbE%DM16{NXT9_YO zLa$HvYey3Kh2A}G>Dzkf$>E5IQ+WwBO{G=k!O2Hk{p5}1l%F4g*0&$kJ)zB+gpaNt z&8E$)aCAIDUz2e5#dL;^RY36Z&c~V-BfTe<*StRqv4YpTS-hZChaSjb4`bz%w3;;R z<&-wpO;%M;?ssWP*yjEoWSNj#{YoiqDBV8J;$rMw78J)ZFNpq*?zn5q8xBEFK;yy! zSK6Gpx}O8#PkhOaY?blF%Q_BQ*;Mf`w)zvDuj=zTBsaYrP?5u&yEZW{x4Ajn@E}HY z`9!|>yKq^sL!J7NR)a{Q2RJbH+2qs9x3VAQK(5q?v*nER5^WQN&zZ$PEE&I8sa992 zcKxYcQe80Lb(R#>oIB|D;HdLw&aAjGnRG@O1t}7{*7)Q|4Y$PV){)D*vqp~I%}^}g zyY~FHp&A{7XODWh-q_VKF%0ysc*%I~fU#lJxx*;++$q;nE@l-b7jL&ck7aGcnn00O zp_$K0K|{s4Hsb;r^o5(y2{i*2PrJ|S95241P&+Y2b9`W1;MVu?1kd1s!(Oauy7x6E zmc6$$pOJXI-kDP->ijX&mYW0+SkB~BWzGHs&Ud?3%AN|pa2~>jZdU{$mdXcfcynK; zIoh7SF6dNkE5rDU)8P8a-FxXqUllxGGxB=$l!=Y)X$_OkB!K|OkFkjfgHH_W{Yg;+ znT8=NA6_(KbCL?t73^RYmb!W@x#gzL@|zqDDoc6*JyTRxa)v?d#a3ajF38T-IDQ|@ zS)qv{F=~%SJsL z3nxw{G5KCiO=_PJiG z?$YM>H##+P>eX}bCX>?|=2z-fq&@Vjy~hc=yKUHbtHG@ zMt!TNRCl3~ttzA57>;I!n=bV5=2Q9kn~cQ0Ps^`(es=2Zs^;Zfc9n_7T*vn6mS>y! zxXvthuk1563X5SG%>DTC2_5FY<#wKQqX8gDPAyor%!eXd~IyZi0dO3QJ*wl+isa+d7s@JVpzI^OK+gM6bH zirTQ|a_%M(IoGI){?)YR-9DGruXFF+ho+J6+U(R-FPl94vZ;_RPf0f2@cgTnLJ!p= zvnFosV&A^Iba}`%F{HCo=$YVs7RD1=qLOQp4)J9VE|ugy(?s`CDfQYt#z?+2@AY)a z8^AZ6`{fVuL3v&cITW>Scbdvx`Etb>$FThbx`?8%yBEVY_iT9~FOVVf^cF*XswI=? zrPote0)X#UqHd3u3A*9e<$71S#C18b9jtL-I6WB&S@XQ@Sn};9_k*AjHpqAF^!sjq zz>E{zq9Flz$Cpd)(>2!;YL2Xbm~6i!d+ku*j-3(jaZ6VlPhGj=m*7piWQ8qQwZikm zSk+S9`0aM&$=HIGYS7*57*;TGU%8W-V83L0I`FaH2>GUT+bioNYHCXC{dU_B1rg^u zBhyk>s41QdYrd^ErI&e1)yXMmG-Tb2+~{YAh7wo4gmV=H<}yg^h}$hOzBen>G2Xeh zrKbJ<8mWjK5+Uon-vr%fzaZY_zGs|cjPI6K(8{6W#NB}>#5l)xn-0=;?S5%g&JfqL zw@YCykHzX<6Til-kv3LOG$&ac&zfEm3&iIV1#54WxzKZ(!5UkitG3ulBvj{dx@>|u z4%)Mo4U9TIZ%AsFFSIIEldH?WthM2aaJyc0{F=+eGVJIv zp6M*<*Zp7#-LBEQ)m8+<6~~U~$hKMBKEQ^px5|UfBxmkXaeH5Kb$myo1S-u!3E6*6 zfJ=n8mRl}OVbI)sH@!7<{DtF`WoBtXyEwLo-nIZ^8M3mdc}b7Q(v)qJr8GT7OW0kP zvL|pbU06$Vft~h(WVYN*y(KpXMjBgu2cs>M*wAD6!%s*gM$N3AF?Ak7J$Koa-aYOp z(!B^&T4%wShI2vV^zP}qdW8wXTePpe4#d4}Yt|Z@6k$8y?jU2ho(0{ zEzEo=7wGupb=lbsckjFT@~Tw%U7Gl%DlwWjKMHQSxn^2MGdy6;aylcbxOE@2SfY z++Btt@q;c3zUjqi%frUm zxN~`F+fmLqCE%NP(L(Oqg{n_zG_BO+JLCy^V8L#fxX;ix-hA0LzNfPvD*%4$Ru`p+ zc=KNJ-T*&bsR#VZPUrSS&;#bn^wq29Mv}SBa+y3KV5sWHe1@CkZ{G*@;8mo`SuF6M zYby;_Y&ERXJTB!aX?WBpy(fV@p@@Bctb_yY`eEsj_U0Z0U_2{{*bS4Y0%v|_+<8tw@VsEZD19k0bbh?ySc6Fmee?V_voAy>9EcUftisd>m5%}xPNZ@ z0U_Ic>K@rl+dk~xv0mBQ*?&9g=BAYN(_FWFA>}FtDve4U`o2fcp0#GB<&4Kfu;{-G z^8LsjZwNQXxrWfu9=!8L^f2i@Hb~{dR@v9N4-Tdk8wlmGa8*=W9=TKd(Qxb1&80Vh z5!So;9;wcmt%|6cq+fG_vRNsQ(QwlKy)tbf9iu&;>Mf=%3O#N`%NSFpnXo0`( zdMOVk_@{m7?YFN!x!M*dx&QstHEUe#v zX|v7aM~OayW_*@vG@g;LI9dhiTQuvU2J8i$1%k3y8}cx^niyVKC!6_>@5ouYTetSv zcqo+w2*6qO8xba!bhWe1Y{$t{b@`Zl$cP zVl&LU-^fFkCYdXtw+z!|ChPD5b4TBMxTN4xzL81ZG(-MQhqmE;K~+y7Vst7J36~BA zhb9^DuY!xp@|X9&KfcjbRU-2eYp{K$OoV1Oj+=>@Q3cDoUS9Pb+RcM*vmEvjE$&{3LxH!DeM%%-q@i1T0wDkXD?@QpJ?!NykBwLC^ z*^4B5MD{3AwnB;Qm8CGUZ$k)4A!J`tA}K0c_O*m88M1E)jeQ>s=6`1_QTjg5)8qI3 zJ-_Eauh;Zx=40mE`#JaAbMHOpea_Lp)0H@S$Zt53mJ}Z^cg7TS$5w354nJF|L-W24{h5X6Re^Y~WCt4@Amig1~65?zc+1P{}gd?@hq;Ww45dRPjRyXho|}_1IFU zITXpo3c$jB=un$OPF2EnZm-?|vx`Bcw*|FCvr`-l^w1sjeg3}0vEcMTQJ35c@Q_7E z%qJqLNthzsdR(|m!>hZt_?gN^S|=TYQRGJ7o=6folv5h+JFw+Y8;x(%MV~{T>{X99 zlwT?8vz}p+ln-U4+ZAK(YvB*vVjD;f|1kgQ>9>U(@OX`H47UAfxx*r;Itj#UGa$1@3 z#Fxl>_OI!iFLDPb_<44MXN)LQQKZ!85oAC&qKh6}a*fd^rZ4GugJ}+ZLY_GeDZ5fc z6W!@SYQT;rOyDzPmgEn_F1qtBsR1kc7HicE=ye}OefULJVX=r%l`F1lXQadn>FKM^ zjDyLlI9lqN@<3!)T|ZucAz(WrhR))Q*>*t3!O>M*EW+U{7-5!~?qW4*^mCwZK~`>s zo?f|inLf0;dPv$b)QhoR7=<3TA*rx@Smhzq1>p9qGOf}_k9 z*E3f%AKeuQu(~<~TG}IH_BF90XUH*98@L*W#2IxB#u;wq&j*lOU;jGQVpjS-T-l#= zukPu|$Z1y}9Bq82ySMH%D(&ATAsv&9BjkRoW}5Ng=TEnG(6Kqv`Y}n>5h;`0c@$97 zu$A=y!-0D+k~=!*ZYAT8#on>M@O;C&b1X(z=0o>xsIu; zHFWe-`hc)xKzu_OQ{l0q@tSR3oq*16%wvEz5B8Mc7D=0lz&+D`su=9z%My4-9G`0Zy%Ek%&C z+n|Z<7y?YDKX#i`+@WrZgb(^*(X2RHE1hdyr$-i34-=OD0{3m`2Mi-QlnVN6hPkaw z=WFZVEd>Pv;(Hsz(xowbi)o|u9+1E>f^toa%+N$XYIR2s=mxjYW4!m6BiYIrUp!C5 zq~{y2diU-#)w}8pyJ?a;_L7kt?T0?zD^o%T*Z`J??&4~)*$3y)vUcda+Zl8lk~H*F z`@v5o6C2cy`y65wYufP=jP%`Sly?B5*lmP}N_G90dJ(q72K2L=JGz=vuC!cxPBs7| z`FegjnMCnpGoS_EEna;y=%KwmJtN`T!wCju4U?L?@d<)3BM<)kO!anH{j#Wv%Pg}I zBT?&rw0bMXVx9p=S^StSLrAGIFy_1p*{V$_M`FU>I2BHa#!(6?*OHQ)-?YT<{lysr( zc`oGOYp)svBS9(0w?MO;XSO2f$*MKcbcOsN9yb#tgv=k!v%P%Vdq~Jr^D&)1>k{}X z2k?o=V~@)-Rfp+RubKrw;ALuH4f?hl$@V^}+&Y*ZIeDZfWOC1W$mC$*DXFiIIsG0H zSjUc~26$whaOG?qI}9lJY(394KFGpxnouW1tM0Oh12<3BmhJsgxkV}9nZvzf?9Y#k z3>KDr+eY<*a%#Ma?w z_>hkPDceI~5luO+DZ{!jV`QkPqozr;B~DtFqgx)qaadW02|1C+<4g$mj)HSp8Z9Na zV$zOw=ol8)c-5l+qP73ngS%UZ(}YCseR=O1b2S)pZo3W@AD2AU-QEV$3F(Z+Lm3&~ zQ@QFlLND%iQft=|>1enwX6)R3`tBg|^a6Ftg9AByVXech-+cJ1Nrlr~rxaS#zg_02 zi?g4bznOiLp(=Xh*cPej#Ox{43=Q_^>n^Ep3Jy0Ttqm%;D#TG5;&od{BI=I3Z8Wv! zA*ok4Ji``3%P}IJl$`eD#!uw2)5A2g z(l}=C$+&3p50;HL6*|BP8g4I==9dBLIv!wPa0}5Z?_$N^+wX@M5vEsIbj+*DL%A0OQeM*{UjjV$mmi>z64LV$c1b z-}N~1h^hk&kbtUp*%x)%^7iV$+Hpyg<(8=WvR?P3G72C5@a+1}tkA9zXtzV+CAH3a z<~{wmELAM_*B*0zwvNuabos`B-q4i)6y)?GGd@;dLt!W?r=+7CF zjZx3yG7{tCqSED}UAx-DC`v=&#RU>thigc3Zcy#tg z>g?6!Cc=?hI8iofYL#!l%XH?FqTEQj1L1(R)8og9)H;&NJ9LDW|Cg*!wgyV@O`tfqE_1+;Xq(;%YxT#<^~tplD!J19== zk-G9M+)^(g92cHHn;NRY)f+}Pu4^xXqw=-5X^fa!LqTyaH-Ek&xGg`MGA8uBL2X{& zi75HKDNov;uqMtENhYOJORGpB7+Stg_S(J)Y5iEmm87hWw?!`cVn(%d(z{+8yO*!+ z$E<_|7sHF@S`g8_@ufra8XUcpF3(wD@SB>NL+6i0ALo^Zq|tx&evLTv27-DlmpFCx zv#R*MO3t>%02e`a&bV@|R)WeHo9AHGOM8czQ&OB#$rut{Q?s`vkA1Z(iTO_h1?A&SW z;L%h&5Du-Ft9MEta%|`NBrs3rx#$t@{Zgy*zG6{J($M~n2>ci!&0I$d(#Blk{nQzn z-QhS4D)BeiJLKlAxn9b5B#l+xp??lL7L*$*#+P}2;V7R)Ap;QnQ6vimPlaxVoJ6(WFd9u1;OT4aq$}Xh@7lqNiuNUinyPbuzT!sMO-%=z@krp#>)L%E5&}Nn5Rr2q zBT?3MELNfF;HJRk(y|^eENXn@n)=F&{}}_vt^ud_Dt_iP0f7f8VritAdSvieGv2$Y z_|1Vg(nn+jl?uDuRm|ww?}ZX3xx4c!7pCdFuy7;HlyGl-Bx!n%QQ(;$waN$3*2*1; zQN1G{@Z($^JKb66LkP!Rf}9?C+@K#YB((*iL!Gjqss_d-)^DYv*E)K0CKhZ^sH5jRHvK`Hv>wjh)Dj2{PN#V#GD9`Lp?kUo~KGYU9Cox?zH`(oUs z^ayrz9<*o5Z^|k8ob)%Rc@WrrE0#v}Uf@A48NnnfjHD$|c~YKbLKGH- zBy_4@I?hX>LG-@))j<+sVgEp03UIA6I6`I3lu)h0Jt(6TouJeBfCk7-h0j-Y(7MX2 zL761BI9FZi{oqTieT@6oe>GN2x$xCNK_E3jv}I|p&hbCfX?mccDu-9>!-u9|RuPu0W@Qfg78MtDoE`610Dijba>w1UjySw`v3G~Bc=^ddm=ySPg z9b``D53Yb}_aHm?>iZ@&AU5|>Qi{D3bRr`)fvC6`wBP)Im?@80t56faUz2KsLiPPfDvOmwS_T({>F7mw1YVj7(N_AS0?Hn#7|@z}^E zw>T8B0E^B|uE?fu|GMNC@8ZtulsOP5X4;T6IWg`8MR;-zXS-%tO=ylFklFcSqMQ&_ z@f^F>vnm5O`G>Cd@}WLMJW%`=9f51%Df7Mo}HzZ|i*+GV&u zC}7Cm4zca2jcPSLGmYa^+b|-sA3pUBBH*73Tk*Bq9k{SaBNx*@-!ZM32UV|Vt;lc7 z=Jgt;qB^vTweO^#?zRVWj<`qV7?h$zTew|hpkmYeJRu3yrD6l4L%Y(s`9sQt9J7-y zxqiTZ-^|@WOl)yKkk^^IcYi`P&QVFDSTS$DVvU1SYO(uz_j^)$^HpecqXp|g<a2DP*alWidB24x;%VfY-Hc?DYVBk`tV#*rjv&v@k`b`2{7^5I zRakGC#91rfA==69!D1=)^@{!cE6&dct=|>kTD^|*XZze>7E%9h|4CKiQ&#V8*=b%T z&rW)2P(m>vytDs7L7Nr*_+71C$=*g*_wL!bvyiu*=zQRobty$r^F_lY%@_Ngaq5Q^ zUMP4&)2U#@>Mr|8ll2XrhQUDpfy)I_?~^#e2OZ3ZYdJ}rucZh^ilTjFq1i#)vY`)- zv+)+ayv=r9ll1oG1TLkQF}qEfHIDYrNww-21ZF*oc&k)G!hcFN_>`5`WnF?~qPKLr z1Z?XX>!n)Fyg6>Je@Xb4+5T{A?Z>X0TM9`s8p;0TD}7t&nYZ6M9zJGw@odr13}iOT zPfYZl-|p+1ne_qkiuJ6ft#1YTuawE?zmCQQCdyvdCP?Pb%!-|UILhf?=dRiGuy*lc z5$#LBd=k3un^q4@-_i%qea|IYK+Tr42ObC6WnR0fW1iz;J-@;0!7cvdd(VEQ2)vu+^)&SmTb=BYwJ#`F+zU^_DgTXMlm3n( zdol>r$Tb8*Ej0w2$TS4^y$0_U!9RK&Xv5;n^EU5Pbo$=cn3=vcry~;<(16Bm zTYtR{G`fey6H|G3CFzpZQ>&?CEF0_s((c`x}4w z_Ec+p8g7IbMs3?Dyl3Zbg7}O0Tef^)*s_IuDZIzh@S4drF3gn&9o;jicG;Ku*d8b8 zFXERbqI&rQDxR~Jr^#lwTx?6dBMtd-wRP&=!ImbI+ec!?ONhwG7_|IsySFm>o!B;3 zzNM-XN#cOI$_KCCd`R(wgT zi^#tS!plkaqVxR63T2n-6Of|vw6jmoD{#x>1b)G-^O4vt&zdC~{)vDf>193XzK;)% zB;X&CqcQ4X3V!_x7V!M^hlhi_E($yYxZJS7==)_SDHuGSy3z|tyqm}CxuIHN%SEYo z-SY*rz)|N+4Nh*+giyhE^R~Q3RHt>HWPgHeku&M`sMNjE*!Ycii%4j}S>DSUk(KJ= zA7Af1jO_m;YPhri0zL$u3~6e;KUrExeJ)PCwaE80bo8;Cz$0RMlddOP*#c%$)aN`P z#$DkLhZ&58=130f^NBV|sy;rQo3Ayr{b;vw2N6WN>zP``L(0P+Jmjt6tokAsvduXP zN#9a!J%O|DBA?XtGzMM~7m?vBr+x9H@Ga?1e&H}HXC_v?{_yBXnZn0I!a`*tE`(o+HtfnptPgcg8G6_tC&Jxdh3Wb zbiR~wMTtjiaS4 zW@apU_np%D>W>25C0psttL!ywY0Z?Yui4q=$n`Cjy{moS_HL$5z=l3v;g)9wUJct+ z!eD6$&&1B+gdz)nGWSWy{Ow)U{q0Zd#s(N8cW}-Jlfh0qCmsq7en;eL5D zzHdj2wWEbC{nYV^m-Z(VG?|QvK8n2eC9r6OLR+_tNN^~iiVlupdd+` ze0I2t^QDd6V1(wJ+T4T{bHq&U2Rb+CZ09uu^9R4+psjk&x*hj;EDjwe)4vx}F#3t( z&haj;Q0mUQ znRVBq+qKFqTrgo=1%H#OtQXfg6T>>4wd)6)D}vKLUgNM(tC(re(~{*-4&*x5v`3Q; zHgU!}-BCaA^}#f~uP4Hid~XYc!FOzz7cQS<65uG1BG#VR9^e*EWPH`Hv!C|)mnT$Q zkB+GvtE|fWc%hnE-Hd?tAg^&)!q*5>n2q`&PscDTp~MSq^&d43zdrJw?UO!DmdcTn z0%1}J(j9#%H+t-n*lFxEyeplRP0=4m0EyD}MRFNK5S zRfC^46P;@2DLO0Au!D`{itX;I6qsqI_SF|HQZlp?scfIKW4NC*+0(xM%w+CEed#(c zp6n+z7Q?!OZ&gD(rC35FN~!V=5q+Rd=*Z#@FMd~X%FDPopD=~}wh9h=_s1>|%cJ}< z&kk(k3A5amJ1@`ws?O}r>zC>{k~0na8@8*@X6(b4uyK>q=RJDfy7A@iA^6~KDzR?D zk>u0!^@ZyGT#T*KW0SCBoA8(=t}8((6f&_;QD7dz~384WD;T?^j}L1B6; z`RoGMg7H&VJUjReZa0u8+mE}o&c3L}FUd;c^MY_z4qY~Jn&0x_$`*vDY+Nh>bE_H= zv6QwoPUxrY#t%G?B=7E`RwryGXiq%V_Db7(?&(>!{Xs?cmsryto95Qte{63>b%D)I zYiKtO`w@lb=dE?cUD=4!%aeyHXFk_M-{d{bJlb_8G@Nbr4Nt2^o9d0KdZ;yt@B2A@ zu@ie_`f^X3)Fov&+*itOr+ru?k$mAgf;zYM(I?2x({4_6*L~^mzSZ3-HqE8y_jsxF zqkD`17e`<_+Kd|(MaX5;PM+!2V45mMEe;eTDN(jF^F3|x zzT$ZrP@D1bcg3X{(N0c?v1IYQ7v+^Gja|_yNS-4Cp5f^`4RM;CoGlJdo<=z> z4kU8rL!E3VCc53ka-7q|1T$@?x+=4MxuTOs7y9}%x?x=TISxoOBz&ktT*PsH&hkMu z=}3oTS|6&X!6qNNFL}Ca$bu8mRoR!nu#kbWL&A$8)?VN@sNsQpdak+gcb*v?BdEDC zSf7Bi9VCC)`DImm4sG(n461XSzCCwg9$pczo#$i_>@YQXYW7B+lhs0b(j<)37e!lJ zExs^1RjIAzY>$FZcvm|wfQJ$Y_ih=;&JGVwcAD#|=bM-iM)uG-`)WBl&GeK8JF7!G zw4*g>4d|r%Z2(KYER0ZUi!baIpC6x^Dn=ssq4ta8@5T@VT+w0+L&vjFv!%f-rSYSq zi(Nxw`K{gp)4t9kBKIL&?5

k+IXIC{fV|-6u;~dOB`S%s50iIgL#eb3qmt7ZVq* zhuMfbFVx!$A%~5jPIhVPExc5VCX4XsY)>2Kg{j1afr$~$A?=(6WN>n{n4BT%p)cxn zK5DijgH*e{dE|{~)5z!2__1l21M)&M3JOv;y}pQ)x1UHZbzYo+JKf0c?EgAfr)lMQ zptv}i?kydiA&Q31cD8M{rwrZ=bF}9#EREdho8s&vFzM`q>Um&Ld~hhb_@F9F$IB`O zP9K!+Vnz30hu9*SZ@x=0*I1}c4i%jdYW}264h@|FYTnHzRrPLZ-*wC#x}`fBYR?q$ z8c{PR5gPJC;QuE!v=eHXKukt@6XQ+kQL*iLvva-i^kU9)eMAnKDGtuFLzQFiET$Hk zot`X?MiU^5&2p-ueJJO~dYTuBn(2eMrdg2m;*s;C{q)nGQ$yV56MW{^Q6Z-llB@ep zCVMg>X(K$UdJkq4f0*s2f7V?&vW?V#z;yJHNv8zmgz(VlBWR~Y@B}{X=%d4_PqKn<|sendQOa;o{YqwY`F>&0>9Lv->oRP!VjjQ5H|X3985E-l6jANH8LOU9@?+jHIhbj*csd+bT|OWir;i{r{4}T(l7RkQ6+3rzv#@T*xe8s!Tn}iaJWYdc;;hp0-1aRy?xhM0#<` z8%64Q17<{vd;C`?2aSa-UJN`;`%0j$ac0SWN3IfPO2(W!qC%J^`K0EEC1Eap3Kd5b zgdDK+&UrDTe7pU%REj+uCp(q)KFPbWL(%9StZvW2tHL5|Ugw81h`{H!b6d$I^kk0S z@jm~Hp7S)jcD9t*=Iqi7R2+vydGMWvqV~THe0Lba4k=b1Z|^n@3)8!8>}kNv(@)(r z8rTZ)O{8bo&E&!4_Lhobm_o^2j#2gSp0n;}V=fx*QFm8}LFnx5zA3vP&(B&)WOOfh zPIt~o=1SmIZG6saJmq~J8HEYTvwqG3^71^AfC2tgJx3(?%;CjZ|#o{ES+FlNYSMqoO%empQ#Wp?UPCy_qmp}O4>u)#j&8Fn$50yxtV0; z5$>*=&St)$d;BHLWwx?1Qp9@j`R%Qhu-ER5q!Xy@h=b`Gh>oae9ftUL-Yb2Vk`q-v zGCrUyr>)pyQQLyz_Go~?6EYPf(2o&sUft$QRXo6IYGzh#?YMt8>mlZYc9H#Fg`)aO zGTX}-@nUbQ`0cMfp)P|DhlbkNw?du66+AiSa+K|kWvPkE8^w=LcTaI2ii|o#oYBRT z7p0(BX+_xVqiE8e&~8CVS8VWPIN?4*#P5KT+}YFPLiN1&96rYS5&NGclp#o9I2P-Y z>bJ8Nd30p*t(|oIKq(h7p%ZP*fajDqGC4~x8KkB{$t zgKJV6e@Lxd)TWC^-;0{2HN}c6I^?e4!+T$^frBd|bm#E9n$KOQCWg{i(>(myg96d8Xw=3gg;(SofSEr+yMj!aC*J=-4tp+dK$rZ3vv;Mh`OzqyI4gsfz(^A7Zt2$^Y!_6TJO7wHeu4;9 zuSDt$IzD&Z3vt55TP?_zbPvsyAXrERSt@OG*i~@1IJpz?ri5f?F^RsK-jQCFqyE89 z>Ec_j9CE+90bP;>KsSImxM#|X4(DZ59G`4X4}pd;)Z8aSq>v{`D4r*n*-%(4%?@H; zt!YafFHs!Q(CM=0fu0hE?u%d1)kM?fB@veu-K8!neEzW?s*}_dbx1Imwlx4H+UpfXlAXBV>Ym zMlrN`7YV<*y>%iv1TkZfiVX<_676+`{ujgtCnDH!;zb(RM0?cm7452~II6i1scC(? z95qTMerF=ERJ8V*pa^F0+Gf~hBC9!8xxpnHF|M%OuIvUrh=Ct$5| zRCmTuw}tG2tv#=tQ4o*`k-W@;%Taxi<8R}8#WKFKR%2#gk6k+}>4@Db1C;4DWPmxG zwR+5R2e<6P`zYPBDJ7SqI>##U+Q&skz>^;fW>&O&546M=j_L^oJKNRa`p*we9z2kS zesG`~#&LZioTEW~cJU&^37PD6<-A}X1O<=J4swdT$J?!FH^aB2)ZUb^l5V6e4KgPK z4QPdWK8-}Y-M2KgK+%!|88Hsq^UgKiUnZ#*bOVS)Rf5xqg=}kQLHzEe$;GT-#~rYd zxIT>+DW&grBmFWLxm%z(@M=QG^JyW=*HdMn$LJ^5th`pH95t3umbi4ob5;5Ns-M@4 z#2*?o2`!Ad*q2*8j~6Kp)CZGEk}_pw4z)D~G8+kt9V=7n7{6UQDiI-Yd`X|1t4R(s zvNE}S_1mT-c|?Z9h=C*4Z8Gm;ibxbayI_yt;wj!7_5KFy4!}_KY|{MrrVbYh+s9W)uEU{T1OKtl^={Cf@q?OKo@-U?`SP{IK4cH{(}q| zeG8P%H$&*JO#A`z1%-;1QL2=$tiBGh6-RB$pCDTA13hI|QA|xEv$RI4eF?zT7B%LiF0iS{dtc^I|y3Mq=KVJ~`RTXKDXLThAJF&vcxBIxV}g@iPb9 zCza8p^zvEL@uF-ZA3XE!1mcl>OVUlPaBV~B&UhMsG(JXo-+XMH?pcdsVS@;x)~tbS zRRJeOlKAv)4rT$(8~CN$GRIQgSJVwjJjaIWrll4Z1gkOfb{eXzlGJOfhhgas3ob*?Bc`ONNPd9!fx&rs;q%EhXck3RJUkn zduO(qG2JXpATbhdS2Bkcr*vNGtS3?IE?AyZJs!%08|q~fIO{vLZ-HOPoSQ1l_Hd)L z0&i&IqshIR&d2cn+f44=;TG-Blygt=-7p;#``*FHt-t8toY`I>XwAW=po7|NUroN; zu;B@&{yb|F(d-8#qc5{7F$NH8wSB&(gLuE_U_z1FHPpL^Ldg!G10X+l>uGt|KBm?uSLy%C`{$!G zCqys2{jBW1OzSnPK<%=YXq{AHJpNu)puO|NUCi3wvpv&ugUx-l2|S_5u2V(V%KWjo z`VFdZgucbNfJ|0mX1nc+f+Yd7hh1^+y!1#wNn2 zy%EO2d8$V*iHwo)NfqCiU8Pmu-vZj~%j=h081M1v9bT z_RWfHPI&}uD4QcD@G`)vtGZTiYV%{SQo-6M4GT3Zr`|uoTbk7q?W04Qg|AOQMASP) z4`L2g_QjvJZKRkH>63Qc4V;C^3A}K=X-tNXDUd`AE>Pdnd_;1fD$g+}`JM(yhKsU6BM( zkWnN76r@Ft{Y*gt=NA;>xAwWfwhYMl;-Crm;$R5u{F%V#`HiOP=TGlykDSk#ttDjj9FhO|EJ%0c4vW zOvkRA@DC2Q@NBU4%X#t?Iqlt@k(J!4}PgQcq(Za=AG%Kx2p!{HpaTrNA2dpfYKCi0ZZ?K3@ z_yi57aJeFl7s6d2XbD0z4PQ?>IGiE~^x_%e+9=EA^M=)JDE~&&$tKk@8oImHV4&lZ z1239^)z;|oi>~~cfhij?@Wqpgr^vxld_C|8W$=|pFzLTzDZO5R%xO2?JOKHr&LbX9 znHnj~-1k2ANt%;r7MRd?kj6kYtQBE9THWaT8!0>>!v@;h5lxg?)pY0~Fu)8!^`c__EUfzdi(RUbhirk`a<>{l|h!~rgsY>W*3<^w@rF$Fxvh=(O7nx^ls2FSTMaD0=Fi_cRusOxkPhrX8gI09 z88L*5A&>%WZG}A08Qb^o!_5^6s-o@0}TeGzstfSZ>#e@ zC;$E=xL_D<(y>DjRcQYEa!fdsqRR3&CL-uVuF$7wfup}G$cZr#UjO9Wm#8Ng`6 zesmw8)5{9|uWG}cfQNJL4d?~gGEVz1P6j(^Fc%tPpwri1YDfRJIv7B6@$>2v{AGQZ zd=fcWua0Q?ZGE_NI7QLwZ}h)Y45{+J+q~T0Yrfj@x1RpRL1f|st-P7>mT+HfV}XT* zX0aEjx%$P1x$JJ6oP`@!)4f9oaTId8tD?ozw->l_wHGIgTPUNQ9cSa?rS+ab|K?B{YtX^ zG7I;ZUO&w?MLL{jS75SEau)18&f*1cy)k01rPpeM-^HGM2G;cdJOptXS5#cuQ z(ybzM`+=?{j;WU}tHOV#E8<@gWcopsrI2DaGwDOApuC*T*Y>HLlDEvHpr0Y=-cfyA zOIp+CvR-3w06S0QA9S^1qW+ATgHuw=#7zZq*i@#CC>IZB4UR<+72v`0gRhX5L-Ynw zU4%2q%EkZc>6v9e9z0_V*J{fP6qs}wm!ur%jyMz-ZiV6N%U|)ej)TXz=}b_Ff|}mh zpb&rNxT{{QKfaarZ>)WY>}PswkzW&uJRa`_uWieY3Z`lpb`g{%2K`<4{2|P7E!MKc zM7DsK@~=qxGxt7VO1GrW7a~aN=CY&}uQJlh@s8dB&9I-U;Ye>Tnw38K^ zMqTxS2X5F)OyBL8yf`%LS`bHWi=ETzk8_HEl~`UF(X5ueS20%*!R!J0yH>6Mc^GXj zvqzd}85xXqL!rWm+Jp?*<*Z`uNZjC=;H(m~XtjO8h!&mrFGLFp@zQ;w_y?jD#*(g{ z)8_2RbTK)&ahTL1j4B;DY|qKl+;%seppjoE`_>SS^^Qw>ULDsdyV`E;>{w3TW^si1 zT5N=h-&rN8=VwR~n5|-+PWw0BWX=Az#pswxx^`nzEv2y9T&ZGWJw-aQID#oo+)35%X;p{OJa z9~O=?Tr+D|22W0)-T#M~lQFg*1>));KG< zWf=DJ%4s=a^0PW$Ve5*%2Rf5B_)P^_IDbnDn9$ndm9)`CmO+_XaBU((FZqTEt#{}( zZt1#qr30G&cjn*R%KXc}D~~XX9=6z6-S@Wqyuz=D@yZrpjY?W5`3&SadP$x$?et)x zIX^AUm__w>cp~oPZP#gmo++D68E_k(xXDx7MEtd~F`{A9rpXUFW7Bxdr#NUiW{nzq z&^R2emo5I$2xz42fy}3PL#9$KxW?44Gz+G;3gfa9UZQz*^(Z7;TT;2P@aM?H|Rq=vCFas0ne);_Jf;*l9za;-pw^&yH|13Gy*b z<)CGjl`gA2|Hd+KQ9Rz-|D<%L{&~x@UK1CZj%_1u+!Lq2h*L&!wewzMU;5+hDecKK zT06ZCK7rjwOxt<#mnRb_+XDhw^#BR#!2v!ghg%p z#jn;8tYijN%q_)E!s_>g9Wt!4JPCejR3qo6zaJ2Tv;L>nSLvX;0qX(XkobGuI1RdS zjr{k!QA=AXPB&8LyiltEoz;GJCfa%0ChKw2^gC}G?L0&6T*DEq)MW8A#Rg~!yhVOQ z0NOa&7B?cW@CsfkPcN{L3h$H8H=eVCLBgFnCQIYQA)w@C;pnH}UV2UX4kvzsu!(w- z74D*W6xZL3~VWsloCUbT$u5hQe z$(FbdfrZ!bYD{fxhsme21_C7+(ekdnj#ld@v{i?(Yg{rYb+}hMOXgZm(j|BDe4GgmwC1JRgp{7epX<4<1;(=NIW8u)B?_j&J zc9{Mt+{k(|+t4jFldRoN+4U!^KSJj9}H_PEC^o zaUJ{%d2nBO=XUfG*71a^GCzwkZ^4+1uP>4M`vMfYT|OD9PtFI$`=hlCvlMoKHE7r0 zTZ53ICt)PJe}4_aJPx)SOFNc-%AkOa0f=xaa$XqE+o3o&pOO!ws7&Y5%0Z4xA^W8q z5Rah?37UJmGKX8BQ%*2X`3{pgCm3nCQ|shSm}0n7`(#C&w!lI<93k&)JU0>K+8eS! z2Q^x3BN-bq2zVr@{lk*pCJ_Dz&h|(8t=At-Cn^T+u>%OVK~~K7t(#HJt~Ll%UbR6vvys&gYCxJ+uFY9g~%ks zbm-WZwqUMiRj%f2%Ao4}7|OHHhZo0<@I&+A zp7P?Rb8q4C^5T%WYp~>Sr56y-z#F2*QwM;I=(ep37g?GnA^DpGUgXQy0 z=S*ND;fsxveH_4yf)t&t&6!OGI#xi!BJYOQ7D*@OG^rj&Y*YUk&0 z6$OYnPi$n|LZJkT!t>fD|NJ&qY`|k?x{}GTN_D;cPzzCc$Z(Eu?WEi2#Ew1ZubtRf zZmj2qaG1cFJwfk?rBuq0H|0p4?l9KDcZ2j&~NM!ZL3t2^d5=jhe(-xb;o&T{{z!^UP<-v3ocFW*1f82ojM ztT?d9LU}jvdO=eN!t(yWgK+3yr4s%jn(5!u4X~As-u#V$v-L?wq(0V%fQ#|!V_g}` zuJujf2HJ-}_uYq3xk=`&e(d3E$^QON@oxT$Jm11$&f;3PQFA@e-BFXX;hX673O`d5 zk-XlepF12bUo%PZM`#x8CUh;N3d@c4+yG!0yYFBa0q1zOFca+@TSSldbiMcVuoQAm zIh(!6qAdg2|7T6IbG7sF)L&Wz{?&fkd9L{BH#ixYT9+puzR8FPh`k|^?wG->J+(+` zzMWQ`vG4ibY;xzV+E;Gfcklo6puQ9=pkf(Ww<$=5womib05~&(0nR{B3yNrP;_$od zWB^OlPDOAv3q-eE+Z{EK*P^+r3=uBYn)?o`TWo$tHD zO&Bym|@eHI%p< zsqkkcb_6T2OQAE^1J?Qj)+S6Gfb;4F?lA<$J(dAkJOct2+H-9Y;D9#eJ-sM}?6tt0 z(QJ_Y%aIDp5L!|+0Q`G&jle=09JU0TnXAo#d(8A~XjS+JZ(=8J{)kLptLnjKNr0~} z1$EikOv&o$0YOMG$a3WA{1oXn13b0OyznLXv z*sxvXyK!riBo>0zvCA>VKLJ^qQGIn<)}8z?cJDl;3&DY*$I=)tr!#9aceJA<>_5q8 zmqGPP;P2@R1TJ-UGW=fNLu`b^YJ^1Fr=0J|+lnRR?Fh(_)DJMXQVyuc&9R#7x$C0I`;^{{c&w9db28QZNLQIB`7=AsUl7ab&vQ z6QuY2!R25C1Ia#rOy2=;2tyt-@BXjh5LU7Yt!4qmqFy!~^|BcO#~`}Fel@ybvvllY zJ;|6i);|XP4gaPb1pg58FYu2oY`Tt}&!+xD2|4t0ili)%HwmV?cIvKbv^8%wC7KhP zrgIHWc~gR0F!`_k_j9L$7@NM;jEsUdaZR~HJ!2| z@aVQE6;H$tJk`yFjVTYe+(0)upU&a7%m1`1FA)* ztZy1YM}=iGI*o0Z3c>nE(CQjZu$nIZ-=q@$A)4vm(~Vk^$`+J;)(%v@cKhBgdF{mj zPD8C!8%$=}<)8)8o)&Z#WwZzPhp+{cxtukDHcL6ZKvY-;3cZiTMulPX=C4asy;&L- zjhR`|ut-ea#2+*)3Ps=b7bF%9Oa$JBcP-es+fAy2u?dkWn{h_}hjas&3f6987tuNB z{{A*r9KgJ6g*VFRg++g3lhgjaN(3On1_Se2s-Zx8#VqIw#x2O4Fhy|1KL3ry;SxFRjrMVD+h(e&?Ut% zbwu(OvsbD&F4uDgg__pYa|VtxC`d^M$~N6x1&afu*R=RXU~z2qMl4wTZ-T|qg~h(7 zO%y{3FBcXA1<1LyQ_=Z8mkWz6*Tw}t-F3BbLBdZYK-r3!%yna`jYc^dwaG82BX?W4X3| z)~0Y{r3U%pQVsITP1?l*5CXP%Bf1vVPXT26u|c{XanuJugjWQ7eYJ1pwH43T=1=~? zmL?pALICvl#8M4%$l_U$=`+uEY`D#PdZ{48RL4pU^5tUA0PD5Bn6oY@j|;MXrow$! zv9!+ELU`ERv}^GE%WmCGiCJ1Uge{v2oF`PXK!t^O-ZtOQU8toLbk^E`VIvDFEMN=a zVO_faQ!d@gKRS9Xmu_4xKn@D!t}j6DDW4Ak+3R6(;;S`5 z>85aF1)I3ZXD=AZ*wBWt;@C=fhN~&BWAPHSorzFj+Z9Fxd?th*d7Z6w zoc1-n1A@XW^0H#qJ(kegY$BMlVCzg5%XhE|0oEQ_u-sV34X`IbS0G>UAT(`ck6q|+ z29lf&|C3%?I;hcN6W9|NU{M9wY#i(Ds+%(TKsJu4@AlZ}g@+(03_A9uEt_(vf^rC5 z<1T-xerTI2h`mK;HfV>;-GnKIJGD<%Eam4aj_VKrz;GiNeFi3i;+yOQsBQ-l58nuw z*t7=Myc!w);~Q*T%331=mK*E10qn8p$lDd@*5D?&X>EX;wrQixw3XQ0-~Zj*-;3gy z!qcJpYLgG2XB}03o}cVIUrpk|4J+lI(ecv|AO5rGO_H-gfQz_idSg`8f_nuw?ekS?@A0TGT#I|I@s8m}apK_^diHlCZn zU=z{1-nL)mptHf&Xu{TL3NyU}P(>DT)M39<{SoYXCw|O9muEjV4C;>qAVQ`0^w4rf zuaQIm=|aN~Mg#zU_9m=4+^K1DAg%+A^Fk-~T5O!`TeXD6|0)OF$g0z3?M~(g=g@}! zoE6mc|1ozCHWl8Q!TmXW^EWa}ZA+a>;+r6sbS{G3erZ!6hfCsW35WU&sizZu^KHnKmZ|Nh$&I}iC~qR;jD+<)P7 z*myoK0Z#s#)0r^r%Cy7ZM1O8Vu|jM&mg-~uW019*Vul79c5U)+lmZ(5{lmcvg#u;8{=CEj zcLTcA=*BtdGO!iMSCJxE7{fY$|DHeR?*~3z6uL;$vOTtClkBk=Tfs&NlCZXd-#8ur zKlZLXtcmMuTlcz@x?;768!8n|tyC0*RIP#n(qb#Fq*4`7AS(Nkq^{Ib0ap}+Xho<+ zi3%0j5-U)&h!G+pgd{}-jF3b~NC?@!JChI+2rWze9_w%V2cl0ixpU^+Gv}W3p7(us zc#!o`IRW%Y)Xroxl2--UBn(8TY=NrGP_chgNIgvpK#=X8x&sNa?dWgM$4HRvV~~YL zZz*_q^j0k7L8G@RhCDJJf_kxXJXmri(Wi{uwp}@Mi>E;fOtKtyOuOb1U^d8MM>!Ih z?Ze_w9@`W!*1SGNyGl%w_#k}s>asafT3$4|qlwT{YqXEvYEjd=0JTvdH3~Rn07_Ao z3=_yma4mUC<``L$0W`N5OhdKnfdCwBFwHnlu4JqS)U<>^Aa2Leg+f3IvdHLdKZ`G5 z^!5!TvfYv?BlTFM9^3DFY*#Yne#hAE$&`^i7Rh7#O<3QBOu7FjuWredky^ojr&ged zSszNj{`}LtPs8TTHT-IC{Gsoz*d4eL-e@t)-Dl6VPmay3`7MLx{@wCjOoCDIM-45L z6q}cAY#pa9U0D3dkmAoI9F->C2cCy^nR~2O|M*v?)7*3K$Jz|({vx4%i9Kx*Z@Mx+ zmY!``9Z1aFcGxycR1u!OdJ$bVlWM)Bbm~;ksL1p}WBTqfQ_HR6ovh>7Vh2pIpv8gp zP{46u6$@kz=!b$D2XwK3?||CXwi6)9O+C(5V9Ntz>5LC~_{C$*!;=?l+}i3xN#)k( zq1AWWc~J2`TyuVGmd3I%XMA`GP^3q9x=7C^2h-LrPkV@$Joa087+~&KR$lyQbZm+G zM-OMb`}e4n&6bq$=0%Me1}c1BqUI_}dOG8c7^IV!@wL*S#hfjnhSefs=BC5$S)zs4 zAAjsAib@}5TbVbLQ*uHWl+e5*DS1)P{gw*+HX~~~GyeV9y!BJeFE3v-x%~&NL38$4 zdxS%SbZ^s@i<@>)a2{FHR{(y1>E4fj9$M_t{=?DfK(`;%XdCZ3b8y#rnNal(3s2Wr z1z3;u5Y1sFjjz_Y0{E71N5t+F(!-TBKOX~AsaFAh>tT6o1H74yRUkdPP6p{2SJ1m< z5Vmz}92SGwx|I-&$KmVwEL5uNwyNwPejVpHVVhhOwI_n{U`|R{&8z3NXq(K?{Q)9g zks?9b+A5J3Jg6`%l(5+qX{Ttk%S7KccJocAsIW%)gNj3^X3DA`R9yaE*7Ts_)b}#> zG1A_~J=w2bIxesbpyr-RL$PEw7K#ueH%wkHPKl_mcOl^=HJsxXhNxWk40#>4t_(|Z zCA7A*)Dn5W5hhFd&24SXA_I~u=7K`S7lO0j=N^#IVrl9C1t2aq#^&(N@_ZP1VKO zQB-2W>zaCO@Sn*Pc?*LcUQT4nWqEmpBqsy0^tHU$B~(F?3b`T_pJtOIJ6nhg;)@A# zxrC4_6I2I==3|(-1W^ks$^a*C%%dA$rr@LkaWRHT$A~BahFIn!Dqc!>-D<#N;^l%` z8ipeOE-JK15ZO!;*A*0x3@t^Wt>w7;Xhk!v+=39?!j>gdsWu7@3XMj8oa)M|VlZq7 zO+`+qbruwI8l|cxsw9nSK#+;W!~k@pg*z(BB5DpNJDh-Tl8e%6q8?#vaBajI;*WUn zzf?30F=nE3z!!uF|CGOu3U@K!u@q8i3%3-1Si!3KK1v}G+$yw)XAMz^!wZc|r2I6D zvAnI0$D>qAn7NXc2J8lEfq|iS0;l-mpi+NP{-9m?{6D5^aWQBsLPH`-QX!!ZY+WZ1O33 z@+n_Q9{Yu~Zhx>~x8*J4KWHTd%`aN~np?M5Hx=+UFzpgT?@k#q59{}P*p&~l%8_Cn|<*rEmYVPR~XI5N)JU4wr{0h>ibAO(i zb7QR2(#?-pa|&w?;lY0aZS=sA!7a0d1g9$;YC!X4aY&0DUce>St_jBmJHMXqG=fsQ zrX*vTsr>956IOGgU`xVjYolPtc~$dXj5xC5>Q|;uMjT&}^4L@`;?TX9fBfPpx!NW% z$Av}Xe)KmM`OL|*{8m1qdGh{YOTQRsH~iSNg|iMMp4v)e);F%n`D8qI!u}&GE`9Us z_}xcVU;6gt_>d#Zw+p`e`Uq~a5ck^>oBKAU6;uW{?-{q&70-=NU9iPIvWd$xp<=a(34Ygaprvd=BlFl z{iF>Ezq4|e#ZaF-CB5KhX4A@=8d7SKEr;2Cn(HDAK7`54alL~#AsJS)p`}NAjTLD6QogQso$fMs{MsXHFKzG`zxl|zOD>bfuQr(YdF7X{al4n<{P_7= z_Y5bO&6n}-XE&Rrd`-R`mW#jgc|z*C&sQ8|=boJ0vZtbD-t{p~QNSoicAUC1c|td~ zt=V^0z5u=6*f@W3t*t-^t&-%3xxTDu_Y;(FIVt^5TG`dr(9JtvhVJ~z=g-@3+~sn& z_if6RJP8W>a8J$&(x(ZjiGT9rABI9Vex;(X_dPYdnU`*EOguc5B$&r6G)&LjAwKdj z6aQ*S{Cx5!w`N@7mMeWHxB6kZgPo~q+=G!{ z5t{yeYea%-RccJG-^pOAReJbGg3@{s!jKEiD}>R z#c3n$x7<+;n{6tx8P@S^+r{EwZkgZh;SGX;+?i8e-nAHIH{Enbf$H9G2n^rj?mM+| zgx&jBr+uDyAU*nn(v?H+zbyLfT8-cF8^S2ornI)>=E>N}=N4nxcKCyt;G%164cmS% z@Vou;rC?y{%*O|?lcHBRfBDmz_f1W9E($hcqsCO#%nlzPJ=S^oZo5IA(~T0tM@5&! z?6fT`30`lTypO4HXxL2ftZB;r>-G7kL&&q1SbIm-u_Yx_DRp~|s$YF-%^LaXv?GZ> zjz2ZldF@}jnk`HBDRdgn%JNY`oMmi4U2WmznAX)GFP8-!rap6W@-;fZjl=}o;FdO! zcMKkqqhUV(#5Ac+^9A^Q9Ae?`H#uJxW!qMCIU_rH5ob6th?r1kIgsIKkVctQJ|=ab ztJb=f%eqtg@GS#eWuzZ~xJ9!bk$7x^m_(f0s?2FZyvqnaRWsXMit6#3NwXEhPJW9N5AC`a%iES9}XJPGC(q%Pc zBsy1PSxNF~V!dvuteN5#LMdV6ENPJfzLzL{y=|gZ>4EVYPcJiankZV=O0KV~WtEn^ z`Yctk;4TO6{}JU0H7$7&Z)WkHQX}>kBQ$*~@aZ-GCW^g-ee<4?|Tc32DVmWJVjEOa?}0Js3b-gZx@P<)5rj{yR0L0vF>&FQ*Gq)GFvCc@E0+FEr74M`%(i?f8$+i5{gr_@8zGaF(tRr zBRN#)mt<7U_u^J?hitX2N(-K#@l^ixPQsE|Q_=CBwyn$JLT`t@2mJJdoKDZgUH3ED zB5IUXCg8|4>rmhouY(thyhLDAZ#4?)@d652yWDE)KZk6BJ@ClrRfLA~I*;<02Z1+=Z0s0@do}%kDYE=pDpTw;&RQixS63zAG z*7V$lFJHPfB*s7F z_(3tuII4HvTLip!HGy&ha$lthd*{BX+zN|6S+Jr67;wKomHY=`vY^l3&Z#hLdtbnT z-XY)})Y~@zs$AF@p-czt`Vzr2Z@XhIu;CEi7w;_sS)c)d!@TtH@5u#SR; z(h=DIdif58KkwQn6F~0|%yr-Zq3{c+PY>{S@BkY%!xu>9dJ(pFt6A7 zx(s?*J?*pMQSf6IF#7t~YhNYERB2`(-qVz=zyPmA@M*0tP6xjIy5hZ9=%~<_Gy(d0 ztTN5)i{HRWiaOTxHpTAym;Z7(4jff$rhxq(oTT>KUY>M|!GRtAG~kVxI~di*l6*tiD7{=;4X_^qMX?A)C{ZfR;2%;-WBKaq@jw^mT=>OkOSz zuc0&vNsNNH479wBS8jk|+Ju>-CEFF!7$Va~BIWbZ*10AVIlkM{>#ZEu%<<+0C!gKW z=u_~)youK~-f=7WsbJpOYa6rNDjsb8HZjzB-6wV?S7($Z9({7s(%EUUUCqH+H?MCI zalQN-ZOU(kl27F?XbGIzlu&Q-XKrZiqp^AMCPUNmzdJkW;n+i)+&;A*wd)xBq0IfH zNs`OibKvKWW2T$j)^`0hc-ArR_&);OQ>`<+7(GS#Z6xx{7jAo+TOWLE-xf?}TK-=5 zV;zfBTGsOF7PpNRYtEi?)oD(pk!?>td-?zucsnbzA-O37GV0}Q$f%FF-59kzz<$)A zWj!$JpTMZ~t@iOXkWocJuu)%hW7H3t&Q7`=+ykTj3XHm-B_`_$WYl#nuu-3OXVjPT z7d{mBz^F$lz^F|q|9se}O|Vf5yE7^a7*+6ZMlH$@h%1*BX5?oPj`$O@X!$p|+4Y(E z9)VVs+Y1g(80liR`DReT$qDu@W>)7jxKv*AF>dggQzM+${ATz0)#<+{Mm{+;wDiuj zHH}OD@@X5A$ndPd@1oom6ySHVjVX-_NH@4nfhW(&Hyk4caDlgOq|Wc`{a{xChuB6| zINZt?{MC*3D}5_!*3Fu^+4FDGZsppIYLIi;>&E3}p&6Xib&6{gW{KHNTEipL&B~ps zK%-t+}{y3}LqcPgoQ^kgJ3s_wPOP6p1HpRZvjI+-?D_mzC^(Tn@l8cM z#k=M~;Y!O0a13*Z!FCEPT^4I%4|Xv0Jnb9Py(GtSpRk(3+>4i`@m53b;S^Yuzm8O` z9l_eaDyb-=`>@!)dJuF1KHiyO60rHUAy_WUn&IiTQIu>I>XJ*E>+~iroxRg7x%{;{ zh-+D;x2_QZY`{z4nlHR2p)o$YN!t^o!^+T`qS?Ef*F(DUz1os zHgFu(Kn_ii96K41aoK2t*~XiD3x1gp;bOMwreDFWQ^5^#>4MM(o4NHv^L;5a#nxjc0U-&ZuOaVhysTrJ_=#`pdR1zB^sNs6Mb_i)i^$){SXr5`X&U)MRJ- zS9aE((~ggX{VOTTtv-1tT`~7|A$TLLacgr#_u!3}HD{As+tKa=eS4@}T%0L9b68To zGF7-yL?wdg6UGBB+0*P@{JuN;0sN1rG6`m8M%#Xy|4$cGeq+?E_?jQH<{NF> z!8sIp^2nkSlI1t{emC)hhxZO_TJq`0VY{kdX1g)w$_VQ?yUHW?7ni=AZ}Mna{SN=* zpDHGenv^HQ*d4z(&?SG7%e<^8vPtgoOVPq7e& zkk(`wtThS98?dhFSab%pTqQFJ)9?c}erTW=(CPZquu8pj<2W!0?@Pl#gihbJLd*@@ zj9K`F{ULO6_<{P^&k34^Sj1?jB!%bv|8?R-ImQ5S2epbuImYydW*8xK>LB2HYgo1b zp;HLpewM+SQbj2F8Wo`vpwR^sWDt{XJ*+9k)8KxFr6UZ~L-19CLP#;aN>Hw5(oF%H zQYc+olgPx|e`n&Y)8v}TTSC$U*l{FHGo&IEFXD9~iqbk~TZtDmqY0>S%9ZRmM5W>h z%LVP#lNj450x^~c6i+DUbSa+D5yca=YNBRYMC3t zj?)h@-i`>T7mn|@BtYt68Gs!}VFO6>`t9G#JzTpq7Myq$ZKH0Gu!ocLPRHtA^>t8Xzqo0$C|N2U!K6 z#}P)Xd3=GSeY(x%BJ?;N$Ne5F*uFdObbU|@TbN_z4eS|G1s+yM6))ZPIL8B%>%ntP zS5*r{r+JHU6t-F?>YqbwLYOC0>SB?f5qEJZrqem!NOQxfcV6dT^uiI0Jmk0VoUez6 z0@Bz5KugNQFb%8MV8~)!2QP)fxZ070?I3xiLV`Qn+quf4Ai*6^8Zl0ubp_&*2b6gz zkjCN`=_qdD5IQG>&Z*yYPR0M`u{*~kG?05$DoE;1F#U}Pn*q|vi|l#YT-S9c57wQN zB>>~J3X9`rdpz=6*%uB>eQ*`);jn=$Lo*i!M=t`pIB`fGJI)+QaWo0I^kNOrLx9xyBr&2@L8UQR zJ@pWrKq8ApdI(6dK+|9KWDQU(Xz1u6u%xFT)$|rvH62Ju#u;+xRL-s8RDYI+ek4p) zZmd@5y#uJqiHl{KY|<83(nxSc3?01?k44H`o#^WHRo>F*dg;q!0}+o^J}kXFBP18@ z@cd#E5M%50A7hcMKt+>^c&uhcQ!my49?R2zxq!m>kVQU^APbhi5zJG%qUdUF<6ZC6 z@`<=Bjq~egu{TH0XL&zx$yFS>usnRj{mkDAxcQj7<&(bq{?h+6_6F+dLi!QPp01Du z_jGx#Ig(dUPd8KnY75H3LN=~NmIM-ANH$&7Z~zsBEOv$?1q*t*pmYmIBzBMpKqgn}$BB z>X3%35;P>S7R$(xo|I499$K>Ukk))9m~RZkCaZM#YmZo-VaPKDV2xpx=e|Rp5hdRC ziuSuCk8Bl7u0Ym>Gsvp)>@sVTe{<8!351LsB=3Psw=;dx2{@~)Zq})`|s$|{r9W^O1F45{F|d} zHUt6{v=*q@kV_~bi>nqyyxuBekbC2?T*PBL<|YszY&+6RPt68cQ%ccH9_|z(se`e! zjEF!0n*mr_9vHH*$taq!49wV&$Si?Mxle_qt!ZzN0W2+;uZgo!V`<}je#GcLqrJsR ztg*#%noGNFJBNBUNS0Rm+DIrvJHk^B#UB=!dPG+6K2nK4Bx!4J_Dsm4qd`3!RPWuh zF7-uJ^c`9T*Ml6S_b`j`TPbZW)+IK{neEXwqDRwvNGhw+WkC}A_Jn*k_$4zD%rb`Q z-D4FMqnnB>PIW~mG5}<;GsvZ@U=9*hG|#ArHMFh4^^mjF)myBxLzWxb#7!~efS#@l z3^S@G8HHt{IF)Ytzmy9=PnQ6y1z|ejiP`VRk`H!uQtf|1-ldwaA;cP5)?i20QKq8q z5%inO68w?0Kp7d{rP30FmVOJ$jvy^~1N8y`PDIjz_d#qx0;E=e)W-=Bqy-%?gbXD( zkqIUl%V2^7IT&VCPBI2cUP&BP1LG=!12Dpyr4np1WS)f?3n?nL4IyI!2XLxDup?fOJ%1 zJpoBjj~hE$6fzv;tav9}fs92sY@tbe^zRWCP{_n!kO&LaV&0P6@7-BO)@8A%qg0@z zkO>t%XSl!=G7^9QSHZtIDLe}mB}Y3=*PV7s4r7?|D9I@U9tBoX$Y6BRbm5Rv0n&uf z<0Kw|04r$E)$rOT3)9wHwCoHWK7Cf+ZG-=8V zkm_Gx9|dfsw03APZT-I<-rE~w8BvDS6nrq|@En}Djt6miY2gs$o-wO}QYAhZ+%v&G zns&>9xEROOKqxZXIlbrrhmfNaEB+Sa5HukO@F7w!I1fD#R_KGH<=t5Zpzk2*KgMD} ze=G>;k9i(M+Oe8}Q!my4{V|sQV=N_mI=*R_F5bj|apt%o+SA5et6_SXG(si?H75n% z9cw`39Z*MC2B8z%nu}Ro5a3c;JD&CiyC$hqb-}wWN29us(@v4306?$j2+#|pa7Z5e z2J%=14gkGclmy@wgk-?~nIT{R<}A>` z)gH8=B>_S@hJc>Lf;f_>>ZvdZl*c|proxa2s|D%P%lk%!nNda93|$dcqEG-&?zzVT zU?L!_$K=H8@K`cZD(EQaAcXY}hk9=fP%6+&V>x$L39{p0I1DmHtXbvOi#0%ytpof>`t{ggB*uCw zGdKiF`v#!2Oh^=@O(_aOr_ca1t@f~ZGR#a12xPVc#hMNpa8M&yjH?s`x6^>57t4a% z=?$<@IW_<($M#jmhE}h^0@1Z_0`(*xKeSS6H6#rDx9T=j@9uh$(J&wo&Li2Tnt@PP z@do~ix1~xB3bOEsjjAB4r%VPgp-7k%9QX^&4dsfRdwtu8aR0 zA(26JZ2GCx2LRx~9W4Z%1+G4{5Rgpv9m-@Omc|!%y^|^?#yi{i{B>sAM`u}QiML*e z4PGqB@-WPFN`D4{8YhqR`uNMY?8FJY8)}e=;RYFBAw2_eg*U-m;YEfVXu6!D)Ei~E zsCd1Art?0UQye_wfU%I>2FeU93qVQdNi$Z1#aTdaRG||$lZMQdtLeoM#+tqm=dh2~ z6>AKT@hP++K*+fuLI~6wn^!@6pCL}-U9^liGF<>Mede+RHA#TWK8GEnRBr?#j#z-Q z1rj1YFqZZ~47ecBX=3PTH)x`MwCj4Rr0DI!SHB%&)Nc#g{Ozy?$atZ;f)uVRh~p@b z;tk3*2Wshxm0jIH2}Lm++ZI3zR00qHnpVx72rJ~?U_-JupvF+B9??zfPNvBM;hIr5 zg&Yw+FKE_L)gtS$H9)ta1t{L|Va1zztbDDDIh`ET#AQSXYa@ivXgN#SZQ!P;1RMd< zOUBZT%FTgzfa#MA z$>d@b3>ZtxA-6Mt<7t3Kxl#bN8(_YAV~7E~CdnyIen*X^E$>bUFHWP5-ffv&FP%SR zE=767f9HmURE02AslbA81z>40IYA=zxvPyAu<3Ap7FJZ&i$oSEEYNk5CL)P!A5yn= z_$*XK-Ll=zR`m}k{0F1T*o?ryijS_$hxAAVPX-9uE z{Z@uabWYgpLMCj~$Bj4LNfm5Y8(UX578HXH?P4wmy21akt}vq{OsM~}*EJ-_BDk5Z zskvTIL@I2ep3h$BZgs^f5aA{DL_Y!mS684q1qaY%X z=bDbfq(iJ63Llu=AONFc^$MY|3mwtkFiR3VU}F%6X93=WWJf|(JG%iPdpa41^t_N+ zaZRduJy`?vywV8EwjEZ8Vlq|*(dr4wBV!Fgxd7nb+Dozt&BaOBb{4vS_19CVVt2*M zqpe^lygo%+1A}y^+eVj0MMp0q@cLjtMNT{&GhJ`ZLjgH~xFd@t%5z z;}H?$1o*`|Xg+ZWssN#&>o)}*Mx!2Efq}RU3{lM7&=PW338Zl+&xYaObX*HV$!q|? z1s1Y&HY~pcF)0J?E*t=c1E|5icKEjfsM`tCbO95QdMpA=>_0FOVyjoxW2t&-(*|1P zXAm8AaepICFHlZW6}aB{rdOT9cQ?vvZ=C1ZRhX;4&0BOOw(^F_mS)+E3Z7zG?#m>` z3!8<{{b~&Uo?^Cl?}v~+n?~1OFU|T+!wpKd85f}52&5ZBVR>8?+st+hKp(1Nvi2zr z;1Z#^9KdC(W}AVB8xXb`kmBoQ`v2W&$m)kRQFFK<4jv&R0S$5>KrT}1jVedT^2h*x zsOmUq_jCa=5h9&IYmAV=!wqq|atLI&0m&iypF?O2Hz@g$FhD<~1%lItDt^K7mHbHI zxR!nG@I>vb7u3N#!IT~l9qr&pf`%J(_H+>;Jfx@FPw7=vPggZSrl%N-1^OWfYvQ{x z9gC|}Hi)`OLcyDO`6AxMH{GAsWPoIpvxc41|YPF%IORwk<~2N>%|&?)Jy*! zD@SM(RcB;fh!wSx`F{+s^0pwrbqg@6FcPuO4`Jpdn`hm*inN-knEZjS-n_8Cv9TC>#+)i z2;m(fLQuXj-X<6Vq>igaLWgU4&L~G!W*c&35yE06ZKAQT3=n$tC@nx}6Oka>soSL* zr_xuD)s(T3z*1pl5rG(r2S6ukNQFIf0R!O~outBGIt~#)AOQU(AnL4^3WH^AtaJfq z5bZ_;IMZ+7jHZl@5S9u{G31f)C1943he^k(q{42Hz(BZ9C#f)sPn$P1Dh_FbL^%@F zQem)+4Z@rFZqXIKC3EkcWNehIiTzJxAsHKlH4y<8be!__S39wawa}0X(^HI%L+HQX zGBUPzN{&&e_mfvJ9g$c-#uzon7~66nI>B!14d94Bv=i$QMAbNdmH&~i$KxmbHEg(_ zU`5ubZ-2P(2Vb0e%Iofk$_=!uIru;CjZXc%j=b68taa82mhjZQO_m4#eBXTC#eD;h zkMp?jMa|&Ja~>~I{?k?Gh+WyCW5|;G0b?T56#|mD=nlNka;bvpv_c2sXShd#D{EG)-$h9!nbVmciV{{2 zEN=a6sH6GgF9)^%Xw9NITx?3w`gR=)+BeYg%;BVmc$`Ph^n+m4-|yDA#+QSRJH6NC z9+0d2kK1LkIeklR#A|Al*TiZEiNVzsi%LG2U0MC5RjfzhIL<7mrNw?{*~@6Fk_^wg z?g}}>_D`}n&)gLf!^R~UoVVH4cAD**gmN4k``Dc*`RJXP_swfkCYzUhF>ZAG zkD7*mcU{;u*PC22O~V*Z#{LL4T=BV1S6Po-<=wH%6{5#tEGc}uEbOLh<1)$OYpF+N z)pd0NHKbY!tK2Lg&GuX7#?di^WtH*P_+{w&@MiQ}W1AP%nR9A0=ZvEoJ**2)JBBxp zGj?h@RU!5Jjo1895?+?}5i$7H?9})yf5KvdO-oyDMHo-?fJF}zrDEkF#DE0Z#;v0b zBg)Fkc^OkI@=SOYPqEVCt+?DQvO*jpu1Rga{s*zBB}B}Tm$cky4c&OgRw{Y1KXWS! z{r7Q(6r0&r&!z6FCkz-cK%p2k;4Awb!I@#U}qlfb_O zd7%Qa`}g>I?A+<+i-P~KSPJWfarB-&6Et@J3W z0W02`AmnCb7!&XcItw4hT>OWk%7!2m7savgcz#16iz#cBqIouG1&b)>Da6$nW3)`h zNAZ}r;9X9w9DWp)Aa1S|@h~~9QejM>F*8igt>N+TX^J|MF&Y=dFOajG2%$}4krR(8 zmA3w3Kp`(dTV>;$s*5G81hjRv#0kUyIf@`_kYw;&31N~b10G(|EQogE;c@%|vVuqm zR!Hh=J&l?8;u@PAu|PzS%F$RfzLhbxDMmygE1HRg;b76#98nVsFKJ~LWAMLIxCG+` ztekBLvR1|4O~y=$OwhzHq~OJmriz}kt^T6aWg7;f8rPs@uUkczS_L!%3{zTLR)|64 zLxgNBLEIGl;Z_Pcn?evv3!Kn7OBhlqQ@%e6y_#y1D`|+LD*RgUSytKB%w-9FJeI5> zO++Lb5&Y!MO*O12#VRSV3^mgDHG{-sPF2`ghknnJ@);?C6nRM4ljE}C3X1rq1vhUh zCM(QPT0blb{YyczJDMVCh$Beb3dlT}gh-LPwQR))2IKvGLzhrO$kL3mLc%H@Q^AQr z2{9O4;P;9GIw1^vW8V859=i$45up|JE!k8or|=0mjTLW9nSw>jcM}|i1R^eo;6=mR zF#+uzonVd2@eTdEx{-U&+Fu;`5Jd>77E4!10`S$vfi4#AhEc5IWL|My!-BfwZ@(L7YWOJxRso`E~dXaO}fitxR>sG*U9liH_a6@T02Bw##Q@=H-3XknCb30Zc? zxWopvj9f~Vtu$`(!N=ny!_d$Fu(7b7@SURC0QWHOs*%KiAh^6h{P9+_qQ#b9us$P7 zv6YPH*A_dW!`fO&?!pJfHo|%q>tpn{Q_1KI<6qHI>S0;l-mpi+NQ1T}ai+{Dov_h{ zj;>Hh*^S|b3h+19qd6$zx&@7Kv38Ed^~z56h6Nmy?1EOdwn z!%zHsPr`V7@u^=(!Oqgpoz{};*09T$nMz{k)H>O^(nc7JII`mESEf%!9AA<0*i1&S(mPcH-e>G{sY=aHoKBM2jt}kd>Ezlws6*g#AvUH<)QLfuBP3r=aT|v5FySv(%_aT7;hTh5aAmf zBlPq4Ar|KlCsMB@yCl0C5gh%(41|;S8@xYl`mBTb(SuK}_{`2GBGmTE>x*B_Jw4*g zitCT(rjLkULHcy=&m&F^O9^STmC&E~hJDy@BJd%Kn3|q2GWZlB=)V zi&#*0xw~8OTHCg`jM#M&h}c@Z?3ZpG_#0p`R14-?PLGFq}B| z?~yB=zx-*<`=%y46T_yX%!~-ed)I%l)^5nv>7x^m_(f0s?2Fa+UldthtJ!hv#v^0O zFK+yibJtNeEyKn)M5Z=P`P0e0wB!nT4*Ehu9lmZ5ga662BZ)tbKQ-2Q?O%4{6|T0H zqtSmS{ct*Zg!9VDb|cx-tatqIbM%84f7`;Q{Vul2C&~%K{O9vBF;f#BrO(Xy9Bp0f zKRAnMd^=>=k(6kcF{ZOk5>KB#(R?H)(r*@Cr~M-%7uBUk*2&h}7_;x-q}Ruhw`b*B zHPL8WZ7)j1+fyRV zos5!wkE_Z`JX^QnY)a2dno_1T&C9aSX|ho*X%}H((YIfWSfjP3CEcxw2G+E0+znRA z@ei1g-GfK-(wv-pjSg_@!>?Q3`}Tf{mX)S=XQdOqz)A~)%1*3ffy=P%!hdz)pLe;x zr_|cClck^iu}{a7`|UEn*ikwUpDS!#;qbSG}*G*SQt-;175a8;tf*>pDM`8}7On5h`lr z7h6xk9JVGJSqaIvg_}iQB6E@a$I!(jZA17Uww|JEKUq~~yBjOMb--VJ5YMgPpAR@J zs;Ek13|k_TPww(O(sVtKtjoEf!Y0;>s+V@6MzMp{J&6~$f;;FA@Y2_xXzpptdkM$m z20E|!#BQ|bwE2mL1kvw(wqiEssS$^fMzs(%S~1e<7jcI3(lXt%4gLlmbvH#bVl@m8 zU98)Tfm9n-Wg7O8A9#jf%TenRI5s~t40m~tv_c~kkY+Yk=-wqvYe{S2$iM4IGT3N4^-mp9GbOSS!()jgGonyWtR;00 zuq{eO6(C%ah={$ z|K!oA#Ud~1*PEdog(2+&w{RC{^BmZ*r!Gx?R+WZQdV%becNMLwekQjfXM|l(?%>tS z{XB4TS#C;NdH zoNq5*4MoM)lFbwwC=e(=-b9^J-HTTX{CQ;@v!;Wb0op*?X<9cMV1v;%5Yvq@KZ5U9 zf4-OgR|fgtjQd4mFGflAC`Fv@BoZduU~e04b1&jR3b4Rx^$LoWJFw@G%mujcaq!H* zCQc0PLnQU)R%9q2KYrWw-bcZXk1M^W$NL|4p5HUwS+C##mgSzEoEdq?y*DorV18T* zh6u&KzJ5GhakVBH>|Q7(DIX*9>XH_9|2`*IR;BTj!HlMCK`Q~USz)-U_)c`YD)300;qeF=IE z*R3VOtsQ&5=TQqzMBzv03umIebzFbHv_L98>=M}Y%FF{ce($nB>|#;lNH__#Q!FX% z!#fKk&zQd3z8LKKOQFKBBqMeLoO$-@jc)SKOa{n41EZ;EO6?G(R|nTE?Po% z>wC0>>~^JJc01Fj8@J42WV@ruAA+-^`ty}nXLdeHr_Q`TC{b6*0-PV|P?7*`7t5^2 zq&_4W>d#x1_AW_)w;L9m`}Xu{w*{sLQpt>}G;H4kRe&#*Tmqky`VwfM8`sD!dKqV+ z8=um@8~2BgyS;or!Y>Hu#>@J06=rNo$X)QS$j@9 zp6I#ix=YCme% zu|Lcf#%C%VZsiO98oT~h{%Ny?CiV^wy8aq9>t^nv)@rXk!zfneMq!z>e81tMgnE-d zO~Yy)jm?WU8QST>?14VVwvV5)$t`5(G1Enri>^Jn^6LCP%GQD?F#ZI&ELo*gV&D|GeB~C-a4o_2Fs7En5{WS7M6d zXD9J9MaxhNKX^GM@a!b6*}{$s!gg>7^tB(g-txg%+B}^%51WKH_ap@*(z0n7X?ZqMr0oIU5--Gc&)wFRDaNxt`X<`c{-XG)c)n`K!jl|Qy- zBW0iavFb;f9tB_A?{Y@|r}R^13v>U)t)|GUy?pa2PsR`+uPT7O%81a7SA}7ZZ7=yZ zuev_Ys?k+sj5+477~3EZOFp)p5lHntR>Cz%|1R&|=!nH;%o{uMN=FwhHbbA!;G$Ty z296%SDsH-UI6u zLk`VLsK@`3$T0T!DVN_{086?@$xm?aDK9tBM2X18FDk=7F>=Euj}H!JA1A#`%kJ0 zN#L>KMxnY3b@RJP9NOI&WELQY& z0;!ctd}{9y!$Y5%YIpV=`El1gvfUlpqgvh4a=c0P?6R~$Ph}D9KHPTfHH=R4d%aoGI5^GkyR#oWEIqKv@>Ba^yVwr{ zeB1V<`T3RH_B(B6WMXgop!Dlo-Tb=jq+jIs4P?KBU7JJGV;*_M%;|KoyJkk`t_*_y z@sStTc%;2;%K~22m`B*T%o$*FZ zeWU9aNH*yb|D)K{BtWv^o1`tD(F@7x1;k724@Q9TardlC=liydh0PzuE{N;LGGO(l zbutl(^CSj+X*Nz=fQFdw!8jzue2*_72Ltq9l?_IuL9h(eMPSnV8*CMGQXxeDna-v< z5*T2{^HB9=RI$Pj7bYo~AP==51PU zsQYSIi_Eu;y#!QP9JH5#kZfr_l>eADfZB5d7%mgRYR@Q2>zr*RUXoV@*@37^!0cgx zs>~qLcaBMDAhTT1UTynmPH{{uEZqbY8X%ztSh~p=8anr-VKQL7+L!ix5>R`loEuy$ zesxqOm=03|&>F~eL~#sJ9P?Xw7|b>=VssGr_D*q(2NcIxu;Lh5`kV-=Y# z8to(rie~a~r?%z@Lg|F!+knd+(B}dH1|0tvoFo(0!;#=x@{~e2vLwKtc#EBvq@tlQ zhS(HoNoWh1zgiE64fJp#baB~dBl_e?kX$XKFOrn}g+?xx8(s>f}J?F&$SH5hW@3^{Zv=hkqlKZ}=QyjXUJo$Sc7kmayr9KqkR z*cpyMd*Kcsp&>4oWwJ?IU_A)H_QgWd0)!=@>vq)3=4+=^)N_zc25Qf!*~@*&osN}R zyv56DE}F!UUGEEF9MZN=H!Sjp;3LBSCyD&q!?P?VB}cqgNNT;uFa@>se#=2F&;m&^ zsj3Bx^<=sLXyf%T#5P|E<^z5@mX8j}G3`gu&5IC8+_Vz6w}fQtEm;OgV+|qZBtkIe z@En}DPS?Rpp&%T#z){%Yj%c4YPnyILjcwaW3wLbirt@k09uj)?X=^wOiOo*Md6I#0 zu283l7-P0a+Xzsy(j+PA&}UVVYiA}RT-Y5fS%@_>y#-`BtY&u+@#S@ho#Nn$1v?Ng+o+&6w0)Jx&=t)4Ru?jHO zI>pJW1m*MLRHv;}3Q3V-kv!J%F_PlwJ;eb%1ZvHyRvw0FSiJ^A7VD>nfCh;y`8?7? zSgx1j@jFzT(gU+2C>B7};Hn-%7~d)DmkJ@E1_!+0B*3!lnvO+h6wO#xj-!z9&jd9| z#KpNR0Y3?|823!jki=RnBeQFOuqaT(txux(fEIQIuOy}pI(i`<3pLQ!=;0Y59;>Vs z!gZw>;ISHAFMW9|3-MT_AltQYsh9l=JeH{c7>i^Ds?wcao)HpbJH=SazZJN8UoKDt ztPGRvLXZW6--_}-pRn}z7^6GIEtS8JPUqHMn6+)>t=jDQ;@?Ds=tVCdk67yR`?L7g zk*$*ld6|7P&OGKF+99B@z*iR*=mZ7S)6ETS;-U)g?0+eahC;pqYiIHW-c1V^IskoF*^u9yJC zMfQ*D3iLXpS)}c*>(DJdI)paq1?0Jc*H7tosC$yoKeZwF*orJek17BF0N&COVJ#Gi z^J2Yut~nj<%FmRspaxlIu`z=%?4&}kf;o9Hpo{=>U^`!?)fqTC9gm)R|x=DH5>lHW3v&D z9Sk4SkY>XhXg1^o1F>gWkz~d)HYX0o(gvcK05$`#w7G;5vbbtN#Otjh2Dy_md0rAo z5R?rvfTacVHQsH0?O0lD)^xmB=NauSPGWIYon|RC4_HvLG`d*as8CNEBrT_{|JUX; zl=mPY0&Nh19snj;m&MQZ9%jQzMmH5%oVvIa(`k@`kr8*1Jx}u{bU_i2R9160AlA^f z21sT3diPkVyG1@qH+075O+aTfZwbMRz2nvZF_xgN-sa+zJzZ`=HVN+OLUPZlNk+O$ zPs;_Mr>pQ^DQ(sXPvju*MD^S&l38etx%M>AvWiuN=slNJlp$$>9&0*Cp{)aRU3U_s z1#h5U0KkbzT7VqAIv3#eau5Y+K?e+hsRSp6ik>rEV1fe)7-m#WGICPD2%~afyq)0S zPCF@wF$|_na#9l<02l%#Y|;C%{4#CibvZ5@Qc>-EC!Nn<5bFuj0%%W25o>5pxh!BG zt&7li*DFE+#%yW<{Y&2|WF*!rX`}l`A(I9uWEdYJ6f*A?3SEmrCPO(Z-U(MABq+du zqXzBKzeiX=A%np$L?UeWirh%cxvykj?8rJ+N2x%jq>y1m1Y%$c86H4@+bH4R86+}G zprYhZ(R9_cQ*r>BE?5x`pmA`UdiPDR}#$dn98#Vm+7G24(w4uO~un1I$xN^9@x-T-hpLU#S+kZkFg5w(bj@EUA&2O zgf|i4O?0&Q5+JAg%BTWnY#?-E3ye-IvLGaPL4Z58<7pv0VyEgtIvdQGTgYy+MGy%% zznvmUP8;16fdIWg3WwyeZy=AAivZB8TuA`VlE!zL3PUTIJ~=7ylmeaxcxE8h86reb zOG~0^f@;-MVSwoqlcSTogV71Js*{QCT^hSXs1Q012zseE_^sp%DG3YiDR?m%tAc1T zio}tzh8#eTq#jz>P5|b`T&IgT z5kY@fZstFKHJjMzkE zAd|O9K~^&d)sr>Ahz-R5t=}js1(Y0y*f~0MY!DI|4MkOiL`FT*2@a$^wFUry*Z*6A z3lavTcVwW&?dHXe4Zcb*bBjWguPK!=7xvL#USJ5!*zvvtb8q`coPIG-qb3)x-5=D zJ~M|+cVv0PtX@Ea9Fii3ndo4^OrBEq#*=2O9?_+CE7PPyP^l~5CsJS6Jli1F(6R>T zHk1R!8!D`LL!^l3Z7cDTJTJ%&L{-M1DxuMGf^vW?o1_wO1o|P6j0nu93|GN`CLW}b z3pAa5U=YGT>W5Sypcyrf-Tz<_OAintm3{~j?vL3J^pwQ{5CR#ebHXMKp+QhrO%Yz` z^J<#jp0i|wAzg(vKz~c&2^(=7r4&rqpj>l8MZe(0kW4O476@Z$GbFE64B!Ck1*wk0 z?FNXi9;h`*0Ls?JyRAlzrNwk7goi~0ojV>=PfI^~m`l+IjqzKu3{@daRVrXf&j2hf zuIV|W4^(ng-z7+*-PQq zovzp}M0g1iUg{TD8^9(Ki~%2q9OmPY7Goej4nq_(H?)KtRsykd$g^Q~13Ion#p)$X zGPaPVvtgDbNXZ7EY;l110F=D;wX+*20MtvUb5@*V$mT@ZQ1}Isc5aj>Y zwtsZNpdJfN-m2=cXo-H>v@FJlEc{|!%(O_;3zU;o1umrN)vD-_MXB7-IsB8gtC;RH*P-wOS%2RhYA{qMHHKq5e`5?Ngpr^DG8lxw zV=9?D2u<9)2w~GIi2!uTlw33Al2@8wFKrkCsNG`QzNZmYu$h=TOt++ozauSO#Jkx? zhXc2C&$^_`yS2Czx=t=HXy;uf=b-MLV&;mi0Bj~y@thHE$f=1CvOyl993Uf!$~2E^ z+F)9i1&%2IBDqTLjuKQc%!HtmG;udl2tx{C{Vs$-q=~p-%;7n?p?r9(TwaiEfT}Ds z*4M-~xi z?3x~hs!Rq$3xrA-Hp6sbd9^{zUY&Rop?(9HunDFCohB9gH^m&=EtfKq7Q`ZHL4VT% z1bVK!WUY z1UJ)f+zd2%OM=-r0#zJzlps;{DoN`vH~>tPDrJ`%a4p42SPK;+N2h6Vks~0lzsaVm z1{Uo3P#&8TKe$-@N?W$2fsB;5Iv6PaV}kObXO~l@0{TywG&OkFEy943JRmA7~3tE zGLpw4d8~VX^H?R9vR+SK-E%1;wSsnBqQjx2 zfJzyr|JLoYa#XVLHvP$j)nB)MJ7em_2Me}-7_oZoJ<~al>aAk9vwnSVX5qIO%J)a& z{jM(*m1QjtdUk^F(01_phv}EIH_X4ckFkdQ%AB?-$?&}Eu8=cq|0Ij^%v~WdY+RDT zd7E8rr`f(qD95p}pGo|2$rUX}gI<3+)+5Q~bB|vR%%0r-2 z@0+i?xNqR`aUK`Gs2SYppMINVzEjw+vS#!c@IRe*KGbmy@LSjjT^~WN^1p1CCl@Oi z>}`h$xSeUk-7RzMC&Zo??nttZ_oVKs_HYx5dAO8Z|nC zv6uAMmWC#2RH!6RCW%;&pQ||3%(dqxgnpF}`YFGv%1kc;54-t>{S;hf%2V%83#SoJ2wOF)vePzWclJTsDjL8}H z(}>jUrPAddMGun~(ay6UR~LHUO}7}k`kTGO&N~e)9WKg0*nH)XJj{O!E^*aZ{*YY< z#|`7y9kz+Y%XUtBU^EjoZ$;wJSwSx@o;lrcAk~)n)8Hi`WB1&~ATZa3|Q#sF?XOmr16|S5_&Z^x=s3%KCIt1>1dxW*ZvF@S{7PHzO@>CWV z-nGB@jI!KRuaZn9&qTR&*rit#tW<=!f=q;z!r(w^2z2S?3o$2TzLKUBe4f?XzL>+M zajl@Gl7|qRVN>e1Vi(cD>%d!fDY3{^Zm4~B%%B?cILG&$woFfLfT{XPi)Qx|sQr>U zPg0&6IfO;(49x+b&pE&*zXs@2)pi?hj>lWx>EkL%F+JGFS$13;p!8R1{a`cb&Tx zio4%TY?Olg&S=7hYR)@SY~&jPLPtVc*v9Ur!ROBQcj6v;l+SRdA+*e-F;LMe$~N2#fR~CAUHa+*Tj}XtM#1B`BOIP0O;+O5qOGPbq)| z$%~SHV-~-1fK!E|R=2wi%mN+uQ=C0aI?ziOz4w}ZK0a@*sw#c`HP&9Q0A(wbf^+am zz4ggJcKhMoH(`Dv)&~-^x}0gj9B&+sT4xsHTwDaJR7|RQmg9WgN@d@9Wn}W8wzdbt z%Eop-9n`ym{nnkx^*&Uf-Ki8fK*tl*EG1pP*i{^& zM}64U>X+nih(OmH@M{e|N3V`^2xF+Lq9fqbA7!4xVL|nE__H5U7ij$lV>$jn?xX5O zO4js{tN$DhiL;zWxm9EsJ-uxvle7M|g_FM%Tt1oN+-LhNy{I@M6E ztZ2vYm2=rUsOi~ODy*xui4W-{ofLbn`a`sBke+QnESROk;Nh(xM9NHIU!+l9S!?km z|1q)As(5hB@$3(RmQG`OwV;;Mf?#}Zqz(bD-10s3;Jo5_?OHIMBWe#+ajKZMUAK|p z*XbqEeJVO_vIFuBQ$T{xU!CjWh*+iFcZ~8Fzy~89`%)>Ml)KG?J$~;-kfXWV1qePu z$LZp=8KI%EXA3g!{_e_SRv`l03YZ}41=$PW92zJ@x@CMp+@n{+0oQfNaa?+#VWTbW zRiJ8}&c|S-{%p)_t)qRBE|f5cvI1i*Ffu;+duMM}pWvHyG&sI^&RrJdEz~+1M&Vr5D$DH`bSQbxwZ?WTnsR7|92mL>E`B-4+$rH zjs0HYIdMav)5IH548`peq!l;v^jy&#E|X0T+4yXMxR-Vbtvwh0bu2S7iiBMRbrLN_ zl#|_s&$~;BRjR$H9*MVCu1!<19JMsKz+UU^Ty%97wTB{pPU8yu^sZrYW|jgB}hcn>cHDHviwwDtA5?x|{#+DYsi6*WUVsiQEg{r1oxDhV0c%tZj zWv>7sg|*R-WYf*h;7@8TF(NksD)BboFsk06#$hQ2M*t`Um>p2i?n_rcLlVez)c!n*x=)TX-81@lp?PYGo7$*GD}Hmdt8mKG<$O3oX54O7&8 z0x^cyuG{FYKQVh7`qm^m?P|)yN00R;1rDj-&<*;Gb0KSto?wwJ>X~_7n0I6@?@NeM zHjGN*puw6Tx1a}9n^Z!NTtwT5&K%v0jHowVD4&_g;u(+~?wtI*+~~Kxwwu&?^u5p8 zF`4wSlOnU4y{FA35K3uyfXFQYpD0)8!bl2ecKh+y+c&Dyo*hY#q2Vp--M?!r1v$uc z)Ji2+<>&g7$jT{q@=xXf`*N@e@Y1$D_+{l{lZbm23aXNS#M{C0r3X#h-o+J@4gR!! zdcn9_KQA4r_!j9hjSVk4qWo%?Fo?=V zHilH&dV#II`gR<_rdIQ{;x9A9%}jz(UBQMJ_|0IQ+xYn`%Z~-&$o>y04-y*GFCOXh z0L?A(KQFyt>_l#9j{mw6wWXg!zjkJzcVtMk`uu~Jz~k$h_k-oQkoVcl_uoIQp>Pt( z7Injgqn@ZKY*8|7gE-suDPCT9C_njKg(b@$YzPN)ReP zL{v}lXy1J?wUrShTYPep=eaHAQTZQ0dYUt0@bQ# z86ZI-)WA@!GZ_-QEP4ZqZa*SL56Iu`Tj$+$>1(ri-oHgy^!?atQe{@6#wU;jCzYWu zoQRv`F6W(k!D8cNcB!LYVdAcKb5_N$v`+TAg=fU(*K=rJwsS~d1wJ+p& zW0dBivh>vTNpn{-IbGKbQXsbxfzU{I8C2-G&OUD|?m7F(b-qQDwm?i8kEtE{tG~fZ z;l{qJs`0VW=eX&SdUvwh0PY*n%^c%K5o>uP;59BC>p8J6a)MisFBPKQX#7QMq)Z}i zJgQ9ChTlpT3$4y?VmoD!`R7oN4n}VI zz{nzk|Ey1L{{H_fPrpiXVdhKB=pn(*364#0%7kRoxVH((nb~h?g^d48;=&t zhFnI!<_(QUUTgJFA`?)Bp(|8tALD*8%B{AGWVVMvmIpw>_|pfo7Bz?SGp-^oXjf|^iow~jnZmYLZ9iVbEHPdM2=<-D%RYe zwCQ{Wr@btB1fC|I8&Aq|JS3TgFN#TszV&)~P*ttQi`sBdjaJr0T}l^?`FH6Av8V#S zwyMePR=GsRJq^arbb(i zZ-5TQ)8rC}_6vfj{WvoV_N>|_OEX61Vk{XYeiNK${KD8W|1BGe55&0R@t7ZD@5s55 z=6=qZF}N-p00{iXL2~`%{FA_}#OcD)DiQHtS{B6}w7WDtM3H9~x8@^}|Ffq@~q*nAdX5cRrvvJy* z;3X3n0DQRyVxl|>XW7ZP!#f$*Mdz#kE(QWVRdO;>bZd8{sP9PeRWQ1J7yxJ?AV&24 z^9br@{n;S#b_+y%o+L0dkiElp%1aCAJ4f%QAQ3d#B zwa4Z*13+hT5Nm%*7OyOo_+livN6UC^O*m#u@8?+-kDP{?n=d?m97h^Y<;;FF^pX2RMNL*q||sGq1US0q(JI{1};O#m#*E qa|O-}{k;tTLIS{7_J8Q~ucB;i&c?_S03gJ8J!Lf87P%O~0sJ4ZbM7tx literal 0 HcmV?d00001 diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.AxesRefR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.AxesRefR.datasource new file mode 100644 index 0000000..6587d12 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.AxesRefR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.AxesRefR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootModeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootModeR.datasource new file mode 100644 index 0000000..4356c47 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootModeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.BootModeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootPhaseEnquiryR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootPhaseEnquiryR.datasource new file mode 100644 index 0000000..1009ba8 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootPhaseEnquiryR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.BootPhaseEnquiryR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootRebootR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootRebootR.datasource new file mode 100644 index 0000000..bfe0cda --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootRebootR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.BootRebootR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootShutDownR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootShutDownR.datasource new file mode 100644 index 0000000..bfc1d96 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.BootShutDownR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.BootShutDownR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CheckHistoryR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CheckHistoryR.datasource new file mode 100644 index 0000000..5b72adb --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CheckHistoryR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.CheckHistoryR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CycleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CycleR.datasource new file mode 100644 index 0000000..63b94a5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.CycleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.CycleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncDataR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncDataR.datasource new file mode 100644 index 0000000..e6165c4 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncDataR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.DncDataR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncEofR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncEofR.datasource new file mode 100644 index 0000000..6ea76d2 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncEofR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.DncEofR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncInitR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncInitR.datasource new file mode 100644 index 0000000..033ecec --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncInitR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.DncInitR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncStopR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncStopR.datasource new file mode 100644 index 0000000..16157f5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.DncStopR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.DncStopR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseExR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseExR.datasource new file mode 100644 index 0000000..92e3909 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseExR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.EseExR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseR.datasource new file mode 100644 index 0000000..766e50d --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.EseR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.EseR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ExeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ExeR.datasource new file mode 100644 index 0000000..440d4f0 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ExeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ExeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetActivePartProgramR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetActivePartProgramR.datasource new file mode 100644 index 0000000..81e7b62 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetActivePartProgramR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetActivePartProgramR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAvailableCustomEventsR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAvailableCustomEventsR.datasource new file mode 100644 index 0000000..bbdbf13 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAvailableCustomEventsR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetAvailableCustomEventsR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxOriginNumR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxOriginNumR.datasource new file mode 100644 index 0000000..93999ee --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxOriginNumR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetAxOriginNumR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesInfo3R.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesInfo3R.datasource new file mode 100644 index 0000000..04421f2 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesInfo3R.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetAxesInfo3R, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesPositionR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesPositionR.datasource new file mode 100644 index 0000000..fdb048f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetAxesPositionR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetAxesPositionR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBinaryFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBinaryFileR.datasource new file mode 100644 index 0000000..cdc717c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBinaryFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetBinaryFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBlkNumR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBlkNumR.datasource new file mode 100644 index 0000000..d3c93ee --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetBlkNumR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetBlkNumR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCNCRegKeyR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCNCRegKeyR.datasource new file mode 100644 index 0000000..80cdc00 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCNCRegKeyR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetCNCRegKeyR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCodeNumberR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCodeNumberR.datasource new file mode 100644 index 0000000..50cbd03 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetCodeNumberR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetCodeNumberR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetDateTimeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetDateTimeR.datasource new file mode 100644 index 0000000..cd02767 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetDateTimeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetDateTimeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetFileR.datasource new file mode 100644 index 0000000..08152a5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetGCodeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetGCodeR.datasource new file mode 100644 index 0000000..ee9b44c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetGCodeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetGCodeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetHWKeyR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetHWKeyR.datasource new file mode 100644 index 0000000..91c681b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetHWKeyR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetHWKeyR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMCodeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMCodeR.datasource new file mode 100644 index 0000000..b6d2a2a --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMCodeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetMCodeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMarkerInfoR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMarkerInfoR.datasource new file mode 100644 index 0000000..a1d7283 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetMarkerInfoR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetMarkerInfoR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo1R.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo1R.datasource new file mode 100644 index 0000000..b640c0d --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo1R.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetNcInfo1R, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo2R.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo2R.datasource new file mode 100644 index 0000000..3fc48ea --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetNcInfo2R.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetNcInfo2R, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOffsetTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOffsetTabRecordIIR.datasource new file mode 100644 index 0000000..51a56e7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOffsetTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetOffsetTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOptionsR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOptionsR.datasource new file mode 100644 index 0000000..c886096 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOptionsR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetOptionsR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOriginTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOriginTabRecordIIR.datasource new file mode 100644 index 0000000..1bd393f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetOriginTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetOriginTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPTechSizesR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPTechSizesR.datasource new file mode 100644 index 0000000..c731f34 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPTechSizesR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetPTechSizesR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPartProgramLinesR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPartProgramLinesR.datasource new file mode 100644 index 0000000..57bc2bd --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetPartProgramLinesR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetPartProgramLinesR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcInInputR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcInInputR.datasource new file mode 100644 index 0000000..69737c7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcInInputR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetProcInInputR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarDoubleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarDoubleR.datasource new file mode 100644 index 0000000..c03d3ed --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetProcVarDoubleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarWordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarWordR.datasource new file mode 100644 index 0000000..a53934c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcVarWordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetProcVarWordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessConfNumR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessConfNumR.datasource new file mode 100644 index 0000000..9ee109c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessConfNumR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetProcessConfNumR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessStatusR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessStatusR.datasource new file mode 100644 index 0000000..0f17eda --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetProcessStatusR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetProcessStatusR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSelectedProcessR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSelectedProcessR.datasource new file mode 100644 index 0000000..240bd9b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSelectedProcessR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetSelectedProcessR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSerialNumberR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSerialNumberR.datasource new file mode 100644 index 0000000..c582962 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSerialNumberR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetSerialNumberR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetServoParR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetServoParR.datasource new file mode 100644 index 0000000..42765ac --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetServoParR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetServoParR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSysTickR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSysTickR.datasource new file mode 100644 index 0000000..a7cb924 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetSysTickR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetSysTickR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolNamesR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolNamesR.datasource new file mode 100644 index 0000000..68dc039 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolNamesR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetToolNamesR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolTabRecordIIR.datasource new file mode 100644 index 0000000..3896c4b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetToolTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetToolTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetUserTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetUserTabRecordIIR.datasource new file mode 100644 index 0000000..1a03c6b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetUserTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetUserTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarJOGR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarJOGR.datasource new file mode 100644 index 0000000..5085992 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarJOGR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetVarJOGR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarRCMR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarRCMR.datasource new file mode 100644 index 0000000..2499865 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.GetVarRCMR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.GetVarRCMR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.HoldR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.HoldR.datasource new file mode 100644 index 0000000..cac276f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.HoldR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.HoldR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LoadPTechR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LoadPTechR.datasource new file mode 100644 index 0000000..155e5e0 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LoadPTechR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LoadPTechR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LockTableIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LockTableIIR.datasource new file mode 100644 index 0000000..787beef --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LockTableIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LockTableIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSAddDriveR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSAddDriveR.datasource new file mode 100644 index 0000000..89b79d2 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSAddDriveR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSAddDriveR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSChangeFileAttribR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSChangeFileAttribR.datasource new file mode 100644 index 0000000..538fd63 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSChangeFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSChangeFileAttribR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCloseFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCloseFileR.datasource new file mode 100644 index 0000000..9dd2780 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCloseFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSCloseFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCopyFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCopyFileR.datasource new file mode 100644 index 0000000..780cc02 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCopyFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSCopyFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateDirR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateDirR.datasource new file mode 100644 index 0000000..e4e6425 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateDirR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSCreateDirR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateFileR.datasource new file mode 100644 index 0000000..b958d82 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSCreateFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSCreateFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindCloseR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindCloseR.datasource new file mode 100644 index 0000000..41da7a3 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindCloseR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSFindCloseR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindFirstR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindFirstR.datasource new file mode 100644 index 0000000..2ac350b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindFirstR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSFindFirstR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindNextR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindNextR.datasource new file mode 100644 index 0000000..dee83da --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSFindNextR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSFindNextR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDriveListR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDriveListR.datasource new file mode 100644 index 0000000..eb4f4d5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDriveListR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetDriveListR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDrivePathR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDrivePathR.datasource new file mode 100644 index 0000000..6388fc7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetDrivePathR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetDrivePathR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileAttribR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileAttribR.datasource new file mode 100644 index 0000000..6ddf49f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetFileAttribR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileSizeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileSizeR.datasource new file mode 100644 index 0000000..5535027 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetFileSizeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetFileSizeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetHiddenDriveListR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetHiddenDriveListR.datasource new file mode 100644 index 0000000..b7912c6 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetHiddenDriveListR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetHiddenDriveListR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetInfoR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetInfoR.datasource new file mode 100644 index 0000000..41530ba --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetInfoR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetInfoR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetNumDriveR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetNumDriveR.datasource new file mode 100644 index 0000000..b725fbc --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetNumDriveR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetNumDriveR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetSecurityLevelR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetSecurityLevelR.datasource new file mode 100644 index 0000000..1b1dc5e --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSGetSecurityLevelR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSGetSecurityLevelR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSLongFileNamesR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSLongFileNamesR.datasource new file mode 100644 index 0000000..93eca91 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSLongFileNamesR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSLongFileNamesR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSOpenFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSOpenFileR.datasource new file mode 100644 index 0000000..35c5772 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSOpenFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSOpenFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReadRecordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReadRecordR.datasource new file mode 100644 index 0000000..3d8c6ff --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReadRecordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSReadRecordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReloadDriveListR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReloadDriveListR.datasource new file mode 100644 index 0000000..5fb96c1 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSReloadDriveListR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSReloadDriveListR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDirR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDirR.datasource new file mode 100644 index 0000000..2202631 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDirR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSRemoveDirR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDriveR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDriveR.datasource new file mode 100644 index 0000000..51c55a2 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveDriveR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSRemoveDriveR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveFileR.datasource new file mode 100644 index 0000000..c404128 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRemoveFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSRemoveFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRenameR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRenameR.datasource new file mode 100644 index 0000000..3747949 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSRenameR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSRenameR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetFileAttribR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetFileAttribR.datasource new file mode 100644 index 0000000..2c35ced --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetFileAttribR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSSetFileAttribR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetSecurityLevelR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetSecurityLevelR.datasource new file mode 100644 index 0000000..ae491b8 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSSetSecurityLevelR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSSetSecurityLevelR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSWriteRecordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSWriteRecordR.datasource new file mode 100644 index 0000000..06b62a6 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.LogFSWriteRecordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.LogFSWriteRecordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ManagePartProgramR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ManagePartProgramR.datasource new file mode 100644 index 0000000..89094db --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ManagePartProgramR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ManagePartProgramR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonAddVariableR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonAddVariableR.datasource new file mode 100644 index 0000000..39b4abf --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonAddVariableR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonAddVariableR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonCloseChannelR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonCloseChannelR.datasource new file mode 100644 index 0000000..cafea3e --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonCloseChannelR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonCloseChannelR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonDeleteVariableR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonDeleteVariableR.datasource new file mode 100644 index 0000000..0acd460 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonDeleteVariableR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonDeleteVariableR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonGetVariableR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonGetVariableR.datasource new file mode 100644 index 0000000..a3d27e3 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonGetVariableR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonGetVariableR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonOpenChannelR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonOpenChannelR.datasource new file mode 100644 index 0000000..d57a437 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonOpenChannelR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonOpenChannelR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStartSamplingR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStartSamplingR.datasource new file mode 100644 index 0000000..0d16250 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStartSamplingR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonStartSamplingR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStopSamplingR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStopSamplingR.datasource new file mode 100644 index 0000000..a64ba36 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.MonStopSamplingR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.MonStopSamplingR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutBinaryFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutBinaryFileR.datasource new file mode 100644 index 0000000..efae36a --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutBinaryFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.PutBinaryFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutFileR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutFileR.datasource new file mode 100644 index 0000000..a85f5e4 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.PutFileR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.PutFileR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentAnomalyMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentAnomalyMsgR.datasource new file mode 100644 index 0000000..460c6b0 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentAnomalyMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadCurrentAnomalyMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentEmergMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentEmergMsgR.datasource new file mode 100644 index 0000000..eeb2551 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentEmergMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadCurrentEmergMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentErrorMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentErrorMsgR.datasource new file mode 100644 index 0000000..1d3fae0 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadCurrentErrorMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadCurrentErrorMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadErrMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadErrMsgR.datasource new file mode 100644 index 0000000..963f81b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadErrMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadErrMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryAnomalyMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryAnomalyMsgR.datasource new file mode 100644 index 0000000..80be01c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryAnomalyMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadHistoryAnomalyMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryEmergMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryEmergMsgR.datasource new file mode 100644 index 0000000..fd50182 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryEmergMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadHistoryEmergMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryErrorMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryErrorMsgR.datasource new file mode 100644 index 0000000..c3a688f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryErrorMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadHistoryErrorMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryLogMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryLogMsgR.datasource new file mode 100644 index 0000000..180f8a8 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadHistoryLogMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadHistoryLogMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadPartProgramMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadPartProgramMsgR.datasource new file mode 100644 index 0000000..502a8ed --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadPartProgramMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadPartProgramMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadRemapDefinitionsR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadRemapDefinitionsR.datasource new file mode 100644 index 0000000..303b164 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadRemapDefinitionsR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadRemapDefinitionsR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarDoubleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarDoubleR.datasource new file mode 100644 index 0000000..946e3c9 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadVarDoubleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarTextR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarTextR.datasource new file mode 100644 index 0000000..684646f --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarTextR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadVarTextR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarWordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarWordR.datasource new file mode 100644 index 0000000..7551f6a --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadVarWordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadVarWordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadWarningMsgR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadWarningMsgR.datasource new file mode 100644 index 0000000..f1319d4 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ReadWarningMsgR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ReadWarningMsgR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetR.datasource new file mode 100644 index 0000000..9752c83 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ResetR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetSingleTableIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetSingleTableIIR.datasource new file mode 100644 index 0000000..2f8843b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.ResetSingleTableIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.ResetSingleTableIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreBackupMemoryR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreBackupMemoryR.datasource new file mode 100644 index 0000000..4747d46 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreBackupMemoryR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.RestoreBackupMemoryR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreSingleTableR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreSingleTableR.datasource new file mode 100644 index 0000000..b73f4f9 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.RestoreSingleTableR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.RestoreSingleTableR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveBackupMemoryR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveBackupMemoryR.datasource new file mode 100644 index 0000000..6d6c8bf --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveBackupMemoryR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SaveBackupMemoryR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveSingleTableR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveSingleTableR.datasource new file mode 100644 index 0000000..43e5070 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveSingleTableR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SaveSingleTableR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveTablesR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveTablesR.datasource new file mode 100644 index 0000000..d3276a5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SaveTablesR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SaveTablesR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramFromDriveR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramFromDriveR.datasource new file mode 100644 index 0000000..952e0c2 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramFromDriveR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SelectPartProgramFromDriveR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramR.datasource new file mode 100644 index 0000000..bdaab2c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectPartProgramR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SelectPartProgramR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcAxisR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcAxisR.datasource new file mode 100644 index 0000000..5e5e3aa --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcAxisR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SelectProcAxisR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcessR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcessR.datasource new file mode 100644 index 0000000..2791c94 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SelectProcessR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SelectProcessR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetDateTimeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetDateTimeR.datasource new file mode 100644 index 0000000..548caf3 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetDateTimeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetDateTimeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedManOverR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedManOverR.datasource new file mode 100644 index 0000000..203d53e --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedManOverR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetFeedManOverR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRapidOverR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRapidOverR.datasource new file mode 100644 index 0000000..df28385 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRapidOverR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetFeedRapidOverR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRateOverR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRateOverR.datasource new file mode 100644 index 0000000..0f9e51a --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetFeedRateOverR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetFeedRateOverR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetIpAddressR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetIpAddressR.datasource new file mode 100644 index 0000000..236696b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetIpAddressR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetIpAddressR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetManMovDirectionR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetManMovDirectionR.datasource new file mode 100644 index 0000000..aea35d4 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetManMovDirectionR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetManMovDirectionR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetMdiStringR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetMdiStringR.datasource new file mode 100644 index 0000000..c17eeef --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetMdiStringR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetMdiStringR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOffsetTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOffsetTabRecordIIR.datasource new file mode 100644 index 0000000..af4f476 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOffsetTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetOffsetTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOriginTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOriginTabRecordIIR.datasource new file mode 100644 index 0000000..3231eec --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetOriginTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetOriginTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarDoubleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarDoubleR.datasource new file mode 100644 index 0000000..ee658f0 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetProcVarDoubleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarWordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarWordR.datasource new file mode 100644 index 0000000..44d35a5 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcVarWordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetProcVarWordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcessModeR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcessModeR.datasource new file mode 100644 index 0000000..4abf73d --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetProcessModeR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetProcessModeR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetServoParR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetServoParR.datasource new file mode 100644 index 0000000..e2b22b7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetServoParR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetServoParR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetSpeedRateOverR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetSpeedRateOverR.datasource new file mode 100644 index 0000000..c0a5df6 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetSpeedRateOverR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetSpeedRateOverR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetToolTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetToolTabRecordIIR.datasource new file mode 100644 index 0000000..c421897 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetToolTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetToolTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetUserTabRecordIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetUserTabRecordIIR.datasource new file mode 100644 index 0000000..793dba6 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetUserTabRecordIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetUserTabRecordIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarJOGR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarJOGR.datasource new file mode 100644 index 0000000..625c1d7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarJOGR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetVarJOGR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarRCMR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarRCMR.datasource new file mode 100644 index 0000000..c4d944b --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarRCMR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetVarRCMR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarUASR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarUASR.datasource new file mode 100644 index 0000000..a3d7bc1 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SetVarUASR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SetVarUASR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SkipPProgBlockR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SkipPProgBlockR.datasource new file mode 100644 index 0000000..a7a8c9c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SkipPProgBlockR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SkipPProgBlockR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SndProcInpDataR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SndProcInpDataR.datasource new file mode 100644 index 0000000..0ab16f7 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SndProcInpDataR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SndProcInpDataR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SyncroCycleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SyncroCycleR.datasource new file mode 100644 index 0000000..b6cd89e --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.SyncroCycleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.SyncroCycleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.UnLockTableIIR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.UnLockTableIIR.datasource new file mode 100644 index 0000000..56bc456 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.UnLockTableIIR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.UnLockTableIIR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteRemapDefinitionsR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteRemapDefinitionsR.datasource new file mode 100644 index 0000000..7057171 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteRemapDefinitionsR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.WriteRemapDefinitionsR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarDoubleR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarDoubleR.datasource new file mode 100644 index 0000000..5ed16dd --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarDoubleR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.WriteVarDoubleR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarTextR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarTextR.datasource new file mode 100644 index 0000000..3903802 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarTextR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.WriteVarTextR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordBitR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordBitR.datasource new file mode 100644 index 0000000..df1fafb --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordBitR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.WriteVarWordBitR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordR.datasource b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordR.datasource new file mode 100644 index 0000000..66fe247 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/CMSControl.OPENcontrol.WriteVarWordR.datasource @@ -0,0 +1,10 @@ + + + + CMSControl.OPENcontrol.WriteVarWordR, Service References.OPENcontrol.Reference.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/OPENcontrol.wsdl b/MaterialeSetup/OSAI/OPENcontrol/OPENcontrol.wsdl new file mode 100644 index 0000000..ebcf6e0 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/OPENcontrol.wsdl @@ -0,0 +1,5895 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Service definition of function ns__BootPhaseEnquiry + + + + + Service definition of function ns__BootReboot + + + + + Service definition of function ns__BootShutDown + + + + + Service definition of function ns__BootMode + + + + + Service definition of function ns__GetHWKey + + + + + Service definition of function ns__ReadVarWord + + + + + Service definition of function ns__ReadVarDouble + + + + + Service definition of function ns__WriteVarWord + + + + + Service definition of function ns__WriteVarWordBit + + + + + Service definition of function ns__WriteVarDouble + + + + + Service definition of function ns__ReadVarText + + + + + Service definition of function ns__WriteVarText + + + + + Service definition of function ns__ReadWarningMsg + + + + + Service definition of function ns__ResetSingleTableII + + + + + Service definition of function ns__LockTableII + + + + + Service definition of function ns__UnLockTableII + + + + + Service definition of function ns__GetOriginTabRecordII + + + + + Service definition of function ns__SetOriginTabRecordII + + + + + Service definition of function ns__GetToolTabRecordII + + + + + Service definition of function ns__SetToolTabRecordII + + + + + Service definition of function ns__GetOffsetTabRecordII + + + + + Service definition of function ns__SetOffsetTabRecordII + + + + + Service definition of function ns__GetUserTabRecordII + + + + + Service definition of function ns__SetUserTabRecordII + + + + + Service definition of function ns__SaveTables + + + + + Service definition of function ns__RestoreSingleTable + + + + + Service definition of function ns__SaveSingleTable + + + + + Service definition of function ns__SaveBackupMemory + + + + + Service definition of function ns__RestoreBackupMemory + + + + + Service definition of function ns__Cycle + + + + + Service definition of function ns__SyncroCycle + + + + + Service definition of function ns__Reset + + + + + Service definition of function ns__Hold + + + + + Service definition of function ns__SetFeedManOver + + + + + Service definition of function ns__SetFeedRateOver + + + + + Service definition of function ns__SetFeedRapidOver + + + + + Service definition of function ns__SetSpeedRateOver + + + + + Service definition of function ns__SetManMovDirection + + + + + Service definition of function ns__GetVarJOG + + + + + Service definition of function ns__SetVarJOG + + + + + Service definition of function ns__SetVarUAS + + + + + Service definition of function ns__GetVarRCM + + + + + Service definition of function ns__SetVarRCM + + + + + Service definition of function ns__GetProcVarWord + + + + + Service definition of function ns__SetProcVarWord + + + + + Service definition of function ns__GetProcVarDouble + + + + + Service definition of function ns__SetProcVarDouble + + + + + Service definition of function ns__SetMdiString + + + + + Service definition of function ns__SetProcessMode + + + + + Service definition of function ns__SelectProcess + + + + + Service definition of function ns__GetSelectedProcess + + + + + Service definition of function ns__SelectProcAxis + + + + + Service definition of function ns__SelectPartProgram + + + + + Service definition of function ns__SelectPartProgramFromDrive + + + + + Service definition of function ns__GetActivePartProgram + + + + + Service definition of function ns__GetPartProgramLines + + + + + Service definition of function ns__GetAxOriginNum + + + + + Service definition of function ns__GetAxesPosition + + + + + Service definition of function ns__GetNcInfo1 + + + + + Service definition of function ns__GetNcInfo2 + + + + + Service definition of function ns__GetToolNames + + + + + Service definition of function ns__GetProcessStatus + + + + + Service definition of function ns__GetBlkNum + + + + + Service definition of function ns__ReadErrMsg + + + + + Service definition of function ns__ReadPartProgramMsg + + + + + Service definition of function ns__GetGCode + + + + + Service definition of function ns__GetMCode + + + + + Service definition of function ns__SkipPProgBlock + + + + + Service definition of function ns__Ese + + + + + Service definition of function ns__EseEx + + + + + Service definition of function ns__Exe + + + + + Service definition of function ns__AxesRef + + + + + Service definition of function ns__DncInit + + + + + Service definition of function ns__DncData + + + + + Service definition of function ns__DncEof + + + + + Service definition of function ns__DncStop + + + + + Service definition of function ns__GetAxesInfo3 + + + + + Service definition of function ns__GetCodeNumber + + + + + Service definition of function ns__GetOptions + + + + + Service definition of function ns__GetDateTime + + + + + Service definition of function ns__SetDateTime + + + + + Service definition of function ns__GetSerialNumber + + + + + Service definition of function ns__PutFile + + + + + Service definition of function ns__GetFile + + + + + Service definition of function ns__PutBinaryFile + + + + + Service definition of function ns__GetBinaryFile + + + + + Service definition of function ns__LogFSSetSecurityLevel + + + + + Service definition of function ns__LogFSGetSecurityLevel + + + + + Service definition of function ns__LogFSLongFileNames + + + + + Service definition of function ns__LogFSGetNumDrive + + + + + Service definition of function ns__LogFSGetDriveList + + + + + Service definition of function ns__LogFSGetHiddenDriveList + + + + + Service definition of function ns__LogFSGetDrivePath + + + + + Service definition of function ns__LogFSAddDrive + + + + + Service definition of function ns__LogFSRemoveDrive + + + + + Service definition of function ns__LogFSReloadDriveList + + + + + Service definition of function ns__LogFSCreateDir + + + + + Service definition of function ns__LogFSCreateFile + + + + + Service definition of function ns__LogFSGetFileSize + + + + + Service definition of function ns__LogFSGetFileAttrib + + + + + Service definition of function ns__LogFSSetFileAttrib + + + + + Service definition of function ns__LogFSChangeFileAttrib + + + + + Service definition of function ns__LogFSFindFirst + + + + + Service definition of function ns__LogFSFindNext + + + + + Service definition of function ns__LogFSFindClose + + + + + Service definition of function ns__LogFSRemoveFile + + + + + Service definition of function ns__LogFSRemoveDir + + + + + Service definition of function ns__LogFSRename + + + + + Service definition of function ns__LogFSCopyFile + + + + + Service definition of function ns__LogFSGetInfo + + + + + Service definition of function ns__GetAvailableCustomEvents + + + + + Service definition of function ns__GetSysTick + + + + + Service definition of function ns__GetProcessConfNum + + + + + Service definition of function ns__MonOpenChannel + + + + + Service definition of function ns__MonCloseChannel + + + + + Service definition of function ns__MonAddVariable + + + + + Service definition of function ns__MonDeleteVariable + + + + + Service definition of function ns__MonStartSampling + + + + + Service definition of function ns__MonStopSampling + + + + + Service definition of function ns__MonGetVariable + + + + + Service definition of function ns__CheckHistory + + + + + Service definition of function ns__ReadHistoryEmergMsg + + + + + Service definition of function ns__ReadHistoryErrorMsg + + + + + Service definition of function ns__ReadHistoryLogMsg + + + + + Service definition of function ns__ReadHistoryAnomalyMsg + + + + + Service definition of function ns__ReadCurrentErrorMsg + + + + + Service definition of function ns__ReadCurrentEmergMsg + + + + + Service definition of function ns__ReadCurrentAnomalyMsg + + + + + Service definition of function ns__GetPTechSizes + + + + + Service definition of function ns__LoadPTech + + + + + Service definition of function ns__GetMarkerInfo + + + + + Service definition of function ns__ManagePartProgram + + + + + Service definition of function ns__LogFSOpenFile + + + + + Service definition of function ns__LogFSCloseFile + + + + + Service definition of function ns__LogFSWriteRecord + + + + + Service definition of function ns__LogFSReadRecord + + + + + Service definition of function ns__ReadRemapDefinitions + + + + + Service definition of function ns__WriteRemapDefinitions + + + + + Service definition of function ns__GetServoPar + + + + + Service definition of function ns__SetServoPar + + + + + Service definition of function ns__GetCNCRegKey + + + + + Service definition of function ns__SetIpAddress + + + + + Service definition of function ns__GetProcInInput + + + + + Service definition of function ns__SndProcInpData + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + OPENcontrol Web Services Definition + + + + + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/Reference.svcmap b/MaterialeSetup/OSAI/OPENcontrol/Reference.svcmap new file mode 100644 index 0000000..7e67cce --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/Reference.svcmap @@ -0,0 +1,29 @@ + + + + false + true + + false + false + false + + + true + Auto + true + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/Reference.vb b/MaterialeSetup/OSAI/OPENcontrol/Reference.vb new file mode 100644 index 0000000..c1a429c --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/Reference.vb @@ -0,0 +1,28838 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:2.0.50727.5477 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace OPENcontrol + + _ + Public Interface OPENcontrolPortType + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootPhaseEnquiry non è RPC né incapsulata da documenti. + _ + Function BootPhaseEnquiry(ByVal request As OPENcontrol.BootPhaseEnquiryRequest) As OPENcontrol.BootPhaseEnquiryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootReboot non è RPC né incapsulata da documenti. + _ + Function BootReboot(ByVal request As OPENcontrol.BootRebootRequest) As OPENcontrol.BootRebootResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootShutDown non è RPC né incapsulata da documenti. + _ + Function BootShutDown(ByVal request As OPENcontrol.BootShutDownRequest) As OPENcontrol.BootShutDownResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootMode non è RPC né incapsulata da documenti. + _ + Function BootMode(ByVal request As OPENcontrol.BootModeRequest) As OPENcontrol.BootModeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetHWKey non è RPC né incapsulata da documenti. + _ + Function GetHWKey(ByVal request As OPENcontrol.GetHWKeyRequest) As OPENcontrol.GetHWKeyResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarWord non è RPC né incapsulata da documenti. + _ + Function ReadVarWord(ByVal request As OPENcontrol.ReadVarWordRequest) As OPENcontrol.ReadVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarDouble non è RPC né incapsulata da documenti. + _ + Function ReadVarDouble(ByVal request As OPENcontrol.ReadVarDoubleRequest) As OPENcontrol.ReadVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarWord non è RPC né incapsulata da documenti. + _ + Function WriteVarWord(ByVal request As OPENcontrol.WriteVarWordRequest) As OPENcontrol.WriteVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarWordBit non è RPC né incapsulata da documenti. + _ + Function WriteVarWordBit(ByVal request As OPENcontrol.WriteVarWordBitRequest) As OPENcontrol.WriteVarWordBitResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarDouble non è RPC né incapsulata da documenti. + _ + Function WriteVarDouble(ByVal request As OPENcontrol.WriteVarDoubleRequest) As OPENcontrol.WriteVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarText non è RPC né incapsulata da documenti. + _ + Function ReadVarText(ByVal request As OPENcontrol.ReadVarTextRequest) As OPENcontrol.ReadVarTextResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarText non è RPC né incapsulata da documenti. + _ + Function WriteVarText(ByVal request As OPENcontrol.WriteVarTextRequest) As OPENcontrol.WriteVarTextResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadWarningMsg non è RPC né incapsulata da documenti. + _ + Function ReadWarningMsg(ByVal request As OPENcontrol.ReadWarningMsgRequest) As OPENcontrol.ReadWarningMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ResetSingleTableII non è RPC né incapsulata da documenti. + _ + Function ResetSingleTableII(ByVal request As OPENcontrol.ResetSingleTableIIRequest) As OPENcontrol.ResetSingleTableIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LockTableII non è RPC né incapsulata da documenti. + _ + Function LockTableII(ByVal request As OPENcontrol.LockTableIIRequest) As OPENcontrol.LockTableIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione UnLockTableII non è RPC né incapsulata da documenti. + _ + Function UnLockTableII(ByVal request As OPENcontrol.UnLockTableIIRequest) As OPENcontrol.UnLockTableIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOriginTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetOriginTabRecordII(ByVal request As OPENcontrol.GetOriginTabRecordIIRequest) As OPENcontrol.GetOriginTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetOriginTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetOriginTabRecordII(ByVal request As OPENcontrol.SetOriginTabRecordIIRequest) As OPENcontrol.SetOriginTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetToolTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetToolTabRecordII(ByVal request As OPENcontrol.GetToolTabRecordIIRequest) As OPENcontrol.GetToolTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetToolTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetToolTabRecordII(ByVal request As OPENcontrol.SetToolTabRecordIIRequest) As OPENcontrol.SetToolTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOffsetTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetOffsetTabRecordII(ByVal request As OPENcontrol.GetOffsetTabRecordIIRequest) As OPENcontrol.GetOffsetTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetOffsetTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetOffsetTabRecordII(ByVal request As OPENcontrol.SetOffsetTabRecordIIRequest) As OPENcontrol.SetOffsetTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetUserTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetUserTabRecordII(ByVal request As OPENcontrol.GetUserTabRecordIIRequest) As OPENcontrol.GetUserTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetUserTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetUserTabRecordII(ByVal request As OPENcontrol.SetUserTabRecordIIRequest) As OPENcontrol.SetUserTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveTables non è RPC né incapsulata da documenti. + _ + Function SaveTables(ByVal request As OPENcontrol.SaveTablesRequest) As OPENcontrol.SaveTablesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione RestoreSingleTable non è RPC né incapsulata da documenti. + _ + Function RestoreSingleTable(ByVal request As OPENcontrol.RestoreSingleTableRequest) As OPENcontrol.RestoreSingleTableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveSingleTable non è RPC né incapsulata da documenti. + _ + Function SaveSingleTable(ByVal request As OPENcontrol.SaveSingleTableRequest) As OPENcontrol.SaveSingleTableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveBackupMemory non è RPC né incapsulata da documenti. + _ + Function SaveBackupMemory(ByVal request As OPENcontrol.SaveBackupMemoryRequest) As OPENcontrol.SaveBackupMemoryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione RestoreBackupMemory non è RPC né incapsulata da documenti. + _ + Function RestoreBackupMemory(ByVal request As OPENcontrol.RestoreBackupMemoryRequest) As OPENcontrol.RestoreBackupMemoryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Cycle non è RPC né incapsulata da documenti. + _ + Function Cycle(ByVal request As OPENcontrol.CycleRequest) As OPENcontrol.CycleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SyncroCycle non è RPC né incapsulata da documenti. + _ + Function SyncroCycle(ByVal request As OPENcontrol.SyncroCycleRequest) As OPENcontrol.SyncroCycleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Reset non è RPC né incapsulata da documenti. + _ + Function Reset(ByVal request As OPENcontrol.ResetRequest) As OPENcontrol.ResetResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Hold non è RPC né incapsulata da documenti. + _ + Function Hold(ByVal request As OPENcontrol.HoldRequest) As OPENcontrol.HoldResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedManOver non è RPC né incapsulata da documenti. + _ + Function SetFeedManOver(ByVal request As OPENcontrol.SetFeedManOverRequest) As OPENcontrol.SetFeedManOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedRateOver non è RPC né incapsulata da documenti. + _ + Function SetFeedRateOver(ByVal request As OPENcontrol.SetFeedRateOverRequest) As OPENcontrol.SetFeedRateOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedRapidOver non è RPC né incapsulata da documenti. + _ + Function SetFeedRapidOver(ByVal request As OPENcontrol.SetFeedRapidOverRequest) As OPENcontrol.SetFeedRapidOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetSpeedRateOver non è RPC né incapsulata da documenti. + _ + Function SetSpeedRateOver(ByVal request As OPENcontrol.SetSpeedRateOverRequest) As OPENcontrol.SetSpeedRateOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetManMovDirection non è RPC né incapsulata da documenti. + _ + Function SetManMovDirection(ByVal request As OPENcontrol.SetManMovDirectionRequest) As OPENcontrol.SetManMovDirectionResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetVarJOG non è RPC né incapsulata da documenti. + _ + Function GetVarJOG(ByVal request As OPENcontrol.GetVarJOGRequest) As OPENcontrol.GetVarJOGResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarJOG non è RPC né incapsulata da documenti. + _ + Function SetVarJOG(ByVal request As OPENcontrol.SetVarJOGRequest) As OPENcontrol.SetVarJOGResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarUAS non è RPC né incapsulata da documenti. + _ + Function SetVarUAS(ByVal request As OPENcontrol.SetVarUASRequest) As OPENcontrol.SetVarUASResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetVarRCM non è RPC né incapsulata da documenti. + _ + Function GetVarRCM(ByVal request As OPENcontrol.GetVarRCMRequest) As OPENcontrol.GetVarRCMResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarRCM non è RPC né incapsulata da documenti. + _ + Function SetVarRCM(ByVal request As OPENcontrol.SetVarRCMRequest) As OPENcontrol.SetVarRCMResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcVarWord non è RPC né incapsulata da documenti. + _ + Function GetProcVarWord(ByVal request As OPENcontrol.GetProcVarWordRequest) As OPENcontrol.GetProcVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcVarWord non è RPC né incapsulata da documenti. + _ + Function SetProcVarWord(ByVal request As OPENcontrol.SetProcVarWordRequest) As OPENcontrol.SetProcVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcVarDouble non è RPC né incapsulata da documenti. + _ + Function GetProcVarDouble(ByVal request As OPENcontrol.GetProcVarDoubleRequest) As OPENcontrol.GetProcVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcVarDouble non è RPC né incapsulata da documenti. + _ + Function SetProcVarDouble(ByVal request As OPENcontrol.SetProcVarDoubleRequest) As OPENcontrol.SetProcVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetMdiString non è RPC né incapsulata da documenti. + _ + Function SetMdiString(ByVal request As OPENcontrol.SetMdiStringRequest) As OPENcontrol.SetMdiStringResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcessMode non è RPC né incapsulata da documenti. + _ + Function SetProcessMode(ByVal request As OPENcontrol.SetProcessModeRequest) As OPENcontrol.SetProcessModeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectProcess non è RPC né incapsulata da documenti. + _ + Function SelectProcess(ByVal request As OPENcontrol.SelectProcessRequest) As OPENcontrol.SelectProcessResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSelectedProcess non è RPC né incapsulata da documenti. + _ + Function GetSelectedProcess(ByVal request As OPENcontrol.GetSelectedProcessRequest) As OPENcontrol.GetSelectedProcessResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectProcAxis non è RPC né incapsulata da documenti. + _ + Function SelectProcAxis(ByVal request As OPENcontrol.SelectProcAxisRequest) As OPENcontrol.SelectProcAxisResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectPartProgram non è RPC né incapsulata da documenti. + _ + Function SelectPartProgram(ByVal request As OPENcontrol.SelectPartProgramRequest) As OPENcontrol.SelectPartProgramResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectPartProgramFromDrive non è RPC né incapsulata da documenti. + _ + Function SelectPartProgramFromDrive(ByVal request As OPENcontrol.SelectPartProgramFromDriveRequest) As OPENcontrol.SelectPartProgramFromDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetActivePartProgram non è RPC né incapsulata da documenti. + _ + Function GetActivePartProgram(ByVal request As OPENcontrol.GetActivePartProgramRequest) As OPENcontrol.GetActivePartProgramResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetPartProgramLines non è RPC né incapsulata da documenti. + _ + Function GetPartProgramLines(ByVal request As OPENcontrol.GetPartProgramLinesRequest) As OPENcontrol.GetPartProgramLinesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxOriginNum non è RPC né incapsulata da documenti. + _ + Function GetAxOriginNum(ByVal request As OPENcontrol.GetAxOriginNumRequest) As OPENcontrol.GetAxOriginNumResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxesPosition non è RPC né incapsulata da documenti. + _ + Function GetAxesPosition(ByVal request As OPENcontrol.GetAxesPositionRequest) As OPENcontrol.GetAxesPositionResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetNcInfo1 non è RPC né incapsulata da documenti. + _ + Function GetNcInfo1(ByVal request As OPENcontrol.GetNcInfo1Request) As OPENcontrol.GetNcInfo1Response + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetNcInfo2 non è RPC né incapsulata da documenti. + _ + Function GetNcInfo2(ByVal request As OPENcontrol.GetNcInfo2Request) As OPENcontrol.GetNcInfo2Response + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetToolNames non è RPC né incapsulata da documenti. + _ + Function GetToolNames(ByVal request As OPENcontrol.GetToolNamesRequest) As OPENcontrol.GetToolNamesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcessStatus non è RPC né incapsulata da documenti. + _ + Function GetProcessStatus(ByVal request As OPENcontrol.GetProcessStatusRequest) As OPENcontrol.GetProcessStatusResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetBlkNum non è RPC né incapsulata da documenti. + _ + Function GetBlkNum(ByVal request As OPENcontrol.GetBlkNumRequest) As OPENcontrol.GetBlkNumResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadErrMsg non è RPC né incapsulata da documenti. + _ + Function ReadErrMsg(ByVal request As OPENcontrol.ReadErrMsgRequest) As OPENcontrol.ReadErrMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadPartProgramMsg non è RPC né incapsulata da documenti. + _ + Function ReadPartProgramMsg(ByVal request As OPENcontrol.ReadPartProgramMsgRequest) As OPENcontrol.ReadPartProgramMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetGCode non è RPC né incapsulata da documenti. + _ + Function GetGCode(ByVal request As OPENcontrol.GetGCodeRequest) As OPENcontrol.GetGCodeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetMCode non è RPC né incapsulata da documenti. + _ + Function GetMCode(ByVal request As OPENcontrol.GetMCodeRequest) As OPENcontrol.GetMCodeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SkipPProgBlock non è RPC né incapsulata da documenti. + _ + Function SkipPProgBlock(ByVal request As OPENcontrol.SkipPProgBlockRequest) As OPENcontrol.SkipPProgBlockResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Ese non è RPC né incapsulata da documenti. + _ + Function Ese(ByVal request As OPENcontrol.EseRequest) As OPENcontrol.EseResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione EseEx non è RPC né incapsulata da documenti. + _ + Function EseEx(ByVal request As OPENcontrol.EseExRequest) As OPENcontrol.EseExResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Exe non è RPC né incapsulata da documenti. + _ + Function Exe(ByVal request As OPENcontrol.ExeRequest) As OPENcontrol.ExeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione AxesRef non è RPC né incapsulata da documenti. + _ + Function AxesRef(ByVal request As OPENcontrol.AxesRefRequest) As OPENcontrol.AxesRefResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncInit non è RPC né incapsulata da documenti. + _ + Function DncInit(ByVal request As OPENcontrol.DncInitRequest) As OPENcontrol.DncInitResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncData non è RPC né incapsulata da documenti. + _ + Function DncData(ByVal request As OPENcontrol.DncDataRequest) As OPENcontrol.DncDataResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncEof non è RPC né incapsulata da documenti. + _ + Function DncEof(ByVal request As OPENcontrol.DncEofRequest) As OPENcontrol.DncEofResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncStop non è RPC né incapsulata da documenti. + _ + Function DncStop(ByVal request As OPENcontrol.DncStopRequest) As OPENcontrol.DncStopResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxesInfo3 non è RPC né incapsulata da documenti. + _ + Function GetAxesInfo3(ByVal request As OPENcontrol.GetAxesInfo3Request) As OPENcontrol.GetAxesInfo3Response + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetCodeNumber non è RPC né incapsulata da documenti. + _ + Function GetCodeNumber(ByVal request As OPENcontrol.GetCodeNumberRequest) As OPENcontrol.GetCodeNumberResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOptions non è RPC né incapsulata da documenti. + _ + Function GetOptions(ByVal request As OPENcontrol.GetOptionsRequest) As OPENcontrol.GetOptionsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetDateTime non è RPC né incapsulata da documenti. + _ + Function GetDateTime(ByVal request As OPENcontrol.GetDateTimeRequest) As OPENcontrol.GetDateTimeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetDateTime non è RPC né incapsulata da documenti. + _ + Function SetDateTime(ByVal request As OPENcontrol.SetDateTimeRequest) As OPENcontrol.SetDateTimeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSerialNumber non è RPC né incapsulata da documenti. + _ + Function GetSerialNumber(ByVal request As OPENcontrol.GetSerialNumberRequest) As OPENcontrol.GetSerialNumberResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione PutFile non è RPC né incapsulata da documenti. + _ + Function PutFile(ByVal request As OPENcontrol.PutFileRequest) As OPENcontrol.PutFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetFile non è RPC né incapsulata da documenti. + _ + Function GetFile(ByVal request As OPENcontrol.GetFileRequest) As OPENcontrol.GetFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione PutBinaryFile non è RPC né incapsulata da documenti. + _ + Function PutBinaryFile(ByVal request As OPENcontrol.PutBinaryFileRequest) As OPENcontrol.PutBinaryFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetBinaryFile non è RPC né incapsulata da documenti. + _ + Function GetBinaryFile(ByVal request As OPENcontrol.GetBinaryFileRequest) As OPENcontrol.GetBinaryFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSSetSecurityLevel non è RPC né incapsulata da documenti. + _ + Function LogFSSetSecurityLevel(ByVal request As OPENcontrol.LogFSSetSecurityLevelRequest) As OPENcontrol.LogFSSetSecurityLevelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetSecurityLevel non è RPC né incapsulata da documenti. + _ + Function LogFSGetSecurityLevel(ByVal request As OPENcontrol.LogFSGetSecurityLevelRequest) As OPENcontrol.LogFSGetSecurityLevelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSLongFileNames non è RPC né incapsulata da documenti. + _ + Function LogFSLongFileNames(ByVal request As OPENcontrol.LogFSLongFileNamesRequest) As OPENcontrol.LogFSLongFileNamesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetNumDrive non è RPC né incapsulata da documenti. + _ + Function LogFSGetNumDrive(ByVal request As OPENcontrol.LogFSGetNumDriveRequest) As OPENcontrol.LogFSGetNumDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetDriveList non è RPC né incapsulata da documenti. + _ + Function LogFSGetDriveList(ByVal request As OPENcontrol.LogFSGetDriveListRequest) As OPENcontrol.LogFSGetDriveListResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetHiddenDriveList non è RPC né incapsulata da documenti. + _ + Function LogFSGetHiddenDriveList(ByVal request As OPENcontrol.LogFSGetHiddenDriveListRequest) As OPENcontrol.LogFSGetHiddenDriveListResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetDrivePath non è RPC né incapsulata da documenti. + _ + Function LogFSGetDrivePath(ByVal request As OPENcontrol.LogFSGetDrivePathRequest) As OPENcontrol.LogFSGetDrivePathResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSAddDrive non è RPC né incapsulata da documenti. + _ + Function LogFSAddDrive(ByVal request As OPENcontrol.LogFSAddDriveRequest) As OPENcontrol.LogFSAddDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveDrive non è RPC né incapsulata da documenti. + _ + Function LogFSRemoveDrive(ByVal request As OPENcontrol.LogFSRemoveDriveRequest) As OPENcontrol.LogFSRemoveDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSReloadDriveList non è RPC né incapsulata da documenti. + _ + Function LogFSReloadDriveList(ByVal request As OPENcontrol.LogFSReloadDriveListRequest) As OPENcontrol.LogFSReloadDriveListResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCreateDir non è RPC né incapsulata da documenti. + _ + Function LogFSCreateDir(ByVal request As OPENcontrol.LogFSCreateDirRequest) As OPENcontrol.LogFSCreateDirResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCreateFile non è RPC né incapsulata da documenti. + _ + Function LogFSCreateFile(ByVal request As OPENcontrol.LogFSCreateFileRequest) As OPENcontrol.LogFSCreateFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetFileSize non è RPC né incapsulata da documenti. + _ + Function LogFSGetFileSize(ByVal request As OPENcontrol.LogFSGetFileSizeRequest) As OPENcontrol.LogFSGetFileSizeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetFileAttrib non è RPC né incapsulata da documenti. + _ + Function LogFSGetFileAttrib(ByVal request As OPENcontrol.LogFSGetFileAttribRequest) As OPENcontrol.LogFSGetFileAttribResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSSetFileAttrib non è RPC né incapsulata da documenti. + _ + Function LogFSSetFileAttrib(ByVal request As OPENcontrol.LogFSSetFileAttribRequest) As OPENcontrol.LogFSSetFileAttribResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSChangeFileAttrib non è RPC né incapsulata da documenti. + _ + Function LogFSChangeFileAttrib(ByVal request As OPENcontrol.LogFSChangeFileAttribRequest) As OPENcontrol.LogFSChangeFileAttribResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindFirst non è RPC né incapsulata da documenti. + _ + Function LogFSFindFirst(ByVal request As OPENcontrol.LogFSFindFirstRequest) As OPENcontrol.LogFSFindFirstResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindNext non è RPC né incapsulata da documenti. + _ + Function LogFSFindNext(ByVal request As OPENcontrol.LogFSFindNextRequest) As OPENcontrol.LogFSFindNextResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindClose non è RPC né incapsulata da documenti. + _ + Function LogFSFindClose(ByVal request As OPENcontrol.LogFSFindCloseRequest) As OPENcontrol.LogFSFindCloseResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveFile non è RPC né incapsulata da documenti. + _ + Function LogFSRemoveFile(ByVal request As OPENcontrol.LogFSRemoveFileRequest) As OPENcontrol.LogFSRemoveFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveDir non è RPC né incapsulata da documenti. + _ + Function LogFSRemoveDir(ByVal request As OPENcontrol.LogFSRemoveDirRequest) As OPENcontrol.LogFSRemoveDirResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRename non è RPC né incapsulata da documenti. + _ + Function LogFSRename(ByVal request As OPENcontrol.LogFSRenameRequest) As OPENcontrol.LogFSRenameResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCopyFile non è RPC né incapsulata da documenti. + _ + Function LogFSCopyFile(ByVal request As OPENcontrol.LogFSCopyFileRequest) As OPENcontrol.LogFSCopyFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetInfo non è RPC né incapsulata da documenti. + _ + Function LogFSGetInfo(ByVal request As OPENcontrol.LogFSGetInfoRequest) As OPENcontrol.LogFSGetInfoResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAvailableCustomEvents non è RPC né incapsulata da documenti. + _ + Function GetAvailableCustomEvents(ByVal request As OPENcontrol.GetAvailableCustomEventsRequest) As OPENcontrol.GetAvailableCustomEventsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSysTick non è RPC né incapsulata da documenti. + _ + Function GetSysTick(ByVal request As OPENcontrol.GetSysTickRequest) As OPENcontrol.GetSysTickResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcessConfNum non è RPC né incapsulata da documenti. + _ + Function GetProcessConfNum(ByVal request As OPENcontrol.GetProcessConfNumRequest) As OPENcontrol.GetProcessConfNumResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonOpenChannel non è RPC né incapsulata da documenti. + _ + Function MonOpenChannel(ByVal request As OPENcontrol.MonOpenChannelRequest) As OPENcontrol.MonOpenChannelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonCloseChannel non è RPC né incapsulata da documenti. + _ + Function MonCloseChannel(ByVal request As OPENcontrol.MonCloseChannelRequest) As OPENcontrol.MonCloseChannelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonAddVariable non è RPC né incapsulata da documenti. + _ + Function MonAddVariable(ByVal request As OPENcontrol.MonAddVariableRequest) As OPENcontrol.MonAddVariableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonDeleteVariable non è RPC né incapsulata da documenti. + _ + Function MonDeleteVariable(ByVal request As OPENcontrol.MonDeleteVariableRequest) As OPENcontrol.MonDeleteVariableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonStartSampling non è RPC né incapsulata da documenti. + _ + Function MonStartSampling(ByVal request As OPENcontrol.MonStartSamplingRequest) As OPENcontrol.MonStartSamplingResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonStopSampling non è RPC né incapsulata da documenti. + _ + Function MonStopSampling(ByVal request As OPENcontrol.MonStopSamplingRequest) As OPENcontrol.MonStopSamplingResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonGetVariable non è RPC né incapsulata da documenti. + _ + Function MonGetVariable(ByVal request As OPENcontrol.MonGetVariableRequest) As OPENcontrol.MonGetVariableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione CheckHistory non è RPC né incapsulata da documenti. + _ + Function CheckHistory(ByVal request As OPENcontrol.CheckHistoryRequest) As OPENcontrol.CheckHistoryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryEmergMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryEmergMsg(ByVal request As OPENcontrol.ReadHistoryEmergMsgRequest) As OPENcontrol.ReadHistoryEmergMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryErrorMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryErrorMsg(ByVal request As OPENcontrol.ReadHistoryErrorMsgRequest) As OPENcontrol.ReadHistoryErrorMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryLogMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryLogMsg(ByVal request As OPENcontrol.ReadHistoryLogMsgRequest) As OPENcontrol.ReadHistoryLogMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryAnomalyMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryAnomalyMsg(ByVal request As OPENcontrol.ReadHistoryAnomalyMsgRequest) As OPENcontrol.ReadHistoryAnomalyMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentErrorMsg non è RPC né incapsulata da documenti. + _ + Function ReadCurrentErrorMsg(ByVal request As OPENcontrol.ReadCurrentErrorMsgRequest) As OPENcontrol.ReadCurrentErrorMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentEmergMsg non è RPC né incapsulata da documenti. + _ + Function ReadCurrentEmergMsg(ByVal request As OPENcontrol.ReadCurrentEmergMsgRequest) As OPENcontrol.ReadCurrentEmergMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentAnomalyMsg non è RPC né incapsulata da documenti. + _ + Function ReadCurrentAnomalyMsg(ByVal request As OPENcontrol.ReadCurrentAnomalyMsgRequest) As OPENcontrol.ReadCurrentAnomalyMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetPTechSizes non è RPC né incapsulata da documenti. + _ + Function GetPTechSizes(ByVal request As OPENcontrol.GetPTechSizesRequest) As OPENcontrol.GetPTechSizesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LoadPTech non è RPC né incapsulata da documenti. + _ + Function LoadPTech(ByVal request As OPENcontrol.LoadPTechRequest) As OPENcontrol.LoadPTechResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetMarkerInfo non è RPC né incapsulata da documenti. + _ + Function GetMarkerInfo(ByVal request As OPENcontrol.GetMarkerInfoRequest) As OPENcontrol.GetMarkerInfoResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ManagePartProgram non è RPC né incapsulata da documenti. + _ + Function ManagePartProgram(ByVal request As OPENcontrol.ManagePartProgramRequest) As OPENcontrol.ManagePartProgramResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSOpenFile non è RPC né incapsulata da documenti. + _ + Function LogFSOpenFile(ByVal request As OPENcontrol.LogFSOpenFileRequest) As OPENcontrol.LogFSOpenFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCloseFile non è RPC né incapsulata da documenti. + _ + Function LogFSCloseFile(ByVal request As OPENcontrol.LogFSCloseFileRequest) As OPENcontrol.LogFSCloseFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSWriteRecord non è RPC né incapsulata da documenti. + _ + Function LogFSWriteRecord(ByVal request As OPENcontrol.LogFSWriteRecordRequest) As OPENcontrol.LogFSWriteRecordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSReadRecord non è RPC né incapsulata da documenti. + _ + Function LogFSReadRecord(ByVal request As OPENcontrol.LogFSReadRecordRequest) As OPENcontrol.LogFSReadRecordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadRemapDefinitions non è RPC né incapsulata da documenti. + _ + Function ReadRemapDefinitions(ByVal request As OPENcontrol.ReadRemapDefinitionsRequest) As OPENcontrol.ReadRemapDefinitionsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteRemapDefinitions non è RPC né incapsulata da documenti. + _ + Function WriteRemapDefinitions(ByVal request As OPENcontrol.WriteRemapDefinitionsRequest) As OPENcontrol.WriteRemapDefinitionsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetServoPar non è RPC né incapsulata da documenti. + _ + Function GetServoPar(ByVal request As OPENcontrol.GetServoParRequest) As OPENcontrol.GetServoParResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetServoPar non è RPC né incapsulata da documenti. + _ + Function SetServoPar(ByVal request As OPENcontrol.SetServoParRequest) As OPENcontrol.SetServoParResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetCNCRegKey non è RPC né incapsulata da documenti. + _ + Function GetCNCRegKey(ByVal request As OPENcontrol.GetCNCRegKeyRequest) As OPENcontrol.GetCNCRegKeyResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetIpAddress non è RPC né incapsulata da documenti. + _ + Function SetIpAddress(ByVal request As OPENcontrol.SetIpAddressRequest) As OPENcontrol.SetIpAddressResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcInInput non è RPC né incapsulata da documenti. + _ + Function GetProcInInput(ByVal request As OPENcontrol.GetProcInInputRequest) As OPENcontrol.GetProcInInputResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SndProcInpData non è RPC né incapsulata da documenti. + _ + Function SndProcInpData(ByVal request As OPENcontrol.SndProcInpDataRequest) As OPENcontrol.SndProcInpDataResponse + End Interface + + ''' + _ + Partial Public Class BootPhaseEnquiry + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFRAME + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private rowField As UShort + + Private colField As UShort + + Private lenField As UShort + + Private textField() As Byte + + ''' + _ + Public Property row() As UShort + Get + Return Me.rowField + End Get + Set + Me.rowField = value + Me.RaisePropertyChanged("row") + End Set + End Property + + ''' + _ + Public Property col() As UShort + Get + Return Me.colField + End Get + Set + Me.colField = value + Me.RaisePropertyChanged("col") + End Set + End Property + + ''' + _ + Public Property len() As UShort + Get + Return Me.lenField + End Get + Set + Me.lenField = value + Me.RaisePropertyChanged("len") + End Set + End Property + + ''' + _ + Public Property text() As Byte() + Get + Return Me.textField + End Get + Set + Me.textField = value + Me.RaisePropertyChanged("text") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFIELDCONTROL + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private strmatchField() As Byte + + Private rangebyteField() As Byte + + Private rangeintField() As Short + + Private rangelongField() As Long + + Private rangeuintField() As UShort + + Private rangeulongField() As ULong + + Private rangefloatField() As Double + + Private rangedoubleField() As Double + + ''' + _ + Public Property strmatch() As Byte() + Get + Return Me.strmatchField + End Get + Set + Me.strmatchField = value + Me.RaisePropertyChanged("strmatch") + End Set + End Property + + ''' + _ + Public Property rangebyte() As Byte() + Get + Return Me.rangebyteField + End Get + Set + Me.rangebyteField = value + Me.RaisePropertyChanged("rangebyte") + End Set + End Property + + ''' + _ + Public Property rangeint() As Short() + Get + Return Me.rangeintField + End Get + Set + Me.rangeintField = value + Me.RaisePropertyChanged("rangeint") + End Set + End Property + + ''' + _ + Public Property rangelong() As Long() + Get + Return Me.rangelongField + End Get + Set + Me.rangelongField = value + Me.RaisePropertyChanged("rangelong") + End Set + End Property + + ''' + _ + Public Property rangeuint() As UShort() + Get + Return Me.rangeuintField + End Get + Set + Me.rangeuintField = value + Me.RaisePropertyChanged("rangeuint") + End Set + End Property + + ''' + _ + Public Property rangeulong() As ULong() + Get + Return Me.rangeulongField + End Get + Set + Me.rangeulongField = value + Me.RaisePropertyChanged("rangeulong") + End Set + End Property + + ''' + _ + Public Property rangefloat() As Double() + Get + Return Me.rangefloatField + End Get + Set + Me.rangefloatField = value + Me.RaisePropertyChanged("rangefloat") + End Set + End Property + + ''' + _ + Public Property rangedouble() As Double() + Get + Return Me.rangedoubleField + End Get + Set + Me.rangedoubleField = value + Me.RaisePropertyChanged("rangedouble") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFIELDCHECK + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private convField As Byte + + Private valueField As DEFIELDCONTROL + + ''' + _ + Public Property conv() As Byte + Get + Return Me.convField + End Get + Set + Me.convField = value + Me.RaisePropertyChanged("conv") + End Set + End Property + + ''' + _ + Public Property value() As DEFIELDCONTROL + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFIELD + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private rowField As UShort + + Private colField As UShort + + Private typeField As Byte + + Private myIdField As Byte + + Private sizeField As UShort + + Private disSizeField As UShort + + Private checkField As DEFIELDCHECK + + ''' + _ + Public Property row() As UShort + Get + Return Me.rowField + End Get + Set + Me.rowField = value + Me.RaisePropertyChanged("row") + End Set + End Property + + ''' + _ + Public Property col() As UShort + Get + Return Me.colField + End Get + Set + Me.colField = value + Me.RaisePropertyChanged("col") + End Set + End Property + + ''' + _ + Public Property type() As Byte + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("type") + End Set + End Property + + ''' + _ + Public Property myId() As Byte + Get + Return Me.myIdField + End Get + Set + Me.myIdField = value + Me.RaisePropertyChanged("myId") + End Set + End Property + + ''' + _ + Public Property size() As UShort + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("size") + End Set + End Property + + ''' + _ + Public Property disSize() As UShort + Get + Return Me.disSizeField + End Get + Set + Me.disSizeField = value + Me.RaisePropertyChanged("disSize") + End Set + End Property + + ''' + _ + Public Property check() As DEFIELDCHECK + Get + Return Me.checkField + End Get + Set + Me.checkField = value + Me.RaisePropertyChanged("check") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEKEY + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private abortField() As Byte + + Private confirm1Field() As Byte + + Private confirm2Field() As Byte + + Private confirm3Field() As Byte + + Private resetField() As Byte + + Private incresField() As Byte + + ''' + _ + Public Property abort() As Byte() + Get + Return Me.abortField + End Get + Set + Me.abortField = value + Me.RaisePropertyChanged("abort") + End Set + End Property + + ''' + _ + Public Property confirm1() As Byte() + Get + Return Me.confirm1Field + End Get + Set + Me.confirm1Field = value + Me.RaisePropertyChanged("confirm1") + End Set + End Property + + ''' + _ + Public Property confirm2() As Byte() + Get + Return Me.confirm2Field + End Get + Set + Me.confirm2Field = value + Me.RaisePropertyChanged("confirm2") + End Set + End Property + + ''' + _ + Public Property confirm3() As Byte() + Get + Return Me.confirm3Field + End Get + Set + Me.confirm3Field = value + Me.RaisePropertyChanged("confirm3") + End Set + End Property + + ''' + _ + Public Property reset() As Byte() + Get + Return Me.resetField + End Get + Set + Me.resetField = value + Me.RaisePropertyChanged("reset") + End Set + End Property + + ''' + _ + Public Property incres() As Byte() + Get + Return Me.incresField + End Get + Set + Me.incresField = value + Me.RaisePropertyChanged("incres") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class USERINPTAB + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private myIdField As Short + + Private iniRowField As Byte + + Private iniColField As Byte + + Private totRowField As Byte + + Private totColField As Byte + + Private myTypeField As Byte + + Private helpField() As Byte + + Private totFrameField As Byte + + Private totFieldField As Byte + + Private keyField As DEKEY + + Private fldField() As DEFIELD + + Private frmField() As DEFRAME + + Private strDef1Field() As Byte + + Private strDef2Field() As Byte + + Private strDef3Field() As Byte + + Private strDef4Field() As Byte + + Private strDef5Field() As Byte + + Private strDef6Field() As Byte + + Private strDef7Field() As Byte + + Private strDef8Field() As Byte + + Private decolorField() As ULong + + ''' + _ + Public Property myId() As Short + Get + Return Me.myIdField + End Get + Set + Me.myIdField = value + Me.RaisePropertyChanged("myId") + End Set + End Property + + ''' + _ + Public Property iniRow() As Byte + Get + Return Me.iniRowField + End Get + Set + Me.iniRowField = value + Me.RaisePropertyChanged("iniRow") + End Set + End Property + + ''' + _ + Public Property iniCol() As Byte + Get + Return Me.iniColField + End Get + Set + Me.iniColField = value + Me.RaisePropertyChanged("iniCol") + End Set + End Property + + ''' + _ + Public Property totRow() As Byte + Get + Return Me.totRowField + End Get + Set + Me.totRowField = value + Me.RaisePropertyChanged("totRow") + End Set + End Property + + ''' + _ + Public Property totCol() As Byte + Get + Return Me.totColField + End Get + Set + Me.totColField = value + Me.RaisePropertyChanged("totCol") + End Set + End Property + + ''' + _ + Public Property myType() As Byte + Get + Return Me.myTypeField + End Get + Set + Me.myTypeField = value + Me.RaisePropertyChanged("myType") + End Set + End Property + + ''' + _ + Public Property help() As Byte() + Get + Return Me.helpField + End Get + Set + Me.helpField = value + Me.RaisePropertyChanged("help") + End Set + End Property + + ''' + _ + Public Property totFrame() As Byte + Get + Return Me.totFrameField + End Get + Set + Me.totFrameField = value + Me.RaisePropertyChanged("totFrame") + End Set + End Property + + ''' + _ + Public Property totField() As Byte + Get + Return Me.totFieldField + End Get + Set + Me.totFieldField = value + Me.RaisePropertyChanged("totField") + End Set + End Property + + ''' + _ + Public Property key() As DEKEY + Get + Return Me.keyField + End Get + Set + Me.keyField = value + Me.RaisePropertyChanged("key") + End Set + End Property + + ''' + _ + Public Property fld() As DEFIELD() + Get + Return Me.fldField + End Get + Set + Me.fldField = value + Me.RaisePropertyChanged("fld") + End Set + End Property + + ''' + _ + Public Property frm() As DEFRAME() + Get + Return Me.frmField + End Get + Set + Me.frmField = value + Me.RaisePropertyChanged("frm") + End Set + End Property + + ''' + _ + Public Property strDef1() As Byte() + Get + Return Me.strDef1Field + End Get + Set + Me.strDef1Field = value + Me.RaisePropertyChanged("strDef1") + End Set + End Property + + ''' + _ + Public Property strDef2() As Byte() + Get + Return Me.strDef2Field + End Get + Set + Me.strDef2Field = value + Me.RaisePropertyChanged("strDef2") + End Set + End Property + + ''' + _ + Public Property strDef3() As Byte() + Get + Return Me.strDef3Field + End Get + Set + Me.strDef3Field = value + Me.RaisePropertyChanged("strDef3") + End Set + End Property + + ''' + _ + Public Property strDef4() As Byte() + Get + Return Me.strDef4Field + End Get + Set + Me.strDef4Field = value + Me.RaisePropertyChanged("strDef4") + End Set + End Property + + ''' + _ + Public Property strDef5() As Byte() + Get + Return Me.strDef5Field + End Get + Set + Me.strDef5Field = value + Me.RaisePropertyChanged("strDef5") + End Set + End Property + + ''' + _ + Public Property strDef6() As Byte() + Get + Return Me.strDef6Field + End Get + Set + Me.strDef6Field = value + Me.RaisePropertyChanged("strDef6") + End Set + End Property + + ''' + _ + Public Property strDef7() As Byte() + Get + Return Me.strDef7Field + End Get + Set + Me.strDef7Field = value + Me.RaisePropertyChanged("strDef7") + End Set + End Property + + ''' + _ + Public Property strDef8() As Byte() + Get + Return Me.strDef8Field + End Get + Set + Me.strDef8Field = value + Me.RaisePropertyChanged("strDef8") + End Set + End Property + + ''' + _ + Public Property decolor() As ULong() + Get + Return Me.decolorField + End Get + Set + Me.decolorField = value + Me.RaisePropertyChanged("decolor") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class INPUTINFO + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private isInInputField As Byte + + Private dataField As USERINPTAB + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property isInInput() As Byte + Get + Return Me.isInInputField + End Get + Set + Me.isInInputField = value + Me.RaisePropertyChanged("isInInput") + End Set + End Property + + ''' + _ + Public Property Data() As USERINPTAB + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class REMAPDEF + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private varTypeField As Byte + + Private physAddrField As UShort + + Private physBitField As Byte + + Private logicAddrField As UShort + + Private logicBitField As Byte + + Private modeField As Byte + + Private riseTimeField As UInteger + + Private fallTimeField As UInteger + + Private valueField As UInteger + + Private iOMsgIdField As UInteger + + Private iOClassField As Byte + + Private currPhysValueField As UInteger + + Private currLogicValueField As UInteger + + ''' + _ + Public Property VarType() As Byte + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + ''' + _ + Public Property PhysAddr() As UShort + Get + Return Me.physAddrField + End Get + Set + Me.physAddrField = value + Me.RaisePropertyChanged("PhysAddr") + End Set + End Property + + ''' + _ + Public Property PhysBit() As Byte + Get + Return Me.physBitField + End Get + Set + Me.physBitField = value + Me.RaisePropertyChanged("PhysBit") + End Set + End Property + + ''' + _ + Public Property LogicAddr() As UShort + Get + Return Me.logicAddrField + End Get + Set + Me.logicAddrField = value + Me.RaisePropertyChanged("LogicAddr") + End Set + End Property + + ''' + _ + Public Property LogicBit() As Byte + Get + Return Me.logicBitField + End Get + Set + Me.logicBitField = value + Me.RaisePropertyChanged("LogicBit") + End Set + End Property + + ''' + _ + Public Property Mode() As Byte + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property RiseTime() As UInteger + Get + Return Me.riseTimeField + End Get + Set + Me.riseTimeField = value + Me.RaisePropertyChanged("RiseTime") + End Set + End Property + + ''' + _ + Public Property FallTime() As UInteger + Get + Return Me.fallTimeField + End Get + Set + Me.fallTimeField = value + Me.RaisePropertyChanged("FallTime") + End Set + End Property + + ''' + _ + Public Property Value() As UInteger + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property IOMsgId() As UInteger + Get + Return Me.iOMsgIdField + End Get + Set + Me.iOMsgIdField = value + Me.RaisePropertyChanged("IOMsgId") + End Set + End Property + + ''' + _ + Public Property IOClass() As Byte + Get + Return Me.iOClassField + End Get + Set + Me.iOClassField = value + Me.RaisePropertyChanged("IOClass") + End Set + End Property + + ''' + _ + Public Property CurrPhysValue() As UInteger + Get + Return Me.currPhysValueField + End Get + Set + Me.currPhysValueField = value + Me.RaisePropertyChanged("CurrPhysValue") + End Set + End Property + + ''' + _ + Public Property CurrLogicValue() As UInteger + Get + Return Me.currLogicValueField + End Get + Set + Me.currLogicValueField = value + Me.RaisePropertyChanged("CurrLogicValue") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MARKERINFO + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private numberField As Short + + Private lineNumField() As UInteger + + Private numBlksField() As UInteger + + Private markerNameField()() As Byte + + Private pPnameField()() As Byte + + Private breakValField As UInteger + + ''' + _ + Public Property Number() As Short + Get + Return Me.numberField + End Get + Set + Me.numberField = value + Me.RaisePropertyChanged("Number") + End Set + End Property + + ''' + _ + Public Property LineNum() As UInteger() + Get + Return Me.lineNumField + End Get + Set + Me.lineNumField = value + Me.RaisePropertyChanged("LineNum") + End Set + End Property + + ''' + _ + Public Property NumBlks() As UInteger() + Get + Return Me.numBlksField + End Get + Set + Me.numBlksField = value + Me.RaisePropertyChanged("NumBlks") + End Set + End Property + + ''' + _ + Public Property MarkerName() As Byte()() + Get + Return Me.markerNameField + End Get + Set + Me.markerNameField = value + Me.RaisePropertyChanged("MarkerName") + End Set + End Property + + ''' + _ + Public Property PPname() As Byte()() + Get + Return Me.pPnameField + End Get + Set + Me.pPnameField = value + Me.RaisePropertyChanged("PPname") + End Set + End Property + + ''' + _ + Public Property breakVal() As UInteger + Get + Return Me.breakValField + End Get + Set + Me.breakValField = value + Me.RaisePropertyChanged("breakVal") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGANOMALY + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeErrField As UInteger + + Private lineaField As UInteger + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + Me.RaisePropertyChanged("CodeErr") + End Set + End Property + + ''' + _ + Public Property Linea() As UInteger + Get + Return Me.lineaField + End Get + Set + Me.lineaField = value + Me.RaisePropertyChanged("Linea") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SYSTEMTIMECNDEX + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private wYearField As UShort + + Private wMonthField As UShort + + Private wDayOfWeekField As UShort + + Private wDayField As UShort + + Private wHourField As UShort + + Private wMinuteField As UShort + + Private wSecondField As UShort + + Private wMillisecondsField As UShort + + ''' + _ + Public Property wYear() As UShort + Get + Return Me.wYearField + End Get + Set + Me.wYearField = value + Me.RaisePropertyChanged("wYear") + End Set + End Property + + ''' + _ + Public Property wMonth() As UShort + Get + Return Me.wMonthField + End Get + Set + Me.wMonthField = value + Me.RaisePropertyChanged("wMonth") + End Set + End Property + + ''' + _ + Public Property wDayOfWeek() As UShort + Get + Return Me.wDayOfWeekField + End Get + Set + Me.wDayOfWeekField = value + Me.RaisePropertyChanged("wDayOfWeek") + End Set + End Property + + ''' + _ + Public Property wDay() As UShort + Get + Return Me.wDayField + End Get + Set + Me.wDayField = value + Me.RaisePropertyChanged("wDay") + End Set + End Property + + ''' + _ + Public Property wHour() As UShort + Get + Return Me.wHourField + End Get + Set + Me.wHourField = value + Me.RaisePropertyChanged("wHour") + End Set + End Property + + ''' + _ + Public Property wMinute() As UShort + Get + Return Me.wMinuteField + End Get + Set + Me.wMinuteField = value + Me.RaisePropertyChanged("wMinute") + End Set + End Property + + ''' + _ + Public Property wSecond() As UShort + Get + Return Me.wSecondField + End Get + Set + Me.wSecondField = value + Me.RaisePropertyChanged("wSecond") + End Set + End Property + + ''' + _ + Public Property wMilliseconds() As UShort + Get + Return Me.wMillisecondsField + End Get + Set + Me.wMillisecondsField = value + Me.RaisePropertyChanged("wMilliseconds") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGLOGS + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeLogField As UInteger + + Private errinfoField As UInteger + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeLog() As UInteger + Get + Return Me.codeLogField + End Get + Set + Me.codeLogField = value + Me.RaisePropertyChanged("CodeLog") + End Set + End Property + + ''' + _ + Public Property Errinfo() As UInteger + Get + Return Me.errinfoField + End Get + Set + Me.errinfoField = value + Me.RaisePropertyChanged("Errinfo") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGERROR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeErrField As UInteger + + Private processField As Short + + Private comandoField As SByte + + Private subComField As SByte + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + Me.RaisePropertyChanged("CodeErr") + End Set + End Property + + ''' + _ + Public Property Process() As Short + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Comando() As SByte + Get + Return Me.comandoField + End Get + Set + Me.comandoField = value + Me.RaisePropertyChanged("Comando") + End Set + End Property + + ''' + _ + Public Property SubCom() As SByte + Get + Return Me.subComField + End Get + Set + Me.subComField = value + Me.RaisePropertyChanged("SubCom") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGEMERGENCY + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeErrField As UInteger + + Private processField As Short + + Private procErrField As Short + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + Me.RaisePropertyChanged("CodeErr") + End Set + End Property + + ''' + _ + Public Property Process() As Short + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property ProcErr() As Short + Get + Return Me.procErrField + End Get + Set + Me.procErrField = value + Me.RaisePropertyChanged("ProcErr") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MONVARDESCR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private classField As UShort + + Private subClassField As UShort + + Private deviceIDField As UShort + + Private codeField As UShort + + Private addressField As UShort + + Private signalField As UShort + + Private samplingPeriodField As Double + + ''' + _ + Public Property [Class]() As UShort + Get + Return Me.classField + End Get + Set + Me.classField = value + Me.RaisePropertyChanged("Class") + End Set + End Property + + ''' + _ + Public Property SubClass() As UShort + Get + Return Me.subClassField + End Get + Set + Me.subClassField = value + Me.RaisePropertyChanged("SubClass") + End Set + End Property + + ''' + _ + Public Property DeviceID() As UShort + Get + Return Me.deviceIDField + End Get + Set + Me.deviceIDField = value + Me.RaisePropertyChanged("DeviceID") + End Set + End Property + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Address() As UShort + Get + Return Me.addressField + End Get + Set + Me.addressField = value + Me.RaisePropertyChanged("Address") + End Set + End Property + + ''' + _ + Public Property Signal() As UShort + Get + Return Me.signalField + End Get + Set + Me.signalField = value + Me.RaisePropertyChanged("Signal") + End Set + End Property + + ''' + _ + Public Property SamplingPeriod() As Double + Get + Return Me.samplingPeriodField + End Get + Set + Me.samplingPeriodField = value + Me.RaisePropertyChanged("SamplingPeriod") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MONCUSTOMEVENTINFO + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private idField As UShort + + Private typeField As UShort + + Private nameField As String + + ''' + _ + Public Property ID() As UShort + Get + Return Me.idField + End Get + Set + Me.idField = value + Me.RaisePropertyChanged("ID") + End Set + End Property + + ''' + _ + Public Property Type() As UShort + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("Type") + End Set + End Property + + ''' + _ + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = value + Me.RaisePropertyChanged("Name") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class FILEFINDDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileAttributesField As UInteger + + Private lowDateCreationTimeField As UInteger + + Private highDateCreationTimeField As UInteger + + Private lowDateLastAccessTimeField As UInteger + + Private highDateLastAccessTimeField As UInteger + + Private lowDateLastWriteTimeField As UInteger + + Private highDateLastWriteTimeField As UInteger + + Private fileSizeHighField As UInteger + + Private fileSizeLowField As UInteger + + Private fileNameField As String + + ''' + _ + Public Property FileAttributes() As UInteger + Get + Return Me.fileAttributesField + End Get + Set + Me.fileAttributesField = value + Me.RaisePropertyChanged("FileAttributes") + End Set + End Property + + ''' + _ + Public Property LowDateCreationTime() As UInteger + Get + Return Me.lowDateCreationTimeField + End Get + Set + Me.lowDateCreationTimeField = value + Me.RaisePropertyChanged("LowDateCreationTime") + End Set + End Property + + ''' + _ + Public Property HighDateCreationTime() As UInteger + Get + Return Me.highDateCreationTimeField + End Get + Set + Me.highDateCreationTimeField = value + Me.RaisePropertyChanged("HighDateCreationTime") + End Set + End Property + + ''' + _ + Public Property LowDateLastAccessTime() As UInteger + Get + Return Me.lowDateLastAccessTimeField + End Get + Set + Me.lowDateLastAccessTimeField = value + Me.RaisePropertyChanged("LowDateLastAccessTime") + End Set + End Property + + ''' + _ + Public Property HighDateLastAccessTime() As UInteger + Get + Return Me.highDateLastAccessTimeField + End Get + Set + Me.highDateLastAccessTimeField = value + Me.RaisePropertyChanged("HighDateLastAccessTime") + End Set + End Property + + ''' + _ + Public Property LowDateLastWriteTime() As UInteger + Get + Return Me.lowDateLastWriteTimeField + End Get + Set + Me.lowDateLastWriteTimeField = value + Me.RaisePropertyChanged("LowDateLastWriteTime") + End Set + End Property + + ''' + _ + Public Property HighDateLastWriteTime() As UInteger + Get + Return Me.highDateLastWriteTimeField + End Get + Set + Me.highDateLastWriteTimeField = value + Me.RaisePropertyChanged("HighDateLastWriteTime") + End Set + End Property + + ''' + _ + Public Property FileSizeHigh() As UInteger + Get + Return Me.fileSizeHighField + End Get + Set + Me.fileSizeHighField = value + Me.RaisePropertyChanged("FileSizeHigh") + End Set + End Property + + ''' + _ + Public Property FileSizeLow() As UInteger + Get + Return Me.fileSizeLowField + End Get + Set + Me.fileSizeLowField = value + Me.RaisePropertyChanged("FileSizeLow") + End Set + End Property + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ERRMSG + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private msg1Field As String + + Private msg2Field As String + + Private msg3Field As String + + Private msg4Field As String + + ''' + _ + Public Property Msg1() As String + Get + Return Me.msg1Field + End Get + Set + Me.msg1Field = value + Me.RaisePropertyChanged("Msg1") + End Set + End Property + + ''' + _ + Public Property Msg2() As String + Get + Return Me.msg2Field + End Get + Set + Me.msg2Field = value + Me.RaisePropertyChanged("Msg2") + End Set + End Property + + ''' + _ + Public Property Msg3() As String + Get + Return Me.msg3Field + End Get + Set + Me.msg3Field = value + Me.RaisePropertyChanged("Msg3") + End Set + End Property + + ''' + _ + Public Property Msg4() As String + Get + Return Me.msg4Field + End Get + Set + Me.msg4Field = value + Me.RaisePropertyChanged("Msg4") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETBLKNUMDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private ppActNumField As UShort + + Private mainActBlkField As UInteger + + Private sbr1ActBlkField As UInteger + + Private sbr2ActBlkField As UInteger + + Private sbr3ActBlkField As UInteger + + Private sbr4ActBlkField As UInteger + + ''' + _ + Public Property ppActNum() As UShort + Get + Return Me.ppActNumField + End Get + Set + Me.ppActNumField = value + Me.RaisePropertyChanged("ppActNum") + End Set + End Property + + ''' + _ + Public Property MainActBlk() As UInteger + Get + Return Me.mainActBlkField + End Get + Set + Me.mainActBlkField = value + Me.RaisePropertyChanged("MainActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr1ActBlk() As UInteger + Get + Return Me.sbr1ActBlkField + End Get + Set + Me.sbr1ActBlkField = value + Me.RaisePropertyChanged("Sbr1ActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr2ActBlk() As UInteger + Get + Return Me.sbr2ActBlkField + End Get + Set + Me.sbr2ActBlkField = value + Me.RaisePropertyChanged("Sbr2ActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr3ActBlk() As UInteger + Get + Return Me.sbr3ActBlkField + End Get + Set + Me.sbr3ActBlkField = value + Me.RaisePropertyChanged("Sbr3ActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr4ActBlk() As UInteger + Get + Return Me.sbr4ActBlkField + End Get + Set + Me.sbr4ActBlkField = value + Me.RaisePropertyChanged("Sbr4ActBlk") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class PROCDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private modeField As UShort + + Private statusField As UShort + + Private subStatusField As UShort + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property Status() As UShort + Get + Return Me.statusField + End Get + Set + Me.statusField = value + Me.RaisePropertyChanged("Status") + End Set + End Property + + ''' + _ + Public Property SubStatus() As UShort + Get + Return Me.subStatusField + End Get + Set + Me.subStatusField = value + Me.RaisePropertyChanged("SubStatus") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETINFO2DATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private statusWordField As UShort + + Private urpField As Double + + Private actToolField As Double + + Private actOffsetField As UShort + + Private progToolField As Double + + Private progOffsetField As UShort + + Private mStatusField As UShort + + Private mValueField() As UShort + + Private ax1NameField As Byte + + Private ax1OffsetField As Double + + Private ax2NameField As Byte + + Private ax2OffsetField As Double + + Private radiusField As Double + + ''' + _ + Public Property StatusWord() As UShort + Get + Return Me.statusWordField + End Get + Set + Me.statusWordField = value + Me.RaisePropertyChanged("StatusWord") + End Set + End Property + + ''' + _ + Public Property Urp() As Double + Get + Return Me.urpField + End Get + Set + Me.urpField = value + Me.RaisePropertyChanged("Urp") + End Set + End Property + + ''' + _ + Public Property ActTool() As Double + Get + Return Me.actToolField + End Get + Set + Me.actToolField = value + Me.RaisePropertyChanged("ActTool") + End Set + End Property + + ''' + _ + Public Property ActOffset() As UShort + Get + Return Me.actOffsetField + End Get + Set + Me.actOffsetField = value + Me.RaisePropertyChanged("ActOffset") + End Set + End Property + + ''' + _ + Public Property ProgTool() As Double + Get + Return Me.progToolField + End Get + Set + Me.progToolField = value + Me.RaisePropertyChanged("ProgTool") + End Set + End Property + + ''' + _ + Public Property ProgOffset() As UShort + Get + Return Me.progOffsetField + End Get + Set + Me.progOffsetField = value + Me.RaisePropertyChanged("ProgOffset") + End Set + End Property + + ''' + _ + Public Property MStatus() As UShort + Get + Return Me.mStatusField + End Get + Set + Me.mStatusField = value + Me.RaisePropertyChanged("MStatus") + End Set + End Property + + ''' + _ + Public Property MValue() As UShort() + Get + Return Me.mValueField + End Get + Set + Me.mValueField = value + Me.RaisePropertyChanged("MValue") + End Set + End Property + + ''' + _ + Public Property Ax1Name() As Byte + Get + Return Me.ax1NameField + End Get + Set + Me.ax1NameField = value + Me.RaisePropertyChanged("Ax1Name") + End Set + End Property + + ''' + _ + Public Property Ax1Offset() As Double + Get + Return Me.ax1OffsetField + End Get + Set + Me.ax1OffsetField = value + Me.RaisePropertyChanged("Ax1Offset") + End Set + End Property + + ''' + _ + Public Property Ax2Name() As Byte + Get + Return Me.ax2NameField + End Get + Set + Me.ax2NameField = value + Me.RaisePropertyChanged("Ax2Name") + End Set + End Property + + ''' + _ + Public Property Ax2Offset() As Double + Get + Return Me.ax2OffsetField + End Get + Set + Me.ax2OffsetField = value + Me.RaisePropertyChanged("Ax2Offset") + End Set + End Property + + ''' + _ + Public Property Radius() As Double + Get + Return Me.radiusField + End Get + Set + Me.radiusField = value + Me.RaisePropertyChanged("Radius") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETINFO1DATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private statusField As Byte + + Private substatusField As Byte + + Private modeselectField As Byte + + Private jogdirField As Byte + + Private speedovField As UShort + + Private feedovField As UShort + + Private rapfeedovField As UShort + + Private manfeedovField As UShort + + Private jogincrField As Double + + Private numaxselField As Byte + + Private axselField() As Byte + + Private actualtoolField As Double + + Private progrtoolField As Double + + Private actualtooloffField As UShort + + Private progrtooloffField As UShort + + Private realspeedField As Double + + Private progrspeedField As Double + + Private progrfeedField As Double + + Private rapidfeedField As Double + + Private realfeedField As Double + + Private feedmisunitField As UShort + + Private mainprogrnameField As String + + Private dryrunField As Byte + + Private rapidoverrideField As Byte + + Private disableslashedblkField As Byte + + Private optionalstopField As Byte + + Private forcerapidfeedField As Byte + + Private autojogretField As Byte + + Private blockretraceField As Byte + + Private lastncerrorField As UShort + + Private freeField As String + + ''' + _ + Public Property status() As Byte + Get + Return Me.statusField + End Get + Set + Me.statusField = value + Me.RaisePropertyChanged("status") + End Set + End Property + + ''' + _ + Public Property substatus() As Byte + Get + Return Me.substatusField + End Get + Set + Me.substatusField = value + Me.RaisePropertyChanged("substatus") + End Set + End Property + + ''' + _ + Public Property modeselect() As Byte + Get + Return Me.modeselectField + End Get + Set + Me.modeselectField = value + Me.RaisePropertyChanged("modeselect") + End Set + End Property + + ''' + _ + Public Property jogdir() As Byte + Get + Return Me.jogdirField + End Get + Set + Me.jogdirField = value + Me.RaisePropertyChanged("jogdir") + End Set + End Property + + ''' + _ + Public Property speedov() As UShort + Get + Return Me.speedovField + End Get + Set + Me.speedovField = value + Me.RaisePropertyChanged("speedov") + End Set + End Property + + ''' + _ + Public Property feedov() As UShort + Get + Return Me.feedovField + End Get + Set + Me.feedovField = value + Me.RaisePropertyChanged("feedov") + End Set + End Property + + ''' + _ + Public Property rapfeedov() As UShort + Get + Return Me.rapfeedovField + End Get + Set + Me.rapfeedovField = value + Me.RaisePropertyChanged("rapfeedov") + End Set + End Property + + ''' + _ + Public Property manfeedov() As UShort + Get + Return Me.manfeedovField + End Get + Set + Me.manfeedovField = value + Me.RaisePropertyChanged("manfeedov") + End Set + End Property + + ''' + _ + Public Property jogincr() As Double + Get + Return Me.jogincrField + End Get + Set + Me.jogincrField = value + Me.RaisePropertyChanged("jogincr") + End Set + End Property + + ''' + _ + Public Property numaxsel() As Byte + Get + Return Me.numaxselField + End Get + Set + Me.numaxselField = value + Me.RaisePropertyChanged("numaxsel") + End Set + End Property + + ''' + _ + Public Property axsel() As Byte() + Get + Return Me.axselField + End Get + Set + Me.axselField = value + Me.RaisePropertyChanged("axsel") + End Set + End Property + + ''' + _ + Public Property actualtool() As Double + Get + Return Me.actualtoolField + End Get + Set + Me.actualtoolField = value + Me.RaisePropertyChanged("actualtool") + End Set + End Property + + ''' + _ + Public Property progrtool() As Double + Get + Return Me.progrtoolField + End Get + Set + Me.progrtoolField = value + Me.RaisePropertyChanged("progrtool") + End Set + End Property + + ''' + _ + Public Property actualtooloff() As UShort + Get + Return Me.actualtooloffField + End Get + Set + Me.actualtooloffField = value + Me.RaisePropertyChanged("actualtooloff") + End Set + End Property + + ''' + _ + Public Property progrtooloff() As UShort + Get + Return Me.progrtooloffField + End Get + Set + Me.progrtooloffField = value + Me.RaisePropertyChanged("progrtooloff") + End Set + End Property + + ''' + _ + Public Property realspeed() As Double + Get + Return Me.realspeedField + End Get + Set + Me.realspeedField = value + Me.RaisePropertyChanged("realspeed") + End Set + End Property + + ''' + _ + Public Property progrspeed() As Double + Get + Return Me.progrspeedField + End Get + Set + Me.progrspeedField = value + Me.RaisePropertyChanged("progrspeed") + End Set + End Property + + ''' + _ + Public Property progrfeed() As Double + Get + Return Me.progrfeedField + End Get + Set + Me.progrfeedField = value + Me.RaisePropertyChanged("progrfeed") + End Set + End Property + + ''' + _ + Public Property rapidfeed() As Double + Get + Return Me.rapidfeedField + End Get + Set + Me.rapidfeedField = value + Me.RaisePropertyChanged("rapidfeed") + End Set + End Property + + ''' + _ + Public Property realfeed() As Double + Get + Return Me.realfeedField + End Get + Set + Me.realfeedField = value + Me.RaisePropertyChanged("realfeed") + End Set + End Property + + ''' + _ + Public Property feedmisunit() As UShort + Get + Return Me.feedmisunitField + End Get + Set + Me.feedmisunitField = value + Me.RaisePropertyChanged("feedmisunit") + End Set + End Property + + ''' + _ + Public Property mainprogrname() As String + Get + Return Me.mainprogrnameField + End Get + Set + Me.mainprogrnameField = value + Me.RaisePropertyChanged("mainprogrname") + End Set + End Property + + ''' + _ + Public Property dryrun() As Byte + Get + Return Me.dryrunField + End Get + Set + Me.dryrunField = value + Me.RaisePropertyChanged("dryrun") + End Set + End Property + + ''' + _ + Public Property rapidoverride() As Byte + Get + Return Me.rapidoverrideField + End Get + Set + Me.rapidoverrideField = value + Me.RaisePropertyChanged("rapidoverride") + End Set + End Property + + ''' + _ + Public Property disableslashedblk() As Byte + Get + Return Me.disableslashedblkField + End Get + Set + Me.disableslashedblkField = value + Me.RaisePropertyChanged("disableslashedblk") + End Set + End Property + + ''' + _ + Public Property optionalstop() As Byte + Get + Return Me.optionalstopField + End Get + Set + Me.optionalstopField = value + Me.RaisePropertyChanged("optionalstop") + End Set + End Property + + ''' + _ + Public Property forcerapidfeed() As Byte + Get + Return Me.forcerapidfeedField + End Get + Set + Me.forcerapidfeedField = value + Me.RaisePropertyChanged("forcerapidfeed") + End Set + End Property + + ''' + _ + Public Property autojogret() As Byte + Get + Return Me.autojogretField + End Get + Set + Me.autojogretField = value + Me.RaisePropertyChanged("autojogret") + End Set + End Property + + ''' + _ + Public Property blockretrace() As Byte + Get + Return Me.blockretraceField + End Get + Set + Me.blockretraceField = value + Me.RaisePropertyChanged("blockretrace") + End Set + End Property + + ''' + _ + Public Property lastncerror() As UShort + Get + Return Me.lastncerrorField + End Get + Set + Me.lastncerrorField = value + Me.RaisePropertyChanged("lastncerror") + End Set + End Property + + ''' + _ + Public Property free() As String + Get + Return Me.freeField + End Get + Set + Me.freeField = value + Me.RaisePropertyChanged("free") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETINTDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisNameField As Byte + + Private modeField As Byte + + Private positionField As Double + + Private totalOffsetField As Double + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + ''' + _ + Public Property mode() As Byte + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("mode") + End Set + End Property + + ''' + _ + Public Property position() As Double + Get + Return Me.positionField + End Get + Set + Me.positionField = value + Me.RaisePropertyChanged("position") + End Set + End Property + + ''' + _ + Public Property TotalOffset() As Double + Get + Return Me.totalOffsetField + End Get + Set + Me.totalOffsetField = value + Me.RaisePropertyChanged("TotalOffset") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class AXORIGNUM + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisNameField As Byte + + Private originNumberField As Byte + + Private originFlagField As UShort + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + ''' + _ + Public Property OriginNumber() As Byte + Get + Return Me.originNumberField + End Get + Set + Me.originNumberField = value + Me.RaisePropertyChanged("OriginNumber") + End Set + End Property + + ''' + _ + Public Property OriginFlag() As UShort + Get + Return Me.originFlagField + End Get + Set + Me.originFlagField = value + Me.RaisePropertyChanged("OriginFlag") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class USERTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private userValField() As Double + + ''' + _ + Public Property UserVal() As Double() + Get + Return Me.userValField + End Get + Set + Me.userValField = value + Me.RaisePropertyChanged("UserVal") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class OFFSETVALII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private valOrigField As Double + + Private maxChangeValField As Double + + Private actChangeValField As Double + + ''' + _ + Public Property ValOrig() As Double + Get + Return Me.valOrigField + End Get + Set + Me.valOrigField = value + Me.RaisePropertyChanged("ValOrig") + End Set + End Property + + ''' + _ + Public Property MaxChangeVal() As Double + Get + Return Me.maxChangeValField + End Get + Set + Me.maxChangeValField = value + Me.RaisePropertyChanged("MaxChangeVal") + End Set + End Property + + ''' + _ + Public Property ActChangeVal() As Double + Get + Return Me.actChangeValField + End Get + Set + Me.actChangeValField = value + Me.RaisePropertyChanged("ActChangeVal") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class OFFSETTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private lenValField() As OFFSETVALII + + Private diaValField() As OFFSETVALII + + Private orientField As UShort + + Private externTypeField As UShort + + Private externIndField As UShort + + Private duserField() As Double + + Private suserField() As Short + + Private descrField() As UShort + + ''' + _ + Public Property LenVal() As OFFSETVALII() + Get + Return Me.lenValField + End Get + Set + Me.lenValField = value + Me.RaisePropertyChanged("LenVal") + End Set + End Property + + ''' + _ + Public Property DiaVal() As OFFSETVALII() + Get + Return Me.diaValField + End Get + Set + Me.diaValField = value + Me.RaisePropertyChanged("DiaVal") + End Set + End Property + + ''' + _ + Public Property Orient() As UShort + Get + Return Me.orientField + End Get + Set + Me.orientField = value + Me.RaisePropertyChanged("Orient") + End Set + End Property + + ''' + _ + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + Me.RaisePropertyChanged("ExternType") + End Set + End Property + + ''' + _ + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + Me.RaisePropertyChanged("ExternInd") + End Set + End Property + + ''' + _ + Public Property Duser() As Double() + Get + Return Me.duserField + End Get + Set + Me.duserField = value + Me.RaisePropertyChanged("Duser") + End Set + End Property + + ''' + _ + Public Property Suser() As Short() + Get + Return Me.suserField + End Get + Set + Me.suserField = value + Me.RaisePropertyChanged("Suser") + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + Me.RaisePropertyChanged("Descr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class TOOLTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private toolNameField As String + + Private statusField As UShort + + Private lifeTypeField As UShort + + Private maxLifeField As Double + + Private remLifeField As Double + + Private offsNumField As UShort + + Private externTypeField As UShort + + Private externIndField As UShort + + Private duserField() As Double + + Private suserField() As Short + + Private descrField() As UShort + + ''' + _ + Public Property ToolName() As String + Get + Return Me.toolNameField + End Get + Set + Me.toolNameField = value + Me.RaisePropertyChanged("ToolName") + End Set + End Property + + ''' + _ + Public Property Status() As UShort + Get + Return Me.statusField + End Get + Set + Me.statusField = value + Me.RaisePropertyChanged("Status") + End Set + End Property + + ''' + _ + Public Property LifeType() As UShort + Get + Return Me.lifeTypeField + End Get + Set + Me.lifeTypeField = value + Me.RaisePropertyChanged("LifeType") + End Set + End Property + + ''' + _ + Public Property MaxLife() As Double + Get + Return Me.maxLifeField + End Get + Set + Me.maxLifeField = value + Me.RaisePropertyChanged("MaxLife") + End Set + End Property + + ''' + _ + Public Property RemLife() As Double + Get + Return Me.remLifeField + End Get + Set + Me.remLifeField = value + Me.RaisePropertyChanged("RemLife") + End Set + End Property + + ''' + _ + Public Property OffsNum() As UShort + Get + Return Me.offsNumField + End Get + Set + Me.offsNumField = value + Me.RaisePropertyChanged("OffsNum") + End Set + End Property + + ''' + _ + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + Me.RaisePropertyChanged("ExternType") + End Set + End Property + + ''' + _ + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + Me.RaisePropertyChanged("ExternInd") + End Set + End Property + + ''' + _ + Public Property Duser() As Double() + Get + Return Me.duserField + End Get + Set + Me.duserField = value + Me.RaisePropertyChanged("Duser") + End Set + End Property + + ''' + _ + Public Property Suser() As Short() + Get + Return Me.suserField + End Get + Set + Me.suserField = value + Me.RaisePropertyChanged("Suser") + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + Me.RaisePropertyChanged("Descr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ORIGINTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisValField() As Double + + Private externTypeField As UShort + + Private externIndField As UShort + + Private descrField() As UShort + + ''' + _ + Public Property AxisVal() As Double() + Get + Return Me.axisValField + End Get + Set + Me.axisValField = value + Me.RaisePropertyChanged("AxisVal") + End Set + End Property + + ''' + _ + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + Me.RaisePropertyChanged("ExternType") + End Set + End Property + + ''' + _ + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + Me.RaisePropertyChanged("ExternInd") + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + Me.RaisePropertyChanged("Descr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootPhaseEnquiryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private phaseField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Phase() As UShort + Get + Return Me.phaseField + End Get + Set + Me.phaseField = value + Me.RaisePropertyChanged("Phase") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootPhaseEnquiryRequest + + _ + Public BootPhaseEnquiry As OPENcontrol.BootPhaseEnquiry + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootPhaseEnquiry As OPENcontrol.BootPhaseEnquiry) + MyBase.New + Me.BootPhaseEnquiry = BootPhaseEnquiry + End Sub + End Class + + _ + Partial Public Class BootPhaseEnquiryResponse + + _ + Public BootPhaseEnquiryR As OPENcontrol.BootPhaseEnquiryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootPhaseEnquiryR As OPENcontrol.BootPhaseEnquiryR) + MyBase.New + Me.BootPhaseEnquiryR = BootPhaseEnquiryR + End Sub + End Class + + ''' + _ + Partial Public Class BootReboot + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootRebootR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootRebootRequest + + _ + Public BootReboot As OPENcontrol.BootReboot + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootReboot As OPENcontrol.BootReboot) + MyBase.New + Me.BootReboot = BootReboot + End Sub + End Class + + _ + Partial Public Class BootRebootResponse + + _ + Public BootRebootR As OPENcontrol.BootRebootR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootRebootR As OPENcontrol.BootRebootR) + MyBase.New + Me.BootRebootR = BootRebootR + End Sub + End Class + + ''' + _ + Partial Public Class BootShutDown + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootShutDownR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootShutDownRequest + + _ + Public BootShutDown As OPENcontrol.BootShutDown + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootShutDown As OPENcontrol.BootShutDown) + MyBase.New + Me.BootShutDown = BootShutDown + End Sub + End Class + + _ + Partial Public Class BootShutDownResponse + + _ + Public BootShutDownR As OPENcontrol.BootShutDownR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootShutDownR As OPENcontrol.BootShutDownR) + MyBase.New + Me.BootShutDownR = BootShutDownR + End Sub + End Class + + ''' + _ + Partial Public Class BootMode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private modeField As UShort + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootModeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootModeRequest + + _ + Public BootMode As OPENcontrol.BootMode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootMode As OPENcontrol.BootMode) + MyBase.New + Me.BootMode = BootMode + End Sub + End Class + + _ + Partial Public Class BootModeResponse + + _ + Public BootModeR As OPENcontrol.BootModeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootModeR As OPENcontrol.BootModeR) + MyBase.New + Me.BootModeR = BootModeR + End Sub + End Class + + ''' + _ + Partial Public Class GetHWKey + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetHWKeyR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private hwKeyField() As Byte + + Private securLevelField() As Byte + + Private releaseField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property HwKey() As Byte() + Get + Return Me.hwKeyField + End Get + Set + Me.hwKeyField = value + Me.RaisePropertyChanged("HwKey") + End Set + End Property + + ''' + _ + Public Property SecurLevel() As Byte() + Get + Return Me.securLevelField + End Get + Set + Me.securLevelField = value + Me.RaisePropertyChanged("SecurLevel") + End Set + End Property + + ''' + _ + Public Property Release() As String + Get + Return Me.releaseField + End Get + Set + Me.releaseField = value + Me.RaisePropertyChanged("Release") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetHWKeyRequest + + _ + Public GetHWKey As OPENcontrol.GetHWKey + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetHWKey As OPENcontrol.GetHWKey) + MyBase.New + Me.GetHWKey = GetHWKey + End Sub + End Class + + _ + Partial Public Class GetHWKeyResponse + + _ + Public GetHWKeyR As OPENcontrol.GetHWKeyR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetHWKeyR As OPENcontrol.GetHWKeyR) + MyBase.New + Me.GetHWKeyR = GetHWKeyR + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As UShort() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadVarWordRequest + + _ + Public ReadVarWord As OPENcontrol.ReadVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarWord As OPENcontrol.ReadVarWord) + MyBase.New + Me.ReadVarWord = ReadVarWord + End Sub + End Class + + _ + Partial Public Class ReadVarWordResponse + + _ + Public ReadVarWordR As OPENcontrol.ReadVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarWordR As OPENcontrol.ReadVarWordR) + MyBase.New + Me.ReadVarWordR = ReadVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField() As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadVarDoubleRequest + + _ + Public ReadVarDouble As OPENcontrol.ReadVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarDouble As OPENcontrol.ReadVarDouble) + MyBase.New + Me.ReadVarDouble = ReadVarDouble + End Sub + End Class + + _ + Partial Public Class ReadVarDoubleResponse + + _ + Public ReadVarDoubleR As OPENcontrol.ReadVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarDoubleR As OPENcontrol.ReadVarDoubleR) + MyBase.New + Me.ReadVarDoubleR = ReadVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + Private valueField() As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + ''' + _ + Public Property Value() As UShort() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarWordRequest + + _ + Public WriteVarWord As OPENcontrol.WriteVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWord As OPENcontrol.WriteVarWord) + MyBase.New + Me.WriteVarWord = WriteVarWord + End Sub + End Class + + _ + Partial Public Class WriteVarWordResponse + + _ + Public WriteVarWordR As OPENcontrol.WriteVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWordR As OPENcontrol.WriteVarWordR) + MyBase.New + Me.WriteVarWordR = WriteVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWordBit + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private bitIndexField As UShort + + Private bitValueField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property BitIndex() As UShort + Get + Return Me.bitIndexField + End Get + Set + Me.bitIndexField = value + Me.RaisePropertyChanged("BitIndex") + End Set + End Property + + ''' + _ + Public Property BitValue() As UShort + Get + Return Me.bitValueField + End Get + Set + Me.bitValueField = value + Me.RaisePropertyChanged("BitValue") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWordBitR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarWordBitRequest + + _ + Public WriteVarWordBit As OPENcontrol.WriteVarWordBit + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWordBit As OPENcontrol.WriteVarWordBit) + MyBase.New + Me.WriteVarWordBit = WriteVarWordBit + End Sub + End Class + + _ + Partial Public Class WriteVarWordBitResponse + + _ + Public WriteVarWordBitR As OPENcontrol.WriteVarWordBitR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWordBitR As OPENcontrol.WriteVarWordBitR) + MyBase.New + Me.WriteVarWordBitR = WriteVarWordBitR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + Private valueField() As Double + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + ''' + _ + Public Property Value() As Double() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarDoubleRequest + + _ + Public WriteVarDouble As OPENcontrol.WriteVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarDouble As OPENcontrol.WriteVarDouble) + MyBase.New + Me.WriteVarDouble = WriteVarDouble + End Sub + End Class + + _ + Partial Public Class WriteVarDoubleResponse + + _ + Public WriteVarDoubleR As OPENcontrol.WriteVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarDoubleR As OPENcontrol.WriteVarDoubleR) + MyBase.New + Me.WriteVarDoubleR = WriteVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarText + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private sizeField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property Size() As UShort + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarTextR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private textField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Text() As String + Get + Return Me.textField + End Get + Set + Me.textField = value + Me.RaisePropertyChanged("Text") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadVarTextRequest + + _ + Public ReadVarText As OPENcontrol.ReadVarText + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarText As OPENcontrol.ReadVarText) + MyBase.New + Me.ReadVarText = ReadVarText + End Sub + End Class + + _ + Partial Public Class ReadVarTextResponse + + _ + Public ReadVarTextR As OPENcontrol.ReadVarTextR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarTextR As OPENcontrol.ReadVarTextR) + MyBase.New + Me.ReadVarTextR = ReadVarTextR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarText + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private lenField As UShort + + Private textField As String + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property Len() As UShort + Get + Return Me.lenField + End Get + Set + Me.lenField = value + Me.RaisePropertyChanged("Len") + End Set + End Property + + ''' + _ + Public Property Text() As String + Get + Return Me.textField + End Get + Set + Me.textField = value + Me.RaisePropertyChanged("Text") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarTextR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarTextRequest + + _ + Public WriteVarText As OPENcontrol.WriteVarText + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarText As OPENcontrol.WriteVarText) + MyBase.New + Me.WriteVarText = WriteVarText + End Sub + End Class + + _ + Partial Public Class WriteVarTextResponse + + _ + Public WriteVarTextR As OPENcontrol.WriteVarTextR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarTextR As OPENcontrol.WriteVarTextR) + MyBase.New + Me.WriteVarTextR = WriteVarTextR + End Sub + End Class + + ''' + _ + Partial Public Class ReadWarningMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadWarningMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private warningMsgField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property WarningMsg() As String + Get + Return Me.warningMsgField + End Get + Set + Me.warningMsgField = value + Me.RaisePropertyChanged("WarningMsg") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadWarningMsgRequest + + _ + Public ReadWarningMsg As OPENcontrol.ReadWarningMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadWarningMsg As OPENcontrol.ReadWarningMsg) + MyBase.New + Me.ReadWarningMsg = ReadWarningMsg + End Sub + End Class + + _ + Partial Public Class ReadWarningMsgResponse + + _ + Public ReadWarningMsgR As OPENcontrol.ReadWarningMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadWarningMsgR As OPENcontrol.ReadWarningMsgR) + MyBase.New + Me.ReadWarningMsgR = ReadWarningMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ResetSingleTableII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private tableNumField As UShort + + ''' + _ + Public Property TableNum() As UShort + Get + Return Me.tableNumField + End Get + Set + Me.tableNumField = value + Me.RaisePropertyChanged("TableNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ResetSingleTableIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ResetSingleTableIIRequest + + _ + Public ResetSingleTableII As OPENcontrol.ResetSingleTableII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ResetSingleTableII As OPENcontrol.ResetSingleTableII) + MyBase.New + Me.ResetSingleTableII = ResetSingleTableII + End Sub + End Class + + _ + Partial Public Class ResetSingleTableIIResponse + + _ + Public ResetSingleTableIIR As OPENcontrol.ResetSingleTableIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ResetSingleTableIIR As OPENcontrol.ResetSingleTableIIR) + MyBase.New + Me.ResetSingleTableIIR = ResetSingleTableIIR + End Sub + End Class + + ''' + _ + Partial Public Class LockTableII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private tableNumField As UShort + + ''' + _ + Public Property TableNum() As UShort + Get + Return Me.tableNumField + End Get + Set + Me.tableNumField = value + Me.RaisePropertyChanged("TableNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LockTableIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LockTableIIRequest + + _ + Public LockTableII As OPENcontrol.LockTableII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LockTableII As OPENcontrol.LockTableII) + MyBase.New + Me.LockTableII = LockTableII + End Sub + End Class + + _ + Partial Public Class LockTableIIResponse + + _ + Public LockTableIIR As OPENcontrol.LockTableIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LockTableIIR As OPENcontrol.LockTableIIR) + MyBase.New + Me.LockTableIIR = LockTableIIR + End Sub + End Class + + ''' + _ + Partial Public Class UnLockTableII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private tableNumField As UShort + + ''' + _ + Public Property TableNum() As UShort + Get + Return Me.tableNumField + End Get + Set + Me.tableNumField = value + Me.RaisePropertyChanged("TableNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class UnLockTableIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class UnLockTableIIRequest + + _ + Public UnLockTableII As OPENcontrol.UnLockTableII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal UnLockTableII As OPENcontrol.UnLockTableII) + MyBase.New + Me.UnLockTableII = UnLockTableII + End Sub + End Class + + _ + Partial Public Class UnLockTableIIResponse + + _ + Public UnLockTableIIR As OPENcontrol.UnLockTableIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal UnLockTableIIR As OPENcontrol.UnLockTableIIR) + MyBase.New + Me.UnLockTableIIR = UnLockTableIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetOriginTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetOriginTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As ORIGINTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As ORIGINTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetOriginTabRecordIIRequest + + _ + Public GetOriginTabRecordII As OPENcontrol.GetOriginTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOriginTabRecordII As OPENcontrol.GetOriginTabRecordII) + MyBase.New + Me.GetOriginTabRecordII = GetOriginTabRecordII + End Sub + End Class + + _ + Partial Public Class GetOriginTabRecordIIResponse + + _ + Public GetOriginTabRecordIIR As OPENcontrol.GetOriginTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOriginTabRecordIIR As OPENcontrol.GetOriginTabRecordIIR) + MyBase.New + Me.GetOriginTabRecordIIR = GetOriginTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetOriginTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As ORIGINTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As ORIGINTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetOriginTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetOriginTabRecordIIRequest + + _ + Public SetOriginTabRecordII As OPENcontrol.SetOriginTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOriginTabRecordII As OPENcontrol.SetOriginTabRecordII) + MyBase.New + Me.SetOriginTabRecordII = SetOriginTabRecordII + End Sub + End Class + + _ + Partial Public Class SetOriginTabRecordIIResponse + + _ + Public SetOriginTabRecordIIR As OPENcontrol.SetOriginTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOriginTabRecordIIR As OPENcontrol.SetOriginTabRecordIIR) + MyBase.New + Me.SetOriginTabRecordIIR = SetOriginTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetToolTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetToolTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As TOOLTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As TOOLTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetToolTabRecordIIRequest + + _ + Public GetToolTabRecordII As OPENcontrol.GetToolTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolTabRecordII As OPENcontrol.GetToolTabRecordII) + MyBase.New + Me.GetToolTabRecordII = GetToolTabRecordII + End Sub + End Class + + _ + Partial Public Class GetToolTabRecordIIResponse + + _ + Public GetToolTabRecordIIR As OPENcontrol.GetToolTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolTabRecordIIR As OPENcontrol.GetToolTabRecordIIR) + MyBase.New + Me.GetToolTabRecordIIR = GetToolTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetToolTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As TOOLTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As TOOLTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetToolTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetToolTabRecordIIRequest + + _ + Public SetToolTabRecordII As OPENcontrol.SetToolTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetToolTabRecordII As OPENcontrol.SetToolTabRecordII) + MyBase.New + Me.SetToolTabRecordII = SetToolTabRecordII + End Sub + End Class + + _ + Partial Public Class SetToolTabRecordIIResponse + + _ + Public SetToolTabRecordIIR As OPENcontrol.SetToolTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetToolTabRecordIIR As OPENcontrol.SetToolTabRecordIIR) + MyBase.New + Me.SetToolTabRecordIIR = SetToolTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetOffsetTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetOffsetTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As OFFSETTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As OFFSETTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetOffsetTabRecordIIRequest + + _ + Public GetOffsetTabRecordII As OPENcontrol.GetOffsetTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOffsetTabRecordII As OPENcontrol.GetOffsetTabRecordII) + MyBase.New + Me.GetOffsetTabRecordII = GetOffsetTabRecordII + End Sub + End Class + + _ + Partial Public Class GetOffsetTabRecordIIResponse + + _ + Public GetOffsetTabRecordIIR As OPENcontrol.GetOffsetTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOffsetTabRecordIIR As OPENcontrol.GetOffsetTabRecordIIR) + MyBase.New + Me.GetOffsetTabRecordIIR = GetOffsetTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetOffsetTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As OFFSETTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As OFFSETTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetOffsetTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetOffsetTabRecordIIRequest + + _ + Public SetOffsetTabRecordII As OPENcontrol.SetOffsetTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOffsetTabRecordII As OPENcontrol.SetOffsetTabRecordII) + MyBase.New + Me.SetOffsetTabRecordII = SetOffsetTabRecordII + End Sub + End Class + + _ + Partial Public Class SetOffsetTabRecordIIResponse + + _ + Public SetOffsetTabRecordIIR As OPENcontrol.SetOffsetTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOffsetTabRecordIIR As OPENcontrol.SetOffsetTabRecordIIR) + MyBase.New + Me.SetOffsetTabRecordIIR = SetOffsetTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetUserTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetUserTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As USERTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As USERTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetUserTabRecordIIRequest + + _ + Public GetUserTabRecordII As OPENcontrol.GetUserTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetUserTabRecordII As OPENcontrol.GetUserTabRecordII) + MyBase.New + Me.GetUserTabRecordII = GetUserTabRecordII + End Sub + End Class + + _ + Partial Public Class GetUserTabRecordIIResponse + + _ + Public GetUserTabRecordIIR As OPENcontrol.GetUserTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetUserTabRecordIIR As OPENcontrol.GetUserTabRecordIIR) + MyBase.New + Me.GetUserTabRecordIIR = GetUserTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetUserTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As USERTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As USERTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetUserTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetUserTabRecordIIRequest + + _ + Public SetUserTabRecordII As OPENcontrol.SetUserTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetUserTabRecordII As OPENcontrol.SetUserTabRecordII) + MyBase.New + Me.SetUserTabRecordII = SetUserTabRecordII + End Sub + End Class + + _ + Partial Public Class SetUserTabRecordIIResponse + + _ + Public SetUserTabRecordIIR As OPENcontrol.SetUserTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetUserTabRecordIIR As OPENcontrol.SetUserTabRecordIIR) + MyBase.New + Me.SetUserTabRecordIIR = SetUserTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SaveTables + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private localDirField As String + + ''' + _ + Public Property LocalDir() As String + Get + Return Me.localDirField + End Get + Set + Me.localDirField = value + Me.RaisePropertyChanged("LocalDir") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SaveTablesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SaveTablesRequest + + _ + Public SaveTables As OPENcontrol.SaveTables + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveTables As OPENcontrol.SaveTables) + MyBase.New + Me.SaveTables = SaveTables + End Sub + End Class + + _ + Partial Public Class SaveTablesResponse + + _ + Public SaveTablesR As OPENcontrol.SaveTablesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveTablesR As OPENcontrol.SaveTablesR) + MyBase.New + Me.SaveTablesR = SaveTablesR + End Sub + End Class + + ''' + _ + Partial Public Class RestoreSingleTable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private localDirField As String + + Private tableTypeField As TABLETYPEII + + ''' + _ + Public Property LocalDir() As String + Get + Return Me.localDirField + End Get + Set + Me.localDirField = value + Me.RaisePropertyChanged("LocalDir") + End Set + End Property + + ''' + _ + Public Property TableType() As TABLETYPEII + Get + Return Me.tableTypeField + End Get + Set + Me.tableTypeField = value + Me.RaisePropertyChanged("TableType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum TABLETYPEII + + ''' + _ + TabTypeTools + + ''' + _ + TabTypeOffsets + + ''' + _ + TabTypeOrigins + + ''' + _ + TabTypeUser + End Enum + + ''' + _ + Partial Public Class RestoreSingleTableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class RestoreSingleTableRequest + + _ + Public RestoreSingleTable As OPENcontrol.RestoreSingleTable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreSingleTable As OPENcontrol.RestoreSingleTable) + MyBase.New + Me.RestoreSingleTable = RestoreSingleTable + End Sub + End Class + + _ + Partial Public Class RestoreSingleTableResponse + + _ + Public RestoreSingleTableR As OPENcontrol.RestoreSingleTableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreSingleTableR As OPENcontrol.RestoreSingleTableR) + MyBase.New + Me.RestoreSingleTableR = RestoreSingleTableR + End Sub + End Class + + ''' + _ + Partial Public Class SaveSingleTable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private localDirField As String + + Private tableTypeField As TABLETYPEII + + ''' + _ + Public Property LocalDir() As String + Get + Return Me.localDirField + End Get + Set + Me.localDirField = value + Me.RaisePropertyChanged("LocalDir") + End Set + End Property + + ''' + _ + Public Property TableType() As TABLETYPEII + Get + Return Me.tableTypeField + End Get + Set + Me.tableTypeField = value + Me.RaisePropertyChanged("TableType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SaveSingleTableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SaveSingleTableRequest + + _ + Public SaveSingleTable As OPENcontrol.SaveSingleTable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveSingleTable As OPENcontrol.SaveSingleTable) + MyBase.New + Me.SaveSingleTable = SaveSingleTable + End Sub + End Class + + _ + Partial Public Class SaveSingleTableResponse + + _ + Public SaveSingleTableR As OPENcontrol.SaveSingleTableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveSingleTableR As OPENcontrol.SaveSingleTableR) + MyBase.New + Me.SaveSingleTableR = SaveSingleTableR + End Sub + End Class + + ''' + _ + Partial Public Class SaveBackupMemory + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileNameField As String + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SaveBackupMemoryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SaveBackupMemoryRequest + + _ + Public SaveBackupMemory As OPENcontrol.SaveBackupMemory + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveBackupMemory As OPENcontrol.SaveBackupMemory) + MyBase.New + Me.SaveBackupMemory = SaveBackupMemory + End Sub + End Class + + _ + Partial Public Class SaveBackupMemoryResponse + + _ + Public SaveBackupMemoryR As OPENcontrol.SaveBackupMemoryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveBackupMemoryR As OPENcontrol.SaveBackupMemoryR) + MyBase.New + Me.SaveBackupMemoryR = SaveBackupMemoryR + End Sub + End Class + + ''' + _ + Partial Public Class RestoreBackupMemory + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileNameField As String + + Private restoreMaskField As UInteger + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + ''' + _ + Public Property RestoreMask() As UInteger + Get + Return Me.restoreMaskField + End Get + Set + Me.restoreMaskField = value + Me.RaisePropertyChanged("RestoreMask") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class RestoreBackupMemoryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class RestoreBackupMemoryRequest + + _ + Public RestoreBackupMemory As OPENcontrol.RestoreBackupMemory + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreBackupMemory As OPENcontrol.RestoreBackupMemory) + MyBase.New + Me.RestoreBackupMemory = RestoreBackupMemory + End Sub + End Class + + _ + Partial Public Class RestoreBackupMemoryResponse + + _ + Public RestoreBackupMemoryR As OPENcontrol.RestoreBackupMemoryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreBackupMemoryR As OPENcontrol.RestoreBackupMemoryR) + MyBase.New + Me.RestoreBackupMemoryR = RestoreBackupMemoryR + End Sub + End Class + + ''' + _ + Partial Public Class Cycle + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private cmdField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Cmd() As UShort + Get + Return Me.cmdField + End Get + Set + Me.cmdField = value + Me.RaisePropertyChanged("Cmd") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class CycleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class CycleRequest + + _ + Public Cycle As OPENcontrol.Cycle + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Cycle As OPENcontrol.Cycle) + MyBase.New + Me.Cycle = Cycle + End Sub + End Class + + _ + Partial Public Class CycleResponse + + _ + Public CycleR As OPENcontrol.CycleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal CycleR As OPENcontrol.CycleR) + MyBase.New + Me.CycleR = CycleR + End Sub + End Class + + ''' + _ + Partial Public Class SyncroCycle + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SyncroCycleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SyncroCycleRequest + + _ + Public SyncroCycle As OPENcontrol.SyncroCycle + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SyncroCycle As OPENcontrol.SyncroCycle) + MyBase.New + Me.SyncroCycle = SyncroCycle + End Sub + End Class + + _ + Partial Public Class SyncroCycleResponse + + _ + Public SyncroCycleR As OPENcontrol.SyncroCycleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SyncroCycleR As OPENcontrol.SyncroCycleR) + MyBase.New + Me.SyncroCycleR = SyncroCycleR + End Sub + End Class + + ''' + _ + Partial Public Class Reset + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ResetR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ResetRequest + + _ + Public Reset As OPENcontrol.Reset + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Reset As OPENcontrol.Reset) + MyBase.New + Me.Reset = Reset + End Sub + End Class + + _ + Partial Public Class ResetResponse + + _ + Public ResetR As OPENcontrol.ResetR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ResetR As OPENcontrol.ResetR) + MyBase.New + Me.ResetR = ResetR + End Sub + End Class + + ''' + _ + Partial Public Class Hold + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private cmdField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Cmd() As UShort + Get + Return Me.cmdField + End Get + Set + Me.cmdField = value + Me.RaisePropertyChanged("Cmd") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class HoldR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class HoldRequest + + _ + Public Hold As OPENcontrol.Hold + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Hold As OPENcontrol.Hold) + MyBase.New + Me.Hold = Hold + End Sub + End Class + + _ + Partial Public Class HoldResponse + + _ + Public HoldR As OPENcontrol.HoldR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal HoldR As OPENcontrol.HoldR) + MyBase.New + Me.HoldR = HoldR + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedManOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private feedManOverField As UShort + + Private directionField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property FeedManOver() As UShort + Get + Return Me.feedManOverField + End Get + Set + Me.feedManOverField = value + Me.RaisePropertyChanged("FeedManOver") + End Set + End Property + + ''' + _ + Public Property Direction() As UShort + Get + Return Me.directionField + End Get + Set + Me.directionField = value + Me.RaisePropertyChanged("Direction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedManOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetFeedManOverRequest + + _ + Public SetFeedManOver As OPENcontrol.SetFeedManOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedManOver As OPENcontrol.SetFeedManOver) + MyBase.New + Me.SetFeedManOver = SetFeedManOver + End Sub + End Class + + _ + Partial Public Class SetFeedManOverResponse + + _ + Public SetFeedManOverR As OPENcontrol.SetFeedManOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedManOverR As OPENcontrol.SetFeedManOverR) + MyBase.New + Me.SetFeedManOverR = SetFeedManOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRateOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private feedRateOverField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property FeedRateOver() As UShort + Get + Return Me.feedRateOverField + End Get + Set + Me.feedRateOverField = value + Me.RaisePropertyChanged("FeedRateOver") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRateOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetFeedRateOverRequest + + _ + Public SetFeedRateOver As OPENcontrol.SetFeedRateOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRateOver As OPENcontrol.SetFeedRateOver) + MyBase.New + Me.SetFeedRateOver = SetFeedRateOver + End Sub + End Class + + _ + Partial Public Class SetFeedRateOverResponse + + _ + Public SetFeedRateOverR As OPENcontrol.SetFeedRateOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRateOverR As OPENcontrol.SetFeedRateOverR) + MyBase.New + Me.SetFeedRateOverR = SetFeedRateOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRapidOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private feedRapidOverField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property FeedRapidOver() As UShort + Get + Return Me.feedRapidOverField + End Get + Set + Me.feedRapidOverField = value + Me.RaisePropertyChanged("FeedRapidOver") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRapidOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetFeedRapidOverRequest + + _ + Public SetFeedRapidOver As OPENcontrol.SetFeedRapidOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRapidOver As OPENcontrol.SetFeedRapidOver) + MyBase.New + Me.SetFeedRapidOver = SetFeedRapidOver + End Sub + End Class + + _ + Partial Public Class SetFeedRapidOverResponse + + _ + Public SetFeedRapidOverR As OPENcontrol.SetFeedRapidOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRapidOverR As OPENcontrol.SetFeedRapidOverR) + MyBase.New + Me.SetFeedRapidOverR = SetFeedRapidOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetSpeedRateOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private speedRateOverField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property SpeedRateOver() As UShort + Get + Return Me.speedRateOverField + End Get + Set + Me.speedRateOverField = value + Me.RaisePropertyChanged("SpeedRateOver") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetSpeedRateOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetSpeedRateOverRequest + + _ + Public SetSpeedRateOver As OPENcontrol.SetSpeedRateOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetSpeedRateOver As OPENcontrol.SetSpeedRateOver) + MyBase.New + Me.SetSpeedRateOver = SetSpeedRateOver + End Sub + End Class + + _ + Partial Public Class SetSpeedRateOverResponse + + _ + Public SetSpeedRateOverR As OPENcontrol.SetSpeedRateOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetSpeedRateOverR As OPENcontrol.SetSpeedRateOverR) + MyBase.New + Me.SetSpeedRateOverR = SetSpeedRateOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetManMovDirection + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private directionField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Direction() As UShort + Get + Return Me.directionField + End Get + Set + Me.directionField = value + Me.RaisePropertyChanged("Direction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetManMovDirectionR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetManMovDirectionRequest + + _ + Public SetManMovDirection As OPENcontrol.SetManMovDirection + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetManMovDirection As OPENcontrol.SetManMovDirection) + MyBase.New + Me.SetManMovDirection = SetManMovDirection + End Sub + End Class + + _ + Partial Public Class SetManMovDirectionResponse + + _ + Public SetManMovDirectionR As OPENcontrol.SetManMovDirectionR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetManMovDirectionR As OPENcontrol.SetManMovDirectionR) + MyBase.New + Me.SetManMovDirectionR = SetManMovDirectionR + End Sub + End Class + + ''' + _ + Partial Public Class GetVarJOG + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetVarJOGR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetVarJOGRequest + + _ + Public GetVarJOG As OPENcontrol.GetVarJOG + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarJOG As OPENcontrol.GetVarJOG) + MyBase.New + Me.GetVarJOG = GetVarJOG + End Sub + End Class + + _ + Partial Public Class GetVarJOGResponse + + _ + Public GetVarJOGR As OPENcontrol.GetVarJOGR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarJOGR As OPENcontrol.GetVarJOGR) + MyBase.New + Me.GetVarJOGR = GetVarJOGR + End Sub + End Class + + ''' + _ + Partial Public Class SetVarJOG + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private valueField As Double + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetVarJOGR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetVarJOGRequest + + _ + Public SetVarJOG As OPENcontrol.SetVarJOG + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarJOG As OPENcontrol.SetVarJOG) + MyBase.New + Me.SetVarJOG = SetVarJOG + End Sub + End Class + + _ + Partial Public Class SetVarJOGResponse + + _ + Public SetVarJOGR As OPENcontrol.SetVarJOGR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarJOGR As OPENcontrol.SetVarJOGR) + MyBase.New + Me.SetVarJOGR = SetVarJOGR + End Sub + End Class + + ''' + _ + Partial Public Class SetVarUAS + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetVarUASR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetVarUASRequest + + _ + Public SetVarUAS As OPENcontrol.SetVarUAS + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarUAS As OPENcontrol.SetVarUAS) + MyBase.New + Me.SetVarUAS = SetVarUAS + End Sub + End Class + + _ + Partial Public Class SetVarUASResponse + + _ + Public SetVarUASR As OPENcontrol.SetVarUASR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarUASR As OPENcontrol.SetVarUASR) + MyBase.New + Me.SetVarUASR = SetVarUASR + End Sub + End Class + + ''' + _ + Partial Public Class GetVarRCM + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetVarRCMR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As UShort + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetVarRCMRequest + + _ + Public GetVarRCM As OPENcontrol.GetVarRCM + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarRCM As OPENcontrol.GetVarRCM) + MyBase.New + Me.GetVarRCM = GetVarRCM + End Sub + End Class + + _ + Partial Public Class GetVarRCMResponse + + _ + Public GetVarRCMR As OPENcontrol.GetVarRCMR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarRCMR As OPENcontrol.GetVarRCMR) + MyBase.New + Me.GetVarRCMR = GetVarRCMR + End Sub + End Class + + ''' + _ + Partial Public Class SetVarRCM + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetVarRCMR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetVarRCMRequest + + _ + Public SetVarRCM As OPENcontrol.SetVarRCM + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarRCM As OPENcontrol.SetVarRCM) + MyBase.New + Me.SetVarRCM = SetVarRCM + End Sub + End Class + + _ + Partial Public Class SetVarRCMResponse + + _ + Public SetVarRCMR As OPENcontrol.SetVarRCMR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarRCMR As OPENcontrol.SetVarRCMR) + MyBase.New + Me.SetVarRCMR = SetVarRCMR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCWORDVARTYPE + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCWORDVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum PROCWORDVARTYPE + + ''' + _ + PROCWORDVARRCM + + ''' + _ + PROCWORDVARARM + + ''' + _ + PROCWORDVARDPS + + ''' + _ + PROCWORDVARRAP + + ''' + _ + PROCWORDVARTRP + + ''' + _ + PROCWORDVARVFF + + ''' + _ + PROCWORDVARUVR + + ''' + _ + PROCWORDVARDLA + + ''' + _ + PROCWORDVARMBR + + ''' + _ + PROCWORDVARURL + + ''' + _ + PROCWORDVARDSB + + ''' + _ + PROCWORDVARUSO + + ''' + _ + PROCWORDVARERR + + ''' + _ + PROCWORDVARHMP + + ''' + _ + PROCWORDVARUAS + + ''' + _ + PROCWORDVARMBA + + ''' + _ + PROCWORDVARREM + End Enum + + ''' + _ + Partial Public Class GetProcVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As UShort + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcVarWordRequest + + _ + Public GetProcVarWord As OPENcontrol.GetProcVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarWord As OPENcontrol.GetProcVarWord) + MyBase.New + Me.GetProcVarWord = GetProcVarWord + End Sub + End Class + + _ + Partial Public Class GetProcVarWordResponse + + _ + Public GetProcVarWordR As OPENcontrol.GetProcVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarWordR As OPENcontrol.GetProcVarWordR) + MyBase.New + Me.GetProcVarWordR = GetProcVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCWORDVARTYPE + + Private valueField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCWORDVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + ''' + _ + Public Property Value() As UShort + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetProcVarWordRequest + + _ + Public SetProcVarWord As OPENcontrol.SetProcVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarWord As OPENcontrol.SetProcVarWord) + MyBase.New + Me.SetProcVarWord = SetProcVarWord + End Sub + End Class + + _ + Partial Public Class SetProcVarWordResponse + + _ + Public SetProcVarWordR As OPENcontrol.SetProcVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarWordR As OPENcontrol.SetProcVarWordR) + MyBase.New + Me.SetProcVarWordR = SetProcVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCDOUBLEVARTYPE + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCDOUBLEVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum PROCDOUBLEVARTYPE + + ''' + _ + PROCDOUBLEVARURP + + ''' + _ + PROCDOUBLEVARDWT + + ''' + _ + PROCDOUBLEVARJOG + + ''' + _ + PROCDOUBLEVARMDA + + ''' + _ + PROCDOUBLEVARMSA + + ''' + _ + PROCDOUBLEVARSSL + + ''' + _ + PROCDOUBLEVARVEF + + ''' + _ + PROCDOUBLEVARUPO + + ''' + _ + PROCDOUBLEVARUPA + + ''' + _ + PROCDOUBLEVARCET + + ''' + _ + PROCDOUBLEVARFCT + + ''' + _ + PROCDOUBLEVARMBRLEN + + ''' + _ + PROCDOUBLEVARMBRTHR + End Enum + + ''' + _ + Partial Public Class GetProcVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcVarDoubleRequest + + _ + Public GetProcVarDouble As OPENcontrol.GetProcVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarDouble As OPENcontrol.GetProcVarDouble) + MyBase.New + Me.GetProcVarDouble = GetProcVarDouble + End Sub + End Class + + _ + Partial Public Class GetProcVarDoubleResponse + + _ + Public GetProcVarDoubleR As OPENcontrol.GetProcVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarDoubleR As OPENcontrol.GetProcVarDoubleR) + MyBase.New + Me.GetProcVarDoubleR = GetProcVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCDOUBLEVARTYPE + + Private valueField As Double + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCDOUBLEVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetProcVarDoubleRequest + + _ + Public SetProcVarDouble As OPENcontrol.SetProcVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarDouble As OPENcontrol.SetProcVarDouble) + MyBase.New + Me.SetProcVarDouble = SetProcVarDouble + End Sub + End Class + + _ + Partial Public Class SetProcVarDoubleResponse + + _ + Public SetProcVarDoubleR As OPENcontrol.SetProcVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarDoubleR As OPENcontrol.SetProcVarDoubleR) + MyBase.New + Me.SetProcVarDoubleR = SetProcVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class SetMdiString + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private mdiStringField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property MdiString() As String + Get + Return Me.mdiStringField + End Get + Set + Me.mdiStringField = value + Me.RaisePropertyChanged("MdiString") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetMdiStringR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetMdiStringRequest + + _ + Public SetMdiString As OPENcontrol.SetMdiString + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetMdiString As OPENcontrol.SetMdiString) + MyBase.New + Me.SetMdiString = SetMdiString + End Sub + End Class + + _ + Partial Public Class SetMdiStringResponse + + _ + Public SetMdiStringR As OPENcontrol.SetMdiStringR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetMdiStringR As OPENcontrol.SetMdiStringR) + MyBase.New + Me.SetMdiStringR = SetMdiStringR + End Sub + End Class + + ''' + _ + Partial Public Class SetProcessMode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetProcessModeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetProcessModeRequest + + _ + Public SetProcessMode As OPENcontrol.SetProcessMode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcessMode As OPENcontrol.SetProcessMode) + MyBase.New + Me.SetProcessMode = SetProcessMode + End Sub + End Class + + _ + Partial Public Class SetProcessModeResponse + + _ + Public SetProcessModeR As OPENcontrol.SetProcessModeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcessModeR As OPENcontrol.SetProcessModeR) + MyBase.New + Me.SetProcessModeR = SetProcessModeR + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcess + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcessR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectProcessRequest + + _ + Public SelectProcess As OPENcontrol.SelectProcess + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcess As OPENcontrol.SelectProcess) + MyBase.New + Me.SelectProcess = SelectProcess + End Sub + End Class + + _ + Partial Public Class SelectProcessResponse + + _ + Public SelectProcessR As OPENcontrol.SelectProcessR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcessR As OPENcontrol.SelectProcessR) + MyBase.New + Me.SelectProcessR = SelectProcessR + End Sub + End Class + + ''' + _ + Partial Public Class GetSelectedProcess + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetSelectedProcessR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private procNumField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetSelectedProcessRequest + + _ + Public GetSelectedProcess As OPENcontrol.GetSelectedProcess + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSelectedProcess As OPENcontrol.GetSelectedProcess) + MyBase.New + Me.GetSelectedProcess = GetSelectedProcess + End Sub + End Class + + _ + Partial Public Class GetSelectedProcessResponse + + _ + Public GetSelectedProcessR As OPENcontrol.GetSelectedProcessR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSelectedProcessR As OPENcontrol.GetSelectedProcessR) + MyBase.New + Me.GetSelectedProcessR = GetSelectedProcessR + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcAxis + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private axisNameField As Byte + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcAxisR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectProcAxisRequest + + _ + Public SelectProcAxis As OPENcontrol.SelectProcAxis + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcAxis As OPENcontrol.SelectProcAxis) + MyBase.New + Me.SelectProcAxis = SelectProcAxis + End Sub + End Class + + _ + Partial Public Class SelectProcAxisResponse + + _ + Public SelectProcAxisR As OPENcontrol.SelectProcAxisR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcAxisR As OPENcontrol.SelectProcAxisR) + MyBase.New + Me.SelectProcAxisR = SelectProcAxisR + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgram + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private pPNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property PPName() As String + Get + Return Me.pPNameField + End Get + Set + Me.pPNameField = value + Me.RaisePropertyChanged("PPName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgramR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectPartProgramRequest + + _ + Public SelectPartProgram As OPENcontrol.SelectPartProgram + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgram As OPENcontrol.SelectPartProgram) + MyBase.New + Me.SelectPartProgram = SelectPartProgram + End Sub + End Class + + _ + Partial Public Class SelectPartProgramResponse + + _ + Public SelectPartProgramR As OPENcontrol.SelectPartProgramR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgramR As OPENcontrol.SelectPartProgramR) + MyBase.New + Me.SelectPartProgramR = SelectPartProgramR + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgramFromDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private pPNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property PPName() As String + Get + Return Me.pPNameField + End Get + Set + Me.pPNameField = value + Me.RaisePropertyChanged("PPName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgramFromDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectPartProgramFromDriveRequest + + _ + Public SelectPartProgramFromDrive As OPENcontrol.SelectPartProgramFromDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgramFromDrive As OPENcontrol.SelectPartProgramFromDrive) + MyBase.New + Me.SelectPartProgramFromDrive = SelectPartProgramFromDrive + End Sub + End Class + + _ + Partial Public Class SelectPartProgramFromDriveResponse + + _ + Public SelectPartProgramFromDriveR As OPENcontrol.SelectPartProgramFromDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgramFromDriveR As OPENcontrol.SelectPartProgramFromDriveR) + MyBase.New + Me.SelectPartProgramFromDriveR = SelectPartProgramFromDriveR + End Sub + End Class + + ''' + _ + Partial Public Class GetActivePartProgram + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetActivePartProgramR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private levelField As UShort + + Private mainField As String + + Private subField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Level() As UShort + Get + Return Me.levelField + End Get + Set + Me.levelField = value + Me.RaisePropertyChanged("Level") + End Set + End Property + + ''' + _ + Public Property Main() As String + Get + Return Me.mainField + End Get + Set + Me.mainField = value + Me.RaisePropertyChanged("Main") + End Set + End Property + + ''' + _ + Public Property [Sub]() As String + Get + Return Me.subField + End Get + Set + Me.subField = value + Me.RaisePropertyChanged("Sub") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetActivePartProgramRequest + + _ + Public GetActivePartProgram As OPENcontrol.GetActivePartProgram + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetActivePartProgram As OPENcontrol.GetActivePartProgram) + MyBase.New + Me.GetActivePartProgram = GetActivePartProgram + End Sub + End Class + + _ + Partial Public Class GetActivePartProgramResponse + + _ + Public GetActivePartProgramR As OPENcontrol.GetActivePartProgramR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetActivePartProgramR As OPENcontrol.GetActivePartProgramR) + MyBase.New + Me.GetActivePartProgramR = GetActivePartProgramR + End Sub + End Class + + ''' + _ + Partial Public Class GetPartProgramLines + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetPartProgramLinesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private pPLine1Field As String + + Private pPLine2Field As String + + Private pPLine3Field As String + + Private pPLine4Field As String + + Private pPLine5Field As String + + Private pPLine6Field As String + + Private pPLine7Field As String + + Private pPLine8Field As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property PPLine1() As String + Get + Return Me.pPLine1Field + End Get + Set + Me.pPLine1Field = value + Me.RaisePropertyChanged("PPLine1") + End Set + End Property + + ''' + _ + Public Property PPLine2() As String + Get + Return Me.pPLine2Field + End Get + Set + Me.pPLine2Field = value + Me.RaisePropertyChanged("PPLine2") + End Set + End Property + + ''' + _ + Public Property PPLine3() As String + Get + Return Me.pPLine3Field + End Get + Set + Me.pPLine3Field = value + Me.RaisePropertyChanged("PPLine3") + End Set + End Property + + ''' + _ + Public Property PPLine4() As String + Get + Return Me.pPLine4Field + End Get + Set + Me.pPLine4Field = value + Me.RaisePropertyChanged("PPLine4") + End Set + End Property + + ''' + _ + Public Property PPLine5() As String + Get + Return Me.pPLine5Field + End Get + Set + Me.pPLine5Field = value + Me.RaisePropertyChanged("PPLine5") + End Set + End Property + + ''' + _ + Public Property PPLine6() As String + Get + Return Me.pPLine6Field + End Get + Set + Me.pPLine6Field = value + Me.RaisePropertyChanged("PPLine6") + End Set + End Property + + ''' + _ + Public Property PPLine7() As String + Get + Return Me.pPLine7Field + End Get + Set + Me.pPLine7Field = value + Me.RaisePropertyChanged("PPLine7") + End Set + End Property + + ''' + _ + Public Property PPLine8() As String + Get + Return Me.pPLine8Field + End Get + Set + Me.pPLine8Field = value + Me.RaisePropertyChanged("PPLine8") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetPartProgramLinesRequest + + _ + Public GetPartProgramLines As OPENcontrol.GetPartProgramLines + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPartProgramLines As OPENcontrol.GetPartProgramLines) + MyBase.New + Me.GetPartProgramLines = GetPartProgramLines + End Sub + End Class + + _ + Partial Public Class GetPartProgramLinesResponse + + _ + Public GetPartProgramLinesR As OPENcontrol.GetPartProgramLinesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPartProgramLinesR As OPENcontrol.GetPartProgramLinesR) + MyBase.New + Me.GetPartProgramLinesR = GetPartProgramLinesR + End Sub + End Class + + ''' + _ + Partial Public Class GetAxOriginNum + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private axesNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAxOriginNumR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private axesNumField As UShort + + Private axOriginNumField() As AXORIGNUM + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + ''' + _ + Public Property AxOriginNum() As AXORIGNUM() + Get + Return Me.axOriginNumField + End Get + Set + Me.axOriginNumField = value + Me.RaisePropertyChanged("AxOriginNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAxOriginNumRequest + + _ + Public GetAxOriginNum As OPENcontrol.GetAxOriginNum + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxOriginNum As OPENcontrol.GetAxOriginNum) + MyBase.New + Me.GetAxOriginNum = GetAxOriginNum + End Sub + End Class + + _ + Partial Public Class GetAxOriginNumResponse + + _ + Public GetAxOriginNumR As OPENcontrol.GetAxOriginNumR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxOriginNumR As OPENcontrol.GetAxOriginNumR) + MyBase.New + Me.GetAxOriginNumR = GetAxOriginNumR + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesPosition + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private axisNameField As Byte + + Private selectField As UShort + + Private numAxisField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + ''' + _ + Public Property [Select]() As UShort + Get + Return Me.selectField + End Get + Set + Me.selectField = value + Me.RaisePropertyChanged("Select") + End Set + End Property + + ''' + _ + Public Property NumAxis() As UShort + Get + Return Me.numAxisField + End Get + Set + Me.numAxisField = value + Me.RaisePropertyChanged("NumAxis") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesPositionR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numAxisField As UShort + + Private intPosField() As GETINTDATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumAxis() As UShort + Get + Return Me.numAxisField + End Get + Set + Me.numAxisField = value + Me.RaisePropertyChanged("NumAxis") + End Set + End Property + + ''' + _ + Public Property IntPos() As GETINTDATA() + Get + Return Me.intPosField + End Get + Set + Me.intPosField = value + Me.RaisePropertyChanged("IntPos") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAxesPositionRequest + + _ + Public GetAxesPosition As OPENcontrol.GetAxesPosition + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesPosition As OPENcontrol.GetAxesPosition) + MyBase.New + Me.GetAxesPosition = GetAxesPosition + End Sub + End Class + + _ + Partial Public Class GetAxesPositionResponse + + _ + Public GetAxesPositionR As OPENcontrol.GetAxesPositionR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesPositionR As OPENcontrol.GetAxesPositionR) + MyBase.New + Me.GetAxesPositionR = GetAxesPositionR + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo1 + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo1R + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private getInfoField As GETINFO1DATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GetInfo() As GETINFO1DATA + Get + Return Me.getInfoField + End Get + Set + Me.getInfoField = value + Me.RaisePropertyChanged("GetInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetNcInfo1Request + + _ + Public GetNcInfo1 As OPENcontrol.GetNcInfo1 + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo1 As OPENcontrol.GetNcInfo1) + MyBase.New + Me.GetNcInfo1 = GetNcInfo1 + End Sub + End Class + + _ + Partial Public Class GetNcInfo1Response + + _ + Public GetNcInfo1R As OPENcontrol.GetNcInfo1R + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo1R As OPENcontrol.GetNcInfo1R) + MyBase.New + Me.GetNcInfo1R = GetNcInfo1R + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo2 + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo2R + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private getInfoField As GETINFO2DATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GetInfo() As GETINFO2DATA + Get + Return Me.getInfoField + End Get + Set + Me.getInfoField = value + Me.RaisePropertyChanged("GetInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetNcInfo2Request + + _ + Public GetNcInfo2 As OPENcontrol.GetNcInfo2 + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo2 As OPENcontrol.GetNcInfo2) + MyBase.New + Me.GetNcInfo2 = GetNcInfo2 + End Sub + End Class + + _ + Partial Public Class GetNcInfo2Response + + _ + Public GetNcInfo2R As OPENcontrol.GetNcInfo2R + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo2R As OPENcontrol.GetNcInfo2R) + MyBase.New + Me.GetNcInfo2R = GetNcInfo2R + End Sub + End Class + + ''' + _ + Partial Public Class GetToolNames + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetToolNamesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private toolField As String + + Private progToolField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Tool() As String + Get + Return Me.toolField + End Get + Set + Me.toolField = value + Me.RaisePropertyChanged("Tool") + End Set + End Property + + ''' + _ + Public Property ProgTool() As String + Get + Return Me.progToolField + End Get + Set + Me.progToolField = value + Me.RaisePropertyChanged("ProgTool") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetToolNamesRequest + + _ + Public GetToolNames As OPENcontrol.GetToolNames + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolNames As OPENcontrol.GetToolNames) + MyBase.New + Me.GetToolNames = GetToolNames + End Sub + End Class + + _ + Partial Public Class GetToolNamesResponse + + _ + Public GetToolNamesR As OPENcontrol.GetToolNamesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolNamesR As OPENcontrol.GetToolNamesR) + MyBase.New + Me.GetToolNamesR = GetToolNamesR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessStatus + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessStatusR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private procStatField As PROCDATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcStat() As PROCDATA + Get + Return Me.procStatField + End Get + Set + Me.procStatField = value + Me.RaisePropertyChanged("ProcStat") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcessStatusRequest + + _ + Public GetProcessStatus As OPENcontrol.GetProcessStatus + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessStatus As OPENcontrol.GetProcessStatus) + MyBase.New + Me.GetProcessStatus = GetProcessStatus + End Sub + End Class + + _ + Partial Public Class GetProcessStatusResponse + + _ + Public GetProcessStatusR As OPENcontrol.GetProcessStatusR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessStatusR As OPENcontrol.GetProcessStatusR) + MyBase.New + Me.GetProcessStatusR = GetProcessStatusR + End Sub + End Class + + ''' + _ + Partial Public Class GetBlkNum + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetBlkNumR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private getBlkNumField As GETBLKNUMDATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GetBlkNum() As GETBLKNUMDATA + Get + Return Me.getBlkNumField + End Get + Set + Me.getBlkNumField = value + Me.RaisePropertyChanged("GetBlkNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetBlkNumRequest + + _ + Public GetBlkNum As OPENcontrol.GetBlkNum + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBlkNum As OPENcontrol.GetBlkNum) + MyBase.New + Me.GetBlkNum = GetBlkNum + End Sub + End Class + + _ + Partial Public Class GetBlkNumResponse + + _ + Public GetBlkNumR As OPENcontrol.GetBlkNumR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBlkNumR As OPENcontrol.GetBlkNumR) + MyBase.New + Me.GetBlkNumR = GetBlkNumR + End Sub + End Class + + ''' + _ + Partial Public Class ReadErrMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadErrMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sysErrMsgField As ERRMSG + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SysErrMsg() As ERRMSG + Get + Return Me.sysErrMsgField + End Get + Set + Me.sysErrMsgField = value + Me.RaisePropertyChanged("SysErrMsg") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadErrMsgRequest + + _ + Public ReadErrMsg As OPENcontrol.ReadErrMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadErrMsg As OPENcontrol.ReadErrMsg) + MyBase.New + Me.ReadErrMsg = ReadErrMsg + End Sub + End Class + + _ + Partial Public Class ReadErrMsgResponse + + _ + Public ReadErrMsgR As OPENcontrol.ReadErrMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadErrMsgR As OPENcontrol.ReadErrMsgR) + MyBase.New + Me.ReadErrMsgR = ReadErrMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadPartProgramMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadPartProgramMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private partProgramMsgField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property PartProgramMsg() As String + Get + Return Me.partProgramMsgField + End Get + Set + Me.partProgramMsgField = value + Me.RaisePropertyChanged("PartProgramMsg") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadPartProgramMsgRequest + + _ + Public ReadPartProgramMsg As OPENcontrol.ReadPartProgramMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadPartProgramMsg As OPENcontrol.ReadPartProgramMsg) + MyBase.New + Me.ReadPartProgramMsg = ReadPartProgramMsg + End Sub + End Class + + _ + Partial Public Class ReadPartProgramMsgResponse + + _ + Public ReadPartProgramMsgR As OPENcontrol.ReadPartProgramMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadPartProgramMsgR As OPENcontrol.ReadPartProgramMsgR) + MyBase.New + Me.ReadPartProgramMsgR = ReadPartProgramMsgR + End Sub + End Class + + ''' + _ + Partial Public Class GetGCode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetGCodeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private gCodeField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GCode() As UShort() + Get + Return Me.gCodeField + End Get + Set + Me.gCodeField = value + Me.RaisePropertyChanged("GCode") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetGCodeRequest + + _ + Public GetGCode As OPENcontrol.GetGCode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetGCode As OPENcontrol.GetGCode) + MyBase.New + Me.GetGCode = GetGCode + End Sub + End Class + + _ + Partial Public Class GetGCodeResponse + + _ + Public GetGCodeR As OPENcontrol.GetGCodeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetGCodeR As OPENcontrol.GetGCodeR) + MyBase.New + Me.GetGCodeR = GetGCodeR + End Sub + End Class + + ''' + _ + Partial Public Class GetMCode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetMCodeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private mCodeField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property MCode() As UShort() + Get + Return Me.mCodeField + End Get + Set + Me.mCodeField = value + Me.RaisePropertyChanged("MCode") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetMCodeRequest + + _ + Public GetMCode As OPENcontrol.GetMCode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMCode As OPENcontrol.GetMCode) + MyBase.New + Me.GetMCode = GetMCode + End Sub + End Class + + _ + Partial Public Class GetMCodeResponse + + _ + Public GetMCodeR As OPENcontrol.GetMCodeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMCodeR As OPENcontrol.GetMCodeR) + MyBase.New + Me.GetMCodeR = GetMCodeR + End Sub + End Class + + ''' + _ + Partial Public Class SkipPProgBlock + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private numOfBlocksField As UInteger + + Private directionField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property NumOfBlocks() As UInteger + Get + Return Me.numOfBlocksField + End Get + Set + Me.numOfBlocksField = value + Me.RaisePropertyChanged("NumOfBlocks") + End Set + End Property + + ''' + _ + Public Property Direction() As UShort + Get + Return Me.directionField + End Get + Set + Me.directionField = value + Me.RaisePropertyChanged("Direction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SkipPProgBlockR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SkipPProgBlockRequest + + _ + Public SkipPProgBlock As OPENcontrol.SkipPProgBlock + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SkipPProgBlock As OPENcontrol.SkipPProgBlock) + MyBase.New + Me.SkipPProgBlock = SkipPProgBlock + End Sub + End Class + + _ + Partial Public Class SkipPProgBlockResponse + + _ + Public SkipPProgBlockR As OPENcontrol.SkipPProgBlockR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SkipPProgBlockR As OPENcontrol.SkipPProgBlockR) + MyBase.New + Me.SkipPProgBlockR = SkipPProgBlockR + End Sub + End Class + + ''' + _ + Partial Public Class Ese + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private blockNumField As UInteger + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property BlockNum() As UInteger + Get + Return Me.blockNumField + End Get + Set + Me.blockNumField = value + Me.RaisePropertyChanged("BlockNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class EseR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class EseRequest + + _ + Public Ese As OPENcontrol.Ese + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Ese As OPENcontrol.Ese) + MyBase.New + Me.Ese = Ese + End Sub + End Class + + _ + Partial Public Class EseResponse + + _ + Public EseR As OPENcontrol.EseR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal EseR As OPENcontrol.EseR) + MyBase.New + Me.EseR = EseR + End Sub + End Class + + ''' + _ + Partial Public Class EseEx + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As RCMTOMODE + + Private maskField As UInteger + + Private blockNumField As UInteger + + Private lineNumField As UInteger + + Private brkValField As UInteger + + Private labelField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As RCMTOMODE + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property Mask() As UInteger + Get + Return Me.maskField + End Get + Set + Me.maskField = value + Me.RaisePropertyChanged("Mask") + End Set + End Property + + ''' + _ + Public Property BlockNum() As UInteger + Get + Return Me.blockNumField + End Get + Set + Me.blockNumField = value + Me.RaisePropertyChanged("BlockNum") + End Set + End Property + + ''' + _ + Public Property LineNum() As UInteger + Get + Return Me.lineNumField + End Get + Set + Me.lineNumField = value + Me.RaisePropertyChanged("LineNum") + End Set + End Property + + ''' + _ + Public Property BrkVal() As UInteger + Get + Return Me.brkValField + End Get + Set + Me.brkValField = value + Me.RaisePropertyChanged("BrkVal") + End Set + End Property + + ''' + _ + Public Property Label() As String + Get + Return Me.labelField + End Get + Set + Me.labelField = value + Me.RaisePropertyChanged("Label") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum RCMTOMODE + + ''' + _ + RCMTOTO + + ''' + _ + RCMTONEXT + End Enum + + ''' + _ + Partial Public Class EseExR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class EseExRequest + + _ + Public EseEx As OPENcontrol.EseEx + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal EseEx As OPENcontrol.EseEx) + MyBase.New + Me.EseEx = EseEx + End Sub + End Class + + _ + Partial Public Class EseExResponse + + _ + Public EseExR As OPENcontrol.EseExR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal EseExR As OPENcontrol.EseExR) + MyBase.New + Me.EseExR = EseExR + End Sub + End Class + + ''' + _ + Partial Public Class Exe + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private funcField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Func() As UShort + Get + Return Me.funcField + End Get + Set + Me.funcField = value + Me.RaisePropertyChanged("Func") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ExeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ExeRequest + + _ + Public Exe As OPENcontrol.Exe + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Exe As OPENcontrol.Exe) + MyBase.New + Me.Exe = Exe + End Sub + End Class + + _ + Partial Public Class ExeResponse + + _ + Public ExeR As OPENcontrol.ExeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ExeR As OPENcontrol.ExeR) + MyBase.New + Me.ExeR = ExeR + End Sub + End Class + + ''' + _ + Partial Public Class AxesRef + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private numAxField As UShort + + Private axisNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property NumAx() As UShort + Get + Return Me.numAxField + End Get + Set + Me.numAxField = value + Me.RaisePropertyChanged("NumAx") + End Set + End Property + + ''' + _ + Public Property AxisName() As String + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class AxesRefR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class AxesRefRequest + + _ + Public AxesRef As OPENcontrol.AxesRef + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal AxesRef As OPENcontrol.AxesRef) + MyBase.New + Me.AxesRef = AxesRef + End Sub + End Class + + _ + Partial Public Class AxesRefResponse + + _ + Public AxesRefR As OPENcontrol.AxesRefR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal AxesRefR As OPENcontrol.AxesRefR) + MyBase.New + Me.AxesRefR = AxesRefR + End Sub + End Class + + ''' + _ + Partial Public Class DncInit + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private pathNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncInitR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncInitRequest + + _ + Public DncInit As OPENcontrol.DncInit + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncInit As OPENcontrol.DncInit) + MyBase.New + Me.DncInit = DncInit + End Sub + End Class + + _ + Partial Public Class DncInitResponse + + _ + Public DncInitR As OPENcontrol.DncInitR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncInitR As OPENcontrol.DncInitR) + MyBase.New + Me.DncInitR = DncInitR + End Sub + End Class + + ''' + _ + Partial Public Class DncData + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private dataField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Data() As String + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncDataR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncDataRequest + + _ + Public DncData As OPENcontrol.DncData + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncData As OPENcontrol.DncData) + MyBase.New + Me.DncData = DncData + End Sub + End Class + + _ + Partial Public Class DncDataResponse + + _ + Public DncDataR As OPENcontrol.DncDataR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncDataR As OPENcontrol.DncDataR) + MyBase.New + Me.DncDataR = DncDataR + End Sub + End Class + + ''' + _ + Partial Public Class DncEof + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncEofR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncEofRequest + + _ + Public DncEof As OPENcontrol.DncEof + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncEof As OPENcontrol.DncEof) + MyBase.New + Me.DncEof = DncEof + End Sub + End Class + + _ + Partial Public Class DncEofResponse + + _ + Public DncEofR As OPENcontrol.DncEofR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncEofR As OPENcontrol.DncEofR) + MyBase.New + Me.DncEofR = DncEofR + End Sub + End Class + + ''' + _ + Partial Public Class DncStop + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncStopR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncStopRequest + + _ + Public DncStop As OPENcontrol.DncStop + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncStop As OPENcontrol.DncStop) + MyBase.New + Me.DncStop = DncStop + End Sub + End Class + + _ + Partial Public Class DncStopResponse + + _ + Public DncStopR As OPENcontrol.DncStopR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncStopR As OPENcontrol.DncStopR) + MyBase.New + Me.DncStopR = DncStopR + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesInfo3 + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisIdField As UShort + + Private axesNumField As UShort + + ''' + _ + Public Property AxisId() As UShort + Get + Return Me.axisIdField + End Get + Set + Me.axisIdField = value + Me.RaisePropertyChanged("AxisId") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesInfo3R + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private axesNumField As UShort + + Private axOwnerListField() As UShort + + Private axNameListField() As Byte + + Private axTypeField() As UShort + + Private axInterfaceField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + ''' + _ + Public Property AxOwnerList() As UShort() + Get + Return Me.axOwnerListField + End Get + Set + Me.axOwnerListField = value + Me.RaisePropertyChanged("AxOwnerList") + End Set + End Property + + ''' + _ + Public Property AxNameList() As Byte() + Get + Return Me.axNameListField + End Get + Set + Me.axNameListField = value + Me.RaisePropertyChanged("AxNameList") + End Set + End Property + + ''' + _ + Public Property AxType() As UShort() + Get + Return Me.axTypeField + End Get + Set + Me.axTypeField = value + Me.RaisePropertyChanged("AxType") + End Set + End Property + + ''' + _ + Public Property AxInterface() As UShort() + Get + Return Me.axInterfaceField + End Get + Set + Me.axInterfaceField = value + Me.RaisePropertyChanged("AxInterface") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAxesInfo3Request + + _ + Public GetAxesInfo3 As OPENcontrol.GetAxesInfo3 + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesInfo3 As OPENcontrol.GetAxesInfo3) + MyBase.New + Me.GetAxesInfo3 = GetAxesInfo3 + End Sub + End Class + + _ + Partial Public Class GetAxesInfo3Response + + _ + Public GetAxesInfo3R As OPENcontrol.GetAxesInfo3R + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesInfo3R As OPENcontrol.GetAxesInfo3R) + MyBase.New + Me.GetAxesInfo3R = GetAxesInfo3R + End Sub + End Class + + ''' + _ + Partial Public Class GetCodeNumber + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetCodeNumberR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private codeNumberField As String + + Private swVersionField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property CodeNumber() As String + Get + Return Me.codeNumberField + End Get + Set + Me.codeNumberField = value + Me.RaisePropertyChanged("CodeNumber") + End Set + End Property + + ''' + _ + Public Property SwVersion() As String + Get + Return Me.swVersionField + End Get + Set + Me.swVersionField = value + Me.RaisePropertyChanged("SwVersion") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCodeNumberRequest + + _ + Public GetCodeNumber As OPENcontrol.GetCodeNumber + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCodeNumber As OPENcontrol.GetCodeNumber) + MyBase.New + Me.GetCodeNumber = GetCodeNumber + End Sub + End Class + + _ + Partial Public Class GetCodeNumberResponse + + _ + Public GetCodeNumberR As OPENcontrol.GetCodeNumberR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCodeNumberR As OPENcontrol.GetCodeNumberR) + MyBase.New + Me.GetCodeNumberR = GetCodeNumberR + End Sub + End Class + + ''' + _ + Partial Public Class GetOptions + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetOptionsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private optionField() As Byte + + Private securLevelField() As Byte + + Private swVersionField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property [Option]() As Byte() + Get + Return Me.optionField + End Get + Set + Me.optionField = value + Me.RaisePropertyChanged("Option") + End Set + End Property + + ''' + _ + Public Property SecurLevel() As Byte() + Get + Return Me.securLevelField + End Get + Set + Me.securLevelField = value + Me.RaisePropertyChanged("SecurLevel") + End Set + End Property + + ''' + _ + Public Property SwVersion() As String + Get + Return Me.swVersionField + End Get + Set + Me.swVersionField = value + Me.RaisePropertyChanged("SwVersion") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetOptionsRequest + + _ + Public GetOptions As OPENcontrol.GetOptions + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOptions As OPENcontrol.GetOptions) + MyBase.New + Me.GetOptions = GetOptions + End Sub + End Class + + _ + Partial Public Class GetOptionsResponse + + _ + Public GetOptionsR As OPENcontrol.GetOptionsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOptionsR As OPENcontrol.GetOptionsR) + MyBase.New + Me.GetOptionsR = GetOptionsR + End Sub + End Class + + ''' + _ + Partial Public Class GetDateTime + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetDateTimeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private yearField As UShort + + Private monthField As UShort + + Private dayField As UShort + + Private hourField As UShort + + Private minuteField As UShort + + Private secondField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Year() As UShort + Get + Return Me.yearField + End Get + Set + Me.yearField = value + Me.RaisePropertyChanged("Year") + End Set + End Property + + ''' + _ + Public Property Month() As UShort + Get + Return Me.monthField + End Get + Set + Me.monthField = value + Me.RaisePropertyChanged("Month") + End Set + End Property + + ''' + _ + Public Property Day() As UShort + Get + Return Me.dayField + End Get + Set + Me.dayField = value + Me.RaisePropertyChanged("Day") + End Set + End Property + + ''' + _ + Public Property Hour() As UShort + Get + Return Me.hourField + End Get + Set + Me.hourField = value + Me.RaisePropertyChanged("Hour") + End Set + End Property + + ''' + _ + Public Property Minute() As UShort + Get + Return Me.minuteField + End Get + Set + Me.minuteField = value + Me.RaisePropertyChanged("Minute") + End Set + End Property + + ''' + _ + Public Property Second() As UShort + Get + Return Me.secondField + End Get + Set + Me.secondField = value + Me.RaisePropertyChanged("Second") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetDateTimeRequest + + _ + Public GetDateTime As OPENcontrol.GetDateTime + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateTime As OPENcontrol.GetDateTime) + MyBase.New + Me.GetDateTime = GetDateTime + End Sub + End Class + + _ + Partial Public Class GetDateTimeResponse + + _ + Public GetDateTimeR As OPENcontrol.GetDateTimeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateTimeR As OPENcontrol.GetDateTimeR) + MyBase.New + Me.GetDateTimeR = GetDateTimeR + End Sub + End Class + + ''' + _ + Partial Public Class SetDateTime + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private yearField As UShort + + Private monthField As UShort + + Private dayField As UShort + + Private hourField As UShort + + Private minuteField As UShort + + Private secondField As UShort + + ''' + _ + Public Property Year() As UShort + Get + Return Me.yearField + End Get + Set + Me.yearField = value + Me.RaisePropertyChanged("Year") + End Set + End Property + + ''' + _ + Public Property Month() As UShort + Get + Return Me.monthField + End Get + Set + Me.monthField = value + Me.RaisePropertyChanged("Month") + End Set + End Property + + ''' + _ + Public Property Day() As UShort + Get + Return Me.dayField + End Get + Set + Me.dayField = value + Me.RaisePropertyChanged("Day") + End Set + End Property + + ''' + _ + Public Property Hour() As UShort + Get + Return Me.hourField + End Get + Set + Me.hourField = value + Me.RaisePropertyChanged("Hour") + End Set + End Property + + ''' + _ + Public Property Minute() As UShort + Get + Return Me.minuteField + End Get + Set + Me.minuteField = value + Me.RaisePropertyChanged("Minute") + End Set + End Property + + ''' + _ + Public Property Second() As UShort + Get + Return Me.secondField + End Get + Set + Me.secondField = value + Me.RaisePropertyChanged("Second") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetDateTimeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetDateTimeRequest + + _ + Public SetDateTime As OPENcontrol.SetDateTime + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetDateTime As OPENcontrol.SetDateTime) + MyBase.New + Me.SetDateTime = SetDateTime + End Sub + End Class + + _ + Partial Public Class SetDateTimeResponse + + _ + Public SetDateTimeR As OPENcontrol.SetDateTimeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetDateTimeR As OPENcontrol.SetDateTimeR) + MyBase.New + Me.SetDateTimeR = SetDateTimeR + End Sub + End Class + + ''' + _ + Partial Public Class GetSerialNumber + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetSerialNumberR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private serialNumberField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SerialNumber() As String + Get + Return Me.serialNumberField + End Get + Set + Me.serialNumberField = value + Me.RaisePropertyChanged("SerialNumber") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetSerialNumberRequest + + _ + Public GetSerialNumber As OPENcontrol.GetSerialNumber + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSerialNumber As OPENcontrol.GetSerialNumber) + MyBase.New + Me.GetSerialNumber = GetSerialNumber + End Sub + End Class + + _ + Partial Public Class GetSerialNumberResponse + + _ + Public GetSerialNumberR As OPENcontrol.GetSerialNumberR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSerialNumberR As OPENcontrol.GetSerialNumberR) + MyBase.New + Me.GetSerialNumberR = GetSerialNumberR + End Sub + End Class + + ''' + _ + Partial Public Class PutFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private dataField As String + + Private sizeField As UInteger + + Private pathNameField As String + + ''' + _ + Public Property Data() As String + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class PutFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class PutFileRequest + + _ + Public PutFile As OPENcontrol.PutFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutFile As OPENcontrol.PutFile) + MyBase.New + Me.PutFile = PutFile + End Sub + End Class + + _ + Partial Public Class PutFileResponse + + _ + Public PutFileR As OPENcontrol.PutFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutFileR As OPENcontrol.PutFileR) + MyBase.New + Me.PutFileR = PutFileR + End Sub + End Class + + ''' + _ + Partial Public Class GetFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private sizeField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sizeField As UInteger + + Private dataField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + ''' + _ + Public Property Data() As String + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetFileRequest + + _ + Public GetFile As OPENcontrol.GetFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetFile As OPENcontrol.GetFile) + MyBase.New + Me.GetFile = GetFile + End Sub + End Class + + _ + Partial Public Class GetFileResponse + + _ + Public GetFileR As OPENcontrol.GetFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetFileR As OPENcontrol.GetFileR) + MyBase.New + Me.GetFileR = GetFileR + End Sub + End Class + + ''' + _ + Partial Public Class PutBinaryFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private dataField() As Byte + + Private pathNameField As String + + ''' + _ + Public Property Data() As Byte() + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class PutBinaryFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class PutBinaryFileRequest + + _ + Public PutBinaryFile As OPENcontrol.PutBinaryFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutBinaryFile As OPENcontrol.PutBinaryFile) + MyBase.New + Me.PutBinaryFile = PutBinaryFile + End Sub + End Class + + _ + Partial Public Class PutBinaryFileResponse + + _ + Public PutBinaryFileR As OPENcontrol.PutBinaryFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutBinaryFileR As OPENcontrol.PutBinaryFileR) + MyBase.New + Me.PutBinaryFileR = PutBinaryFileR + End Sub + End Class + + ''' + _ + Partial Public Class GetBinaryFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private sizeField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetBinaryFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As Byte() + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetBinaryFileRequest + + _ + Public GetBinaryFile As OPENcontrol.GetBinaryFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBinaryFile As OPENcontrol.GetBinaryFile) + MyBase.New + Me.GetBinaryFile = GetBinaryFile + End Sub + End Class + + _ + Partial Public Class GetBinaryFileResponse + + _ + Public GetBinaryFileR As OPENcontrol.GetBinaryFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBinaryFileR As OPENcontrol.GetBinaryFileR) + MyBase.New + Me.GetBinaryFileR = GetBinaryFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSSetSecurityLevel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private passwordField As String + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property Password() As String + Get + Return Me.passwordField + End Get + Set + Me.passwordField = value + Me.RaisePropertyChanged("Password") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum SECURITYLEVEL + + ''' + _ + SECURITYLEVELADMIN + + ''' + _ + SECURITYLEVELSERVICE + + ''' + _ + SECURITYLEVELOEMADMIN + + ''' + _ + SECURITYLEVELOEMSERVICE + + ''' + _ + SECURITYLEVELUSERADMIN + + ''' + _ + SECURITYLEVELUSERSERVICE + End Enum + + ''' + _ + Partial Public Class LogFSSetSecurityLevelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private oldSecurityLevelField As SECURITYLEVEL + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property OldSecurityLevel() As SECURITYLEVEL + Get + Return Me.oldSecurityLevelField + End Get + Set + Me.oldSecurityLevelField = value + Me.RaisePropertyChanged("OldSecurityLevel") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSSetSecurityLevelRequest + + _ + Public LogFSSetSecurityLevel As OPENcontrol.LogFSSetSecurityLevel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetSecurityLevel As OPENcontrol.LogFSSetSecurityLevel) + MyBase.New + Me.LogFSSetSecurityLevel = LogFSSetSecurityLevel + End Sub + End Class + + _ + Partial Public Class LogFSSetSecurityLevelResponse + + _ + Public LogFSSetSecurityLevelR As OPENcontrol.LogFSSetSecurityLevelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetSecurityLevelR As OPENcontrol.LogFSSetSecurityLevelR) + MyBase.New + Me.LogFSSetSecurityLevelR = LogFSSetSecurityLevelR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetSecurityLevel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetSecurityLevelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private securityLevelField As SECURITYLEVEL + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetSecurityLevelRequest + + _ + Public LogFSGetSecurityLevel As OPENcontrol.LogFSGetSecurityLevel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetSecurityLevel As OPENcontrol.LogFSGetSecurityLevel) + MyBase.New + Me.LogFSGetSecurityLevel = LogFSGetSecurityLevel + End Sub + End Class + + _ + Partial Public Class LogFSGetSecurityLevelResponse + + _ + Public LogFSGetSecurityLevelR As OPENcontrol.LogFSGetSecurityLevelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetSecurityLevelR As OPENcontrol.LogFSGetSecurityLevelR) + MyBase.New + Me.LogFSGetSecurityLevelR = LogFSGetSecurityLevelR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSLongFileNames + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSLongFileNamesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private useLongFileNamesField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property UseLongFileNames() As UShort + Get + Return Me.useLongFileNamesField + End Get + Set + Me.useLongFileNamesField = value + Me.RaisePropertyChanged("UseLongFileNames") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSLongFileNamesRequest + + _ + Public LogFSLongFileNames As OPENcontrol.LogFSLongFileNames + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSLongFileNames As OPENcontrol.LogFSLongFileNames) + MyBase.New + Me.LogFSLongFileNames = LogFSLongFileNames + End Sub + End Class + + _ + Partial Public Class LogFSLongFileNamesResponse + + _ + Public LogFSLongFileNamesR As OPENcontrol.LogFSLongFileNamesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSLongFileNamesR As OPENcontrol.LogFSLongFileNamesR) + MyBase.New + Me.LogFSLongFileNamesR = LogFSLongFileNamesR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetNumDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetNumDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numHiddenDriveField As UShort + + Private numUserDriveField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumHiddenDrive() As UShort + Get + Return Me.numHiddenDriveField + End Get + Set + Me.numHiddenDriveField = value + Me.RaisePropertyChanged("NumHiddenDrive") + End Set + End Property + + ''' + _ + Public Property NumUserDrive() As UShort + Get + Return Me.numUserDriveField + End Get + Set + Me.numUserDriveField = value + Me.RaisePropertyChanged("NumUserDrive") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetNumDriveRequest + + _ + Public LogFSGetNumDrive As OPENcontrol.LogFSGetNumDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetNumDrive As OPENcontrol.LogFSGetNumDrive) + MyBase.New + Me.LogFSGetNumDrive = LogFSGetNumDrive + End Sub + End Class + + _ + Partial Public Class LogFSGetNumDriveResponse + + _ + Public LogFSGetNumDriveR As OPENcontrol.LogFSGetNumDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetNumDriveR As OPENcontrol.LogFSGetNumDriveR) + MyBase.New + Me.LogFSGetNumDriveR = LogFSGetNumDriveR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDriveList + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private indexField As UShort + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDriveListR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private driveNameField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetDriveListRequest + + _ + Public LogFSGetDriveList As OPENcontrol.LogFSGetDriveList + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDriveList As OPENcontrol.LogFSGetDriveList) + MyBase.New + Me.LogFSGetDriveList = LogFSGetDriveList + End Sub + End Class + + _ + Partial Public Class LogFSGetDriveListResponse + + _ + Public LogFSGetDriveListR As OPENcontrol.LogFSGetDriveListR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDriveListR As OPENcontrol.LogFSGetDriveListR) + MyBase.New + Me.LogFSGetDriveListR = LogFSGetDriveListR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetHiddenDriveList + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private indexField As UShort + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetHiddenDriveListR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private driveNameField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetHiddenDriveListRequest + + _ + Public LogFSGetHiddenDriveList As OPENcontrol.LogFSGetHiddenDriveList + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetHiddenDriveList As OPENcontrol.LogFSGetHiddenDriveList) + MyBase.New + Me.LogFSGetHiddenDriveList = LogFSGetHiddenDriveList + End Sub + End Class + + _ + Partial Public Class LogFSGetHiddenDriveListResponse + + _ + Public LogFSGetHiddenDriveListR As OPENcontrol.LogFSGetHiddenDriveListR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetHiddenDriveListR As OPENcontrol.LogFSGetHiddenDriveListR) + MyBase.New + Me.LogFSGetHiddenDriveListR = LogFSGetHiddenDriveListR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDrivePath + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private driveNameField As String + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDrivePathR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private drivePathField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DrivePath() As String + Get + Return Me.drivePathField + End Get + Set + Me.drivePathField = value + Me.RaisePropertyChanged("DrivePath") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetDrivePathRequest + + _ + Public LogFSGetDrivePath As OPENcontrol.LogFSGetDrivePath + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDrivePath As OPENcontrol.LogFSGetDrivePath) + MyBase.New + Me.LogFSGetDrivePath = LogFSGetDrivePath + End Sub + End Class + + _ + Partial Public Class LogFSGetDrivePathResponse + + _ + Public LogFSGetDrivePathR As OPENcontrol.LogFSGetDrivePathR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDrivePathR As OPENcontrol.LogFSGetDrivePathR) + MyBase.New + Me.LogFSGetDrivePathR = LogFSGetDrivePathR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSAddDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private driveNameField As String + + Private pathNameField As String + + Private temporaryField As Boolean + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Temporary() As Boolean + Get + Return Me.temporaryField + End Get + Set + Me.temporaryField = value + Me.RaisePropertyChanged("Temporary") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSAddDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSAddDriveRequest + + _ + Public LogFSAddDrive As OPENcontrol.LogFSAddDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSAddDrive As OPENcontrol.LogFSAddDrive) + MyBase.New + Me.LogFSAddDrive = LogFSAddDrive + End Sub + End Class + + _ + Partial Public Class LogFSAddDriveResponse + + _ + Public LogFSAddDriveR As OPENcontrol.LogFSAddDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSAddDriveR As OPENcontrol.LogFSAddDriveR) + MyBase.New + Me.LogFSAddDriveR = LogFSAddDriveR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private driveNameField As String + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDriveRequest + + _ + Public LogFSRemoveDrive As OPENcontrol.LogFSRemoveDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDrive As OPENcontrol.LogFSRemoveDrive) + MyBase.New + Me.LogFSRemoveDrive = LogFSRemoveDrive + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDriveResponse + + _ + Public LogFSRemoveDriveR As OPENcontrol.LogFSRemoveDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDriveR As OPENcontrol.LogFSRemoveDriveR) + MyBase.New + Me.LogFSRemoveDriveR = LogFSRemoveDriveR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReloadDriveList + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReloadDriveListR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSReloadDriveListRequest + + _ + Public LogFSReloadDriveList As OPENcontrol.LogFSReloadDriveList + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReloadDriveList As OPENcontrol.LogFSReloadDriveList) + MyBase.New + Me.LogFSReloadDriveList = LogFSReloadDriveList + End Sub + End Class + + _ + Partial Public Class LogFSReloadDriveListResponse + + _ + Public LogFSReloadDriveListR As OPENcontrol.LogFSReloadDriveListR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReloadDriveListR As OPENcontrol.LogFSReloadDriveListR) + MyBase.New + Me.LogFSReloadDriveListR = LogFSReloadDriveListR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateDir + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateDirR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCreateDirRequest + + _ + Public LogFSCreateDir As OPENcontrol.LogFSCreateDir + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateDir As OPENcontrol.LogFSCreateDir) + MyBase.New + Me.LogFSCreateDir = LogFSCreateDir + End Sub + End Class + + _ + Partial Public Class LogFSCreateDirResponse + + _ + Public LogFSCreateDirR As OPENcontrol.LogFSCreateDirR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateDirR As OPENcontrol.LogFSCreateDirR) + MyBase.New + Me.LogFSCreateDirR = LogFSCreateDirR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCreateFileRequest + + _ + Public LogFSCreateFile As OPENcontrol.LogFSCreateFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateFile As OPENcontrol.LogFSCreateFile) + MyBase.New + Me.LogFSCreateFile = LogFSCreateFile + End Sub + End Class + + _ + Partial Public Class LogFSCreateFileResponse + + _ + Public LogFSCreateFileR As OPENcontrol.LogFSCreateFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateFileR As OPENcontrol.LogFSCreateFileR) + MyBase.New + Me.LogFSCreateFileR = LogFSCreateFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileSize + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileSizeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sizeField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetFileSizeRequest + + _ + Public LogFSGetFileSize As OPENcontrol.LogFSGetFileSize + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileSize As OPENcontrol.LogFSGetFileSize) + MyBase.New + Me.LogFSGetFileSize = LogFSGetFileSize + End Sub + End Class + + _ + Partial Public Class LogFSGetFileSizeResponse + + _ + Public LogFSGetFileSizeR As OPENcontrol.LogFSGetFileSizeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileSizeR As OPENcontrol.LogFSGetFileSizeR) + MyBase.New + Me.LogFSGetFileSizeR = LogFSGetFileSizeR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileAttrib + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileAttribR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private attribField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Attrib() As UInteger + Get + Return Me.attribField + End Get + Set + Me.attribField = value + Me.RaisePropertyChanged("Attrib") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetFileAttribRequest + + _ + Public LogFSGetFileAttrib As OPENcontrol.LogFSGetFileAttrib + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileAttrib As OPENcontrol.LogFSGetFileAttrib) + MyBase.New + Me.LogFSGetFileAttrib = LogFSGetFileAttrib + End Sub + End Class + + _ + Partial Public Class LogFSGetFileAttribResponse + + _ + Public LogFSGetFileAttribR As OPENcontrol.LogFSGetFileAttribR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileAttribR As OPENcontrol.LogFSGetFileAttribR) + MyBase.New + Me.LogFSGetFileAttribR = LogFSGetFileAttribR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSSetFileAttrib + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private attribField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Attrib() As UInteger + Get + Return Me.attribField + End Get + Set + Me.attribField = value + Me.RaisePropertyChanged("Attrib") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSSetFileAttribR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSSetFileAttribRequest + + _ + Public LogFSSetFileAttrib As OPENcontrol.LogFSSetFileAttrib + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetFileAttrib As OPENcontrol.LogFSSetFileAttrib) + MyBase.New + Me.LogFSSetFileAttrib = LogFSSetFileAttrib + End Sub + End Class + + _ + Partial Public Class LogFSSetFileAttribResponse + + _ + Public LogFSSetFileAttribR As OPENcontrol.LogFSSetFileAttribR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetFileAttribR As OPENcontrol.LogFSSetFileAttribR) + MyBase.New + Me.LogFSSetFileAttribR = LogFSSetFileAttribR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSChangeFileAttrib + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private addField As UInteger + + Private removeField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Add() As UInteger + Get + Return Me.addField + End Get + Set + Me.addField = value + Me.RaisePropertyChanged("Add") + End Set + End Property + + ''' + _ + Public Property Remove() As UInteger + Get + Return Me.removeField + End Get + Set + Me.removeField = value + Me.RaisePropertyChanged("Remove") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSChangeFileAttribR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSChangeFileAttribRequest + + _ + Public LogFSChangeFileAttrib As OPENcontrol.LogFSChangeFileAttrib + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSChangeFileAttrib As OPENcontrol.LogFSChangeFileAttrib) + MyBase.New + Me.LogFSChangeFileAttrib = LogFSChangeFileAttrib + End Sub + End Class + + _ + Partial Public Class LogFSChangeFileAttribResponse + + _ + Public LogFSChangeFileAttribR As OPENcontrol.LogFSChangeFileAttribR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSChangeFileAttribR As OPENcontrol.LogFSChangeFileAttribR) + MyBase.New + Me.LogFSChangeFileAttribR = LogFSChangeFileAttribR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindFirst + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileNameField As String + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindFirstR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private findDataField As FILEFINDDATA + + Private finderField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FindData() As FILEFINDDATA + Get + Return Me.findDataField + End Get + Set + Me.findDataField = value + Me.RaisePropertyChanged("FindData") + End Set + End Property + + ''' + _ + Public Property Finder() As UInteger + Get + Return Me.finderField + End Get + Set + Me.finderField = value + Me.RaisePropertyChanged("Finder") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSFindFirstRequest + + _ + Public LogFSFindFirst As OPENcontrol.LogFSFindFirst + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindFirst As OPENcontrol.LogFSFindFirst) + MyBase.New + Me.LogFSFindFirst = LogFSFindFirst + End Sub + End Class + + _ + Partial Public Class LogFSFindFirstResponse + + _ + Public LogFSFindFirstR As OPENcontrol.LogFSFindFirstR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindFirstR As OPENcontrol.LogFSFindFirstR) + MyBase.New + Me.LogFSFindFirstR = LogFSFindFirstR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindNext + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private finderField As UInteger + + ''' + _ + Public Property Finder() As UInteger + Get + Return Me.finderField + End Get + Set + Me.finderField = value + Me.RaisePropertyChanged("Finder") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindNextR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private findDataField As FILEFINDDATA + + Private foundField As Boolean + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FindData() As FILEFINDDATA + Get + Return Me.findDataField + End Get + Set + Me.findDataField = value + Me.RaisePropertyChanged("FindData") + End Set + End Property + + ''' + _ + Public Property Found() As Boolean + Get + Return Me.foundField + End Get + Set + Me.foundField = value + Me.RaisePropertyChanged("Found") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSFindNextRequest + + _ + Public LogFSFindNext As OPENcontrol.LogFSFindNext + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindNext As OPENcontrol.LogFSFindNext) + MyBase.New + Me.LogFSFindNext = LogFSFindNext + End Sub + End Class + + _ + Partial Public Class LogFSFindNextResponse + + _ + Public LogFSFindNextR As OPENcontrol.LogFSFindNextR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindNextR As OPENcontrol.LogFSFindNextR) + MyBase.New + Me.LogFSFindNextR = LogFSFindNextR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindClose + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private finderField As UInteger + + ''' + _ + Public Property Finder() As UInteger + Get + Return Me.finderField + End Get + Set + Me.finderField = value + Me.RaisePropertyChanged("Finder") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindCloseR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSFindCloseRequest + + _ + Public LogFSFindClose As OPENcontrol.LogFSFindClose + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindClose As OPENcontrol.LogFSFindClose) + MyBase.New + Me.LogFSFindClose = LogFSFindClose + End Sub + End Class + + _ + Partial Public Class LogFSFindCloseResponse + + _ + Public LogFSFindCloseR As OPENcontrol.LogFSFindCloseR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindCloseR As OPENcontrol.LogFSFindCloseR) + MyBase.New + Me.LogFSFindCloseR = LogFSFindCloseR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private fileNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRemoveFileRequest + + _ + Public LogFSRemoveFile As OPENcontrol.LogFSRemoveFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveFile As OPENcontrol.LogFSRemoveFile) + MyBase.New + Me.LogFSRemoveFile = LogFSRemoveFile + End Sub + End Class + + _ + Partial Public Class LogFSRemoveFileResponse + + _ + Public LogFSRemoveFileR As OPENcontrol.LogFSRemoveFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveFileR As OPENcontrol.LogFSRemoveFileR) + MyBase.New + Me.LogFSRemoveFileR = LogFSRemoveFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDir + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDirR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDirRequest + + _ + Public LogFSRemoveDir As OPENcontrol.LogFSRemoveDir + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDir As OPENcontrol.LogFSRemoveDir) + MyBase.New + Me.LogFSRemoveDir = LogFSRemoveDir + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDirResponse + + _ + Public LogFSRemoveDirR As OPENcontrol.LogFSRemoveDirR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDirR As OPENcontrol.LogFSRemoveDirR) + MyBase.New + Me.LogFSRemoveDirR = LogFSRemoveDirR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRename + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private newPathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property NewPathName() As String + Get + Return Me.newPathNameField + End Get + Set + Me.newPathNameField = value + Me.RaisePropertyChanged("NewPathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRenameR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRenameRequest + + _ + Public LogFSRename As OPENcontrol.LogFSRename + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRename As OPENcontrol.LogFSRename) + MyBase.New + Me.LogFSRename = LogFSRename + End Sub + End Class + + _ + Partial Public Class LogFSRenameResponse + + _ + Public LogFSRenameR As OPENcontrol.LogFSRenameR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRenameR As OPENcontrol.LogFSRenameR) + MyBase.New + Me.LogFSRenameR = LogFSRenameR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCopyFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private newPathNameField As String + + Private failIfExistsField As Boolean + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property NewPathName() As String + Get + Return Me.newPathNameField + End Get + Set + Me.newPathNameField = value + Me.RaisePropertyChanged("NewPathName") + End Set + End Property + + ''' + _ + Public Property FailIfExists() As Boolean + Get + Return Me.failIfExistsField + End Get + Set + Me.failIfExistsField = value + Me.RaisePropertyChanged("FailIfExists") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCopyFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCopyFileRequest + + _ + Public LogFSCopyFile As OPENcontrol.LogFSCopyFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCopyFile As OPENcontrol.LogFSCopyFile) + MyBase.New + Me.LogFSCopyFile = LogFSCopyFile + End Sub + End Class + + _ + Partial Public Class LogFSCopyFileResponse + + _ + Public LogFSCopyFileR As OPENcontrol.LogFSCopyFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCopyFileR As OPENcontrol.LogFSCopyFileR) + MyBase.New + Me.LogFSCopyFileR = LogFSCopyFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetInfo + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private selectorField As UInteger + + Private itemCounterField As UShort + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Selector() As UInteger + Get + Return Me.selectorField + End Get + Set + Me.selectorField = value + Me.RaisePropertyChanged("Selector") + End Set + End Property + + ''' + _ + Public Property ItemCounter() As UShort + Get + Return Me.itemCounterField + End Get + Set + Me.itemCounterField = value + Me.RaisePropertyChanged("ItemCounter") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetInfoR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private bufferField() As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Buffer() As UInteger() + Get + Return Me.bufferField + End Get + Set + Me.bufferField = value + Me.RaisePropertyChanged("Buffer") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetInfoRequest + + _ + Public LogFSGetInfo As OPENcontrol.LogFSGetInfo + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetInfo As OPENcontrol.LogFSGetInfo) + MyBase.New + Me.LogFSGetInfo = LogFSGetInfo + End Sub + End Class + + _ + Partial Public Class LogFSGetInfoResponse + + _ + Public LogFSGetInfoR As OPENcontrol.LogFSGetInfoR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetInfoR As OPENcontrol.LogFSGetInfoR) + MyBase.New + Me.LogFSGetInfoR = LogFSGetInfoR + End Sub + End Class + + ''' + _ + Partial Public Class GetAvailableCustomEvents + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private maxEventsField As UShort + + ''' + _ + Public Property MaxEvents() As UShort + Get + Return Me.maxEventsField + End Get + Set + Me.maxEventsField = value + Me.RaisePropertyChanged("MaxEvents") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAvailableCustomEventsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numEventsField As UShort + + Private eventDataField() As MONCUSTOMEVENTINFO + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumEvents() As UShort + Get + Return Me.numEventsField + End Get + Set + Me.numEventsField = value + Me.RaisePropertyChanged("NumEvents") + End Set + End Property + + ''' + _ + Public Property EventData() As MONCUSTOMEVENTINFO() + Get + Return Me.eventDataField + End Get + Set + Me.eventDataField = value + Me.RaisePropertyChanged("EventData") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAvailableCustomEventsRequest + + _ + Public GetAvailableCustomEvents As OPENcontrol.GetAvailableCustomEvents + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAvailableCustomEvents As OPENcontrol.GetAvailableCustomEvents) + MyBase.New + Me.GetAvailableCustomEvents = GetAvailableCustomEvents + End Sub + End Class + + _ + Partial Public Class GetAvailableCustomEventsResponse + + _ + Public GetAvailableCustomEventsR As OPENcontrol.GetAvailableCustomEventsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAvailableCustomEventsR As OPENcontrol.GetAvailableCustomEventsR) + MyBase.New + Me.GetAvailableCustomEventsR = GetAvailableCustomEventsR + End Sub + End Class + + ''' + _ + Partial Public Class GetSysTick + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetSysTickR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sysTickField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SysTick() As Double + Get + Return Me.sysTickField + End Get + Set + Me.sysTickField = value + Me.RaisePropertyChanged("SysTick") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetSysTickRequest + + _ + Public GetSysTick As OPENcontrol.GetSysTick + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSysTick As OPENcontrol.GetSysTick) + MyBase.New + Me.GetSysTick = GetSysTick + End Sub + End Class + + _ + Partial Public Class GetSysTickResponse + + _ + Public GetSysTickR As OPENcontrol.GetSysTickR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSysTickR As OPENcontrol.GetSysTickR) + MyBase.New + Me.GetSysTickR = GetSysTickR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessConfNum + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessConfNumR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private processConfNumField As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcessConfNum() As Byte + Get + Return Me.processConfNumField + End Get + Set + Me.processConfNumField = value + Me.RaisePropertyChanged("ProcessConfNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcessConfNumRequest + + _ + Public GetProcessConfNum As OPENcontrol.GetProcessConfNum + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessConfNum As OPENcontrol.GetProcessConfNum) + MyBase.New + Me.GetProcessConfNum = GetProcessConfNum + End Sub + End Class + + _ + Partial Public Class GetProcessConfNumResponse + + _ + Public GetProcessConfNumR As OPENcontrol.GetProcessConfNumR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessConfNumR As OPENcontrol.GetProcessConfNumR) + MyBase.New + Me.GetProcessConfNumR = GetProcessConfNumR + End Sub + End Class + + ''' + _ + Partial Public Class MonOpenChannel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private synchronizedField As Boolean + + ''' + _ + Public Property Synchronized() As Boolean + Get + Return Me.synchronizedField + End Get + Set + Me.synchronizedField = value + Me.RaisePropertyChanged("Synchronized") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonOpenChannelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private channelIDField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonOpenChannelRequest + + _ + Public MonOpenChannel As OPENcontrol.MonOpenChannel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonOpenChannel As OPENcontrol.MonOpenChannel) + MyBase.New + Me.MonOpenChannel = MonOpenChannel + End Sub + End Class + + _ + Partial Public Class MonOpenChannelResponse + + _ + Public MonOpenChannelR As OPENcontrol.MonOpenChannelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonOpenChannelR As OPENcontrol.MonOpenChannelR) + MyBase.New + Me.MonOpenChannelR = MonOpenChannelR + End Sub + End Class + + ''' + _ + Partial Public Class MonCloseChannel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonCloseChannelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonCloseChannelRequest + + _ + Public MonCloseChannel As OPENcontrol.MonCloseChannel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonCloseChannel As OPENcontrol.MonCloseChannel) + MyBase.New + Me.MonCloseChannel = MonCloseChannel + End Sub + End Class + + _ + Partial Public Class MonCloseChannelResponse + + _ + Public MonCloseChannelR As OPENcontrol.MonCloseChannelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonCloseChannelR As OPENcontrol.MonCloseChannelR) + MyBase.New + Me.MonCloseChannelR = MonCloseChannelR + End Sub + End Class + + ''' + _ + Partial Public Class MonAddVariable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + Private varDescrField As MONVARDESCR + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property VarDescr() As MONVARDESCR + Get + Return Me.varDescrField + End Get + Set + Me.varDescrField = value + Me.RaisePropertyChanged("VarDescr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonAddVariableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private variableIDField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property VariableID() As UShort + Get + Return Me.variableIDField + End Get + Set + Me.variableIDField = value + Me.RaisePropertyChanged("VariableID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonAddVariableRequest + + _ + Public MonAddVariable As OPENcontrol.MonAddVariable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonAddVariable As OPENcontrol.MonAddVariable) + MyBase.New + Me.MonAddVariable = MonAddVariable + End Sub + End Class + + _ + Partial Public Class MonAddVariableResponse + + _ + Public MonAddVariableR As OPENcontrol.MonAddVariableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonAddVariableR As OPENcontrol.MonAddVariableR) + MyBase.New + Me.MonAddVariableR = MonAddVariableR + End Sub + End Class + + ''' + _ + Partial Public Class MonDeleteVariable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + Private variableIDField As UShort + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property VariableID() As UShort + Get + Return Me.variableIDField + End Get + Set + Me.variableIDField = value + Me.RaisePropertyChanged("VariableID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonDeleteVariableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonDeleteVariableRequest + + _ + Public MonDeleteVariable As OPENcontrol.MonDeleteVariable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonDeleteVariable As OPENcontrol.MonDeleteVariable) + MyBase.New + Me.MonDeleteVariable = MonDeleteVariable + End Sub + End Class + + _ + Partial Public Class MonDeleteVariableResponse + + _ + Public MonDeleteVariableR As OPENcontrol.MonDeleteVariableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonDeleteVariableR As OPENcontrol.MonDeleteVariableR) + MyBase.New + Me.MonDeleteVariableR = MonDeleteVariableR + End Sub + End Class + + ''' + _ + Partial Public Class MonStartSampling + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonStartSamplingR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonStartSamplingRequest + + _ + Public MonStartSampling As OPENcontrol.MonStartSampling + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStartSampling As OPENcontrol.MonStartSampling) + MyBase.New + Me.MonStartSampling = MonStartSampling + End Sub + End Class + + _ + Partial Public Class MonStartSamplingResponse + + _ + Public MonStartSamplingR As OPENcontrol.MonStartSamplingR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStartSamplingR As OPENcontrol.MonStartSamplingR) + MyBase.New + Me.MonStartSamplingR = MonStartSamplingR + End Sub + End Class + + ''' + _ + Partial Public Class MonStopSampling + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonStopSamplingR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonStopSamplingRequest + + _ + Public MonStopSampling As OPENcontrol.MonStopSampling + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStopSampling As OPENcontrol.MonStopSampling) + MyBase.New + Me.MonStopSampling = MonStopSampling + End Sub + End Class + + _ + Partial Public Class MonStopSamplingResponse + + _ + Public MonStopSamplingR As OPENcontrol.MonStopSamplingR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStopSamplingR As OPENcontrol.MonStopSamplingR) + MyBase.New + Me.MonStopSamplingR = MonStopSamplingR + End Sub + End Class + + ''' + _ + Partial Public Class MonGetVariable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + Private variableIDField As UShort + + Private maxSamplesField As UShort + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property VariableID() As UShort + Get + Return Me.variableIDField + End Get + Set + Me.variableIDField = value + Me.RaisePropertyChanged("VariableID") + End Set + End Property + + ''' + _ + Public Property MaxSamples() As UShort + Get + Return Me.maxSamplesField + End Get + Set + Me.maxSamplesField = value + Me.RaisePropertyChanged("MaxSamples") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonGetVariableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numSampleReadField As UShort + + Private dataBufferField() As Double + + Private timeBufferField() As Long + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumSampleRead() As UShort + Get + Return Me.numSampleReadField + End Get + Set + Me.numSampleReadField = value + Me.RaisePropertyChanged("NumSampleRead") + End Set + End Property + + ''' + _ + Public Property DataBuffer() As Double() + Get + Return Me.dataBufferField + End Get + Set + Me.dataBufferField = value + Me.RaisePropertyChanged("DataBuffer") + End Set + End Property + + ''' + _ + Public Property TimeBuffer() As Long() + Get + Return Me.timeBufferField + End Get + Set + Me.timeBufferField = value + Me.RaisePropertyChanged("TimeBuffer") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonGetVariableRequest + + _ + Public MonGetVariable As OPENcontrol.MonGetVariable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonGetVariable As OPENcontrol.MonGetVariable) + MyBase.New + Me.MonGetVariable = MonGetVariable + End Sub + End Class + + _ + Partial Public Class MonGetVariableResponse + + _ + Public MonGetVariableR As OPENcontrol.MonGetVariableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonGetVariableR As OPENcontrol.MonGetVariableR) + MyBase.New + Me.MonGetVariableR = MonGetVariableR + End Sub + End Class + + ''' + _ + Partial Public Class CheckHistory + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class CheckHistoryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private thisBootMsgCounterField() As UInteger + + Private allBootMsgCounterField() As UInteger + + Private thisBootIDField() As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ThisBootMsgCounter() As UInteger() + Get + Return Me.thisBootMsgCounterField + End Get + Set + Me.thisBootMsgCounterField = value + Me.RaisePropertyChanged("ThisBootMsgCounter") + End Set + End Property + + ''' + _ + Public Property AllBootMsgCounter() As UInteger() + Get + Return Me.allBootMsgCounterField + End Get + Set + Me.allBootMsgCounterField = value + Me.RaisePropertyChanged("AllBootMsgCounter") + End Set + End Property + + ''' + _ + Public Property ThisBootID() As UInteger() + Get + Return Me.thisBootIDField + End Get + Set + Me.thisBootIDField = value + Me.RaisePropertyChanged("ThisBootID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class CheckHistoryRequest + + _ + Public CheckHistory As OPENcontrol.CheckHistory + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal CheckHistory As OPENcontrol.CheckHistory) + MyBase.New + Me.CheckHistory = CheckHistory + End Sub + End Class + + _ + Partial Public Class CheckHistoryResponse + + _ + Public CheckHistoryR As OPENcontrol.CheckHistoryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal CheckHistoryR As OPENcontrol.CheckHistoryR) + MyBase.New + Me.CheckHistoryR = CheckHistoryR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryEmergMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryEmergMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGEMERGENCY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGEMERGENCY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryEmergMsgRequest + + _ + Public ReadHistoryEmergMsg As OPENcontrol.ReadHistoryEmergMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryEmergMsg As OPENcontrol.ReadHistoryEmergMsg) + MyBase.New + Me.ReadHistoryEmergMsg = ReadHistoryEmergMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryEmergMsgResponse + + _ + Public ReadHistoryEmergMsgR As OPENcontrol.ReadHistoryEmergMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryEmergMsgR As OPENcontrol.ReadHistoryEmergMsgR) + MyBase.New + Me.ReadHistoryEmergMsgR = ReadHistoryEmergMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryErrorMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryErrorMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGERROR + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGERROR + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryErrorMsgRequest + + _ + Public ReadHistoryErrorMsg As OPENcontrol.ReadHistoryErrorMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryErrorMsg As OPENcontrol.ReadHistoryErrorMsg) + MyBase.New + Me.ReadHistoryErrorMsg = ReadHistoryErrorMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryErrorMsgResponse + + _ + Public ReadHistoryErrorMsgR As OPENcontrol.ReadHistoryErrorMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryErrorMsgR As OPENcontrol.ReadHistoryErrorMsgR) + MyBase.New + Me.ReadHistoryErrorMsgR = ReadHistoryErrorMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryLogMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private noHistoryField As Integer + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property NoHistory() As Integer + Get + Return Me.noHistoryField + End Get + Set + Me.noHistoryField = value + Me.RaisePropertyChanged("NoHistory") + End Set + End Property + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryLogMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGLOGS + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGLOGS + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryLogMsgRequest + + _ + Public ReadHistoryLogMsg As OPENcontrol.ReadHistoryLogMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryLogMsg As OPENcontrol.ReadHistoryLogMsg) + MyBase.New + Me.ReadHistoryLogMsg = ReadHistoryLogMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryLogMsgResponse + + _ + Public ReadHistoryLogMsgR As OPENcontrol.ReadHistoryLogMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryLogMsgR As OPENcontrol.ReadHistoryLogMsgR) + MyBase.New + Me.ReadHistoryLogMsgR = ReadHistoryLogMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryAnomalyMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryAnomalyMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGANOMALY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGANOMALY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryAnomalyMsgRequest + + _ + Public ReadHistoryAnomalyMsg As OPENcontrol.ReadHistoryAnomalyMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryAnomalyMsg As OPENcontrol.ReadHistoryAnomalyMsg) + MyBase.New + Me.ReadHistoryAnomalyMsg = ReadHistoryAnomalyMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryAnomalyMsgResponse + + _ + Public ReadHistoryAnomalyMsgR As OPENcontrol.ReadHistoryAnomalyMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryAnomalyMsgR As OPENcontrol.ReadHistoryAnomalyMsgR) + MyBase.New + Me.ReadHistoryAnomalyMsgR = ReadHistoryAnomalyMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentErrorMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentErrorMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGERROR + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGERROR + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadCurrentErrorMsgRequest + + _ + Public ReadCurrentErrorMsg As OPENcontrol.ReadCurrentErrorMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentErrorMsg As OPENcontrol.ReadCurrentErrorMsg) + MyBase.New + Me.ReadCurrentErrorMsg = ReadCurrentErrorMsg + End Sub + End Class + + _ + Partial Public Class ReadCurrentErrorMsgResponse + + _ + Public ReadCurrentErrorMsgR As OPENcontrol.ReadCurrentErrorMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentErrorMsgR As OPENcontrol.ReadCurrentErrorMsgR) + MyBase.New + Me.ReadCurrentErrorMsgR = ReadCurrentErrorMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentEmergMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentEmergMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGEMERGENCY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGEMERGENCY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadCurrentEmergMsgRequest + + _ + Public ReadCurrentEmergMsg As OPENcontrol.ReadCurrentEmergMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentEmergMsg As OPENcontrol.ReadCurrentEmergMsg) + MyBase.New + Me.ReadCurrentEmergMsg = ReadCurrentEmergMsg + End Sub + End Class + + _ + Partial Public Class ReadCurrentEmergMsgResponse + + _ + Public ReadCurrentEmergMsgR As OPENcontrol.ReadCurrentEmergMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentEmergMsgR As OPENcontrol.ReadCurrentEmergMsgR) + MyBase.New + Me.ReadCurrentEmergMsgR = ReadCurrentEmergMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentAnomalyMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentAnomalyMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGANOMALY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGANOMALY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadCurrentAnomalyMsgRequest + + _ + Public ReadCurrentAnomalyMsg As OPENcontrol.ReadCurrentAnomalyMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentAnomalyMsg As OPENcontrol.ReadCurrentAnomalyMsg) + MyBase.New + Me.ReadCurrentAnomalyMsg = ReadCurrentAnomalyMsg + End Sub + End Class + + _ + Partial Public Class ReadCurrentAnomalyMsgResponse + + _ + Public ReadCurrentAnomalyMsgR As OPENcontrol.ReadCurrentAnomalyMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentAnomalyMsgR As OPENcontrol.ReadCurrentAnomalyMsgR) + MyBase.New + Me.ReadCurrentAnomalyMsgR = ReadCurrentAnomalyMsgR + End Sub + End Class + + ''' + _ + Partial Public Class GetPTechSizes + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetPTechSizesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private ind1Field As UShort + + Private ind2Field As UShort + + Private ind3Field As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Ind1() As UShort + Get + Return Me.ind1Field + End Get + Set + Me.ind1Field = value + Me.RaisePropertyChanged("Ind1") + End Set + End Property + + ''' + _ + Public Property Ind2() As UShort + Get + Return Me.ind2Field + End Get + Set + Me.ind2Field = value + Me.RaisePropertyChanged("Ind2") + End Set + End Property + + ''' + _ + Public Property Ind3() As UShort + Get + Return Me.ind3Field + End Get + Set + Me.ind3Field = value + Me.RaisePropertyChanged("Ind3") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetPTechSizesRequest + + _ + Public GetPTechSizes As OPENcontrol.GetPTechSizes + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPTechSizes As OPENcontrol.GetPTechSizes) + MyBase.New + Me.GetPTechSizes = GetPTechSizes + End Sub + End Class + + _ + Partial Public Class GetPTechSizesResponse + + _ + Public GetPTechSizesR As OPENcontrol.GetPTechSizesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPTechSizesR As OPENcontrol.GetPTechSizesR) + MyBase.New + Me.GetPTechSizesR = GetPTechSizesR + End Sub + End Class + + ''' + _ + Partial Public Class LoadPTech + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private pPPathNameField As String + + Private writeModeField As UShort + + Private sheetField As UShort + + Private lineField As UShort + + Private columnField As UShort + + Private numVarField As UShort + + Private dataField() As Double + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property PPPathName() As String + Get + Return Me.pPPathNameField + End Get + Set + Me.pPPathNameField = value + Me.RaisePropertyChanged("PPPathName") + End Set + End Property + + ''' + _ + Public Property WriteMode() As UShort + Get + Return Me.writeModeField + End Get + Set + Me.writeModeField = value + Me.RaisePropertyChanged("WriteMode") + End Set + End Property + + ''' + _ + Public Property Sheet() As UShort + Get + Return Me.sheetField + End Get + Set + Me.sheetField = value + Me.RaisePropertyChanged("Sheet") + End Set + End Property + + ''' + _ + Public Property Line() As UShort + Get + Return Me.lineField + End Get + Set + Me.lineField = value + Me.RaisePropertyChanged("Line") + End Set + End Property + + ''' + _ + Public Property Column() As UShort + Get + Return Me.columnField + End Get + Set + Me.columnField = value + Me.RaisePropertyChanged("Column") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + ''' + _ + Public Property Data() As Double() + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LoadPTechR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LoadPTechRequest + + _ + Public LoadPTech As OPENcontrol.LoadPTech + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LoadPTech As OPENcontrol.LoadPTech) + MyBase.New + Me.LoadPTech = LoadPTech + End Sub + End Class + + _ + Partial Public Class LoadPTechResponse + + _ + Public LoadPTechR As OPENcontrol.LoadPTechR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LoadPTechR As OPENcontrol.LoadPTechR) + MyBase.New + Me.LoadPTechR = LoadPTechR + End Sub + End Class + + ''' + _ + Partial Public Class GetMarkerInfo + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private requestField As Byte + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Request() As Byte + Get + Return Me.requestField + End Get + Set + Me.requestField = value + Me.RaisePropertyChanged("Request") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetMarkerInfoR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private markerInfoField As MARKERINFO + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property MarkerInfo() As MARKERINFO + Get + Return Me.markerInfoField + End Get + Set + Me.markerInfoField = value + Me.RaisePropertyChanged("MarkerInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetMarkerInfoRequest + + _ + Public GetMarkerInfo As OPENcontrol.GetMarkerInfo + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMarkerInfo As OPENcontrol.GetMarkerInfo) + MyBase.New + Me.GetMarkerInfo = GetMarkerInfo + End Sub + End Class + + _ + Partial Public Class GetMarkerInfoResponse + + _ + Public GetMarkerInfoR As OPENcontrol.GetMarkerInfoR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMarkerInfoR As OPENcontrol.GetMarkerInfoR) + MyBase.New + Me.GetMarkerInfoR = GetMarkerInfoR + End Sub + End Class + + ''' + _ + Partial Public Class ManagePartProgram + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private modeField As UShort + + Private pPPathField As String + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property PPPath() As String + Get + Return Me.pPPathField + End Get + Set + Me.pPPathField = value + Me.RaisePropertyChanged("PPPath") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ManagePartProgramR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errStringField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrString() As Byte() + Get + Return Me.errStringField + End Get + Set + Me.errStringField = value + Me.RaisePropertyChanged("ErrString") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ManagePartProgramRequest + + _ + Public ManagePartProgram As OPENcontrol.ManagePartProgram + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ManagePartProgram As OPENcontrol.ManagePartProgram) + MyBase.New + Me.ManagePartProgram = ManagePartProgram + End Sub + End Class + + _ + Partial Public Class ManagePartProgramResponse + + _ + Public ManagePartProgramR As OPENcontrol.ManagePartProgramR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ManagePartProgramR As OPENcontrol.ManagePartProgramR) + MyBase.New + Me.ManagePartProgramR = ManagePartProgramR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSOpenFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private writeModeField As Boolean + + Private dOSDateLastWriteField As UShort + + Private dOSTimeLastWriteField As UShort + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property WriteMode() As Boolean + Get + Return Me.writeModeField + End Get + Set + Me.writeModeField = value + Me.RaisePropertyChanged("WriteMode") + End Set + End Property + + ''' + _ + Public Property DOSDateLastWrite() As UShort + Get + Return Me.dOSDateLastWriteField + End Get + Set + Me.dOSDateLastWriteField = value + Me.RaisePropertyChanged("DOSDateLastWrite") + End Set + End Property + + ''' + _ + Public Property DOSTimeLastWrite() As UShort + Get + Return Me.dOSTimeLastWriteField + End Get + Set + Me.dOSTimeLastWriteField = value + Me.RaisePropertyChanged("DOSTimeLastWrite") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSOpenFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private fileIDField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSOpenFileRequest + + _ + Public LogFSOpenFile As OPENcontrol.LogFSOpenFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSOpenFile As OPENcontrol.LogFSOpenFile) + MyBase.New + Me.LogFSOpenFile = LogFSOpenFile + End Sub + End Class + + _ + Partial Public Class LogFSOpenFileResponse + + _ + Public LogFSOpenFileR As OPENcontrol.LogFSOpenFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSOpenFileR As OPENcontrol.LogFSOpenFileR) + MyBase.New + Me.LogFSOpenFileR = LogFSOpenFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCloseFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileIDField As UShort + + Private transactionField As UShort + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property Transaction() As UShort + Get + Return Me.transactionField + End Get + Set + Me.transactionField = value + Me.RaisePropertyChanged("Transaction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCloseFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private fileIDField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCloseFileRequest + + _ + Public LogFSCloseFile As OPENcontrol.LogFSCloseFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCloseFile As OPENcontrol.LogFSCloseFile) + MyBase.New + Me.LogFSCloseFile = LogFSCloseFile + End Sub + End Class + + _ + Partial Public Class LogFSCloseFileResponse + + _ + Public LogFSCloseFileR As OPENcontrol.LogFSCloseFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCloseFileR As OPENcontrol.LogFSCloseFileR) + MyBase.New + Me.LogFSCloseFileR = LogFSCloseFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSWriteRecord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileIDField As UShort + + Private transactionField As UShort + + Private recordLenField As UInteger + + Private recordField() As Byte + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property Transaction() As UShort + Get + Return Me.transactionField + End Get + Set + Me.transactionField = value + Me.RaisePropertyChanged("Transaction") + End Set + End Property + + ''' + _ + Public Property RecordLen() As UInteger + Get + Return Me.recordLenField + End Get + Set + Me.recordLenField = value + Me.RaisePropertyChanged("RecordLen") + End Set + End Property + + ''' + _ + Public Property Record() As Byte() + Get + Return Me.recordField + End Get + Set + Me.recordField = value + Me.RaisePropertyChanged("Record") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSWriteRecordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSWriteRecordRequest + + _ + Public LogFSWriteRecord As OPENcontrol.LogFSWriteRecord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSWriteRecord As OPENcontrol.LogFSWriteRecord) + MyBase.New + Me.LogFSWriteRecord = LogFSWriteRecord + End Sub + End Class + + _ + Partial Public Class LogFSWriteRecordResponse + + _ + Public LogFSWriteRecordR As OPENcontrol.LogFSWriteRecordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSWriteRecordR As OPENcontrol.LogFSWriteRecordR) + MyBase.New + Me.LogFSWriteRecordR = LogFSWriteRecordR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReadRecord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileIDField As UShort + + Private transactionField As UShort + + Private recordLenField As UInteger + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property Transaction() As UShort + Get + Return Me.transactionField + End Get + Set + Me.transactionField = value + Me.RaisePropertyChanged("Transaction") + End Set + End Property + + ''' + _ + Public Property RecordLen() As UInteger + Get + Return Me.recordLenField + End Get + Set + Me.recordLenField = value + Me.RaisePropertyChanged("RecordLen") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReadRecordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataSizeField As UInteger + + Private recordField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DataSize() As UInteger + Get + Return Me.dataSizeField + End Get + Set + Me.dataSizeField = value + Me.RaisePropertyChanged("DataSize") + End Set + End Property + + ''' + _ + Public Property Record() As Byte() + Get + Return Me.recordField + End Get + Set + Me.recordField = value + Me.RaisePropertyChanged("Record") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSReadRecordRequest + + _ + Public LogFSReadRecord As OPENcontrol.LogFSReadRecord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReadRecord As OPENcontrol.LogFSReadRecord) + MyBase.New + Me.LogFSReadRecord = LogFSReadRecord + End Sub + End Class + + _ + Partial Public Class LogFSReadRecordResponse + + _ + Public LogFSReadRecordR As OPENcontrol.LogFSReadRecordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReadRecordR As OPENcontrol.LogFSReadRecordR) + MyBase.New + Me.LogFSReadRecordR = LogFSReadRecordR + End Sub + End Class + + ''' + _ + Partial Public Class ReadRemapDefinitions + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private arraySizeField As Integer + + Private typeField As Integer + + ''' + _ + Public Property ArraySize() As Integer + Get + Return Me.arraySizeField + End Get + Set + Me.arraySizeField = value + Me.RaisePropertyChanged("ArraySize") + End Set + End Property + + ''' + _ + Public Property Type() As Integer + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("Type") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadRemapDefinitionsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private arrayField() As REMAPDEF + + Private definitionsCntField As Integer + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Array() As REMAPDEF() + Get + Return Me.arrayField + End Get + Set + Me.arrayField = value + Me.RaisePropertyChanged("Array") + End Set + End Property + + ''' + _ + Public Property DefinitionsCnt() As Integer + Get + Return Me.definitionsCntField + End Get + Set + Me.definitionsCntField = value + Me.RaisePropertyChanged("DefinitionsCnt") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadRemapDefinitionsRequest + + _ + Public ReadRemapDefinitions As OPENcontrol.ReadRemapDefinitions + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadRemapDefinitions As OPENcontrol.ReadRemapDefinitions) + MyBase.New + Me.ReadRemapDefinitions = ReadRemapDefinitions + End Sub + End Class + + _ + Partial Public Class ReadRemapDefinitionsResponse + + _ + Public ReadRemapDefinitionsR As OPENcontrol.ReadRemapDefinitionsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadRemapDefinitionsR As OPENcontrol.ReadRemapDefinitionsR) + MyBase.New + Me.ReadRemapDefinitionsR = ReadRemapDefinitionsR + End Sub + End Class + + ''' + _ + Partial Public Class WriteRemapDefinitions + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private arraySizeField As Integer + + Private arrayField() As REMAPDEF + + Private typeField As Integer + + Private modeField As Integer + + ''' + _ + Public Property ArraySize() As Integer + Get + Return Me.arraySizeField + End Get + Set + Me.arraySizeField = value + Me.RaisePropertyChanged("ArraySize") + End Set + End Property + + ''' + _ + Public Property Array() As REMAPDEF() + Get + Return Me.arrayField + End Get + Set + Me.arrayField = value + Me.RaisePropertyChanged("Array") + End Set + End Property + + ''' + _ + Public Property Type() As Integer + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("Type") + End Set + End Property + + ''' + _ + Public Property Mode() As Integer + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteRemapDefinitionsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteRemapDefinitionsRequest + + _ + Public WriteRemapDefinitions As OPENcontrol.WriteRemapDefinitions + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteRemapDefinitions As OPENcontrol.WriteRemapDefinitions) + MyBase.New + Me.WriteRemapDefinitions = WriteRemapDefinitions + End Sub + End Class + + _ + Partial Public Class WriteRemapDefinitionsResponse + + _ + Public WriteRemapDefinitionsR As OPENcontrol.WriteRemapDefinitionsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteRemapDefinitionsR As OPENcontrol.WriteRemapDefinitionsR) + MyBase.New + Me.WriteRemapDefinitionsR = WriteRemapDefinitionsR + End Sub + End Class + + ''' + _ + Partial Public Class GetServoPar + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisIdField As UShort + + Private parIdField As UShort + + ''' + _ + Public Property AxisId() As UShort + Get + Return Me.axisIdField + End Get + Set + Me.axisIdField = value + Me.RaisePropertyChanged("AxisId") + End Set + End Property + + ''' + _ + Public Property ParId() As UShort + Get + Return Me.parIdField + End Get + Set + Me.parIdField = value + Me.RaisePropertyChanged("ParId") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetServoParR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetServoParRequest + + _ + Public GetServoPar As OPENcontrol.GetServoPar + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetServoPar As OPENcontrol.GetServoPar) + MyBase.New + Me.GetServoPar = GetServoPar + End Sub + End Class + + _ + Partial Public Class GetServoParResponse + + _ + Public GetServoParR As OPENcontrol.GetServoParR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetServoParR As OPENcontrol.GetServoParR) + MyBase.New + Me.GetServoParR = GetServoParR + End Sub + End Class + + ''' + _ + Partial Public Class SetServoPar + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisIdField As UShort + + Private parIdField As UShort + + Private valueField As Double + + ''' + _ + Public Property AxisId() As UShort + Get + Return Me.axisIdField + End Get + Set + Me.axisIdField = value + Me.RaisePropertyChanged("AxisId") + End Set + End Property + + ''' + _ + Public Property ParId() As UShort + Get + Return Me.parIdField + End Get + Set + Me.parIdField = value + Me.RaisePropertyChanged("ParId") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetServoParR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetServoParRequest + + _ + Public SetServoPar As OPENcontrol.SetServoPar + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetServoPar As OPENcontrol.SetServoPar) + MyBase.New + Me.SetServoPar = SetServoPar + End Sub + End Class + + _ + Partial Public Class SetServoParResponse + + _ + Public SetServoParR As OPENcontrol.SetServoParR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetServoParR As OPENcontrol.SetServoParR) + MyBase.New + Me.SetServoParR = SetServoParR + End Sub + End Class + + ''' + _ + Partial Public Class GetCNCRegKey + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private keyField As String + + Private subKeyField As String + + Private valueLenField As Integer + + ''' + _ + Public Property Key() As String + Get + Return Me.keyField + End Get + Set + Me.keyField = value + Me.RaisePropertyChanged("Key") + End Set + End Property + + ''' + _ + Public Property SubKey() As String + Get + Return Me.subKeyField + End Get + Set + Me.subKeyField = value + Me.RaisePropertyChanged("SubKey") + End Set + End Property + + ''' + _ + Public Property ValueLen() As Integer + Get + Return Me.valueLenField + End Get + Set + Me.valueLenField = value + Me.RaisePropertyChanged("ValueLen") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetCNCRegKeyR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueLenField As Integer + + Private valueField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ValueLen() As Integer + Get + Return Me.valueLenField + End Get + Set + Me.valueLenField = value + Me.RaisePropertyChanged("ValueLen") + End Set + End Property + + ''' + _ + Public Property Value() As Byte() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCNCRegKeyRequest + + _ + Public GetCNCRegKey As OPENcontrol.GetCNCRegKey + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCNCRegKey As OPENcontrol.GetCNCRegKey) + MyBase.New + Me.GetCNCRegKey = GetCNCRegKey + End Sub + End Class + + _ + Partial Public Class GetCNCRegKeyResponse + + _ + Public GetCNCRegKeyR As OPENcontrol.GetCNCRegKeyR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCNCRegKeyR As OPENcontrol.GetCNCRegKeyR) + MyBase.New + Me.GetCNCRegKeyR = GetCNCRegKeyR + End Sub + End Class + + ''' + _ + Partial Public Class SetIpAddress + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private ipAddressField As String + + Private subNetMaskField As String + + Private defaultGatewayField As String + + Private dnsField As String + + Private winsField As String + + Private netField As String + + ''' + _ + Public Property IpAddress() As String + Get + Return Me.ipAddressField + End Get + Set + Me.ipAddressField = value + Me.RaisePropertyChanged("IpAddress") + End Set + End Property + + ''' + _ + Public Property SubNetMask() As String + Get + Return Me.subNetMaskField + End Get + Set + Me.subNetMaskField = value + Me.RaisePropertyChanged("SubNetMask") + End Set + End Property + + ''' + _ + Public Property DefaultGateway() As String + Get + Return Me.defaultGatewayField + End Get + Set + Me.defaultGatewayField = value + Me.RaisePropertyChanged("DefaultGateway") + End Set + End Property + + ''' + _ + Public Property Dns() As String + Get + Return Me.dnsField + End Get + Set + Me.dnsField = value + Me.RaisePropertyChanged("Dns") + End Set + End Property + + ''' + _ + Public Property Wins() As String + Get + Return Me.winsField + End Get + Set + Me.winsField = value + Me.RaisePropertyChanged("Wins") + End Set + End Property + + ''' + _ + Public Property Net() As String + Get + Return Me.netField + End Get + Set + Me.netField = value + Me.RaisePropertyChanged("Net") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetIpAddressR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetIpAddressRequest + + _ + Public SetIpAddress As OPENcontrol.SetIpAddress + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetIpAddress As OPENcontrol.SetIpAddress) + MyBase.New + Me.SetIpAddress = SetIpAddress + End Sub + End Class + + _ + Partial Public Class SetIpAddressResponse + + _ + Public SetIpAddressR As OPENcontrol.SetIpAddressR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetIpAddressR As OPENcontrol.SetIpAddressR) + MyBase.New + Me.SetIpAddressR = SetIpAddressR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcInInput + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetProcInInputR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private procInfoField As INPUTINFO + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcInfo() As INPUTINFO + Get + Return Me.procInfoField + End Get + Set + Me.procInfoField = value + Me.RaisePropertyChanged("ProcInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcInInputRequest + + _ + Public GetProcInInput As OPENcontrol.GetProcInInput + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcInInput As OPENcontrol.GetProcInInput) + MyBase.New + Me.GetProcInInput = GetProcInInput + End Sub + End Class + + _ + Partial Public Class GetProcInInputResponse + + _ + Public GetProcInInputR As OPENcontrol.GetProcInInputR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcInInputR As OPENcontrol.GetProcInInputR) + MyBase.New + Me.GetProcInInputR = GetProcInInputR + End Sub + End Class + + ''' + _ + Partial Public Class SndProcInpData + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private keyPressedField As UShort + + Private numDataField As UShort + + Private arDataField() As Byte + + Private arSizeField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property keyPressed() As UShort + Get + Return Me.keyPressedField + End Get + Set + Me.keyPressedField = value + Me.RaisePropertyChanged("keyPressed") + End Set + End Property + + ''' + _ + Public Property numData() As UShort + Get + Return Me.numDataField + End Get + Set + Me.numDataField = value + Me.RaisePropertyChanged("numData") + End Set + End Property + + ''' + _ + Public Property arData() As Byte() + Get + Return Me.arDataField + End Get + Set + Me.arDataField = value + Me.RaisePropertyChanged("arData") + End Set + End Property + + ''' + _ + Public Property arSize() As UShort + Get + Return Me.arSizeField + End Get + Set + Me.arSizeField = value + Me.RaisePropertyChanged("arSize") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SndProcInpDataR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SndProcInpDataRequest + + _ + Public SndProcInpData As OPENcontrol.SndProcInpData + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SndProcInpData As OPENcontrol.SndProcInpData) + MyBase.New + Me.SndProcInpData = SndProcInpData + End Sub + End Class + + _ + Partial Public Class SndProcInpDataResponse + + _ + Public SndProcInpDataR As OPENcontrol.SndProcInpDataR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SndProcInpDataR As OPENcontrol.SndProcInpDataR) + MyBase.New + Me.SndProcInpDataR = SndProcInpDataR + End Sub + End Class + + _ + Public Interface OPENcontrolPortTypeChannel + Inherits OPENcontrol.OPENcontrolPortType, System.ServiceModel.IClientChannel + End Interface + + _ + Partial Public Class OPENcontrolPortTypeClient + Inherits System.ServiceModel.ClientBase(Of OPENcontrol.OPENcontrolPortType) + Implements OPENcontrol.OPENcontrolPortType + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal endpointConfigurationName As String) + MyBase.New(endpointConfigurationName) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(binding, remoteAddress) + End Sub + + _ + Function OPENcontrol_OPENcontrolPortType_BootPhaseEnquiry(ByVal request As OPENcontrol.BootPhaseEnquiryRequest) As OPENcontrol.BootPhaseEnquiryResponse Implements OPENcontrol.OPENcontrolPortType.BootPhaseEnquiry + Return MyBase.Channel.BootPhaseEnquiry(request) + End Function + + Public Function BootPhaseEnquiry(ByVal BootPhaseEnquiry1 As OPENcontrol.BootPhaseEnquiry) As OPENcontrol.BootPhaseEnquiryR + Dim inValue As OPENcontrol.BootPhaseEnquiryRequest = New OPENcontrol.BootPhaseEnquiryRequest + inValue.BootPhaseEnquiry = BootPhaseEnquiry1 + Dim retVal As OPENcontrol.BootPhaseEnquiryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootPhaseEnquiry(inValue) + Return retVal.BootPhaseEnquiryR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_BootReboot(ByVal request As OPENcontrol.BootRebootRequest) As OPENcontrol.BootRebootResponse Implements OPENcontrol.OPENcontrolPortType.BootReboot + Return MyBase.Channel.BootReboot(request) + End Function + + Public Function BootReboot(ByVal BootReboot1 As OPENcontrol.BootReboot) As OPENcontrol.BootRebootR + Dim inValue As OPENcontrol.BootRebootRequest = New OPENcontrol.BootRebootRequest + inValue.BootReboot = BootReboot1 + Dim retVal As OPENcontrol.BootRebootResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootReboot(inValue) + Return retVal.BootRebootR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_BootShutDown(ByVal request As OPENcontrol.BootShutDownRequest) As OPENcontrol.BootShutDownResponse Implements OPENcontrol.OPENcontrolPortType.BootShutDown + Return MyBase.Channel.BootShutDown(request) + End Function + + Public Function BootShutDown(ByVal BootShutDown1 As OPENcontrol.BootShutDown) As OPENcontrol.BootShutDownR + Dim inValue As OPENcontrol.BootShutDownRequest = New OPENcontrol.BootShutDownRequest + inValue.BootShutDown = BootShutDown1 + Dim retVal As OPENcontrol.BootShutDownResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootShutDown(inValue) + Return retVal.BootShutDownR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_BootMode(ByVal request As OPENcontrol.BootModeRequest) As OPENcontrol.BootModeResponse Implements OPENcontrol.OPENcontrolPortType.BootMode + Return MyBase.Channel.BootMode(request) + End Function + + Public Function BootMode(ByVal BootMode1 As OPENcontrol.BootMode) As OPENcontrol.BootModeR + Dim inValue As OPENcontrol.BootModeRequest = New OPENcontrol.BootModeRequest + inValue.BootMode = BootMode1 + Dim retVal As OPENcontrol.BootModeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootMode(inValue) + Return retVal.BootModeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetHWKey(ByVal request As OPENcontrol.GetHWKeyRequest) As OPENcontrol.GetHWKeyResponse Implements OPENcontrol.OPENcontrolPortType.GetHWKey + Return MyBase.Channel.GetHWKey(request) + End Function + + Public Function GetHWKey(ByVal GetHWKey1 As OPENcontrol.GetHWKey) As OPENcontrol.GetHWKeyR + Dim inValue As OPENcontrol.GetHWKeyRequest = New OPENcontrol.GetHWKeyRequest + inValue.GetHWKey = GetHWKey1 + Dim retVal As OPENcontrol.GetHWKeyResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetHWKey(inValue) + Return retVal.GetHWKeyR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadVarWord(ByVal request As OPENcontrol.ReadVarWordRequest) As OPENcontrol.ReadVarWordResponse Implements OPENcontrol.OPENcontrolPortType.ReadVarWord + Return MyBase.Channel.ReadVarWord(request) + End Function + + Public Function ReadVarWord(ByVal ReadVarWord1 As OPENcontrol.ReadVarWord) As OPENcontrol.ReadVarWordR + Dim inValue As OPENcontrol.ReadVarWordRequest = New OPENcontrol.ReadVarWordRequest + inValue.ReadVarWord = ReadVarWord1 + Dim retVal As OPENcontrol.ReadVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadVarWord(inValue) + Return retVal.ReadVarWordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadVarDouble(ByVal request As OPENcontrol.ReadVarDoubleRequest) As OPENcontrol.ReadVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.ReadVarDouble + Return MyBase.Channel.ReadVarDouble(request) + End Function + + Public Function ReadVarDouble(ByVal ReadVarDouble1 As OPENcontrol.ReadVarDouble) As OPENcontrol.ReadVarDoubleR + Dim inValue As OPENcontrol.ReadVarDoubleRequest = New OPENcontrol.ReadVarDoubleRequest + inValue.ReadVarDouble = ReadVarDouble1 + Dim retVal As OPENcontrol.ReadVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadVarDouble(inValue) + Return retVal.ReadVarDoubleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_WriteVarWord(ByVal request As OPENcontrol.WriteVarWordRequest) As OPENcontrol.WriteVarWordResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarWord + Return MyBase.Channel.WriteVarWord(request) + End Function + + Public Function WriteVarWord(ByVal WriteVarWord1 As OPENcontrol.WriteVarWord) As OPENcontrol.WriteVarWordR + Dim inValue As OPENcontrol.WriteVarWordRequest = New OPENcontrol.WriteVarWordRequest + inValue.WriteVarWord = WriteVarWord1 + Dim retVal As OPENcontrol.WriteVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarWord(inValue) + Return retVal.WriteVarWordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_WriteVarWordBit(ByVal request As OPENcontrol.WriteVarWordBitRequest) As OPENcontrol.WriteVarWordBitResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarWordBit + Return MyBase.Channel.WriteVarWordBit(request) + End Function + + Public Function WriteVarWordBit(ByVal WriteVarWordBit1 As OPENcontrol.WriteVarWordBit) As OPENcontrol.WriteVarWordBitR + Dim inValue As OPENcontrol.WriteVarWordBitRequest = New OPENcontrol.WriteVarWordBitRequest + inValue.WriteVarWordBit = WriteVarWordBit1 + Dim retVal As OPENcontrol.WriteVarWordBitResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarWordBit(inValue) + Return retVal.WriteVarWordBitR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_WriteVarDouble(ByVal request As OPENcontrol.WriteVarDoubleRequest) As OPENcontrol.WriteVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarDouble + Return MyBase.Channel.WriteVarDouble(request) + End Function + + Public Function WriteVarDouble(ByVal WriteVarDouble1 As OPENcontrol.WriteVarDouble) As OPENcontrol.WriteVarDoubleR + Dim inValue As OPENcontrol.WriteVarDoubleRequest = New OPENcontrol.WriteVarDoubleRequest + inValue.WriteVarDouble = WriteVarDouble1 + Dim retVal As OPENcontrol.WriteVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarDouble(inValue) + Return retVal.WriteVarDoubleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadVarText(ByVal request As OPENcontrol.ReadVarTextRequest) As OPENcontrol.ReadVarTextResponse Implements OPENcontrol.OPENcontrolPortType.ReadVarText + Return MyBase.Channel.ReadVarText(request) + End Function + + Public Function ReadVarText(ByVal ReadVarText1 As OPENcontrol.ReadVarText) As OPENcontrol.ReadVarTextR + Dim inValue As OPENcontrol.ReadVarTextRequest = New OPENcontrol.ReadVarTextRequest + inValue.ReadVarText = ReadVarText1 + Dim retVal As OPENcontrol.ReadVarTextResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadVarText(inValue) + Return retVal.ReadVarTextR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_WriteVarText(ByVal request As OPENcontrol.WriteVarTextRequest) As OPENcontrol.WriteVarTextResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarText + Return MyBase.Channel.WriteVarText(request) + End Function + + Public Function WriteVarText(ByVal WriteVarText1 As OPENcontrol.WriteVarText) As OPENcontrol.WriteVarTextR + Dim inValue As OPENcontrol.WriteVarTextRequest = New OPENcontrol.WriteVarTextRequest + inValue.WriteVarText = WriteVarText1 + Dim retVal As OPENcontrol.WriteVarTextResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarText(inValue) + Return retVal.WriteVarTextR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadWarningMsg(ByVal request As OPENcontrol.ReadWarningMsgRequest) As OPENcontrol.ReadWarningMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadWarningMsg + Return MyBase.Channel.ReadWarningMsg(request) + End Function + + Public Function ReadWarningMsg(ByVal ReadWarningMsg1 As OPENcontrol.ReadWarningMsg) As OPENcontrol.ReadWarningMsgR + Dim inValue As OPENcontrol.ReadWarningMsgRequest = New OPENcontrol.ReadWarningMsgRequest + inValue.ReadWarningMsg = ReadWarningMsg1 + Dim retVal As OPENcontrol.ReadWarningMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadWarningMsg(inValue) + Return retVal.ReadWarningMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ResetSingleTableII(ByVal request As OPENcontrol.ResetSingleTableIIRequest) As OPENcontrol.ResetSingleTableIIResponse Implements OPENcontrol.OPENcontrolPortType.ResetSingleTableII + Return MyBase.Channel.ResetSingleTableII(request) + End Function + + Public Function ResetSingleTableII(ByVal ResetSingleTableII1 As OPENcontrol.ResetSingleTableII) As OPENcontrol.ResetSingleTableIIR + Dim inValue As OPENcontrol.ResetSingleTableIIRequest = New OPENcontrol.ResetSingleTableIIRequest + inValue.ResetSingleTableII = ResetSingleTableII1 + Dim retVal As OPENcontrol.ResetSingleTableIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ResetSingleTableII(inValue) + Return retVal.ResetSingleTableIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LockTableII(ByVal request As OPENcontrol.LockTableIIRequest) As OPENcontrol.LockTableIIResponse Implements OPENcontrol.OPENcontrolPortType.LockTableII + Return MyBase.Channel.LockTableII(request) + End Function + + Public Function LockTableII(ByVal LockTableII1 As OPENcontrol.LockTableII) As OPENcontrol.LockTableIIR + Dim inValue As OPENcontrol.LockTableIIRequest = New OPENcontrol.LockTableIIRequest + inValue.LockTableII = LockTableII1 + Dim retVal As OPENcontrol.LockTableIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LockTableII(inValue) + Return retVal.LockTableIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_UnLockTableII(ByVal request As OPENcontrol.UnLockTableIIRequest) As OPENcontrol.UnLockTableIIResponse Implements OPENcontrol.OPENcontrolPortType.UnLockTableII + Return MyBase.Channel.UnLockTableII(request) + End Function + + Public Function UnLockTableII(ByVal UnLockTableII1 As OPENcontrol.UnLockTableII) As OPENcontrol.UnLockTableIIR + Dim inValue As OPENcontrol.UnLockTableIIRequest = New OPENcontrol.UnLockTableIIRequest + inValue.UnLockTableII = UnLockTableII1 + Dim retVal As OPENcontrol.UnLockTableIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).UnLockTableII(inValue) + Return retVal.UnLockTableIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetOriginTabRecordII(ByVal request As OPENcontrol.GetOriginTabRecordIIRequest) As OPENcontrol.GetOriginTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetOriginTabRecordII + Return MyBase.Channel.GetOriginTabRecordII(request) + End Function + + Public Function GetOriginTabRecordII(ByVal GetOriginTabRecordII1 As OPENcontrol.GetOriginTabRecordII) As OPENcontrol.GetOriginTabRecordIIR + Dim inValue As OPENcontrol.GetOriginTabRecordIIRequest = New OPENcontrol.GetOriginTabRecordIIRequest + inValue.GetOriginTabRecordII = GetOriginTabRecordII1 + Dim retVal As OPENcontrol.GetOriginTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetOriginTabRecordII(inValue) + Return retVal.GetOriginTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetOriginTabRecordII(ByVal request As OPENcontrol.SetOriginTabRecordIIRequest) As OPENcontrol.SetOriginTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetOriginTabRecordII + Return MyBase.Channel.SetOriginTabRecordII(request) + End Function + + Public Function SetOriginTabRecordII(ByVal SetOriginTabRecordII1 As OPENcontrol.SetOriginTabRecordII) As OPENcontrol.SetOriginTabRecordIIR + Dim inValue As OPENcontrol.SetOriginTabRecordIIRequest = New OPENcontrol.SetOriginTabRecordIIRequest + inValue.SetOriginTabRecordII = SetOriginTabRecordII1 + Dim retVal As OPENcontrol.SetOriginTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetOriginTabRecordII(inValue) + Return retVal.SetOriginTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetToolTabRecordII(ByVal request As OPENcontrol.GetToolTabRecordIIRequest) As OPENcontrol.GetToolTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetToolTabRecordII + Return MyBase.Channel.GetToolTabRecordII(request) + End Function + + Public Function GetToolTabRecordII(ByVal GetToolTabRecordII1 As OPENcontrol.GetToolTabRecordII) As OPENcontrol.GetToolTabRecordIIR + Dim inValue As OPENcontrol.GetToolTabRecordIIRequest = New OPENcontrol.GetToolTabRecordIIRequest + inValue.GetToolTabRecordII = GetToolTabRecordII1 + Dim retVal As OPENcontrol.GetToolTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetToolTabRecordII(inValue) + Return retVal.GetToolTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetToolTabRecordII(ByVal request As OPENcontrol.SetToolTabRecordIIRequest) As OPENcontrol.SetToolTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetToolTabRecordII + Return MyBase.Channel.SetToolTabRecordII(request) + End Function + + Public Function SetToolTabRecordII(ByVal SetToolTabRecordII1 As OPENcontrol.SetToolTabRecordII) As OPENcontrol.SetToolTabRecordIIR + Dim inValue As OPENcontrol.SetToolTabRecordIIRequest = New OPENcontrol.SetToolTabRecordIIRequest + inValue.SetToolTabRecordII = SetToolTabRecordII1 + Dim retVal As OPENcontrol.SetToolTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetToolTabRecordII(inValue) + Return retVal.SetToolTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetOffsetTabRecordII(ByVal request As OPENcontrol.GetOffsetTabRecordIIRequest) As OPENcontrol.GetOffsetTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetOffsetTabRecordII + Return MyBase.Channel.GetOffsetTabRecordII(request) + End Function + + Public Function GetOffsetTabRecordII(ByVal GetOffsetTabRecordII1 As OPENcontrol.GetOffsetTabRecordII) As OPENcontrol.GetOffsetTabRecordIIR + Dim inValue As OPENcontrol.GetOffsetTabRecordIIRequest = New OPENcontrol.GetOffsetTabRecordIIRequest + inValue.GetOffsetTabRecordII = GetOffsetTabRecordII1 + Dim retVal As OPENcontrol.GetOffsetTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetOffsetTabRecordII(inValue) + Return retVal.GetOffsetTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetOffsetTabRecordII(ByVal request As OPENcontrol.SetOffsetTabRecordIIRequest) As OPENcontrol.SetOffsetTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetOffsetTabRecordII + Return MyBase.Channel.SetOffsetTabRecordII(request) + End Function + + Public Function SetOffsetTabRecordII(ByVal SetOffsetTabRecordII1 As OPENcontrol.SetOffsetTabRecordII) As OPENcontrol.SetOffsetTabRecordIIR + Dim inValue As OPENcontrol.SetOffsetTabRecordIIRequest = New OPENcontrol.SetOffsetTabRecordIIRequest + inValue.SetOffsetTabRecordII = SetOffsetTabRecordII1 + Dim retVal As OPENcontrol.SetOffsetTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetOffsetTabRecordII(inValue) + Return retVal.SetOffsetTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetUserTabRecordII(ByVal request As OPENcontrol.GetUserTabRecordIIRequest) As OPENcontrol.GetUserTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetUserTabRecordII + Return MyBase.Channel.GetUserTabRecordII(request) + End Function + + Public Function GetUserTabRecordII(ByVal GetUserTabRecordII1 As OPENcontrol.GetUserTabRecordII) As OPENcontrol.GetUserTabRecordIIR + Dim inValue As OPENcontrol.GetUserTabRecordIIRequest = New OPENcontrol.GetUserTabRecordIIRequest + inValue.GetUserTabRecordII = GetUserTabRecordII1 + Dim retVal As OPENcontrol.GetUserTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetUserTabRecordII(inValue) + Return retVal.GetUserTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetUserTabRecordII(ByVal request As OPENcontrol.SetUserTabRecordIIRequest) As OPENcontrol.SetUserTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetUserTabRecordII + Return MyBase.Channel.SetUserTabRecordII(request) + End Function + + Public Function SetUserTabRecordII(ByVal SetUserTabRecordII1 As OPENcontrol.SetUserTabRecordII) As OPENcontrol.SetUserTabRecordIIR + Dim inValue As OPENcontrol.SetUserTabRecordIIRequest = New OPENcontrol.SetUserTabRecordIIRequest + inValue.SetUserTabRecordII = SetUserTabRecordII1 + Dim retVal As OPENcontrol.SetUserTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetUserTabRecordII(inValue) + Return retVal.SetUserTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SaveTables(ByVal request As OPENcontrol.SaveTablesRequest) As OPENcontrol.SaveTablesResponse Implements OPENcontrol.OPENcontrolPortType.SaveTables + Return MyBase.Channel.SaveTables(request) + End Function + + Public Function SaveTables(ByVal SaveTables1 As OPENcontrol.SaveTables) As OPENcontrol.SaveTablesR + Dim inValue As OPENcontrol.SaveTablesRequest = New OPENcontrol.SaveTablesRequest + inValue.SaveTables = SaveTables1 + Dim retVal As OPENcontrol.SaveTablesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SaveTables(inValue) + Return retVal.SaveTablesR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_RestoreSingleTable(ByVal request As OPENcontrol.RestoreSingleTableRequest) As OPENcontrol.RestoreSingleTableResponse Implements OPENcontrol.OPENcontrolPortType.RestoreSingleTable + Return MyBase.Channel.RestoreSingleTable(request) + End Function + + Public Function RestoreSingleTable(ByVal RestoreSingleTable1 As OPENcontrol.RestoreSingleTable) As OPENcontrol.RestoreSingleTableR + Dim inValue As OPENcontrol.RestoreSingleTableRequest = New OPENcontrol.RestoreSingleTableRequest + inValue.RestoreSingleTable = RestoreSingleTable1 + Dim retVal As OPENcontrol.RestoreSingleTableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).RestoreSingleTable(inValue) + Return retVal.RestoreSingleTableR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SaveSingleTable(ByVal request As OPENcontrol.SaveSingleTableRequest) As OPENcontrol.SaveSingleTableResponse Implements OPENcontrol.OPENcontrolPortType.SaveSingleTable + Return MyBase.Channel.SaveSingleTable(request) + End Function + + Public Function SaveSingleTable(ByVal SaveSingleTable1 As OPENcontrol.SaveSingleTable) As OPENcontrol.SaveSingleTableR + Dim inValue As OPENcontrol.SaveSingleTableRequest = New OPENcontrol.SaveSingleTableRequest + inValue.SaveSingleTable = SaveSingleTable1 + Dim retVal As OPENcontrol.SaveSingleTableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SaveSingleTable(inValue) + Return retVal.SaveSingleTableR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SaveBackupMemory(ByVal request As OPENcontrol.SaveBackupMemoryRequest) As OPENcontrol.SaveBackupMemoryResponse Implements OPENcontrol.OPENcontrolPortType.SaveBackupMemory + Return MyBase.Channel.SaveBackupMemory(request) + End Function + + Public Function SaveBackupMemory(ByVal SaveBackupMemory1 As OPENcontrol.SaveBackupMemory) As OPENcontrol.SaveBackupMemoryR + Dim inValue As OPENcontrol.SaveBackupMemoryRequest = New OPENcontrol.SaveBackupMemoryRequest + inValue.SaveBackupMemory = SaveBackupMemory1 + Dim retVal As OPENcontrol.SaveBackupMemoryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SaveBackupMemory(inValue) + Return retVal.SaveBackupMemoryR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_RestoreBackupMemory(ByVal request As OPENcontrol.RestoreBackupMemoryRequest) As OPENcontrol.RestoreBackupMemoryResponse Implements OPENcontrol.OPENcontrolPortType.RestoreBackupMemory + Return MyBase.Channel.RestoreBackupMemory(request) + End Function + + Public Function RestoreBackupMemory(ByVal RestoreBackupMemory1 As OPENcontrol.RestoreBackupMemory) As OPENcontrol.RestoreBackupMemoryR + Dim inValue As OPENcontrol.RestoreBackupMemoryRequest = New OPENcontrol.RestoreBackupMemoryRequest + inValue.RestoreBackupMemory = RestoreBackupMemory1 + Dim retVal As OPENcontrol.RestoreBackupMemoryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).RestoreBackupMemory(inValue) + Return retVal.RestoreBackupMemoryR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_Cycle(ByVal request As OPENcontrol.CycleRequest) As OPENcontrol.CycleResponse Implements OPENcontrol.OPENcontrolPortType.Cycle + Return MyBase.Channel.Cycle(request) + End Function + + Public Function Cycle(ByVal Cycle1 As OPENcontrol.Cycle) As OPENcontrol.CycleR + Dim inValue As OPENcontrol.CycleRequest = New OPENcontrol.CycleRequest + inValue.Cycle = Cycle1 + Dim retVal As OPENcontrol.CycleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Cycle(inValue) + Return retVal.CycleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SyncroCycle(ByVal request As OPENcontrol.SyncroCycleRequest) As OPENcontrol.SyncroCycleResponse Implements OPENcontrol.OPENcontrolPortType.SyncroCycle + Return MyBase.Channel.SyncroCycle(request) + End Function + + Public Function SyncroCycle(ByVal SyncroCycle1 As OPENcontrol.SyncroCycle) As OPENcontrol.SyncroCycleR + Dim inValue As OPENcontrol.SyncroCycleRequest = New OPENcontrol.SyncroCycleRequest + inValue.SyncroCycle = SyncroCycle1 + Dim retVal As OPENcontrol.SyncroCycleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SyncroCycle(inValue) + Return retVal.SyncroCycleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_Reset(ByVal request As OPENcontrol.ResetRequest) As OPENcontrol.ResetResponse Implements OPENcontrol.OPENcontrolPortType.Reset + Return MyBase.Channel.Reset(request) + End Function + + Public Function Reset(ByVal Reset1 As OPENcontrol.Reset) As OPENcontrol.ResetR + Dim inValue As OPENcontrol.ResetRequest = New OPENcontrol.ResetRequest + inValue.Reset = Reset1 + Dim retVal As OPENcontrol.ResetResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Reset(inValue) + Return retVal.ResetR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_Hold(ByVal request As OPENcontrol.HoldRequest) As OPENcontrol.HoldResponse Implements OPENcontrol.OPENcontrolPortType.Hold + Return MyBase.Channel.Hold(request) + End Function + + Public Function Hold(ByVal Hold1 As OPENcontrol.Hold) As OPENcontrol.HoldR + Dim inValue As OPENcontrol.HoldRequest = New OPENcontrol.HoldRequest + inValue.Hold = Hold1 + Dim retVal As OPENcontrol.HoldResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Hold(inValue) + Return retVal.HoldR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetFeedManOver(ByVal request As OPENcontrol.SetFeedManOverRequest) As OPENcontrol.SetFeedManOverResponse Implements OPENcontrol.OPENcontrolPortType.SetFeedManOver + Return MyBase.Channel.SetFeedManOver(request) + End Function + + Public Function SetFeedManOver(ByVal SetFeedManOver1 As OPENcontrol.SetFeedManOver) As OPENcontrol.SetFeedManOverR + Dim inValue As OPENcontrol.SetFeedManOverRequest = New OPENcontrol.SetFeedManOverRequest + inValue.SetFeedManOver = SetFeedManOver1 + Dim retVal As OPENcontrol.SetFeedManOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetFeedManOver(inValue) + Return retVal.SetFeedManOverR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetFeedRateOver(ByVal request As OPENcontrol.SetFeedRateOverRequest) As OPENcontrol.SetFeedRateOverResponse Implements OPENcontrol.OPENcontrolPortType.SetFeedRateOver + Return MyBase.Channel.SetFeedRateOver(request) + End Function + + Public Function SetFeedRateOver(ByVal SetFeedRateOver1 As OPENcontrol.SetFeedRateOver) As OPENcontrol.SetFeedRateOverR + Dim inValue As OPENcontrol.SetFeedRateOverRequest = New OPENcontrol.SetFeedRateOverRequest + inValue.SetFeedRateOver = SetFeedRateOver1 + Dim retVal As OPENcontrol.SetFeedRateOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetFeedRateOver(inValue) + Return retVal.SetFeedRateOverR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetFeedRapidOver(ByVal request As OPENcontrol.SetFeedRapidOverRequest) As OPENcontrol.SetFeedRapidOverResponse Implements OPENcontrol.OPENcontrolPortType.SetFeedRapidOver + Return MyBase.Channel.SetFeedRapidOver(request) + End Function + + Public Function SetFeedRapidOver(ByVal SetFeedRapidOver1 As OPENcontrol.SetFeedRapidOver) As OPENcontrol.SetFeedRapidOverR + Dim inValue As OPENcontrol.SetFeedRapidOverRequest = New OPENcontrol.SetFeedRapidOverRequest + inValue.SetFeedRapidOver = SetFeedRapidOver1 + Dim retVal As OPENcontrol.SetFeedRapidOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetFeedRapidOver(inValue) + Return retVal.SetFeedRapidOverR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetSpeedRateOver(ByVal request As OPENcontrol.SetSpeedRateOverRequest) As OPENcontrol.SetSpeedRateOverResponse Implements OPENcontrol.OPENcontrolPortType.SetSpeedRateOver + Return MyBase.Channel.SetSpeedRateOver(request) + End Function + + Public Function SetSpeedRateOver(ByVal SetSpeedRateOver1 As OPENcontrol.SetSpeedRateOver) As OPENcontrol.SetSpeedRateOverR + Dim inValue As OPENcontrol.SetSpeedRateOverRequest = New OPENcontrol.SetSpeedRateOverRequest + inValue.SetSpeedRateOver = SetSpeedRateOver1 + Dim retVal As OPENcontrol.SetSpeedRateOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetSpeedRateOver(inValue) + Return retVal.SetSpeedRateOverR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetManMovDirection(ByVal request As OPENcontrol.SetManMovDirectionRequest) As OPENcontrol.SetManMovDirectionResponse Implements OPENcontrol.OPENcontrolPortType.SetManMovDirection + Return MyBase.Channel.SetManMovDirection(request) + End Function + + Public Function SetManMovDirection(ByVal SetManMovDirection1 As OPENcontrol.SetManMovDirection) As OPENcontrol.SetManMovDirectionR + Dim inValue As OPENcontrol.SetManMovDirectionRequest = New OPENcontrol.SetManMovDirectionRequest + inValue.SetManMovDirection = SetManMovDirection1 + Dim retVal As OPENcontrol.SetManMovDirectionResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetManMovDirection(inValue) + Return retVal.SetManMovDirectionR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetVarJOG(ByVal request As OPENcontrol.GetVarJOGRequest) As OPENcontrol.GetVarJOGResponse Implements OPENcontrol.OPENcontrolPortType.GetVarJOG + Return MyBase.Channel.GetVarJOG(request) + End Function + + Public Function GetVarJOG(ByVal GetVarJOG1 As OPENcontrol.GetVarJOG) As OPENcontrol.GetVarJOGR + Dim inValue As OPENcontrol.GetVarJOGRequest = New OPENcontrol.GetVarJOGRequest + inValue.GetVarJOG = GetVarJOG1 + Dim retVal As OPENcontrol.GetVarJOGResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetVarJOG(inValue) + Return retVal.GetVarJOGR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetVarJOG(ByVal request As OPENcontrol.SetVarJOGRequest) As OPENcontrol.SetVarJOGResponse Implements OPENcontrol.OPENcontrolPortType.SetVarJOG + Return MyBase.Channel.SetVarJOG(request) + End Function + + Public Function SetVarJOG(ByVal SetVarJOG1 As OPENcontrol.SetVarJOG) As OPENcontrol.SetVarJOGR + Dim inValue As OPENcontrol.SetVarJOGRequest = New OPENcontrol.SetVarJOGRequest + inValue.SetVarJOG = SetVarJOG1 + Dim retVal As OPENcontrol.SetVarJOGResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetVarJOG(inValue) + Return retVal.SetVarJOGR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetVarUAS(ByVal request As OPENcontrol.SetVarUASRequest) As OPENcontrol.SetVarUASResponse Implements OPENcontrol.OPENcontrolPortType.SetVarUAS + Return MyBase.Channel.SetVarUAS(request) + End Function + + Public Function SetVarUAS(ByVal SetVarUAS1 As OPENcontrol.SetVarUAS) As OPENcontrol.SetVarUASR + Dim inValue As OPENcontrol.SetVarUASRequest = New OPENcontrol.SetVarUASRequest + inValue.SetVarUAS = SetVarUAS1 + Dim retVal As OPENcontrol.SetVarUASResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetVarUAS(inValue) + Return retVal.SetVarUASR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetVarRCM(ByVal request As OPENcontrol.GetVarRCMRequest) As OPENcontrol.GetVarRCMResponse Implements OPENcontrol.OPENcontrolPortType.GetVarRCM + Return MyBase.Channel.GetVarRCM(request) + End Function + + Public Function GetVarRCM(ByVal GetVarRCM1 As OPENcontrol.GetVarRCM) As OPENcontrol.GetVarRCMR + Dim inValue As OPENcontrol.GetVarRCMRequest = New OPENcontrol.GetVarRCMRequest + inValue.GetVarRCM = GetVarRCM1 + Dim retVal As OPENcontrol.GetVarRCMResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetVarRCM(inValue) + Return retVal.GetVarRCMR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetVarRCM(ByVal request As OPENcontrol.SetVarRCMRequest) As OPENcontrol.SetVarRCMResponse Implements OPENcontrol.OPENcontrolPortType.SetVarRCM + Return MyBase.Channel.SetVarRCM(request) + End Function + + Public Function SetVarRCM(ByVal SetVarRCM1 As OPENcontrol.SetVarRCM) As OPENcontrol.SetVarRCMR + Dim inValue As OPENcontrol.SetVarRCMRequest = New OPENcontrol.SetVarRCMRequest + inValue.SetVarRCM = SetVarRCM1 + Dim retVal As OPENcontrol.SetVarRCMResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetVarRCM(inValue) + Return retVal.SetVarRCMR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetProcVarWord(ByVal request As OPENcontrol.GetProcVarWordRequest) As OPENcontrol.GetProcVarWordResponse Implements OPENcontrol.OPENcontrolPortType.GetProcVarWord + Return MyBase.Channel.GetProcVarWord(request) + End Function + + Public Function GetProcVarWord(ByVal GetProcVarWord1 As OPENcontrol.GetProcVarWord) As OPENcontrol.GetProcVarWordR + Dim inValue As OPENcontrol.GetProcVarWordRequest = New OPENcontrol.GetProcVarWordRequest + inValue.GetProcVarWord = GetProcVarWord1 + Dim retVal As OPENcontrol.GetProcVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcVarWord(inValue) + Return retVal.GetProcVarWordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetProcVarWord(ByVal request As OPENcontrol.SetProcVarWordRequest) As OPENcontrol.SetProcVarWordResponse Implements OPENcontrol.OPENcontrolPortType.SetProcVarWord + Return MyBase.Channel.SetProcVarWord(request) + End Function + + Public Function SetProcVarWord(ByVal SetProcVarWord1 As OPENcontrol.SetProcVarWord) As OPENcontrol.SetProcVarWordR + Dim inValue As OPENcontrol.SetProcVarWordRequest = New OPENcontrol.SetProcVarWordRequest + inValue.SetProcVarWord = SetProcVarWord1 + Dim retVal As OPENcontrol.SetProcVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetProcVarWord(inValue) + Return retVal.SetProcVarWordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetProcVarDouble(ByVal request As OPENcontrol.GetProcVarDoubleRequest) As OPENcontrol.GetProcVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.GetProcVarDouble + Return MyBase.Channel.GetProcVarDouble(request) + End Function + + Public Function GetProcVarDouble(ByVal GetProcVarDouble1 As OPENcontrol.GetProcVarDouble) As OPENcontrol.GetProcVarDoubleR + Dim inValue As OPENcontrol.GetProcVarDoubleRequest = New OPENcontrol.GetProcVarDoubleRequest + inValue.GetProcVarDouble = GetProcVarDouble1 + Dim retVal As OPENcontrol.GetProcVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcVarDouble(inValue) + Return retVal.GetProcVarDoubleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetProcVarDouble(ByVal request As OPENcontrol.SetProcVarDoubleRequest) As OPENcontrol.SetProcVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.SetProcVarDouble + Return MyBase.Channel.SetProcVarDouble(request) + End Function + + Public Function SetProcVarDouble(ByVal SetProcVarDouble1 As OPENcontrol.SetProcVarDouble) As OPENcontrol.SetProcVarDoubleR + Dim inValue As OPENcontrol.SetProcVarDoubleRequest = New OPENcontrol.SetProcVarDoubleRequest + inValue.SetProcVarDouble = SetProcVarDouble1 + Dim retVal As OPENcontrol.SetProcVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetProcVarDouble(inValue) + Return retVal.SetProcVarDoubleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetMdiString(ByVal request As OPENcontrol.SetMdiStringRequest) As OPENcontrol.SetMdiStringResponse Implements OPENcontrol.OPENcontrolPortType.SetMdiString + Return MyBase.Channel.SetMdiString(request) + End Function + + Public Function SetMdiString(ByVal SetMdiString1 As OPENcontrol.SetMdiString) As OPENcontrol.SetMdiStringR + Dim inValue As OPENcontrol.SetMdiStringRequest = New OPENcontrol.SetMdiStringRequest + inValue.SetMdiString = SetMdiString1 + Dim retVal As OPENcontrol.SetMdiStringResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetMdiString(inValue) + Return retVal.SetMdiStringR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetProcessMode(ByVal request As OPENcontrol.SetProcessModeRequest) As OPENcontrol.SetProcessModeResponse Implements OPENcontrol.OPENcontrolPortType.SetProcessMode + Return MyBase.Channel.SetProcessMode(request) + End Function + + Public Function SetProcessMode(ByVal SetProcessMode1 As OPENcontrol.SetProcessMode) As OPENcontrol.SetProcessModeR + Dim inValue As OPENcontrol.SetProcessModeRequest = New OPENcontrol.SetProcessModeRequest + inValue.SetProcessMode = SetProcessMode1 + Dim retVal As OPENcontrol.SetProcessModeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetProcessMode(inValue) + Return retVal.SetProcessModeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SelectProcess(ByVal request As OPENcontrol.SelectProcessRequest) As OPENcontrol.SelectProcessResponse Implements OPENcontrol.OPENcontrolPortType.SelectProcess + Return MyBase.Channel.SelectProcess(request) + End Function + + Public Function SelectProcess(ByVal SelectProcess1 As OPENcontrol.SelectProcess) As OPENcontrol.SelectProcessR + Dim inValue As OPENcontrol.SelectProcessRequest = New OPENcontrol.SelectProcessRequest + inValue.SelectProcess = SelectProcess1 + Dim retVal As OPENcontrol.SelectProcessResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectProcess(inValue) + Return retVal.SelectProcessR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetSelectedProcess(ByVal request As OPENcontrol.GetSelectedProcessRequest) As OPENcontrol.GetSelectedProcessResponse Implements OPENcontrol.OPENcontrolPortType.GetSelectedProcess + Return MyBase.Channel.GetSelectedProcess(request) + End Function + + Public Function GetSelectedProcess(ByVal GetSelectedProcess1 As OPENcontrol.GetSelectedProcess) As OPENcontrol.GetSelectedProcessR + Dim inValue As OPENcontrol.GetSelectedProcessRequest = New OPENcontrol.GetSelectedProcessRequest + inValue.GetSelectedProcess = GetSelectedProcess1 + Dim retVal As OPENcontrol.GetSelectedProcessResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetSelectedProcess(inValue) + Return retVal.GetSelectedProcessR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SelectProcAxis(ByVal request As OPENcontrol.SelectProcAxisRequest) As OPENcontrol.SelectProcAxisResponse Implements OPENcontrol.OPENcontrolPortType.SelectProcAxis + Return MyBase.Channel.SelectProcAxis(request) + End Function + + Public Function SelectProcAxis(ByVal SelectProcAxis1 As OPENcontrol.SelectProcAxis) As OPENcontrol.SelectProcAxisR + Dim inValue As OPENcontrol.SelectProcAxisRequest = New OPENcontrol.SelectProcAxisRequest + inValue.SelectProcAxis = SelectProcAxis1 + Dim retVal As OPENcontrol.SelectProcAxisResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectProcAxis(inValue) + Return retVal.SelectProcAxisR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SelectPartProgram(ByVal request As OPENcontrol.SelectPartProgramRequest) As OPENcontrol.SelectPartProgramResponse Implements OPENcontrol.OPENcontrolPortType.SelectPartProgram + Return MyBase.Channel.SelectPartProgram(request) + End Function + + Public Function SelectPartProgram(ByVal SelectPartProgram1 As OPENcontrol.SelectPartProgram) As OPENcontrol.SelectPartProgramR + Dim inValue As OPENcontrol.SelectPartProgramRequest = New OPENcontrol.SelectPartProgramRequest + inValue.SelectPartProgram = SelectPartProgram1 + Dim retVal As OPENcontrol.SelectPartProgramResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectPartProgram(inValue) + Return retVal.SelectPartProgramR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SelectPartProgramFromDrive(ByVal request As OPENcontrol.SelectPartProgramFromDriveRequest) As OPENcontrol.SelectPartProgramFromDriveResponse Implements OPENcontrol.OPENcontrolPortType.SelectPartProgramFromDrive + Return MyBase.Channel.SelectPartProgramFromDrive(request) + End Function + + Public Function SelectPartProgramFromDrive(ByVal SelectPartProgramFromDrive1 As OPENcontrol.SelectPartProgramFromDrive) As OPENcontrol.SelectPartProgramFromDriveR + Dim inValue As OPENcontrol.SelectPartProgramFromDriveRequest = New OPENcontrol.SelectPartProgramFromDriveRequest + inValue.SelectPartProgramFromDrive = SelectPartProgramFromDrive1 + Dim retVal As OPENcontrol.SelectPartProgramFromDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectPartProgramFromDrive(inValue) + Return retVal.SelectPartProgramFromDriveR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetActivePartProgram(ByVal request As OPENcontrol.GetActivePartProgramRequest) As OPENcontrol.GetActivePartProgramResponse Implements OPENcontrol.OPENcontrolPortType.GetActivePartProgram + Return MyBase.Channel.GetActivePartProgram(request) + End Function + + Public Function GetActivePartProgram(ByVal GetActivePartProgram1 As OPENcontrol.GetActivePartProgram) As OPENcontrol.GetActivePartProgramR + Dim inValue As OPENcontrol.GetActivePartProgramRequest = New OPENcontrol.GetActivePartProgramRequest + inValue.GetActivePartProgram = GetActivePartProgram1 + Dim retVal As OPENcontrol.GetActivePartProgramResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetActivePartProgram(inValue) + Return retVal.GetActivePartProgramR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetPartProgramLines(ByVal request As OPENcontrol.GetPartProgramLinesRequest) As OPENcontrol.GetPartProgramLinesResponse Implements OPENcontrol.OPENcontrolPortType.GetPartProgramLines + Return MyBase.Channel.GetPartProgramLines(request) + End Function + + Public Function GetPartProgramLines(ByVal GetPartProgramLines1 As OPENcontrol.GetPartProgramLines) As OPENcontrol.GetPartProgramLinesR + Dim inValue As OPENcontrol.GetPartProgramLinesRequest = New OPENcontrol.GetPartProgramLinesRequest + inValue.GetPartProgramLines = GetPartProgramLines1 + Dim retVal As OPENcontrol.GetPartProgramLinesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetPartProgramLines(inValue) + Return retVal.GetPartProgramLinesR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetAxOriginNum(ByVal request As OPENcontrol.GetAxOriginNumRequest) As OPENcontrol.GetAxOriginNumResponse Implements OPENcontrol.OPENcontrolPortType.GetAxOriginNum + Return MyBase.Channel.GetAxOriginNum(request) + End Function + + Public Function GetAxOriginNum(ByVal GetAxOriginNum1 As OPENcontrol.GetAxOriginNum) As OPENcontrol.GetAxOriginNumR + Dim inValue As OPENcontrol.GetAxOriginNumRequest = New OPENcontrol.GetAxOriginNumRequest + inValue.GetAxOriginNum = GetAxOriginNum1 + Dim retVal As OPENcontrol.GetAxOriginNumResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetAxOriginNum(inValue) + Return retVal.GetAxOriginNumR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetAxesPosition(ByVal request As OPENcontrol.GetAxesPositionRequest) As OPENcontrol.GetAxesPositionResponse Implements OPENcontrol.OPENcontrolPortType.GetAxesPosition + Return MyBase.Channel.GetAxesPosition(request) + End Function + + Public Function GetAxesPosition(ByVal GetAxesPosition1 As OPENcontrol.GetAxesPosition) As OPENcontrol.GetAxesPositionR + Dim inValue As OPENcontrol.GetAxesPositionRequest = New OPENcontrol.GetAxesPositionRequest + inValue.GetAxesPosition = GetAxesPosition1 + Dim retVal As OPENcontrol.GetAxesPositionResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetAxesPosition(inValue) + Return retVal.GetAxesPositionR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetNcInfo1(ByVal request As OPENcontrol.GetNcInfo1Request) As OPENcontrol.GetNcInfo1Response Implements OPENcontrol.OPENcontrolPortType.GetNcInfo1 + Return MyBase.Channel.GetNcInfo1(request) + End Function + + Public Function GetNcInfo1(ByVal GetNcInfo11 As OPENcontrol.GetNcInfo1) As OPENcontrol.GetNcInfo1R + Dim inValue As OPENcontrol.GetNcInfo1Request = New OPENcontrol.GetNcInfo1Request + inValue.GetNcInfo1 = GetNcInfo11 + Dim retVal As OPENcontrol.GetNcInfo1Response = CType(Me,OPENcontrol.OPENcontrolPortType).GetNcInfo1(inValue) + Return retVal.GetNcInfo1R + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetNcInfo2(ByVal request As OPENcontrol.GetNcInfo2Request) As OPENcontrol.GetNcInfo2Response Implements OPENcontrol.OPENcontrolPortType.GetNcInfo2 + Return MyBase.Channel.GetNcInfo2(request) + End Function + + Public Function GetNcInfo2(ByVal GetNcInfo21 As OPENcontrol.GetNcInfo2) As OPENcontrol.GetNcInfo2R + Dim inValue As OPENcontrol.GetNcInfo2Request = New OPENcontrol.GetNcInfo2Request + inValue.GetNcInfo2 = GetNcInfo21 + Dim retVal As OPENcontrol.GetNcInfo2Response = CType(Me,OPENcontrol.OPENcontrolPortType).GetNcInfo2(inValue) + Return retVal.GetNcInfo2R + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetToolNames(ByVal request As OPENcontrol.GetToolNamesRequest) As OPENcontrol.GetToolNamesResponse Implements OPENcontrol.OPENcontrolPortType.GetToolNames + Return MyBase.Channel.GetToolNames(request) + End Function + + Public Function GetToolNames(ByVal GetToolNames1 As OPENcontrol.GetToolNames) As OPENcontrol.GetToolNamesR + Dim inValue As OPENcontrol.GetToolNamesRequest = New OPENcontrol.GetToolNamesRequest + inValue.GetToolNames = GetToolNames1 + Dim retVal As OPENcontrol.GetToolNamesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetToolNames(inValue) + Return retVal.GetToolNamesR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetProcessStatus(ByVal request As OPENcontrol.GetProcessStatusRequest) As OPENcontrol.GetProcessStatusResponse Implements OPENcontrol.OPENcontrolPortType.GetProcessStatus + Return MyBase.Channel.GetProcessStatus(request) + End Function + + Public Function GetProcessStatus(ByVal GetProcessStatus1 As OPENcontrol.GetProcessStatus) As OPENcontrol.GetProcessStatusR + Dim inValue As OPENcontrol.GetProcessStatusRequest = New OPENcontrol.GetProcessStatusRequest + inValue.GetProcessStatus = GetProcessStatus1 + Dim retVal As OPENcontrol.GetProcessStatusResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcessStatus(inValue) + Return retVal.GetProcessStatusR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetBlkNum(ByVal request As OPENcontrol.GetBlkNumRequest) As OPENcontrol.GetBlkNumResponse Implements OPENcontrol.OPENcontrolPortType.GetBlkNum + Return MyBase.Channel.GetBlkNum(request) + End Function + + Public Function GetBlkNum(ByVal GetBlkNum1 As OPENcontrol.GetBlkNum) As OPENcontrol.GetBlkNumR + Dim inValue As OPENcontrol.GetBlkNumRequest = New OPENcontrol.GetBlkNumRequest + inValue.GetBlkNum = GetBlkNum1 + Dim retVal As OPENcontrol.GetBlkNumResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetBlkNum(inValue) + Return retVal.GetBlkNumR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadErrMsg(ByVal request As OPENcontrol.ReadErrMsgRequest) As OPENcontrol.ReadErrMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadErrMsg + Return MyBase.Channel.ReadErrMsg(request) + End Function + + Public Function ReadErrMsg(ByVal ReadErrMsg1 As OPENcontrol.ReadErrMsg) As OPENcontrol.ReadErrMsgR + Dim inValue As OPENcontrol.ReadErrMsgRequest = New OPENcontrol.ReadErrMsgRequest + inValue.ReadErrMsg = ReadErrMsg1 + Dim retVal As OPENcontrol.ReadErrMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadErrMsg(inValue) + Return retVal.ReadErrMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadPartProgramMsg(ByVal request As OPENcontrol.ReadPartProgramMsgRequest) As OPENcontrol.ReadPartProgramMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadPartProgramMsg + Return MyBase.Channel.ReadPartProgramMsg(request) + End Function + + Public Function ReadPartProgramMsg(ByVal ReadPartProgramMsg1 As OPENcontrol.ReadPartProgramMsg) As OPENcontrol.ReadPartProgramMsgR + Dim inValue As OPENcontrol.ReadPartProgramMsgRequest = New OPENcontrol.ReadPartProgramMsgRequest + inValue.ReadPartProgramMsg = ReadPartProgramMsg1 + Dim retVal As OPENcontrol.ReadPartProgramMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadPartProgramMsg(inValue) + Return retVal.ReadPartProgramMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetGCode(ByVal request As OPENcontrol.GetGCodeRequest) As OPENcontrol.GetGCodeResponse Implements OPENcontrol.OPENcontrolPortType.GetGCode + Return MyBase.Channel.GetGCode(request) + End Function + + Public Function GetGCode(ByVal GetGCode1 As OPENcontrol.GetGCode) As OPENcontrol.GetGCodeR + Dim inValue As OPENcontrol.GetGCodeRequest = New OPENcontrol.GetGCodeRequest + inValue.GetGCode = GetGCode1 + Dim retVal As OPENcontrol.GetGCodeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetGCode(inValue) + Return retVal.GetGCodeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetMCode(ByVal request As OPENcontrol.GetMCodeRequest) As OPENcontrol.GetMCodeResponse Implements OPENcontrol.OPENcontrolPortType.GetMCode + Return MyBase.Channel.GetMCode(request) + End Function + + Public Function GetMCode(ByVal GetMCode1 As OPENcontrol.GetMCode) As OPENcontrol.GetMCodeR + Dim inValue As OPENcontrol.GetMCodeRequest = New OPENcontrol.GetMCodeRequest + inValue.GetMCode = GetMCode1 + Dim retVal As OPENcontrol.GetMCodeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetMCode(inValue) + Return retVal.GetMCodeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SkipPProgBlock(ByVal request As OPENcontrol.SkipPProgBlockRequest) As OPENcontrol.SkipPProgBlockResponse Implements OPENcontrol.OPENcontrolPortType.SkipPProgBlock + Return MyBase.Channel.SkipPProgBlock(request) + End Function + + Public Function SkipPProgBlock(ByVal SkipPProgBlock1 As OPENcontrol.SkipPProgBlock) As OPENcontrol.SkipPProgBlockR + Dim inValue As OPENcontrol.SkipPProgBlockRequest = New OPENcontrol.SkipPProgBlockRequest + inValue.SkipPProgBlock = SkipPProgBlock1 + Dim retVal As OPENcontrol.SkipPProgBlockResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SkipPProgBlock(inValue) + Return retVal.SkipPProgBlockR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_Ese(ByVal request As OPENcontrol.EseRequest) As OPENcontrol.EseResponse Implements OPENcontrol.OPENcontrolPortType.Ese + Return MyBase.Channel.Ese(request) + End Function + + Public Function Ese(ByVal Ese1 As OPENcontrol.Ese) As OPENcontrol.EseR + Dim inValue As OPENcontrol.EseRequest = New OPENcontrol.EseRequest + inValue.Ese = Ese1 + Dim retVal As OPENcontrol.EseResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Ese(inValue) + Return retVal.EseR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_EseEx(ByVal request As OPENcontrol.EseExRequest) As OPENcontrol.EseExResponse Implements OPENcontrol.OPENcontrolPortType.EseEx + Return MyBase.Channel.EseEx(request) + End Function + + Public Function EseEx(ByVal EseEx1 As OPENcontrol.EseEx) As OPENcontrol.EseExR + Dim inValue As OPENcontrol.EseExRequest = New OPENcontrol.EseExRequest + inValue.EseEx = EseEx1 + Dim retVal As OPENcontrol.EseExResponse = CType(Me,OPENcontrol.OPENcontrolPortType).EseEx(inValue) + Return retVal.EseExR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_Exe(ByVal request As OPENcontrol.ExeRequest) As OPENcontrol.ExeResponse Implements OPENcontrol.OPENcontrolPortType.Exe + Return MyBase.Channel.Exe(request) + End Function + + Public Function Exe(ByVal Exe1 As OPENcontrol.Exe) As OPENcontrol.ExeR + Dim inValue As OPENcontrol.ExeRequest = New OPENcontrol.ExeRequest + inValue.Exe = Exe1 + Dim retVal As OPENcontrol.ExeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Exe(inValue) + Return retVal.ExeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_AxesRef(ByVal request As OPENcontrol.AxesRefRequest) As OPENcontrol.AxesRefResponse Implements OPENcontrol.OPENcontrolPortType.AxesRef + Return MyBase.Channel.AxesRef(request) + End Function + + Public Function AxesRef(ByVal AxesRef1 As OPENcontrol.AxesRef) As OPENcontrol.AxesRefR + Dim inValue As OPENcontrol.AxesRefRequest = New OPENcontrol.AxesRefRequest + inValue.AxesRef = AxesRef1 + Dim retVal As OPENcontrol.AxesRefResponse = CType(Me,OPENcontrol.OPENcontrolPortType).AxesRef(inValue) + Return retVal.AxesRefR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_DncInit(ByVal request As OPENcontrol.DncInitRequest) As OPENcontrol.DncInitResponse Implements OPENcontrol.OPENcontrolPortType.DncInit + Return MyBase.Channel.DncInit(request) + End Function + + Public Function DncInit(ByVal DncInit1 As OPENcontrol.DncInit) As OPENcontrol.DncInitR + Dim inValue As OPENcontrol.DncInitRequest = New OPENcontrol.DncInitRequest + inValue.DncInit = DncInit1 + Dim retVal As OPENcontrol.DncInitResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncInit(inValue) + Return retVal.DncInitR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_DncData(ByVal request As OPENcontrol.DncDataRequest) As OPENcontrol.DncDataResponse Implements OPENcontrol.OPENcontrolPortType.DncData + Return MyBase.Channel.DncData(request) + End Function + + Public Function DncData(ByVal DncData1 As OPENcontrol.DncData) As OPENcontrol.DncDataR + Dim inValue As OPENcontrol.DncDataRequest = New OPENcontrol.DncDataRequest + inValue.DncData = DncData1 + Dim retVal As OPENcontrol.DncDataResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncData(inValue) + Return retVal.DncDataR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_DncEof(ByVal request As OPENcontrol.DncEofRequest) As OPENcontrol.DncEofResponse Implements OPENcontrol.OPENcontrolPortType.DncEof + Return MyBase.Channel.DncEof(request) + End Function + + Public Function DncEof(ByVal DncEof1 As OPENcontrol.DncEof) As OPENcontrol.DncEofR + Dim inValue As OPENcontrol.DncEofRequest = New OPENcontrol.DncEofRequest + inValue.DncEof = DncEof1 + Dim retVal As OPENcontrol.DncEofResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncEof(inValue) + Return retVal.DncEofR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_DncStop(ByVal request As OPENcontrol.DncStopRequest) As OPENcontrol.DncStopResponse Implements OPENcontrol.OPENcontrolPortType.DncStop + Return MyBase.Channel.DncStop(request) + End Function + + Public Function DncStop(ByVal DncStop1 As OPENcontrol.DncStop) As OPENcontrol.DncStopR + Dim inValue As OPENcontrol.DncStopRequest = New OPENcontrol.DncStopRequest + inValue.DncStop = DncStop1 + Dim retVal As OPENcontrol.DncStopResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncStop(inValue) + Return retVal.DncStopR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetAxesInfo3(ByVal request As OPENcontrol.GetAxesInfo3Request) As OPENcontrol.GetAxesInfo3Response Implements OPENcontrol.OPENcontrolPortType.GetAxesInfo3 + Return MyBase.Channel.GetAxesInfo3(request) + End Function + + Public Function GetAxesInfo3(ByVal GetAxesInfo31 As OPENcontrol.GetAxesInfo3) As OPENcontrol.GetAxesInfo3R + Dim inValue As OPENcontrol.GetAxesInfo3Request = New OPENcontrol.GetAxesInfo3Request + inValue.GetAxesInfo3 = GetAxesInfo31 + Dim retVal As OPENcontrol.GetAxesInfo3Response = CType(Me,OPENcontrol.OPENcontrolPortType).GetAxesInfo3(inValue) + Return retVal.GetAxesInfo3R + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetCodeNumber(ByVal request As OPENcontrol.GetCodeNumberRequest) As OPENcontrol.GetCodeNumberResponse Implements OPENcontrol.OPENcontrolPortType.GetCodeNumber + Return MyBase.Channel.GetCodeNumber(request) + End Function + + Public Function GetCodeNumber(ByVal GetCodeNumber1 As OPENcontrol.GetCodeNumber) As OPENcontrol.GetCodeNumberR + Dim inValue As OPENcontrol.GetCodeNumberRequest = New OPENcontrol.GetCodeNumberRequest + inValue.GetCodeNumber = GetCodeNumber1 + Dim retVal As OPENcontrol.GetCodeNumberResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetCodeNumber(inValue) + Return retVal.GetCodeNumberR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetOptions(ByVal request As OPENcontrol.GetOptionsRequest) As OPENcontrol.GetOptionsResponse Implements OPENcontrol.OPENcontrolPortType.GetOptions + Return MyBase.Channel.GetOptions(request) + End Function + + Public Function GetOptions(ByVal GetOptions1 As OPENcontrol.GetOptions) As OPENcontrol.GetOptionsR + Dim inValue As OPENcontrol.GetOptionsRequest = New OPENcontrol.GetOptionsRequest + inValue.GetOptions = GetOptions1 + Dim retVal As OPENcontrol.GetOptionsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetOptions(inValue) + Return retVal.GetOptionsR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetDateTime(ByVal request As OPENcontrol.GetDateTimeRequest) As OPENcontrol.GetDateTimeResponse Implements OPENcontrol.OPENcontrolPortType.GetDateTime + Return MyBase.Channel.GetDateTime(request) + End Function + + Public Function GetDateTime(ByVal GetDateTime1 As OPENcontrol.GetDateTime) As OPENcontrol.GetDateTimeR + Dim inValue As OPENcontrol.GetDateTimeRequest = New OPENcontrol.GetDateTimeRequest + inValue.GetDateTime = GetDateTime1 + Dim retVal As OPENcontrol.GetDateTimeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetDateTime(inValue) + Return retVal.GetDateTimeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetDateTime(ByVal request As OPENcontrol.SetDateTimeRequest) As OPENcontrol.SetDateTimeResponse Implements OPENcontrol.OPENcontrolPortType.SetDateTime + Return MyBase.Channel.SetDateTime(request) + End Function + + Public Function SetDateTime(ByVal SetDateTime1 As OPENcontrol.SetDateTime) As OPENcontrol.SetDateTimeR + Dim inValue As OPENcontrol.SetDateTimeRequest = New OPENcontrol.SetDateTimeRequest + inValue.SetDateTime = SetDateTime1 + Dim retVal As OPENcontrol.SetDateTimeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetDateTime(inValue) + Return retVal.SetDateTimeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetSerialNumber(ByVal request As OPENcontrol.GetSerialNumberRequest) As OPENcontrol.GetSerialNumberResponse Implements OPENcontrol.OPENcontrolPortType.GetSerialNumber + Return MyBase.Channel.GetSerialNumber(request) + End Function + + Public Function GetSerialNumber(ByVal GetSerialNumber1 As OPENcontrol.GetSerialNumber) As OPENcontrol.GetSerialNumberR + Dim inValue As OPENcontrol.GetSerialNumberRequest = New OPENcontrol.GetSerialNumberRequest + inValue.GetSerialNumber = GetSerialNumber1 + Dim retVal As OPENcontrol.GetSerialNumberResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetSerialNumber(inValue) + Return retVal.GetSerialNumberR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_PutFile(ByVal request As OPENcontrol.PutFileRequest) As OPENcontrol.PutFileResponse Implements OPENcontrol.OPENcontrolPortType.PutFile + Return MyBase.Channel.PutFile(request) + End Function + + Public Function PutFile(ByVal PutFile1 As OPENcontrol.PutFile) As OPENcontrol.PutFileR + Dim inValue As OPENcontrol.PutFileRequest = New OPENcontrol.PutFileRequest + inValue.PutFile = PutFile1 + Dim retVal As OPENcontrol.PutFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).PutFile(inValue) + Return retVal.PutFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetFile(ByVal request As OPENcontrol.GetFileRequest) As OPENcontrol.GetFileResponse Implements OPENcontrol.OPENcontrolPortType.GetFile + Return MyBase.Channel.GetFile(request) + End Function + + Public Function GetFile(ByVal GetFile1 As OPENcontrol.GetFile) As OPENcontrol.GetFileR + Dim inValue As OPENcontrol.GetFileRequest = New OPENcontrol.GetFileRequest + inValue.GetFile = GetFile1 + Dim retVal As OPENcontrol.GetFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetFile(inValue) + Return retVal.GetFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_PutBinaryFile(ByVal request As OPENcontrol.PutBinaryFileRequest) As OPENcontrol.PutBinaryFileResponse Implements OPENcontrol.OPENcontrolPortType.PutBinaryFile + Return MyBase.Channel.PutBinaryFile(request) + End Function + + Public Function PutBinaryFile(ByVal PutBinaryFile1 As OPENcontrol.PutBinaryFile) As OPENcontrol.PutBinaryFileR + Dim inValue As OPENcontrol.PutBinaryFileRequest = New OPENcontrol.PutBinaryFileRequest + inValue.PutBinaryFile = PutBinaryFile1 + Dim retVal As OPENcontrol.PutBinaryFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).PutBinaryFile(inValue) + Return retVal.PutBinaryFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetBinaryFile(ByVal request As OPENcontrol.GetBinaryFileRequest) As OPENcontrol.GetBinaryFileResponse Implements OPENcontrol.OPENcontrolPortType.GetBinaryFile + Return MyBase.Channel.GetBinaryFile(request) + End Function + + Public Function GetBinaryFile(ByVal GetBinaryFile1 As OPENcontrol.GetBinaryFile) As OPENcontrol.GetBinaryFileR + Dim inValue As OPENcontrol.GetBinaryFileRequest = New OPENcontrol.GetBinaryFileRequest + inValue.GetBinaryFile = GetBinaryFile1 + Dim retVal As OPENcontrol.GetBinaryFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetBinaryFile(inValue) + Return retVal.GetBinaryFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSSetSecurityLevel(ByVal request As OPENcontrol.LogFSSetSecurityLevelRequest) As OPENcontrol.LogFSSetSecurityLevelResponse Implements OPENcontrol.OPENcontrolPortType.LogFSSetSecurityLevel + Return MyBase.Channel.LogFSSetSecurityLevel(request) + End Function + + Public Function LogFSSetSecurityLevel(ByVal LogFSSetSecurityLevel1 As OPENcontrol.LogFSSetSecurityLevel) As OPENcontrol.LogFSSetSecurityLevelR + Dim inValue As OPENcontrol.LogFSSetSecurityLevelRequest = New OPENcontrol.LogFSSetSecurityLevelRequest + inValue.LogFSSetSecurityLevel = LogFSSetSecurityLevel1 + Dim retVal As OPENcontrol.LogFSSetSecurityLevelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSSetSecurityLevel(inValue) + Return retVal.LogFSSetSecurityLevelR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetSecurityLevel(ByVal request As OPENcontrol.LogFSGetSecurityLevelRequest) As OPENcontrol.LogFSGetSecurityLevelResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetSecurityLevel + Return MyBase.Channel.LogFSGetSecurityLevel(request) + End Function + + Public Function LogFSGetSecurityLevel(ByVal LogFSGetSecurityLevel1 As OPENcontrol.LogFSGetSecurityLevel) As OPENcontrol.LogFSGetSecurityLevelR + Dim inValue As OPENcontrol.LogFSGetSecurityLevelRequest = New OPENcontrol.LogFSGetSecurityLevelRequest + inValue.LogFSGetSecurityLevel = LogFSGetSecurityLevel1 + Dim retVal As OPENcontrol.LogFSGetSecurityLevelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetSecurityLevel(inValue) + Return retVal.LogFSGetSecurityLevelR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSLongFileNames(ByVal request As OPENcontrol.LogFSLongFileNamesRequest) As OPENcontrol.LogFSLongFileNamesResponse Implements OPENcontrol.OPENcontrolPortType.LogFSLongFileNames + Return MyBase.Channel.LogFSLongFileNames(request) + End Function + + Public Function LogFSLongFileNames(ByVal LogFSLongFileNames1 As OPENcontrol.LogFSLongFileNames) As OPENcontrol.LogFSLongFileNamesR + Dim inValue As OPENcontrol.LogFSLongFileNamesRequest = New OPENcontrol.LogFSLongFileNamesRequest + inValue.LogFSLongFileNames = LogFSLongFileNames1 + Dim retVal As OPENcontrol.LogFSLongFileNamesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSLongFileNames(inValue) + Return retVal.LogFSLongFileNamesR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetNumDrive(ByVal request As OPENcontrol.LogFSGetNumDriveRequest) As OPENcontrol.LogFSGetNumDriveResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetNumDrive + Return MyBase.Channel.LogFSGetNumDrive(request) + End Function + + Public Function LogFSGetNumDrive(ByVal LogFSGetNumDrive1 As OPENcontrol.LogFSGetNumDrive) As OPENcontrol.LogFSGetNumDriveR + Dim inValue As OPENcontrol.LogFSGetNumDriveRequest = New OPENcontrol.LogFSGetNumDriveRequest + inValue.LogFSGetNumDrive = LogFSGetNumDrive1 + Dim retVal As OPENcontrol.LogFSGetNumDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetNumDrive(inValue) + Return retVal.LogFSGetNumDriveR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetDriveList(ByVal request As OPENcontrol.LogFSGetDriveListRequest) As OPENcontrol.LogFSGetDriveListResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetDriveList + Return MyBase.Channel.LogFSGetDriveList(request) + End Function + + Public Function LogFSGetDriveList(ByVal LogFSGetDriveList1 As OPENcontrol.LogFSGetDriveList) As OPENcontrol.LogFSGetDriveListR + Dim inValue As OPENcontrol.LogFSGetDriveListRequest = New OPENcontrol.LogFSGetDriveListRequest + inValue.LogFSGetDriveList = LogFSGetDriveList1 + Dim retVal As OPENcontrol.LogFSGetDriveListResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetDriveList(inValue) + Return retVal.LogFSGetDriveListR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetHiddenDriveList(ByVal request As OPENcontrol.LogFSGetHiddenDriveListRequest) As OPENcontrol.LogFSGetHiddenDriveListResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetHiddenDriveList + Return MyBase.Channel.LogFSGetHiddenDriveList(request) + End Function + + Public Function LogFSGetHiddenDriveList(ByVal LogFSGetHiddenDriveList1 As OPENcontrol.LogFSGetHiddenDriveList) As OPENcontrol.LogFSGetHiddenDriveListR + Dim inValue As OPENcontrol.LogFSGetHiddenDriveListRequest = New OPENcontrol.LogFSGetHiddenDriveListRequest + inValue.LogFSGetHiddenDriveList = LogFSGetHiddenDriveList1 + Dim retVal As OPENcontrol.LogFSGetHiddenDriveListResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetHiddenDriveList(inValue) + Return retVal.LogFSGetHiddenDriveListR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetDrivePath(ByVal request As OPENcontrol.LogFSGetDrivePathRequest) As OPENcontrol.LogFSGetDrivePathResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetDrivePath + Return MyBase.Channel.LogFSGetDrivePath(request) + End Function + + Public Function LogFSGetDrivePath(ByVal LogFSGetDrivePath1 As OPENcontrol.LogFSGetDrivePath) As OPENcontrol.LogFSGetDrivePathR + Dim inValue As OPENcontrol.LogFSGetDrivePathRequest = New OPENcontrol.LogFSGetDrivePathRequest + inValue.LogFSGetDrivePath = LogFSGetDrivePath1 + Dim retVal As OPENcontrol.LogFSGetDrivePathResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetDrivePath(inValue) + Return retVal.LogFSGetDrivePathR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSAddDrive(ByVal request As OPENcontrol.LogFSAddDriveRequest) As OPENcontrol.LogFSAddDriveResponse Implements OPENcontrol.OPENcontrolPortType.LogFSAddDrive + Return MyBase.Channel.LogFSAddDrive(request) + End Function + + Public Function LogFSAddDrive(ByVal LogFSAddDrive1 As OPENcontrol.LogFSAddDrive) As OPENcontrol.LogFSAddDriveR + Dim inValue As OPENcontrol.LogFSAddDriveRequest = New OPENcontrol.LogFSAddDriveRequest + inValue.LogFSAddDrive = LogFSAddDrive1 + Dim retVal As OPENcontrol.LogFSAddDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSAddDrive(inValue) + Return retVal.LogFSAddDriveR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSRemoveDrive(ByVal request As OPENcontrol.LogFSRemoveDriveRequest) As OPENcontrol.LogFSRemoveDriveResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRemoveDrive + Return MyBase.Channel.LogFSRemoveDrive(request) + End Function + + Public Function LogFSRemoveDrive(ByVal LogFSRemoveDrive1 As OPENcontrol.LogFSRemoveDrive) As OPENcontrol.LogFSRemoveDriveR + Dim inValue As OPENcontrol.LogFSRemoveDriveRequest = New OPENcontrol.LogFSRemoveDriveRequest + inValue.LogFSRemoveDrive = LogFSRemoveDrive1 + Dim retVal As OPENcontrol.LogFSRemoveDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRemoveDrive(inValue) + Return retVal.LogFSRemoveDriveR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSReloadDriveList(ByVal request As OPENcontrol.LogFSReloadDriveListRequest) As OPENcontrol.LogFSReloadDriveListResponse Implements OPENcontrol.OPENcontrolPortType.LogFSReloadDriveList + Return MyBase.Channel.LogFSReloadDriveList(request) + End Function + + Public Function LogFSReloadDriveList(ByVal LogFSReloadDriveList1 As OPENcontrol.LogFSReloadDriveList) As OPENcontrol.LogFSReloadDriveListR + Dim inValue As OPENcontrol.LogFSReloadDriveListRequest = New OPENcontrol.LogFSReloadDriveListRequest + inValue.LogFSReloadDriveList = LogFSReloadDriveList1 + Dim retVal As OPENcontrol.LogFSReloadDriveListResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSReloadDriveList(inValue) + Return retVal.LogFSReloadDriveListR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSCreateDir(ByVal request As OPENcontrol.LogFSCreateDirRequest) As OPENcontrol.LogFSCreateDirResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCreateDir + Return MyBase.Channel.LogFSCreateDir(request) + End Function + + Public Function LogFSCreateDir(ByVal LogFSCreateDir1 As OPENcontrol.LogFSCreateDir) As OPENcontrol.LogFSCreateDirR + Dim inValue As OPENcontrol.LogFSCreateDirRequest = New OPENcontrol.LogFSCreateDirRequest + inValue.LogFSCreateDir = LogFSCreateDir1 + Dim retVal As OPENcontrol.LogFSCreateDirResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCreateDir(inValue) + Return retVal.LogFSCreateDirR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSCreateFile(ByVal request As OPENcontrol.LogFSCreateFileRequest) As OPENcontrol.LogFSCreateFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCreateFile + Return MyBase.Channel.LogFSCreateFile(request) + End Function + + Public Function LogFSCreateFile(ByVal LogFSCreateFile1 As OPENcontrol.LogFSCreateFile) As OPENcontrol.LogFSCreateFileR + Dim inValue As OPENcontrol.LogFSCreateFileRequest = New OPENcontrol.LogFSCreateFileRequest + inValue.LogFSCreateFile = LogFSCreateFile1 + Dim retVal As OPENcontrol.LogFSCreateFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCreateFile(inValue) + Return retVal.LogFSCreateFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetFileSize(ByVal request As OPENcontrol.LogFSGetFileSizeRequest) As OPENcontrol.LogFSGetFileSizeResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetFileSize + Return MyBase.Channel.LogFSGetFileSize(request) + End Function + + Public Function LogFSGetFileSize(ByVal LogFSGetFileSize1 As OPENcontrol.LogFSGetFileSize) As OPENcontrol.LogFSGetFileSizeR + Dim inValue As OPENcontrol.LogFSGetFileSizeRequest = New OPENcontrol.LogFSGetFileSizeRequest + inValue.LogFSGetFileSize = LogFSGetFileSize1 + Dim retVal As OPENcontrol.LogFSGetFileSizeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetFileSize(inValue) + Return retVal.LogFSGetFileSizeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetFileAttrib(ByVal request As OPENcontrol.LogFSGetFileAttribRequest) As OPENcontrol.LogFSGetFileAttribResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetFileAttrib + Return MyBase.Channel.LogFSGetFileAttrib(request) + End Function + + Public Function LogFSGetFileAttrib(ByVal LogFSGetFileAttrib1 As OPENcontrol.LogFSGetFileAttrib) As OPENcontrol.LogFSGetFileAttribR + Dim inValue As OPENcontrol.LogFSGetFileAttribRequest = New OPENcontrol.LogFSGetFileAttribRequest + inValue.LogFSGetFileAttrib = LogFSGetFileAttrib1 + Dim retVal As OPENcontrol.LogFSGetFileAttribResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetFileAttrib(inValue) + Return retVal.LogFSGetFileAttribR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSSetFileAttrib(ByVal request As OPENcontrol.LogFSSetFileAttribRequest) As OPENcontrol.LogFSSetFileAttribResponse Implements OPENcontrol.OPENcontrolPortType.LogFSSetFileAttrib + Return MyBase.Channel.LogFSSetFileAttrib(request) + End Function + + Public Function LogFSSetFileAttrib(ByVal LogFSSetFileAttrib1 As OPENcontrol.LogFSSetFileAttrib) As OPENcontrol.LogFSSetFileAttribR + Dim inValue As OPENcontrol.LogFSSetFileAttribRequest = New OPENcontrol.LogFSSetFileAttribRequest + inValue.LogFSSetFileAttrib = LogFSSetFileAttrib1 + Dim retVal As OPENcontrol.LogFSSetFileAttribResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSSetFileAttrib(inValue) + Return retVal.LogFSSetFileAttribR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSChangeFileAttrib(ByVal request As OPENcontrol.LogFSChangeFileAttribRequest) As OPENcontrol.LogFSChangeFileAttribResponse Implements OPENcontrol.OPENcontrolPortType.LogFSChangeFileAttrib + Return MyBase.Channel.LogFSChangeFileAttrib(request) + End Function + + Public Function LogFSChangeFileAttrib(ByVal LogFSChangeFileAttrib1 As OPENcontrol.LogFSChangeFileAttrib) As OPENcontrol.LogFSChangeFileAttribR + Dim inValue As OPENcontrol.LogFSChangeFileAttribRequest = New OPENcontrol.LogFSChangeFileAttribRequest + inValue.LogFSChangeFileAttrib = LogFSChangeFileAttrib1 + Dim retVal As OPENcontrol.LogFSChangeFileAttribResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSChangeFileAttrib(inValue) + Return retVal.LogFSChangeFileAttribR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSFindFirst(ByVal request As OPENcontrol.LogFSFindFirstRequest) As OPENcontrol.LogFSFindFirstResponse Implements OPENcontrol.OPENcontrolPortType.LogFSFindFirst + Return MyBase.Channel.LogFSFindFirst(request) + End Function + + Public Function LogFSFindFirst(ByVal LogFSFindFirst1 As OPENcontrol.LogFSFindFirst) As OPENcontrol.LogFSFindFirstR + Dim inValue As OPENcontrol.LogFSFindFirstRequest = New OPENcontrol.LogFSFindFirstRequest + inValue.LogFSFindFirst = LogFSFindFirst1 + Dim retVal As OPENcontrol.LogFSFindFirstResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSFindFirst(inValue) + Return retVal.LogFSFindFirstR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSFindNext(ByVal request As OPENcontrol.LogFSFindNextRequest) As OPENcontrol.LogFSFindNextResponse Implements OPENcontrol.OPENcontrolPortType.LogFSFindNext + Return MyBase.Channel.LogFSFindNext(request) + End Function + + Public Function LogFSFindNext(ByVal LogFSFindNext1 As OPENcontrol.LogFSFindNext) As OPENcontrol.LogFSFindNextR + Dim inValue As OPENcontrol.LogFSFindNextRequest = New OPENcontrol.LogFSFindNextRequest + inValue.LogFSFindNext = LogFSFindNext1 + Dim retVal As OPENcontrol.LogFSFindNextResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSFindNext(inValue) + Return retVal.LogFSFindNextR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSFindClose(ByVal request As OPENcontrol.LogFSFindCloseRequest) As OPENcontrol.LogFSFindCloseResponse Implements OPENcontrol.OPENcontrolPortType.LogFSFindClose + Return MyBase.Channel.LogFSFindClose(request) + End Function + + Public Function LogFSFindClose(ByVal LogFSFindClose1 As OPENcontrol.LogFSFindClose) As OPENcontrol.LogFSFindCloseR + Dim inValue As OPENcontrol.LogFSFindCloseRequest = New OPENcontrol.LogFSFindCloseRequest + inValue.LogFSFindClose = LogFSFindClose1 + Dim retVal As OPENcontrol.LogFSFindCloseResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSFindClose(inValue) + Return retVal.LogFSFindCloseR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSRemoveFile(ByVal request As OPENcontrol.LogFSRemoveFileRequest) As OPENcontrol.LogFSRemoveFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRemoveFile + Return MyBase.Channel.LogFSRemoveFile(request) + End Function + + Public Function LogFSRemoveFile(ByVal LogFSRemoveFile1 As OPENcontrol.LogFSRemoveFile) As OPENcontrol.LogFSRemoveFileR + Dim inValue As OPENcontrol.LogFSRemoveFileRequest = New OPENcontrol.LogFSRemoveFileRequest + inValue.LogFSRemoveFile = LogFSRemoveFile1 + Dim retVal As OPENcontrol.LogFSRemoveFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRemoveFile(inValue) + Return retVal.LogFSRemoveFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSRemoveDir(ByVal request As OPENcontrol.LogFSRemoveDirRequest) As OPENcontrol.LogFSRemoveDirResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRemoveDir + Return MyBase.Channel.LogFSRemoveDir(request) + End Function + + Public Function LogFSRemoveDir(ByVal LogFSRemoveDir1 As OPENcontrol.LogFSRemoveDir) As OPENcontrol.LogFSRemoveDirR + Dim inValue As OPENcontrol.LogFSRemoveDirRequest = New OPENcontrol.LogFSRemoveDirRequest + inValue.LogFSRemoveDir = LogFSRemoveDir1 + Dim retVal As OPENcontrol.LogFSRemoveDirResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRemoveDir(inValue) + Return retVal.LogFSRemoveDirR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSRename(ByVal request As OPENcontrol.LogFSRenameRequest) As OPENcontrol.LogFSRenameResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRename + Return MyBase.Channel.LogFSRename(request) + End Function + + Public Function LogFSRename(ByVal LogFSRename1 As OPENcontrol.LogFSRename) As OPENcontrol.LogFSRenameR + Dim inValue As OPENcontrol.LogFSRenameRequest = New OPENcontrol.LogFSRenameRequest + inValue.LogFSRename = LogFSRename1 + Dim retVal As OPENcontrol.LogFSRenameResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRename(inValue) + Return retVal.LogFSRenameR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSCopyFile(ByVal request As OPENcontrol.LogFSCopyFileRequest) As OPENcontrol.LogFSCopyFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCopyFile + Return MyBase.Channel.LogFSCopyFile(request) + End Function + + Public Function LogFSCopyFile(ByVal LogFSCopyFile1 As OPENcontrol.LogFSCopyFile) As OPENcontrol.LogFSCopyFileR + Dim inValue As OPENcontrol.LogFSCopyFileRequest = New OPENcontrol.LogFSCopyFileRequest + inValue.LogFSCopyFile = LogFSCopyFile1 + Dim retVal As OPENcontrol.LogFSCopyFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCopyFile(inValue) + Return retVal.LogFSCopyFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetInfo(ByVal request As OPENcontrol.LogFSGetInfoRequest) As OPENcontrol.LogFSGetInfoResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetInfo + Return MyBase.Channel.LogFSGetInfo(request) + End Function + + Public Function LogFSGetInfo(ByVal LogFSGetInfo1 As OPENcontrol.LogFSGetInfo) As OPENcontrol.LogFSGetInfoR + Dim inValue As OPENcontrol.LogFSGetInfoRequest = New OPENcontrol.LogFSGetInfoRequest + inValue.LogFSGetInfo = LogFSGetInfo1 + Dim retVal As OPENcontrol.LogFSGetInfoResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetInfo(inValue) + Return retVal.LogFSGetInfoR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetAvailableCustomEvents(ByVal request As OPENcontrol.GetAvailableCustomEventsRequest) As OPENcontrol.GetAvailableCustomEventsResponse Implements OPENcontrol.OPENcontrolPortType.GetAvailableCustomEvents + Return MyBase.Channel.GetAvailableCustomEvents(request) + End Function + + Public Function GetAvailableCustomEvents(ByVal GetAvailableCustomEvents1 As OPENcontrol.GetAvailableCustomEvents) As OPENcontrol.GetAvailableCustomEventsR + Dim inValue As OPENcontrol.GetAvailableCustomEventsRequest = New OPENcontrol.GetAvailableCustomEventsRequest + inValue.GetAvailableCustomEvents = GetAvailableCustomEvents1 + Dim retVal As OPENcontrol.GetAvailableCustomEventsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetAvailableCustomEvents(inValue) + Return retVal.GetAvailableCustomEventsR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetSysTick(ByVal request As OPENcontrol.GetSysTickRequest) As OPENcontrol.GetSysTickResponse Implements OPENcontrol.OPENcontrolPortType.GetSysTick + Return MyBase.Channel.GetSysTick(request) + End Function + + Public Function GetSysTick(ByVal GetSysTick1 As OPENcontrol.GetSysTick) As OPENcontrol.GetSysTickR + Dim inValue As OPENcontrol.GetSysTickRequest = New OPENcontrol.GetSysTickRequest + inValue.GetSysTick = GetSysTick1 + Dim retVal As OPENcontrol.GetSysTickResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetSysTick(inValue) + Return retVal.GetSysTickR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetProcessConfNum(ByVal request As OPENcontrol.GetProcessConfNumRequest) As OPENcontrol.GetProcessConfNumResponse Implements OPENcontrol.OPENcontrolPortType.GetProcessConfNum + Return MyBase.Channel.GetProcessConfNum(request) + End Function + + Public Function GetProcessConfNum(ByVal GetProcessConfNum1 As OPENcontrol.GetProcessConfNum) As OPENcontrol.GetProcessConfNumR + Dim inValue As OPENcontrol.GetProcessConfNumRequest = New OPENcontrol.GetProcessConfNumRequest + inValue.GetProcessConfNum = GetProcessConfNum1 + Dim retVal As OPENcontrol.GetProcessConfNumResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcessConfNum(inValue) + Return retVal.GetProcessConfNumR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonOpenChannel(ByVal request As OPENcontrol.MonOpenChannelRequest) As OPENcontrol.MonOpenChannelResponse Implements OPENcontrol.OPENcontrolPortType.MonOpenChannel + Return MyBase.Channel.MonOpenChannel(request) + End Function + + Public Function MonOpenChannel(ByVal MonOpenChannel1 As OPENcontrol.MonOpenChannel) As OPENcontrol.MonOpenChannelR + Dim inValue As OPENcontrol.MonOpenChannelRequest = New OPENcontrol.MonOpenChannelRequest + inValue.MonOpenChannel = MonOpenChannel1 + Dim retVal As OPENcontrol.MonOpenChannelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonOpenChannel(inValue) + Return retVal.MonOpenChannelR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonCloseChannel(ByVal request As OPENcontrol.MonCloseChannelRequest) As OPENcontrol.MonCloseChannelResponse Implements OPENcontrol.OPENcontrolPortType.MonCloseChannel + Return MyBase.Channel.MonCloseChannel(request) + End Function + + Public Function MonCloseChannel(ByVal MonCloseChannel1 As OPENcontrol.MonCloseChannel) As OPENcontrol.MonCloseChannelR + Dim inValue As OPENcontrol.MonCloseChannelRequest = New OPENcontrol.MonCloseChannelRequest + inValue.MonCloseChannel = MonCloseChannel1 + Dim retVal As OPENcontrol.MonCloseChannelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonCloseChannel(inValue) + Return retVal.MonCloseChannelR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonAddVariable(ByVal request As OPENcontrol.MonAddVariableRequest) As OPENcontrol.MonAddVariableResponse Implements OPENcontrol.OPENcontrolPortType.MonAddVariable + Return MyBase.Channel.MonAddVariable(request) + End Function + + Public Function MonAddVariable(ByVal MonAddVariable1 As OPENcontrol.MonAddVariable) As OPENcontrol.MonAddVariableR + Dim inValue As OPENcontrol.MonAddVariableRequest = New OPENcontrol.MonAddVariableRequest + inValue.MonAddVariable = MonAddVariable1 + Dim retVal As OPENcontrol.MonAddVariableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonAddVariable(inValue) + Return retVal.MonAddVariableR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonDeleteVariable(ByVal request As OPENcontrol.MonDeleteVariableRequest) As OPENcontrol.MonDeleteVariableResponse Implements OPENcontrol.OPENcontrolPortType.MonDeleteVariable + Return MyBase.Channel.MonDeleteVariable(request) + End Function + + Public Function MonDeleteVariable(ByVal MonDeleteVariable1 As OPENcontrol.MonDeleteVariable) As OPENcontrol.MonDeleteVariableR + Dim inValue As OPENcontrol.MonDeleteVariableRequest = New OPENcontrol.MonDeleteVariableRequest + inValue.MonDeleteVariable = MonDeleteVariable1 + Dim retVal As OPENcontrol.MonDeleteVariableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonDeleteVariable(inValue) + Return retVal.MonDeleteVariableR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonStartSampling(ByVal request As OPENcontrol.MonStartSamplingRequest) As OPENcontrol.MonStartSamplingResponse Implements OPENcontrol.OPENcontrolPortType.MonStartSampling + Return MyBase.Channel.MonStartSampling(request) + End Function + + Public Function MonStartSampling(ByVal MonStartSampling1 As OPENcontrol.MonStartSampling) As OPENcontrol.MonStartSamplingR + Dim inValue As OPENcontrol.MonStartSamplingRequest = New OPENcontrol.MonStartSamplingRequest + inValue.MonStartSampling = MonStartSampling1 + Dim retVal As OPENcontrol.MonStartSamplingResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonStartSampling(inValue) + Return retVal.MonStartSamplingR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonStopSampling(ByVal request As OPENcontrol.MonStopSamplingRequest) As OPENcontrol.MonStopSamplingResponse Implements OPENcontrol.OPENcontrolPortType.MonStopSampling + Return MyBase.Channel.MonStopSampling(request) + End Function + + Public Function MonStopSampling(ByVal MonStopSampling1 As OPENcontrol.MonStopSampling) As OPENcontrol.MonStopSamplingR + Dim inValue As OPENcontrol.MonStopSamplingRequest = New OPENcontrol.MonStopSamplingRequest + inValue.MonStopSampling = MonStopSampling1 + Dim retVal As OPENcontrol.MonStopSamplingResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonStopSampling(inValue) + Return retVal.MonStopSamplingR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonGetVariable(ByVal request As OPENcontrol.MonGetVariableRequest) As OPENcontrol.MonGetVariableResponse Implements OPENcontrol.OPENcontrolPortType.MonGetVariable + Return MyBase.Channel.MonGetVariable(request) + End Function + + Public Function MonGetVariable(ByVal MonGetVariable1 As OPENcontrol.MonGetVariable) As OPENcontrol.MonGetVariableR + Dim inValue As OPENcontrol.MonGetVariableRequest = New OPENcontrol.MonGetVariableRequest + inValue.MonGetVariable = MonGetVariable1 + Dim retVal As OPENcontrol.MonGetVariableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonGetVariable(inValue) + Return retVal.MonGetVariableR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_CheckHistory(ByVal request As OPENcontrol.CheckHistoryRequest) As OPENcontrol.CheckHistoryResponse Implements OPENcontrol.OPENcontrolPortType.CheckHistory + Return MyBase.Channel.CheckHistory(request) + End Function + + Public Function CheckHistory(ByVal CheckHistory1 As OPENcontrol.CheckHistory) As OPENcontrol.CheckHistoryR + Dim inValue As OPENcontrol.CheckHistoryRequest = New OPENcontrol.CheckHistoryRequest + inValue.CheckHistory = CheckHistory1 + Dim retVal As OPENcontrol.CheckHistoryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).CheckHistory(inValue) + Return retVal.CheckHistoryR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadHistoryEmergMsg(ByVal request As OPENcontrol.ReadHistoryEmergMsgRequest) As OPENcontrol.ReadHistoryEmergMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryEmergMsg + Return MyBase.Channel.ReadHistoryEmergMsg(request) + End Function + + Public Function ReadHistoryEmergMsg(ByVal ReadHistoryEmergMsg1 As OPENcontrol.ReadHistoryEmergMsg) As OPENcontrol.ReadHistoryEmergMsgR + Dim inValue As OPENcontrol.ReadHistoryEmergMsgRequest = New OPENcontrol.ReadHistoryEmergMsgRequest + inValue.ReadHistoryEmergMsg = ReadHistoryEmergMsg1 + Dim retVal As OPENcontrol.ReadHistoryEmergMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryEmergMsg(inValue) + Return retVal.ReadHistoryEmergMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadHistoryErrorMsg(ByVal request As OPENcontrol.ReadHistoryErrorMsgRequest) As OPENcontrol.ReadHistoryErrorMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryErrorMsg + Return MyBase.Channel.ReadHistoryErrorMsg(request) + End Function + + Public Function ReadHistoryErrorMsg(ByVal ReadHistoryErrorMsg1 As OPENcontrol.ReadHistoryErrorMsg) As OPENcontrol.ReadHistoryErrorMsgR + Dim inValue As OPENcontrol.ReadHistoryErrorMsgRequest = New OPENcontrol.ReadHistoryErrorMsgRequest + inValue.ReadHistoryErrorMsg = ReadHistoryErrorMsg1 + Dim retVal As OPENcontrol.ReadHistoryErrorMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryErrorMsg(inValue) + Return retVal.ReadHistoryErrorMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadHistoryLogMsg(ByVal request As OPENcontrol.ReadHistoryLogMsgRequest) As OPENcontrol.ReadHistoryLogMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryLogMsg + Return MyBase.Channel.ReadHistoryLogMsg(request) + End Function + + Public Function ReadHistoryLogMsg(ByVal ReadHistoryLogMsg1 As OPENcontrol.ReadHistoryLogMsg) As OPENcontrol.ReadHistoryLogMsgR + Dim inValue As OPENcontrol.ReadHistoryLogMsgRequest = New OPENcontrol.ReadHistoryLogMsgRequest + inValue.ReadHistoryLogMsg = ReadHistoryLogMsg1 + Dim retVal As OPENcontrol.ReadHistoryLogMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryLogMsg(inValue) + Return retVal.ReadHistoryLogMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadHistoryAnomalyMsg(ByVal request As OPENcontrol.ReadHistoryAnomalyMsgRequest) As OPENcontrol.ReadHistoryAnomalyMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryAnomalyMsg + Return MyBase.Channel.ReadHistoryAnomalyMsg(request) + End Function + + Public Function ReadHistoryAnomalyMsg(ByVal ReadHistoryAnomalyMsg1 As OPENcontrol.ReadHistoryAnomalyMsg) As OPENcontrol.ReadHistoryAnomalyMsgR + Dim inValue As OPENcontrol.ReadHistoryAnomalyMsgRequest = New OPENcontrol.ReadHistoryAnomalyMsgRequest + inValue.ReadHistoryAnomalyMsg = ReadHistoryAnomalyMsg1 + Dim retVal As OPENcontrol.ReadHistoryAnomalyMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryAnomalyMsg(inValue) + Return retVal.ReadHistoryAnomalyMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadCurrentErrorMsg(ByVal request As OPENcontrol.ReadCurrentErrorMsgRequest) As OPENcontrol.ReadCurrentErrorMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadCurrentErrorMsg + Return MyBase.Channel.ReadCurrentErrorMsg(request) + End Function + + Public Function ReadCurrentErrorMsg(ByVal ReadCurrentErrorMsg1 As OPENcontrol.ReadCurrentErrorMsg) As OPENcontrol.ReadCurrentErrorMsgR + Dim inValue As OPENcontrol.ReadCurrentErrorMsgRequest = New OPENcontrol.ReadCurrentErrorMsgRequest + inValue.ReadCurrentErrorMsg = ReadCurrentErrorMsg1 + Dim retVal As OPENcontrol.ReadCurrentErrorMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadCurrentErrorMsg(inValue) + Return retVal.ReadCurrentErrorMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadCurrentEmergMsg(ByVal request As OPENcontrol.ReadCurrentEmergMsgRequest) As OPENcontrol.ReadCurrentEmergMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadCurrentEmergMsg + Return MyBase.Channel.ReadCurrentEmergMsg(request) + End Function + + Public Function ReadCurrentEmergMsg(ByVal ReadCurrentEmergMsg1 As OPENcontrol.ReadCurrentEmergMsg) As OPENcontrol.ReadCurrentEmergMsgR + Dim inValue As OPENcontrol.ReadCurrentEmergMsgRequest = New OPENcontrol.ReadCurrentEmergMsgRequest + inValue.ReadCurrentEmergMsg = ReadCurrentEmergMsg1 + Dim retVal As OPENcontrol.ReadCurrentEmergMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadCurrentEmergMsg(inValue) + Return retVal.ReadCurrentEmergMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadCurrentAnomalyMsg(ByVal request As OPENcontrol.ReadCurrentAnomalyMsgRequest) As OPENcontrol.ReadCurrentAnomalyMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadCurrentAnomalyMsg + Return MyBase.Channel.ReadCurrentAnomalyMsg(request) + End Function + + Public Function ReadCurrentAnomalyMsg(ByVal ReadCurrentAnomalyMsg1 As OPENcontrol.ReadCurrentAnomalyMsg) As OPENcontrol.ReadCurrentAnomalyMsgR + Dim inValue As OPENcontrol.ReadCurrentAnomalyMsgRequest = New OPENcontrol.ReadCurrentAnomalyMsgRequest + inValue.ReadCurrentAnomalyMsg = ReadCurrentAnomalyMsg1 + Dim retVal As OPENcontrol.ReadCurrentAnomalyMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadCurrentAnomalyMsg(inValue) + Return retVal.ReadCurrentAnomalyMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetPTechSizes(ByVal request As OPENcontrol.GetPTechSizesRequest) As OPENcontrol.GetPTechSizesResponse Implements OPENcontrol.OPENcontrolPortType.GetPTechSizes + Return MyBase.Channel.GetPTechSizes(request) + End Function + + Public Function GetPTechSizes(ByVal GetPTechSizes1 As OPENcontrol.GetPTechSizes) As OPENcontrol.GetPTechSizesR + Dim inValue As OPENcontrol.GetPTechSizesRequest = New OPENcontrol.GetPTechSizesRequest + inValue.GetPTechSizes = GetPTechSizes1 + Dim retVal As OPENcontrol.GetPTechSizesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetPTechSizes(inValue) + Return retVal.GetPTechSizesR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LoadPTech(ByVal request As OPENcontrol.LoadPTechRequest) As OPENcontrol.LoadPTechResponse Implements OPENcontrol.OPENcontrolPortType.LoadPTech + Return MyBase.Channel.LoadPTech(request) + End Function + + Public Function LoadPTech(ByVal LoadPTech1 As OPENcontrol.LoadPTech) As OPENcontrol.LoadPTechR + Dim inValue As OPENcontrol.LoadPTechRequest = New OPENcontrol.LoadPTechRequest + inValue.LoadPTech = LoadPTech1 + Dim retVal As OPENcontrol.LoadPTechResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LoadPTech(inValue) + Return retVal.LoadPTechR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetMarkerInfo(ByVal request As OPENcontrol.GetMarkerInfoRequest) As OPENcontrol.GetMarkerInfoResponse Implements OPENcontrol.OPENcontrolPortType.GetMarkerInfo + Return MyBase.Channel.GetMarkerInfo(request) + End Function + + Public Function GetMarkerInfo(ByVal GetMarkerInfo1 As OPENcontrol.GetMarkerInfo) As OPENcontrol.GetMarkerInfoR + Dim inValue As OPENcontrol.GetMarkerInfoRequest = New OPENcontrol.GetMarkerInfoRequest + inValue.GetMarkerInfo = GetMarkerInfo1 + Dim retVal As OPENcontrol.GetMarkerInfoResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetMarkerInfo(inValue) + Return retVal.GetMarkerInfoR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ManagePartProgram(ByVal request As OPENcontrol.ManagePartProgramRequest) As OPENcontrol.ManagePartProgramResponse Implements OPENcontrol.OPENcontrolPortType.ManagePartProgram + Return MyBase.Channel.ManagePartProgram(request) + End Function + + Public Function ManagePartProgram(ByVal ManagePartProgram1 As OPENcontrol.ManagePartProgram) As OPENcontrol.ManagePartProgramR + Dim inValue As OPENcontrol.ManagePartProgramRequest = New OPENcontrol.ManagePartProgramRequest + inValue.ManagePartProgram = ManagePartProgram1 + Dim retVal As OPENcontrol.ManagePartProgramResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ManagePartProgram(inValue) + Return retVal.ManagePartProgramR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSOpenFile(ByVal request As OPENcontrol.LogFSOpenFileRequest) As OPENcontrol.LogFSOpenFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSOpenFile + Return MyBase.Channel.LogFSOpenFile(request) + End Function + + Public Function LogFSOpenFile(ByVal LogFSOpenFile1 As OPENcontrol.LogFSOpenFile) As OPENcontrol.LogFSOpenFileR + Dim inValue As OPENcontrol.LogFSOpenFileRequest = New OPENcontrol.LogFSOpenFileRequest + inValue.LogFSOpenFile = LogFSOpenFile1 + Dim retVal As OPENcontrol.LogFSOpenFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSOpenFile(inValue) + Return retVal.LogFSOpenFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSCloseFile(ByVal request As OPENcontrol.LogFSCloseFileRequest) As OPENcontrol.LogFSCloseFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCloseFile + Return MyBase.Channel.LogFSCloseFile(request) + End Function + + Public Function LogFSCloseFile(ByVal LogFSCloseFile1 As OPENcontrol.LogFSCloseFile) As OPENcontrol.LogFSCloseFileR + Dim inValue As OPENcontrol.LogFSCloseFileRequest = New OPENcontrol.LogFSCloseFileRequest + inValue.LogFSCloseFile = LogFSCloseFile1 + Dim retVal As OPENcontrol.LogFSCloseFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCloseFile(inValue) + Return retVal.LogFSCloseFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSWriteRecord(ByVal request As OPENcontrol.LogFSWriteRecordRequest) As OPENcontrol.LogFSWriteRecordResponse Implements OPENcontrol.OPENcontrolPortType.LogFSWriteRecord + Return MyBase.Channel.LogFSWriteRecord(request) + End Function + + Public Function LogFSWriteRecord(ByVal LogFSWriteRecord1 As OPENcontrol.LogFSWriteRecord) As OPENcontrol.LogFSWriteRecordR + Dim inValue As OPENcontrol.LogFSWriteRecordRequest = New OPENcontrol.LogFSWriteRecordRequest + inValue.LogFSWriteRecord = LogFSWriteRecord1 + Dim retVal As OPENcontrol.LogFSWriteRecordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSWriteRecord(inValue) + Return retVal.LogFSWriteRecordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSReadRecord(ByVal request As OPENcontrol.LogFSReadRecordRequest) As OPENcontrol.LogFSReadRecordResponse Implements OPENcontrol.OPENcontrolPortType.LogFSReadRecord + Return MyBase.Channel.LogFSReadRecord(request) + End Function + + Public Function LogFSReadRecord(ByVal LogFSReadRecord1 As OPENcontrol.LogFSReadRecord) As OPENcontrol.LogFSReadRecordR + Dim inValue As OPENcontrol.LogFSReadRecordRequest = New OPENcontrol.LogFSReadRecordRequest + inValue.LogFSReadRecord = LogFSReadRecord1 + Dim retVal As OPENcontrol.LogFSReadRecordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSReadRecord(inValue) + Return retVal.LogFSReadRecordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadRemapDefinitions(ByVal request As OPENcontrol.ReadRemapDefinitionsRequest) As OPENcontrol.ReadRemapDefinitionsResponse Implements OPENcontrol.OPENcontrolPortType.ReadRemapDefinitions + Return MyBase.Channel.ReadRemapDefinitions(request) + End Function + + Public Function ReadRemapDefinitions(ByVal ReadRemapDefinitions1 As OPENcontrol.ReadRemapDefinitions) As OPENcontrol.ReadRemapDefinitionsR + Dim inValue As OPENcontrol.ReadRemapDefinitionsRequest = New OPENcontrol.ReadRemapDefinitionsRequest + inValue.ReadRemapDefinitions = ReadRemapDefinitions1 + Dim retVal As OPENcontrol.ReadRemapDefinitionsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadRemapDefinitions(inValue) + Return retVal.ReadRemapDefinitionsR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_WriteRemapDefinitions(ByVal request As OPENcontrol.WriteRemapDefinitionsRequest) As OPENcontrol.WriteRemapDefinitionsResponse Implements OPENcontrol.OPENcontrolPortType.WriteRemapDefinitions + Return MyBase.Channel.WriteRemapDefinitions(request) + End Function + + Public Function WriteRemapDefinitions(ByVal WriteRemapDefinitions1 As OPENcontrol.WriteRemapDefinitions) As OPENcontrol.WriteRemapDefinitionsR + Dim inValue As OPENcontrol.WriteRemapDefinitionsRequest = New OPENcontrol.WriteRemapDefinitionsRequest + inValue.WriteRemapDefinitions = WriteRemapDefinitions1 + Dim retVal As OPENcontrol.WriteRemapDefinitionsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteRemapDefinitions(inValue) + Return retVal.WriteRemapDefinitionsR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetServoPar(ByVal request As OPENcontrol.GetServoParRequest) As OPENcontrol.GetServoParResponse Implements OPENcontrol.OPENcontrolPortType.GetServoPar + Return MyBase.Channel.GetServoPar(request) + End Function + + Public Function GetServoPar(ByVal GetServoPar1 As OPENcontrol.GetServoPar) As OPENcontrol.GetServoParR + Dim inValue As OPENcontrol.GetServoParRequest = New OPENcontrol.GetServoParRequest + inValue.GetServoPar = GetServoPar1 + Dim retVal As OPENcontrol.GetServoParResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetServoPar(inValue) + Return retVal.GetServoParR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetServoPar(ByVal request As OPENcontrol.SetServoParRequest) As OPENcontrol.SetServoParResponse Implements OPENcontrol.OPENcontrolPortType.SetServoPar + Return MyBase.Channel.SetServoPar(request) + End Function + + Public Function SetServoPar(ByVal SetServoPar1 As OPENcontrol.SetServoPar) As OPENcontrol.SetServoParR + Dim inValue As OPENcontrol.SetServoParRequest = New OPENcontrol.SetServoParRequest + inValue.SetServoPar = SetServoPar1 + Dim retVal As OPENcontrol.SetServoParResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetServoPar(inValue) + Return retVal.SetServoParR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetCNCRegKey(ByVal request As OPENcontrol.GetCNCRegKeyRequest) As OPENcontrol.GetCNCRegKeyResponse Implements OPENcontrol.OPENcontrolPortType.GetCNCRegKey + Return MyBase.Channel.GetCNCRegKey(request) + End Function + + Public Function GetCNCRegKey(ByVal GetCNCRegKey1 As OPENcontrol.GetCNCRegKey) As OPENcontrol.GetCNCRegKeyR + Dim inValue As OPENcontrol.GetCNCRegKeyRequest = New OPENcontrol.GetCNCRegKeyRequest + inValue.GetCNCRegKey = GetCNCRegKey1 + Dim retVal As OPENcontrol.GetCNCRegKeyResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetCNCRegKey(inValue) + Return retVal.GetCNCRegKeyR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetIpAddress(ByVal request As OPENcontrol.SetIpAddressRequest) As OPENcontrol.SetIpAddressResponse Implements OPENcontrol.OPENcontrolPortType.SetIpAddress + Return MyBase.Channel.SetIpAddress(request) + End Function + + Public Function SetIpAddress(ByVal SetIpAddress1 As OPENcontrol.SetIpAddress) As OPENcontrol.SetIpAddressR + Dim inValue As OPENcontrol.SetIpAddressRequest = New OPENcontrol.SetIpAddressRequest + inValue.SetIpAddress = SetIpAddress1 + Dim retVal As OPENcontrol.SetIpAddressResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetIpAddress(inValue) + Return retVal.SetIpAddressR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetProcInInput(ByVal request As OPENcontrol.GetProcInInputRequest) As OPENcontrol.GetProcInInputResponse Implements OPENcontrol.OPENcontrolPortType.GetProcInInput + Return MyBase.Channel.GetProcInInput(request) + End Function + + Public Function GetProcInInput(ByVal GetProcInInput1 As OPENcontrol.GetProcInInput) As OPENcontrol.GetProcInInputR + Dim inValue As OPENcontrol.GetProcInInputRequest = New OPENcontrol.GetProcInInputRequest + inValue.GetProcInInput = GetProcInInput1 + Dim retVal As OPENcontrol.GetProcInInputResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcInInput(inValue) + Return retVal.GetProcInInputR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SndProcInpData(ByVal request As OPENcontrol.SndProcInpDataRequest) As OPENcontrol.SndProcInpDataResponse Implements OPENcontrol.OPENcontrolPortType.SndProcInpData + Return MyBase.Channel.SndProcInpData(request) + End Function + + Public Function SndProcInpData(ByVal SndProcInpData1 As OPENcontrol.SndProcInpData) As OPENcontrol.SndProcInpDataR + Dim inValue As OPENcontrol.SndProcInpDataRequest = New OPENcontrol.SndProcInpDataRequest + inValue.SndProcInpData = SndProcInpData1 + Dim retVal As OPENcontrol.SndProcInpDataResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SndProcInpData(inValue) + Return retVal.SndProcInpDataR + End Function + End Class +End Namespace diff --git a/MaterialeSetup/OSAI/OPENcontrol/configuration.svcinfo b/MaterialeSetup/OSAI/OPENcontrol/configuration.svcinfo new file mode 100644 index 0000000..2d8c602 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/configuration.svcinfo @@ -0,0 +1,10 @@ + + + + + + + + + + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/OPENcontrol/configuration91.svcinfo b/MaterialeSetup/OSAI/OPENcontrol/configuration91.svcinfo new file mode 100644 index 0000000..3919c44 --- /dev/null +++ b/MaterialeSetup/OSAI/OPENcontrol/configuration91.svcinfo @@ -0,0 +1,195 @@ + + + + + + + OPENcontrol + + + 00:01:00 + + + 00:01:00 + + + 00:10:00 + + + 00:01:00 + + + False + + + False + + + StrongWildcard + + + 65536 + + + 524288 + + + 65536 + + + Text + + + + + + System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement + + + 32 + + + 8192 + + + 16384 + + + 4096 + + + 16384 + + + System.ServiceModel.Configuration.BasicHttpSecurityElement + + + None + + + System.ServiceModel.Configuration.HttpTransportSecurityElement + + + None + + + None + + + System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement + + + Never + + + TransportSelected + + + (Insieme) + + + + + + System.ServiceModel.Configuration.BasicHttpMessageSecurityElement + + + UserName + + + Basic256 + + + System.Text.UTF8Encoding + + + Buffered + + + True + + + + + + + + + http://192.168.20.2:8080 + + + + + + basicHttpBinding + + + OPENcontrol + + + OPENcontrol.OPENcontrolPortType + + + System.ServiceModel.Configuration.AddressHeaderCollectionElement + + + <Header /> + + + System.ServiceModel.Configuration.IdentityElement + + + System.ServiceModel.Configuration.UserPrincipalNameElement + + + + + + System.ServiceModel.Configuration.ServicePrincipalNameElement + + + + + + System.ServiceModel.Configuration.DnsElement + + + + + + System.ServiceModel.Configuration.RsaElement + + + + + + System.ServiceModel.Configuration.CertificateElement + + + + + + System.ServiceModel.Configuration.CertificateReferenceElement + + + My + + + LocalMachine + + + FindBySubjectDistinguishedName + + + + + + False + + + OPENcontrol + + + + + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/Reference.vb b/MaterialeSetup/OSAI/Reference.vb new file mode 100644 index 0000000..c1a429c --- /dev/null +++ b/MaterialeSetup/OSAI/Reference.vb @@ -0,0 +1,28838 @@ +'------------------------------------------------------------------------------ +' +' Il codice è stato generato da uno strumento. +' Versione runtime:2.0.50727.5477 +' +' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se +' il codice viene rigenerato. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace OPENcontrol + + _ + Public Interface OPENcontrolPortType + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootPhaseEnquiry non è RPC né incapsulata da documenti. + _ + Function BootPhaseEnquiry(ByVal request As OPENcontrol.BootPhaseEnquiryRequest) As OPENcontrol.BootPhaseEnquiryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootReboot non è RPC né incapsulata da documenti. + _ + Function BootReboot(ByVal request As OPENcontrol.BootRebootRequest) As OPENcontrol.BootRebootResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootShutDown non è RPC né incapsulata da documenti. + _ + Function BootShutDown(ByVal request As OPENcontrol.BootShutDownRequest) As OPENcontrol.BootShutDownResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootMode non è RPC né incapsulata da documenti. + _ + Function BootMode(ByVal request As OPENcontrol.BootModeRequest) As OPENcontrol.BootModeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetHWKey non è RPC né incapsulata da documenti. + _ + Function GetHWKey(ByVal request As OPENcontrol.GetHWKeyRequest) As OPENcontrol.GetHWKeyResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarWord non è RPC né incapsulata da documenti. + _ + Function ReadVarWord(ByVal request As OPENcontrol.ReadVarWordRequest) As OPENcontrol.ReadVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarDouble non è RPC né incapsulata da documenti. + _ + Function ReadVarDouble(ByVal request As OPENcontrol.ReadVarDoubleRequest) As OPENcontrol.ReadVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarWord non è RPC né incapsulata da documenti. + _ + Function WriteVarWord(ByVal request As OPENcontrol.WriteVarWordRequest) As OPENcontrol.WriteVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarWordBit non è RPC né incapsulata da documenti. + _ + Function WriteVarWordBit(ByVal request As OPENcontrol.WriteVarWordBitRequest) As OPENcontrol.WriteVarWordBitResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarDouble non è RPC né incapsulata da documenti. + _ + Function WriteVarDouble(ByVal request As OPENcontrol.WriteVarDoubleRequest) As OPENcontrol.WriteVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarText non è RPC né incapsulata da documenti. + _ + Function ReadVarText(ByVal request As OPENcontrol.ReadVarTextRequest) As OPENcontrol.ReadVarTextResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarText non è RPC né incapsulata da documenti. + _ + Function WriteVarText(ByVal request As OPENcontrol.WriteVarTextRequest) As OPENcontrol.WriteVarTextResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadWarningMsg non è RPC né incapsulata da documenti. + _ + Function ReadWarningMsg(ByVal request As OPENcontrol.ReadWarningMsgRequest) As OPENcontrol.ReadWarningMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ResetSingleTableII non è RPC né incapsulata da documenti. + _ + Function ResetSingleTableII(ByVal request As OPENcontrol.ResetSingleTableIIRequest) As OPENcontrol.ResetSingleTableIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LockTableII non è RPC né incapsulata da documenti. + _ + Function LockTableII(ByVal request As OPENcontrol.LockTableIIRequest) As OPENcontrol.LockTableIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione UnLockTableII non è RPC né incapsulata da documenti. + _ + Function UnLockTableII(ByVal request As OPENcontrol.UnLockTableIIRequest) As OPENcontrol.UnLockTableIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOriginTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetOriginTabRecordII(ByVal request As OPENcontrol.GetOriginTabRecordIIRequest) As OPENcontrol.GetOriginTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetOriginTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetOriginTabRecordII(ByVal request As OPENcontrol.SetOriginTabRecordIIRequest) As OPENcontrol.SetOriginTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetToolTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetToolTabRecordII(ByVal request As OPENcontrol.GetToolTabRecordIIRequest) As OPENcontrol.GetToolTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetToolTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetToolTabRecordII(ByVal request As OPENcontrol.SetToolTabRecordIIRequest) As OPENcontrol.SetToolTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOffsetTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetOffsetTabRecordII(ByVal request As OPENcontrol.GetOffsetTabRecordIIRequest) As OPENcontrol.GetOffsetTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetOffsetTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetOffsetTabRecordII(ByVal request As OPENcontrol.SetOffsetTabRecordIIRequest) As OPENcontrol.SetOffsetTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetUserTabRecordII non è RPC né incapsulata da documenti. + _ + Function GetUserTabRecordII(ByVal request As OPENcontrol.GetUserTabRecordIIRequest) As OPENcontrol.GetUserTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetUserTabRecordII non è RPC né incapsulata da documenti. + _ + Function SetUserTabRecordII(ByVal request As OPENcontrol.SetUserTabRecordIIRequest) As OPENcontrol.SetUserTabRecordIIResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveTables non è RPC né incapsulata da documenti. + _ + Function SaveTables(ByVal request As OPENcontrol.SaveTablesRequest) As OPENcontrol.SaveTablesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione RestoreSingleTable non è RPC né incapsulata da documenti. + _ + Function RestoreSingleTable(ByVal request As OPENcontrol.RestoreSingleTableRequest) As OPENcontrol.RestoreSingleTableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveSingleTable non è RPC né incapsulata da documenti. + _ + Function SaveSingleTable(ByVal request As OPENcontrol.SaveSingleTableRequest) As OPENcontrol.SaveSingleTableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveBackupMemory non è RPC né incapsulata da documenti. + _ + Function SaveBackupMemory(ByVal request As OPENcontrol.SaveBackupMemoryRequest) As OPENcontrol.SaveBackupMemoryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione RestoreBackupMemory non è RPC né incapsulata da documenti. + _ + Function RestoreBackupMemory(ByVal request As OPENcontrol.RestoreBackupMemoryRequest) As OPENcontrol.RestoreBackupMemoryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Cycle non è RPC né incapsulata da documenti. + _ + Function Cycle(ByVal request As OPENcontrol.CycleRequest) As OPENcontrol.CycleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SyncroCycle non è RPC né incapsulata da documenti. + _ + Function SyncroCycle(ByVal request As OPENcontrol.SyncroCycleRequest) As OPENcontrol.SyncroCycleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Reset non è RPC né incapsulata da documenti. + _ + Function Reset(ByVal request As OPENcontrol.ResetRequest) As OPENcontrol.ResetResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Hold non è RPC né incapsulata da documenti. + _ + Function Hold(ByVal request As OPENcontrol.HoldRequest) As OPENcontrol.HoldResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedManOver non è RPC né incapsulata da documenti. + _ + Function SetFeedManOver(ByVal request As OPENcontrol.SetFeedManOverRequest) As OPENcontrol.SetFeedManOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedRateOver non è RPC né incapsulata da documenti. + _ + Function SetFeedRateOver(ByVal request As OPENcontrol.SetFeedRateOverRequest) As OPENcontrol.SetFeedRateOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedRapidOver non è RPC né incapsulata da documenti. + _ + Function SetFeedRapidOver(ByVal request As OPENcontrol.SetFeedRapidOverRequest) As OPENcontrol.SetFeedRapidOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetSpeedRateOver non è RPC né incapsulata da documenti. + _ + Function SetSpeedRateOver(ByVal request As OPENcontrol.SetSpeedRateOverRequest) As OPENcontrol.SetSpeedRateOverResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetManMovDirection non è RPC né incapsulata da documenti. + _ + Function SetManMovDirection(ByVal request As OPENcontrol.SetManMovDirectionRequest) As OPENcontrol.SetManMovDirectionResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetVarJOG non è RPC né incapsulata da documenti. + _ + Function GetVarJOG(ByVal request As OPENcontrol.GetVarJOGRequest) As OPENcontrol.GetVarJOGResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarJOG non è RPC né incapsulata da documenti. + _ + Function SetVarJOG(ByVal request As OPENcontrol.SetVarJOGRequest) As OPENcontrol.SetVarJOGResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarUAS non è RPC né incapsulata da documenti. + _ + Function SetVarUAS(ByVal request As OPENcontrol.SetVarUASRequest) As OPENcontrol.SetVarUASResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetVarRCM non è RPC né incapsulata da documenti. + _ + Function GetVarRCM(ByVal request As OPENcontrol.GetVarRCMRequest) As OPENcontrol.GetVarRCMResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarRCM non è RPC né incapsulata da documenti. + _ + Function SetVarRCM(ByVal request As OPENcontrol.SetVarRCMRequest) As OPENcontrol.SetVarRCMResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcVarWord non è RPC né incapsulata da documenti. + _ + Function GetProcVarWord(ByVal request As OPENcontrol.GetProcVarWordRequest) As OPENcontrol.GetProcVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcVarWord non è RPC né incapsulata da documenti. + _ + Function SetProcVarWord(ByVal request As OPENcontrol.SetProcVarWordRequest) As OPENcontrol.SetProcVarWordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcVarDouble non è RPC né incapsulata da documenti. + _ + Function GetProcVarDouble(ByVal request As OPENcontrol.GetProcVarDoubleRequest) As OPENcontrol.GetProcVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcVarDouble non è RPC né incapsulata da documenti. + _ + Function SetProcVarDouble(ByVal request As OPENcontrol.SetProcVarDoubleRequest) As OPENcontrol.SetProcVarDoubleResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetMdiString non è RPC né incapsulata da documenti. + _ + Function SetMdiString(ByVal request As OPENcontrol.SetMdiStringRequest) As OPENcontrol.SetMdiStringResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcessMode non è RPC né incapsulata da documenti. + _ + Function SetProcessMode(ByVal request As OPENcontrol.SetProcessModeRequest) As OPENcontrol.SetProcessModeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectProcess non è RPC né incapsulata da documenti. + _ + Function SelectProcess(ByVal request As OPENcontrol.SelectProcessRequest) As OPENcontrol.SelectProcessResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSelectedProcess non è RPC né incapsulata da documenti. + _ + Function GetSelectedProcess(ByVal request As OPENcontrol.GetSelectedProcessRequest) As OPENcontrol.GetSelectedProcessResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectProcAxis non è RPC né incapsulata da documenti. + _ + Function SelectProcAxis(ByVal request As OPENcontrol.SelectProcAxisRequest) As OPENcontrol.SelectProcAxisResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectPartProgram non è RPC né incapsulata da documenti. + _ + Function SelectPartProgram(ByVal request As OPENcontrol.SelectPartProgramRequest) As OPENcontrol.SelectPartProgramResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectPartProgramFromDrive non è RPC né incapsulata da documenti. + _ + Function SelectPartProgramFromDrive(ByVal request As OPENcontrol.SelectPartProgramFromDriveRequest) As OPENcontrol.SelectPartProgramFromDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetActivePartProgram non è RPC né incapsulata da documenti. + _ + Function GetActivePartProgram(ByVal request As OPENcontrol.GetActivePartProgramRequest) As OPENcontrol.GetActivePartProgramResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetPartProgramLines non è RPC né incapsulata da documenti. + _ + Function GetPartProgramLines(ByVal request As OPENcontrol.GetPartProgramLinesRequest) As OPENcontrol.GetPartProgramLinesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxOriginNum non è RPC né incapsulata da documenti. + _ + Function GetAxOriginNum(ByVal request As OPENcontrol.GetAxOriginNumRequest) As OPENcontrol.GetAxOriginNumResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxesPosition non è RPC né incapsulata da documenti. + _ + Function GetAxesPosition(ByVal request As OPENcontrol.GetAxesPositionRequest) As OPENcontrol.GetAxesPositionResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetNcInfo1 non è RPC né incapsulata da documenti. + _ + Function GetNcInfo1(ByVal request As OPENcontrol.GetNcInfo1Request) As OPENcontrol.GetNcInfo1Response + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetNcInfo2 non è RPC né incapsulata da documenti. + _ + Function GetNcInfo2(ByVal request As OPENcontrol.GetNcInfo2Request) As OPENcontrol.GetNcInfo2Response + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetToolNames non è RPC né incapsulata da documenti. + _ + Function GetToolNames(ByVal request As OPENcontrol.GetToolNamesRequest) As OPENcontrol.GetToolNamesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcessStatus non è RPC né incapsulata da documenti. + _ + Function GetProcessStatus(ByVal request As OPENcontrol.GetProcessStatusRequest) As OPENcontrol.GetProcessStatusResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetBlkNum non è RPC né incapsulata da documenti. + _ + Function GetBlkNum(ByVal request As OPENcontrol.GetBlkNumRequest) As OPENcontrol.GetBlkNumResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadErrMsg non è RPC né incapsulata da documenti. + _ + Function ReadErrMsg(ByVal request As OPENcontrol.ReadErrMsgRequest) As OPENcontrol.ReadErrMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadPartProgramMsg non è RPC né incapsulata da documenti. + _ + Function ReadPartProgramMsg(ByVal request As OPENcontrol.ReadPartProgramMsgRequest) As OPENcontrol.ReadPartProgramMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetGCode non è RPC né incapsulata da documenti. + _ + Function GetGCode(ByVal request As OPENcontrol.GetGCodeRequest) As OPENcontrol.GetGCodeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetMCode non è RPC né incapsulata da documenti. + _ + Function GetMCode(ByVal request As OPENcontrol.GetMCodeRequest) As OPENcontrol.GetMCodeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SkipPProgBlock non è RPC né incapsulata da documenti. + _ + Function SkipPProgBlock(ByVal request As OPENcontrol.SkipPProgBlockRequest) As OPENcontrol.SkipPProgBlockResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Ese non è RPC né incapsulata da documenti. + _ + Function Ese(ByVal request As OPENcontrol.EseRequest) As OPENcontrol.EseResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione EseEx non è RPC né incapsulata da documenti. + _ + Function EseEx(ByVal request As OPENcontrol.EseExRequest) As OPENcontrol.EseExResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Exe non è RPC né incapsulata da documenti. + _ + Function Exe(ByVal request As OPENcontrol.ExeRequest) As OPENcontrol.ExeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione AxesRef non è RPC né incapsulata da documenti. + _ + Function AxesRef(ByVal request As OPENcontrol.AxesRefRequest) As OPENcontrol.AxesRefResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncInit non è RPC né incapsulata da documenti. + _ + Function DncInit(ByVal request As OPENcontrol.DncInitRequest) As OPENcontrol.DncInitResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncData non è RPC né incapsulata da documenti. + _ + Function DncData(ByVal request As OPENcontrol.DncDataRequest) As OPENcontrol.DncDataResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncEof non è RPC né incapsulata da documenti. + _ + Function DncEof(ByVal request As OPENcontrol.DncEofRequest) As OPENcontrol.DncEofResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncStop non è RPC né incapsulata da documenti. + _ + Function DncStop(ByVal request As OPENcontrol.DncStopRequest) As OPENcontrol.DncStopResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxesInfo3 non è RPC né incapsulata da documenti. + _ + Function GetAxesInfo3(ByVal request As OPENcontrol.GetAxesInfo3Request) As OPENcontrol.GetAxesInfo3Response + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetCodeNumber non è RPC né incapsulata da documenti. + _ + Function GetCodeNumber(ByVal request As OPENcontrol.GetCodeNumberRequest) As OPENcontrol.GetCodeNumberResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOptions non è RPC né incapsulata da documenti. + _ + Function GetOptions(ByVal request As OPENcontrol.GetOptionsRequest) As OPENcontrol.GetOptionsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetDateTime non è RPC né incapsulata da documenti. + _ + Function GetDateTime(ByVal request As OPENcontrol.GetDateTimeRequest) As OPENcontrol.GetDateTimeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetDateTime non è RPC né incapsulata da documenti. + _ + Function SetDateTime(ByVal request As OPENcontrol.SetDateTimeRequest) As OPENcontrol.SetDateTimeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSerialNumber non è RPC né incapsulata da documenti. + _ + Function GetSerialNumber(ByVal request As OPENcontrol.GetSerialNumberRequest) As OPENcontrol.GetSerialNumberResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione PutFile non è RPC né incapsulata da documenti. + _ + Function PutFile(ByVal request As OPENcontrol.PutFileRequest) As OPENcontrol.PutFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetFile non è RPC né incapsulata da documenti. + _ + Function GetFile(ByVal request As OPENcontrol.GetFileRequest) As OPENcontrol.GetFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione PutBinaryFile non è RPC né incapsulata da documenti. + _ + Function PutBinaryFile(ByVal request As OPENcontrol.PutBinaryFileRequest) As OPENcontrol.PutBinaryFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetBinaryFile non è RPC né incapsulata da documenti. + _ + Function GetBinaryFile(ByVal request As OPENcontrol.GetBinaryFileRequest) As OPENcontrol.GetBinaryFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSSetSecurityLevel non è RPC né incapsulata da documenti. + _ + Function LogFSSetSecurityLevel(ByVal request As OPENcontrol.LogFSSetSecurityLevelRequest) As OPENcontrol.LogFSSetSecurityLevelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetSecurityLevel non è RPC né incapsulata da documenti. + _ + Function LogFSGetSecurityLevel(ByVal request As OPENcontrol.LogFSGetSecurityLevelRequest) As OPENcontrol.LogFSGetSecurityLevelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSLongFileNames non è RPC né incapsulata da documenti. + _ + Function LogFSLongFileNames(ByVal request As OPENcontrol.LogFSLongFileNamesRequest) As OPENcontrol.LogFSLongFileNamesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetNumDrive non è RPC né incapsulata da documenti. + _ + Function LogFSGetNumDrive(ByVal request As OPENcontrol.LogFSGetNumDriveRequest) As OPENcontrol.LogFSGetNumDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetDriveList non è RPC né incapsulata da documenti. + _ + Function LogFSGetDriveList(ByVal request As OPENcontrol.LogFSGetDriveListRequest) As OPENcontrol.LogFSGetDriveListResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetHiddenDriveList non è RPC né incapsulata da documenti. + _ + Function LogFSGetHiddenDriveList(ByVal request As OPENcontrol.LogFSGetHiddenDriveListRequest) As OPENcontrol.LogFSGetHiddenDriveListResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetDrivePath non è RPC né incapsulata da documenti. + _ + Function LogFSGetDrivePath(ByVal request As OPENcontrol.LogFSGetDrivePathRequest) As OPENcontrol.LogFSGetDrivePathResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSAddDrive non è RPC né incapsulata da documenti. + _ + Function LogFSAddDrive(ByVal request As OPENcontrol.LogFSAddDriveRequest) As OPENcontrol.LogFSAddDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveDrive non è RPC né incapsulata da documenti. + _ + Function LogFSRemoveDrive(ByVal request As OPENcontrol.LogFSRemoveDriveRequest) As OPENcontrol.LogFSRemoveDriveResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSReloadDriveList non è RPC né incapsulata da documenti. + _ + Function LogFSReloadDriveList(ByVal request As OPENcontrol.LogFSReloadDriveListRequest) As OPENcontrol.LogFSReloadDriveListResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCreateDir non è RPC né incapsulata da documenti. + _ + Function LogFSCreateDir(ByVal request As OPENcontrol.LogFSCreateDirRequest) As OPENcontrol.LogFSCreateDirResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCreateFile non è RPC né incapsulata da documenti. + _ + Function LogFSCreateFile(ByVal request As OPENcontrol.LogFSCreateFileRequest) As OPENcontrol.LogFSCreateFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetFileSize non è RPC né incapsulata da documenti. + _ + Function LogFSGetFileSize(ByVal request As OPENcontrol.LogFSGetFileSizeRequest) As OPENcontrol.LogFSGetFileSizeResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetFileAttrib non è RPC né incapsulata da documenti. + _ + Function LogFSGetFileAttrib(ByVal request As OPENcontrol.LogFSGetFileAttribRequest) As OPENcontrol.LogFSGetFileAttribResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSSetFileAttrib non è RPC né incapsulata da documenti. + _ + Function LogFSSetFileAttrib(ByVal request As OPENcontrol.LogFSSetFileAttribRequest) As OPENcontrol.LogFSSetFileAttribResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSChangeFileAttrib non è RPC né incapsulata da documenti. + _ + Function LogFSChangeFileAttrib(ByVal request As OPENcontrol.LogFSChangeFileAttribRequest) As OPENcontrol.LogFSChangeFileAttribResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindFirst non è RPC né incapsulata da documenti. + _ + Function LogFSFindFirst(ByVal request As OPENcontrol.LogFSFindFirstRequest) As OPENcontrol.LogFSFindFirstResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindNext non è RPC né incapsulata da documenti. + _ + Function LogFSFindNext(ByVal request As OPENcontrol.LogFSFindNextRequest) As OPENcontrol.LogFSFindNextResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindClose non è RPC né incapsulata da documenti. + _ + Function LogFSFindClose(ByVal request As OPENcontrol.LogFSFindCloseRequest) As OPENcontrol.LogFSFindCloseResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveFile non è RPC né incapsulata da documenti. + _ + Function LogFSRemoveFile(ByVal request As OPENcontrol.LogFSRemoveFileRequest) As OPENcontrol.LogFSRemoveFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveDir non è RPC né incapsulata da documenti. + _ + Function LogFSRemoveDir(ByVal request As OPENcontrol.LogFSRemoveDirRequest) As OPENcontrol.LogFSRemoveDirResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRename non è RPC né incapsulata da documenti. + _ + Function LogFSRename(ByVal request As OPENcontrol.LogFSRenameRequest) As OPENcontrol.LogFSRenameResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCopyFile non è RPC né incapsulata da documenti. + _ + Function LogFSCopyFile(ByVal request As OPENcontrol.LogFSCopyFileRequest) As OPENcontrol.LogFSCopyFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetInfo non è RPC né incapsulata da documenti. + _ + Function LogFSGetInfo(ByVal request As OPENcontrol.LogFSGetInfoRequest) As OPENcontrol.LogFSGetInfoResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAvailableCustomEvents non è RPC né incapsulata da documenti. + _ + Function GetAvailableCustomEvents(ByVal request As OPENcontrol.GetAvailableCustomEventsRequest) As OPENcontrol.GetAvailableCustomEventsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSysTick non è RPC né incapsulata da documenti. + _ + Function GetSysTick(ByVal request As OPENcontrol.GetSysTickRequest) As OPENcontrol.GetSysTickResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcessConfNum non è RPC né incapsulata da documenti. + _ + Function GetProcessConfNum(ByVal request As OPENcontrol.GetProcessConfNumRequest) As OPENcontrol.GetProcessConfNumResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonOpenChannel non è RPC né incapsulata da documenti. + _ + Function MonOpenChannel(ByVal request As OPENcontrol.MonOpenChannelRequest) As OPENcontrol.MonOpenChannelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonCloseChannel non è RPC né incapsulata da documenti. + _ + Function MonCloseChannel(ByVal request As OPENcontrol.MonCloseChannelRequest) As OPENcontrol.MonCloseChannelResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonAddVariable non è RPC né incapsulata da documenti. + _ + Function MonAddVariable(ByVal request As OPENcontrol.MonAddVariableRequest) As OPENcontrol.MonAddVariableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonDeleteVariable non è RPC né incapsulata da documenti. + _ + Function MonDeleteVariable(ByVal request As OPENcontrol.MonDeleteVariableRequest) As OPENcontrol.MonDeleteVariableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonStartSampling non è RPC né incapsulata da documenti. + _ + Function MonStartSampling(ByVal request As OPENcontrol.MonStartSamplingRequest) As OPENcontrol.MonStartSamplingResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonStopSampling non è RPC né incapsulata da documenti. + _ + Function MonStopSampling(ByVal request As OPENcontrol.MonStopSamplingRequest) As OPENcontrol.MonStopSamplingResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonGetVariable non è RPC né incapsulata da documenti. + _ + Function MonGetVariable(ByVal request As OPENcontrol.MonGetVariableRequest) As OPENcontrol.MonGetVariableResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione CheckHistory non è RPC né incapsulata da documenti. + _ + Function CheckHistory(ByVal request As OPENcontrol.CheckHistoryRequest) As OPENcontrol.CheckHistoryResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryEmergMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryEmergMsg(ByVal request As OPENcontrol.ReadHistoryEmergMsgRequest) As OPENcontrol.ReadHistoryEmergMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryErrorMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryErrorMsg(ByVal request As OPENcontrol.ReadHistoryErrorMsgRequest) As OPENcontrol.ReadHistoryErrorMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryLogMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryLogMsg(ByVal request As OPENcontrol.ReadHistoryLogMsgRequest) As OPENcontrol.ReadHistoryLogMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryAnomalyMsg non è RPC né incapsulata da documenti. + _ + Function ReadHistoryAnomalyMsg(ByVal request As OPENcontrol.ReadHistoryAnomalyMsgRequest) As OPENcontrol.ReadHistoryAnomalyMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentErrorMsg non è RPC né incapsulata da documenti. + _ + Function ReadCurrentErrorMsg(ByVal request As OPENcontrol.ReadCurrentErrorMsgRequest) As OPENcontrol.ReadCurrentErrorMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentEmergMsg non è RPC né incapsulata da documenti. + _ + Function ReadCurrentEmergMsg(ByVal request As OPENcontrol.ReadCurrentEmergMsgRequest) As OPENcontrol.ReadCurrentEmergMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentAnomalyMsg non è RPC né incapsulata da documenti. + _ + Function ReadCurrentAnomalyMsg(ByVal request As OPENcontrol.ReadCurrentAnomalyMsgRequest) As OPENcontrol.ReadCurrentAnomalyMsgResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetPTechSizes non è RPC né incapsulata da documenti. + _ + Function GetPTechSizes(ByVal request As OPENcontrol.GetPTechSizesRequest) As OPENcontrol.GetPTechSizesResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LoadPTech non è RPC né incapsulata da documenti. + _ + Function LoadPTech(ByVal request As OPENcontrol.LoadPTechRequest) As OPENcontrol.LoadPTechResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetMarkerInfo non è RPC né incapsulata da documenti. + _ + Function GetMarkerInfo(ByVal request As OPENcontrol.GetMarkerInfoRequest) As OPENcontrol.GetMarkerInfoResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ManagePartProgram non è RPC né incapsulata da documenti. + _ + Function ManagePartProgram(ByVal request As OPENcontrol.ManagePartProgramRequest) As OPENcontrol.ManagePartProgramResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSOpenFile non è RPC né incapsulata da documenti. + _ + Function LogFSOpenFile(ByVal request As OPENcontrol.LogFSOpenFileRequest) As OPENcontrol.LogFSOpenFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCloseFile non è RPC né incapsulata da documenti. + _ + Function LogFSCloseFile(ByVal request As OPENcontrol.LogFSCloseFileRequest) As OPENcontrol.LogFSCloseFileResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSWriteRecord non è RPC né incapsulata da documenti. + _ + Function LogFSWriteRecord(ByVal request As OPENcontrol.LogFSWriteRecordRequest) As OPENcontrol.LogFSWriteRecordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSReadRecord non è RPC né incapsulata da documenti. + _ + Function LogFSReadRecord(ByVal request As OPENcontrol.LogFSReadRecordRequest) As OPENcontrol.LogFSReadRecordResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadRemapDefinitions non è RPC né incapsulata da documenti. + _ + Function ReadRemapDefinitions(ByVal request As OPENcontrol.ReadRemapDefinitionsRequest) As OPENcontrol.ReadRemapDefinitionsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteRemapDefinitions non è RPC né incapsulata da documenti. + _ + Function WriteRemapDefinitions(ByVal request As OPENcontrol.WriteRemapDefinitionsRequest) As OPENcontrol.WriteRemapDefinitionsResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetServoPar non è RPC né incapsulata da documenti. + _ + Function GetServoPar(ByVal request As OPENcontrol.GetServoParRequest) As OPENcontrol.GetServoParResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetServoPar non è RPC né incapsulata da documenti. + _ + Function SetServoPar(ByVal request As OPENcontrol.SetServoParRequest) As OPENcontrol.SetServoParResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetCNCRegKey non è RPC né incapsulata da documenti. + _ + Function GetCNCRegKey(ByVal request As OPENcontrol.GetCNCRegKeyRequest) As OPENcontrol.GetCNCRegKeyResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetIpAddress non è RPC né incapsulata da documenti. + _ + Function SetIpAddress(ByVal request As OPENcontrol.SetIpAddressRequest) As OPENcontrol.SetIpAddressResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcInInput non è RPC né incapsulata da documenti. + _ + Function GetProcInInput(ByVal request As OPENcontrol.GetProcInInputRequest) As OPENcontrol.GetProcInInputResponse + + 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SndProcInpData non è RPC né incapsulata da documenti. + _ + Function SndProcInpData(ByVal request As OPENcontrol.SndProcInpDataRequest) As OPENcontrol.SndProcInpDataResponse + End Interface + + ''' + _ + Partial Public Class BootPhaseEnquiry + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFRAME + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private rowField As UShort + + Private colField As UShort + + Private lenField As UShort + + Private textField() As Byte + + ''' + _ + Public Property row() As UShort + Get + Return Me.rowField + End Get + Set + Me.rowField = value + Me.RaisePropertyChanged("row") + End Set + End Property + + ''' + _ + Public Property col() As UShort + Get + Return Me.colField + End Get + Set + Me.colField = value + Me.RaisePropertyChanged("col") + End Set + End Property + + ''' + _ + Public Property len() As UShort + Get + Return Me.lenField + End Get + Set + Me.lenField = value + Me.RaisePropertyChanged("len") + End Set + End Property + + ''' + _ + Public Property text() As Byte() + Get + Return Me.textField + End Get + Set + Me.textField = value + Me.RaisePropertyChanged("text") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFIELDCONTROL + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private strmatchField() As Byte + + Private rangebyteField() As Byte + + Private rangeintField() As Short + + Private rangelongField() As Long + + Private rangeuintField() As UShort + + Private rangeulongField() As ULong + + Private rangefloatField() As Double + + Private rangedoubleField() As Double + + ''' + _ + Public Property strmatch() As Byte() + Get + Return Me.strmatchField + End Get + Set + Me.strmatchField = value + Me.RaisePropertyChanged("strmatch") + End Set + End Property + + ''' + _ + Public Property rangebyte() As Byte() + Get + Return Me.rangebyteField + End Get + Set + Me.rangebyteField = value + Me.RaisePropertyChanged("rangebyte") + End Set + End Property + + ''' + _ + Public Property rangeint() As Short() + Get + Return Me.rangeintField + End Get + Set + Me.rangeintField = value + Me.RaisePropertyChanged("rangeint") + End Set + End Property + + ''' + _ + Public Property rangelong() As Long() + Get + Return Me.rangelongField + End Get + Set + Me.rangelongField = value + Me.RaisePropertyChanged("rangelong") + End Set + End Property + + ''' + _ + Public Property rangeuint() As UShort() + Get + Return Me.rangeuintField + End Get + Set + Me.rangeuintField = value + Me.RaisePropertyChanged("rangeuint") + End Set + End Property + + ''' + _ + Public Property rangeulong() As ULong() + Get + Return Me.rangeulongField + End Get + Set + Me.rangeulongField = value + Me.RaisePropertyChanged("rangeulong") + End Set + End Property + + ''' + _ + Public Property rangefloat() As Double() + Get + Return Me.rangefloatField + End Get + Set + Me.rangefloatField = value + Me.RaisePropertyChanged("rangefloat") + End Set + End Property + + ''' + _ + Public Property rangedouble() As Double() + Get + Return Me.rangedoubleField + End Get + Set + Me.rangedoubleField = value + Me.RaisePropertyChanged("rangedouble") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFIELDCHECK + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private convField As Byte + + Private valueField As DEFIELDCONTROL + + ''' + _ + Public Property conv() As Byte + Get + Return Me.convField + End Get + Set + Me.convField = value + Me.RaisePropertyChanged("conv") + End Set + End Property + + ''' + _ + Public Property value() As DEFIELDCONTROL + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEFIELD + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private rowField As UShort + + Private colField As UShort + + Private typeField As Byte + + Private myIdField As Byte + + Private sizeField As UShort + + Private disSizeField As UShort + + Private checkField As DEFIELDCHECK + + ''' + _ + Public Property row() As UShort + Get + Return Me.rowField + End Get + Set + Me.rowField = value + Me.RaisePropertyChanged("row") + End Set + End Property + + ''' + _ + Public Property col() As UShort + Get + Return Me.colField + End Get + Set + Me.colField = value + Me.RaisePropertyChanged("col") + End Set + End Property + + ''' + _ + Public Property type() As Byte + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("type") + End Set + End Property + + ''' + _ + Public Property myId() As Byte + Get + Return Me.myIdField + End Get + Set + Me.myIdField = value + Me.RaisePropertyChanged("myId") + End Set + End Property + + ''' + _ + Public Property size() As UShort + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("size") + End Set + End Property + + ''' + _ + Public Property disSize() As UShort + Get + Return Me.disSizeField + End Get + Set + Me.disSizeField = value + Me.RaisePropertyChanged("disSize") + End Set + End Property + + ''' + _ + Public Property check() As DEFIELDCHECK + Get + Return Me.checkField + End Get + Set + Me.checkField = value + Me.RaisePropertyChanged("check") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DEKEY + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private abortField() As Byte + + Private confirm1Field() As Byte + + Private confirm2Field() As Byte + + Private confirm3Field() As Byte + + Private resetField() As Byte + + Private incresField() As Byte + + ''' + _ + Public Property abort() As Byte() + Get + Return Me.abortField + End Get + Set + Me.abortField = value + Me.RaisePropertyChanged("abort") + End Set + End Property + + ''' + _ + Public Property confirm1() As Byte() + Get + Return Me.confirm1Field + End Get + Set + Me.confirm1Field = value + Me.RaisePropertyChanged("confirm1") + End Set + End Property + + ''' + _ + Public Property confirm2() As Byte() + Get + Return Me.confirm2Field + End Get + Set + Me.confirm2Field = value + Me.RaisePropertyChanged("confirm2") + End Set + End Property + + ''' + _ + Public Property confirm3() As Byte() + Get + Return Me.confirm3Field + End Get + Set + Me.confirm3Field = value + Me.RaisePropertyChanged("confirm3") + End Set + End Property + + ''' + _ + Public Property reset() As Byte() + Get + Return Me.resetField + End Get + Set + Me.resetField = value + Me.RaisePropertyChanged("reset") + End Set + End Property + + ''' + _ + Public Property incres() As Byte() + Get + Return Me.incresField + End Get + Set + Me.incresField = value + Me.RaisePropertyChanged("incres") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class USERINPTAB + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private myIdField As Short + + Private iniRowField As Byte + + Private iniColField As Byte + + Private totRowField As Byte + + Private totColField As Byte + + Private myTypeField As Byte + + Private helpField() As Byte + + Private totFrameField As Byte + + Private totFieldField As Byte + + Private keyField As DEKEY + + Private fldField() As DEFIELD + + Private frmField() As DEFRAME + + Private strDef1Field() As Byte + + Private strDef2Field() As Byte + + Private strDef3Field() As Byte + + Private strDef4Field() As Byte + + Private strDef5Field() As Byte + + Private strDef6Field() As Byte + + Private strDef7Field() As Byte + + Private strDef8Field() As Byte + + Private decolorField() As ULong + + ''' + _ + Public Property myId() As Short + Get + Return Me.myIdField + End Get + Set + Me.myIdField = value + Me.RaisePropertyChanged("myId") + End Set + End Property + + ''' + _ + Public Property iniRow() As Byte + Get + Return Me.iniRowField + End Get + Set + Me.iniRowField = value + Me.RaisePropertyChanged("iniRow") + End Set + End Property + + ''' + _ + Public Property iniCol() As Byte + Get + Return Me.iniColField + End Get + Set + Me.iniColField = value + Me.RaisePropertyChanged("iniCol") + End Set + End Property + + ''' + _ + Public Property totRow() As Byte + Get + Return Me.totRowField + End Get + Set + Me.totRowField = value + Me.RaisePropertyChanged("totRow") + End Set + End Property + + ''' + _ + Public Property totCol() As Byte + Get + Return Me.totColField + End Get + Set + Me.totColField = value + Me.RaisePropertyChanged("totCol") + End Set + End Property + + ''' + _ + Public Property myType() As Byte + Get + Return Me.myTypeField + End Get + Set + Me.myTypeField = value + Me.RaisePropertyChanged("myType") + End Set + End Property + + ''' + _ + Public Property help() As Byte() + Get + Return Me.helpField + End Get + Set + Me.helpField = value + Me.RaisePropertyChanged("help") + End Set + End Property + + ''' + _ + Public Property totFrame() As Byte + Get + Return Me.totFrameField + End Get + Set + Me.totFrameField = value + Me.RaisePropertyChanged("totFrame") + End Set + End Property + + ''' + _ + Public Property totField() As Byte + Get + Return Me.totFieldField + End Get + Set + Me.totFieldField = value + Me.RaisePropertyChanged("totField") + End Set + End Property + + ''' + _ + Public Property key() As DEKEY + Get + Return Me.keyField + End Get + Set + Me.keyField = value + Me.RaisePropertyChanged("key") + End Set + End Property + + ''' + _ + Public Property fld() As DEFIELD() + Get + Return Me.fldField + End Get + Set + Me.fldField = value + Me.RaisePropertyChanged("fld") + End Set + End Property + + ''' + _ + Public Property frm() As DEFRAME() + Get + Return Me.frmField + End Get + Set + Me.frmField = value + Me.RaisePropertyChanged("frm") + End Set + End Property + + ''' + _ + Public Property strDef1() As Byte() + Get + Return Me.strDef1Field + End Get + Set + Me.strDef1Field = value + Me.RaisePropertyChanged("strDef1") + End Set + End Property + + ''' + _ + Public Property strDef2() As Byte() + Get + Return Me.strDef2Field + End Get + Set + Me.strDef2Field = value + Me.RaisePropertyChanged("strDef2") + End Set + End Property + + ''' + _ + Public Property strDef3() As Byte() + Get + Return Me.strDef3Field + End Get + Set + Me.strDef3Field = value + Me.RaisePropertyChanged("strDef3") + End Set + End Property + + ''' + _ + Public Property strDef4() As Byte() + Get + Return Me.strDef4Field + End Get + Set + Me.strDef4Field = value + Me.RaisePropertyChanged("strDef4") + End Set + End Property + + ''' + _ + Public Property strDef5() As Byte() + Get + Return Me.strDef5Field + End Get + Set + Me.strDef5Field = value + Me.RaisePropertyChanged("strDef5") + End Set + End Property + + ''' + _ + Public Property strDef6() As Byte() + Get + Return Me.strDef6Field + End Get + Set + Me.strDef6Field = value + Me.RaisePropertyChanged("strDef6") + End Set + End Property + + ''' + _ + Public Property strDef7() As Byte() + Get + Return Me.strDef7Field + End Get + Set + Me.strDef7Field = value + Me.RaisePropertyChanged("strDef7") + End Set + End Property + + ''' + _ + Public Property strDef8() As Byte() + Get + Return Me.strDef8Field + End Get + Set + Me.strDef8Field = value + Me.RaisePropertyChanged("strDef8") + End Set + End Property + + ''' + _ + Public Property decolor() As ULong() + Get + Return Me.decolorField + End Get + Set + Me.decolorField = value + Me.RaisePropertyChanged("decolor") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class INPUTINFO + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private isInInputField As Byte + + Private dataField As USERINPTAB + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property isInInput() As Byte + Get + Return Me.isInInputField + End Get + Set + Me.isInInputField = value + Me.RaisePropertyChanged("isInInput") + End Set + End Property + + ''' + _ + Public Property Data() As USERINPTAB + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class REMAPDEF + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private varTypeField As Byte + + Private physAddrField As UShort + + Private physBitField As Byte + + Private logicAddrField As UShort + + Private logicBitField As Byte + + Private modeField As Byte + + Private riseTimeField As UInteger + + Private fallTimeField As UInteger + + Private valueField As UInteger + + Private iOMsgIdField As UInteger + + Private iOClassField As Byte + + Private currPhysValueField As UInteger + + Private currLogicValueField As UInteger + + ''' + _ + Public Property VarType() As Byte + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + ''' + _ + Public Property PhysAddr() As UShort + Get + Return Me.physAddrField + End Get + Set + Me.physAddrField = value + Me.RaisePropertyChanged("PhysAddr") + End Set + End Property + + ''' + _ + Public Property PhysBit() As Byte + Get + Return Me.physBitField + End Get + Set + Me.physBitField = value + Me.RaisePropertyChanged("PhysBit") + End Set + End Property + + ''' + _ + Public Property LogicAddr() As UShort + Get + Return Me.logicAddrField + End Get + Set + Me.logicAddrField = value + Me.RaisePropertyChanged("LogicAddr") + End Set + End Property + + ''' + _ + Public Property LogicBit() As Byte + Get + Return Me.logicBitField + End Get + Set + Me.logicBitField = value + Me.RaisePropertyChanged("LogicBit") + End Set + End Property + + ''' + _ + Public Property Mode() As Byte + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property RiseTime() As UInteger + Get + Return Me.riseTimeField + End Get + Set + Me.riseTimeField = value + Me.RaisePropertyChanged("RiseTime") + End Set + End Property + + ''' + _ + Public Property FallTime() As UInteger + Get + Return Me.fallTimeField + End Get + Set + Me.fallTimeField = value + Me.RaisePropertyChanged("FallTime") + End Set + End Property + + ''' + _ + Public Property Value() As UInteger + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property IOMsgId() As UInteger + Get + Return Me.iOMsgIdField + End Get + Set + Me.iOMsgIdField = value + Me.RaisePropertyChanged("IOMsgId") + End Set + End Property + + ''' + _ + Public Property IOClass() As Byte + Get + Return Me.iOClassField + End Get + Set + Me.iOClassField = value + Me.RaisePropertyChanged("IOClass") + End Set + End Property + + ''' + _ + Public Property CurrPhysValue() As UInteger + Get + Return Me.currPhysValueField + End Get + Set + Me.currPhysValueField = value + Me.RaisePropertyChanged("CurrPhysValue") + End Set + End Property + + ''' + _ + Public Property CurrLogicValue() As UInteger + Get + Return Me.currLogicValueField + End Get + Set + Me.currLogicValueField = value + Me.RaisePropertyChanged("CurrLogicValue") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MARKERINFO + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private numberField As Short + + Private lineNumField() As UInteger + + Private numBlksField() As UInteger + + Private markerNameField()() As Byte + + Private pPnameField()() As Byte + + Private breakValField As UInteger + + ''' + _ + Public Property Number() As Short + Get + Return Me.numberField + End Get + Set + Me.numberField = value + Me.RaisePropertyChanged("Number") + End Set + End Property + + ''' + _ + Public Property LineNum() As UInteger() + Get + Return Me.lineNumField + End Get + Set + Me.lineNumField = value + Me.RaisePropertyChanged("LineNum") + End Set + End Property + + ''' + _ + Public Property NumBlks() As UInteger() + Get + Return Me.numBlksField + End Get + Set + Me.numBlksField = value + Me.RaisePropertyChanged("NumBlks") + End Set + End Property + + ''' + _ + Public Property MarkerName() As Byte()() + Get + Return Me.markerNameField + End Get + Set + Me.markerNameField = value + Me.RaisePropertyChanged("MarkerName") + End Set + End Property + + ''' + _ + Public Property PPname() As Byte()() + Get + Return Me.pPnameField + End Get + Set + Me.pPnameField = value + Me.RaisePropertyChanged("PPname") + End Set + End Property + + ''' + _ + Public Property breakVal() As UInteger + Get + Return Me.breakValField + End Get + Set + Me.breakValField = value + Me.RaisePropertyChanged("breakVal") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGANOMALY + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeErrField As UInteger + + Private lineaField As UInteger + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + Me.RaisePropertyChanged("CodeErr") + End Set + End Property + + ''' + _ + Public Property Linea() As UInteger + Get + Return Me.lineaField + End Get + Set + Me.lineaField = value + Me.RaisePropertyChanged("Linea") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SYSTEMTIMECNDEX + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private wYearField As UShort + + Private wMonthField As UShort + + Private wDayOfWeekField As UShort + + Private wDayField As UShort + + Private wHourField As UShort + + Private wMinuteField As UShort + + Private wSecondField As UShort + + Private wMillisecondsField As UShort + + ''' + _ + Public Property wYear() As UShort + Get + Return Me.wYearField + End Get + Set + Me.wYearField = value + Me.RaisePropertyChanged("wYear") + End Set + End Property + + ''' + _ + Public Property wMonth() As UShort + Get + Return Me.wMonthField + End Get + Set + Me.wMonthField = value + Me.RaisePropertyChanged("wMonth") + End Set + End Property + + ''' + _ + Public Property wDayOfWeek() As UShort + Get + Return Me.wDayOfWeekField + End Get + Set + Me.wDayOfWeekField = value + Me.RaisePropertyChanged("wDayOfWeek") + End Set + End Property + + ''' + _ + Public Property wDay() As UShort + Get + Return Me.wDayField + End Get + Set + Me.wDayField = value + Me.RaisePropertyChanged("wDay") + End Set + End Property + + ''' + _ + Public Property wHour() As UShort + Get + Return Me.wHourField + End Get + Set + Me.wHourField = value + Me.RaisePropertyChanged("wHour") + End Set + End Property + + ''' + _ + Public Property wMinute() As UShort + Get + Return Me.wMinuteField + End Get + Set + Me.wMinuteField = value + Me.RaisePropertyChanged("wMinute") + End Set + End Property + + ''' + _ + Public Property wSecond() As UShort + Get + Return Me.wSecondField + End Get + Set + Me.wSecondField = value + Me.RaisePropertyChanged("wSecond") + End Set + End Property + + ''' + _ + Public Property wMilliseconds() As UShort + Get + Return Me.wMillisecondsField + End Get + Set + Me.wMillisecondsField = value + Me.RaisePropertyChanged("wMilliseconds") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGLOGS + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeLogField As UInteger + + Private errinfoField As UInteger + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeLog() As UInteger + Get + Return Me.codeLogField + End Get + Set + Me.codeLogField = value + Me.RaisePropertyChanged("CodeLog") + End Set + End Property + + ''' + _ + Public Property Errinfo() As UInteger + Get + Return Me.errinfoField + End Get + Set + Me.errinfoField = value + Me.RaisePropertyChanged("Errinfo") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGERROR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeErrField As UInteger + + Private processField As Short + + Private comandoField As SByte + + Private subComField As SByte + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + Me.RaisePropertyChanged("CodeErr") + End Set + End Property + + ''' + _ + Public Property Process() As Short + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Comando() As SByte + Get + Return Me.comandoField + End Get + Set + Me.comandoField = value + Me.RaisePropertyChanged("Comando") + End Set + End Property + + ''' + _ + Public Property SubCom() As SByte + Get + Return Me.subComField + End Get + Set + Me.subComField = value + Me.RaisePropertyChanged("SubCom") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MSGEMERGENCY + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private bootIDField As UInteger + + Private systemTimeField As SYSTEMTIMECNDEX + + Private unIdSeqField As UInteger + + Private codeErrField As UInteger + + Private processField As Short + + Private procErrField As Short + + Private formatTxtField() As Byte + + ''' + _ + Public Property BootID() As UInteger + Get + Return Me.bootIDField + End Get + Set + Me.bootIDField = value + Me.RaisePropertyChanged("BootID") + End Set + End Property + + ''' + _ + Public Property SystemTime() As SYSTEMTIMECNDEX + Get + Return Me.systemTimeField + End Get + Set + Me.systemTimeField = value + Me.RaisePropertyChanged("SystemTime") + End Set + End Property + + ''' + _ + Public Property UnIdSeq() As UInteger + Get + Return Me.unIdSeqField + End Get + Set + Me.unIdSeqField = value + Me.RaisePropertyChanged("UnIdSeq") + End Set + End Property + + ''' + _ + Public Property CodeErr() As UInteger + Get + Return Me.codeErrField + End Get + Set + Me.codeErrField = value + Me.RaisePropertyChanged("CodeErr") + End Set + End Property + + ''' + _ + Public Property Process() As Short + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property ProcErr() As Short + Get + Return Me.procErrField + End Get + Set + Me.procErrField = value + Me.RaisePropertyChanged("ProcErr") + End Set + End Property + + ''' + _ + Public Property FormatTxt() As Byte() + Get + Return Me.formatTxtField + End Get + Set + Me.formatTxtField = value + Me.RaisePropertyChanged("FormatTxt") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MONVARDESCR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private classField As UShort + + Private subClassField As UShort + + Private deviceIDField As UShort + + Private codeField As UShort + + Private addressField As UShort + + Private signalField As UShort + + Private samplingPeriodField As Double + + ''' + _ + Public Property [Class]() As UShort + Get + Return Me.classField + End Get + Set + Me.classField = value + Me.RaisePropertyChanged("Class") + End Set + End Property + + ''' + _ + Public Property SubClass() As UShort + Get + Return Me.subClassField + End Get + Set + Me.subClassField = value + Me.RaisePropertyChanged("SubClass") + End Set + End Property + + ''' + _ + Public Property DeviceID() As UShort + Get + Return Me.deviceIDField + End Get + Set + Me.deviceIDField = value + Me.RaisePropertyChanged("DeviceID") + End Set + End Property + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Address() As UShort + Get + Return Me.addressField + End Get + Set + Me.addressField = value + Me.RaisePropertyChanged("Address") + End Set + End Property + + ''' + _ + Public Property Signal() As UShort + Get + Return Me.signalField + End Get + Set + Me.signalField = value + Me.RaisePropertyChanged("Signal") + End Set + End Property + + ''' + _ + Public Property SamplingPeriod() As Double + Get + Return Me.samplingPeriodField + End Get + Set + Me.samplingPeriodField = value + Me.RaisePropertyChanged("SamplingPeriod") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MONCUSTOMEVENTINFO + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private idField As UShort + + Private typeField As UShort + + Private nameField As String + + ''' + _ + Public Property ID() As UShort + Get + Return Me.idField + End Get + Set + Me.idField = value + Me.RaisePropertyChanged("ID") + End Set + End Property + + ''' + _ + Public Property Type() As UShort + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("Type") + End Set + End Property + + ''' + _ + Public Property Name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = value + Me.RaisePropertyChanged("Name") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class FILEFINDDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileAttributesField As UInteger + + Private lowDateCreationTimeField As UInteger + + Private highDateCreationTimeField As UInteger + + Private lowDateLastAccessTimeField As UInteger + + Private highDateLastAccessTimeField As UInteger + + Private lowDateLastWriteTimeField As UInteger + + Private highDateLastWriteTimeField As UInteger + + Private fileSizeHighField As UInteger + + Private fileSizeLowField As UInteger + + Private fileNameField As String + + ''' + _ + Public Property FileAttributes() As UInteger + Get + Return Me.fileAttributesField + End Get + Set + Me.fileAttributesField = value + Me.RaisePropertyChanged("FileAttributes") + End Set + End Property + + ''' + _ + Public Property LowDateCreationTime() As UInteger + Get + Return Me.lowDateCreationTimeField + End Get + Set + Me.lowDateCreationTimeField = value + Me.RaisePropertyChanged("LowDateCreationTime") + End Set + End Property + + ''' + _ + Public Property HighDateCreationTime() As UInteger + Get + Return Me.highDateCreationTimeField + End Get + Set + Me.highDateCreationTimeField = value + Me.RaisePropertyChanged("HighDateCreationTime") + End Set + End Property + + ''' + _ + Public Property LowDateLastAccessTime() As UInteger + Get + Return Me.lowDateLastAccessTimeField + End Get + Set + Me.lowDateLastAccessTimeField = value + Me.RaisePropertyChanged("LowDateLastAccessTime") + End Set + End Property + + ''' + _ + Public Property HighDateLastAccessTime() As UInteger + Get + Return Me.highDateLastAccessTimeField + End Get + Set + Me.highDateLastAccessTimeField = value + Me.RaisePropertyChanged("HighDateLastAccessTime") + End Set + End Property + + ''' + _ + Public Property LowDateLastWriteTime() As UInteger + Get + Return Me.lowDateLastWriteTimeField + End Get + Set + Me.lowDateLastWriteTimeField = value + Me.RaisePropertyChanged("LowDateLastWriteTime") + End Set + End Property + + ''' + _ + Public Property HighDateLastWriteTime() As UInteger + Get + Return Me.highDateLastWriteTimeField + End Get + Set + Me.highDateLastWriteTimeField = value + Me.RaisePropertyChanged("HighDateLastWriteTime") + End Set + End Property + + ''' + _ + Public Property FileSizeHigh() As UInteger + Get + Return Me.fileSizeHighField + End Get + Set + Me.fileSizeHighField = value + Me.RaisePropertyChanged("FileSizeHigh") + End Set + End Property + + ''' + _ + Public Property FileSizeLow() As UInteger + Get + Return Me.fileSizeLowField + End Get + Set + Me.fileSizeLowField = value + Me.RaisePropertyChanged("FileSizeLow") + End Set + End Property + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ERRMSG + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private msg1Field As String + + Private msg2Field As String + + Private msg3Field As String + + Private msg4Field As String + + ''' + _ + Public Property Msg1() As String + Get + Return Me.msg1Field + End Get + Set + Me.msg1Field = value + Me.RaisePropertyChanged("Msg1") + End Set + End Property + + ''' + _ + Public Property Msg2() As String + Get + Return Me.msg2Field + End Get + Set + Me.msg2Field = value + Me.RaisePropertyChanged("Msg2") + End Set + End Property + + ''' + _ + Public Property Msg3() As String + Get + Return Me.msg3Field + End Get + Set + Me.msg3Field = value + Me.RaisePropertyChanged("Msg3") + End Set + End Property + + ''' + _ + Public Property Msg4() As String + Get + Return Me.msg4Field + End Get + Set + Me.msg4Field = value + Me.RaisePropertyChanged("Msg4") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETBLKNUMDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private ppActNumField As UShort + + Private mainActBlkField As UInteger + + Private sbr1ActBlkField As UInteger + + Private sbr2ActBlkField As UInteger + + Private sbr3ActBlkField As UInteger + + Private sbr4ActBlkField As UInteger + + ''' + _ + Public Property ppActNum() As UShort + Get + Return Me.ppActNumField + End Get + Set + Me.ppActNumField = value + Me.RaisePropertyChanged("ppActNum") + End Set + End Property + + ''' + _ + Public Property MainActBlk() As UInteger + Get + Return Me.mainActBlkField + End Get + Set + Me.mainActBlkField = value + Me.RaisePropertyChanged("MainActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr1ActBlk() As UInteger + Get + Return Me.sbr1ActBlkField + End Get + Set + Me.sbr1ActBlkField = value + Me.RaisePropertyChanged("Sbr1ActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr2ActBlk() As UInteger + Get + Return Me.sbr2ActBlkField + End Get + Set + Me.sbr2ActBlkField = value + Me.RaisePropertyChanged("Sbr2ActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr3ActBlk() As UInteger + Get + Return Me.sbr3ActBlkField + End Get + Set + Me.sbr3ActBlkField = value + Me.RaisePropertyChanged("Sbr3ActBlk") + End Set + End Property + + ''' + _ + Public Property Sbr4ActBlk() As UInteger + Get + Return Me.sbr4ActBlkField + End Get + Set + Me.sbr4ActBlkField = value + Me.RaisePropertyChanged("Sbr4ActBlk") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class PROCDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private modeField As UShort + + Private statusField As UShort + + Private subStatusField As UShort + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property Status() As UShort + Get + Return Me.statusField + End Get + Set + Me.statusField = value + Me.RaisePropertyChanged("Status") + End Set + End Property + + ''' + _ + Public Property SubStatus() As UShort + Get + Return Me.subStatusField + End Get + Set + Me.subStatusField = value + Me.RaisePropertyChanged("SubStatus") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETINFO2DATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private statusWordField As UShort + + Private urpField As Double + + Private actToolField As Double + + Private actOffsetField As UShort + + Private progToolField As Double + + Private progOffsetField As UShort + + Private mStatusField As UShort + + Private mValueField() As UShort + + Private ax1NameField As Byte + + Private ax1OffsetField As Double + + Private ax2NameField As Byte + + Private ax2OffsetField As Double + + Private radiusField As Double + + ''' + _ + Public Property StatusWord() As UShort + Get + Return Me.statusWordField + End Get + Set + Me.statusWordField = value + Me.RaisePropertyChanged("StatusWord") + End Set + End Property + + ''' + _ + Public Property Urp() As Double + Get + Return Me.urpField + End Get + Set + Me.urpField = value + Me.RaisePropertyChanged("Urp") + End Set + End Property + + ''' + _ + Public Property ActTool() As Double + Get + Return Me.actToolField + End Get + Set + Me.actToolField = value + Me.RaisePropertyChanged("ActTool") + End Set + End Property + + ''' + _ + Public Property ActOffset() As UShort + Get + Return Me.actOffsetField + End Get + Set + Me.actOffsetField = value + Me.RaisePropertyChanged("ActOffset") + End Set + End Property + + ''' + _ + Public Property ProgTool() As Double + Get + Return Me.progToolField + End Get + Set + Me.progToolField = value + Me.RaisePropertyChanged("ProgTool") + End Set + End Property + + ''' + _ + Public Property ProgOffset() As UShort + Get + Return Me.progOffsetField + End Get + Set + Me.progOffsetField = value + Me.RaisePropertyChanged("ProgOffset") + End Set + End Property + + ''' + _ + Public Property MStatus() As UShort + Get + Return Me.mStatusField + End Get + Set + Me.mStatusField = value + Me.RaisePropertyChanged("MStatus") + End Set + End Property + + ''' + _ + Public Property MValue() As UShort() + Get + Return Me.mValueField + End Get + Set + Me.mValueField = value + Me.RaisePropertyChanged("MValue") + End Set + End Property + + ''' + _ + Public Property Ax1Name() As Byte + Get + Return Me.ax1NameField + End Get + Set + Me.ax1NameField = value + Me.RaisePropertyChanged("Ax1Name") + End Set + End Property + + ''' + _ + Public Property Ax1Offset() As Double + Get + Return Me.ax1OffsetField + End Get + Set + Me.ax1OffsetField = value + Me.RaisePropertyChanged("Ax1Offset") + End Set + End Property + + ''' + _ + Public Property Ax2Name() As Byte + Get + Return Me.ax2NameField + End Get + Set + Me.ax2NameField = value + Me.RaisePropertyChanged("Ax2Name") + End Set + End Property + + ''' + _ + Public Property Ax2Offset() As Double + Get + Return Me.ax2OffsetField + End Get + Set + Me.ax2OffsetField = value + Me.RaisePropertyChanged("Ax2Offset") + End Set + End Property + + ''' + _ + Public Property Radius() As Double + Get + Return Me.radiusField + End Get + Set + Me.radiusField = value + Me.RaisePropertyChanged("Radius") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETINFO1DATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private statusField As Byte + + Private substatusField As Byte + + Private modeselectField As Byte + + Private jogdirField As Byte + + Private speedovField As UShort + + Private feedovField As UShort + + Private rapfeedovField As UShort + + Private manfeedovField As UShort + + Private jogincrField As Double + + Private numaxselField As Byte + + Private axselField() As Byte + + Private actualtoolField As Double + + Private progrtoolField As Double + + Private actualtooloffField As UShort + + Private progrtooloffField As UShort + + Private realspeedField As Double + + Private progrspeedField As Double + + Private progrfeedField As Double + + Private rapidfeedField As Double + + Private realfeedField As Double + + Private feedmisunitField As UShort + + Private mainprogrnameField As String + + Private dryrunField As Byte + + Private rapidoverrideField As Byte + + Private disableslashedblkField As Byte + + Private optionalstopField As Byte + + Private forcerapidfeedField As Byte + + Private autojogretField As Byte + + Private blockretraceField As Byte + + Private lastncerrorField As UShort + + Private freeField As String + + ''' + _ + Public Property status() As Byte + Get + Return Me.statusField + End Get + Set + Me.statusField = value + Me.RaisePropertyChanged("status") + End Set + End Property + + ''' + _ + Public Property substatus() As Byte + Get + Return Me.substatusField + End Get + Set + Me.substatusField = value + Me.RaisePropertyChanged("substatus") + End Set + End Property + + ''' + _ + Public Property modeselect() As Byte + Get + Return Me.modeselectField + End Get + Set + Me.modeselectField = value + Me.RaisePropertyChanged("modeselect") + End Set + End Property + + ''' + _ + Public Property jogdir() As Byte + Get + Return Me.jogdirField + End Get + Set + Me.jogdirField = value + Me.RaisePropertyChanged("jogdir") + End Set + End Property + + ''' + _ + Public Property speedov() As UShort + Get + Return Me.speedovField + End Get + Set + Me.speedovField = value + Me.RaisePropertyChanged("speedov") + End Set + End Property + + ''' + _ + Public Property feedov() As UShort + Get + Return Me.feedovField + End Get + Set + Me.feedovField = value + Me.RaisePropertyChanged("feedov") + End Set + End Property + + ''' + _ + Public Property rapfeedov() As UShort + Get + Return Me.rapfeedovField + End Get + Set + Me.rapfeedovField = value + Me.RaisePropertyChanged("rapfeedov") + End Set + End Property + + ''' + _ + Public Property manfeedov() As UShort + Get + Return Me.manfeedovField + End Get + Set + Me.manfeedovField = value + Me.RaisePropertyChanged("manfeedov") + End Set + End Property + + ''' + _ + Public Property jogincr() As Double + Get + Return Me.jogincrField + End Get + Set + Me.jogincrField = value + Me.RaisePropertyChanged("jogincr") + End Set + End Property + + ''' + _ + Public Property numaxsel() As Byte + Get + Return Me.numaxselField + End Get + Set + Me.numaxselField = value + Me.RaisePropertyChanged("numaxsel") + End Set + End Property + + ''' + _ + Public Property axsel() As Byte() + Get + Return Me.axselField + End Get + Set + Me.axselField = value + Me.RaisePropertyChanged("axsel") + End Set + End Property + + ''' + _ + Public Property actualtool() As Double + Get + Return Me.actualtoolField + End Get + Set + Me.actualtoolField = value + Me.RaisePropertyChanged("actualtool") + End Set + End Property + + ''' + _ + Public Property progrtool() As Double + Get + Return Me.progrtoolField + End Get + Set + Me.progrtoolField = value + Me.RaisePropertyChanged("progrtool") + End Set + End Property + + ''' + _ + Public Property actualtooloff() As UShort + Get + Return Me.actualtooloffField + End Get + Set + Me.actualtooloffField = value + Me.RaisePropertyChanged("actualtooloff") + End Set + End Property + + ''' + _ + Public Property progrtooloff() As UShort + Get + Return Me.progrtooloffField + End Get + Set + Me.progrtooloffField = value + Me.RaisePropertyChanged("progrtooloff") + End Set + End Property + + ''' + _ + Public Property realspeed() As Double + Get + Return Me.realspeedField + End Get + Set + Me.realspeedField = value + Me.RaisePropertyChanged("realspeed") + End Set + End Property + + ''' + _ + Public Property progrspeed() As Double + Get + Return Me.progrspeedField + End Get + Set + Me.progrspeedField = value + Me.RaisePropertyChanged("progrspeed") + End Set + End Property + + ''' + _ + Public Property progrfeed() As Double + Get + Return Me.progrfeedField + End Get + Set + Me.progrfeedField = value + Me.RaisePropertyChanged("progrfeed") + End Set + End Property + + ''' + _ + Public Property rapidfeed() As Double + Get + Return Me.rapidfeedField + End Get + Set + Me.rapidfeedField = value + Me.RaisePropertyChanged("rapidfeed") + End Set + End Property + + ''' + _ + Public Property realfeed() As Double + Get + Return Me.realfeedField + End Get + Set + Me.realfeedField = value + Me.RaisePropertyChanged("realfeed") + End Set + End Property + + ''' + _ + Public Property feedmisunit() As UShort + Get + Return Me.feedmisunitField + End Get + Set + Me.feedmisunitField = value + Me.RaisePropertyChanged("feedmisunit") + End Set + End Property + + ''' + _ + Public Property mainprogrname() As String + Get + Return Me.mainprogrnameField + End Get + Set + Me.mainprogrnameField = value + Me.RaisePropertyChanged("mainprogrname") + End Set + End Property + + ''' + _ + Public Property dryrun() As Byte + Get + Return Me.dryrunField + End Get + Set + Me.dryrunField = value + Me.RaisePropertyChanged("dryrun") + End Set + End Property + + ''' + _ + Public Property rapidoverride() As Byte + Get + Return Me.rapidoverrideField + End Get + Set + Me.rapidoverrideField = value + Me.RaisePropertyChanged("rapidoverride") + End Set + End Property + + ''' + _ + Public Property disableslashedblk() As Byte + Get + Return Me.disableslashedblkField + End Get + Set + Me.disableslashedblkField = value + Me.RaisePropertyChanged("disableslashedblk") + End Set + End Property + + ''' + _ + Public Property optionalstop() As Byte + Get + Return Me.optionalstopField + End Get + Set + Me.optionalstopField = value + Me.RaisePropertyChanged("optionalstop") + End Set + End Property + + ''' + _ + Public Property forcerapidfeed() As Byte + Get + Return Me.forcerapidfeedField + End Get + Set + Me.forcerapidfeedField = value + Me.RaisePropertyChanged("forcerapidfeed") + End Set + End Property + + ''' + _ + Public Property autojogret() As Byte + Get + Return Me.autojogretField + End Get + Set + Me.autojogretField = value + Me.RaisePropertyChanged("autojogret") + End Set + End Property + + ''' + _ + Public Property blockretrace() As Byte + Get + Return Me.blockretraceField + End Get + Set + Me.blockretraceField = value + Me.RaisePropertyChanged("blockretrace") + End Set + End Property + + ''' + _ + Public Property lastncerror() As UShort + Get + Return Me.lastncerrorField + End Get + Set + Me.lastncerrorField = value + Me.RaisePropertyChanged("lastncerror") + End Set + End Property + + ''' + _ + Public Property free() As String + Get + Return Me.freeField + End Get + Set + Me.freeField = value + Me.RaisePropertyChanged("free") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GETINTDATA + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisNameField As Byte + + Private modeField As Byte + + Private positionField As Double + + Private totalOffsetField As Double + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + ''' + _ + Public Property mode() As Byte + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("mode") + End Set + End Property + + ''' + _ + Public Property position() As Double + Get + Return Me.positionField + End Get + Set + Me.positionField = value + Me.RaisePropertyChanged("position") + End Set + End Property + + ''' + _ + Public Property TotalOffset() As Double + Get + Return Me.totalOffsetField + End Get + Set + Me.totalOffsetField = value + Me.RaisePropertyChanged("TotalOffset") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class AXORIGNUM + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisNameField As Byte + + Private originNumberField As Byte + + Private originFlagField As UShort + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + ''' + _ + Public Property OriginNumber() As Byte + Get + Return Me.originNumberField + End Get + Set + Me.originNumberField = value + Me.RaisePropertyChanged("OriginNumber") + End Set + End Property + + ''' + _ + Public Property OriginFlag() As UShort + Get + Return Me.originFlagField + End Get + Set + Me.originFlagField = value + Me.RaisePropertyChanged("OriginFlag") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class USERTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private userValField() As Double + + ''' + _ + Public Property UserVal() As Double() + Get + Return Me.userValField + End Get + Set + Me.userValField = value + Me.RaisePropertyChanged("UserVal") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class OFFSETVALII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private valOrigField As Double + + Private maxChangeValField As Double + + Private actChangeValField As Double + + ''' + _ + Public Property ValOrig() As Double + Get + Return Me.valOrigField + End Get + Set + Me.valOrigField = value + Me.RaisePropertyChanged("ValOrig") + End Set + End Property + + ''' + _ + Public Property MaxChangeVal() As Double + Get + Return Me.maxChangeValField + End Get + Set + Me.maxChangeValField = value + Me.RaisePropertyChanged("MaxChangeVal") + End Set + End Property + + ''' + _ + Public Property ActChangeVal() As Double + Get + Return Me.actChangeValField + End Get + Set + Me.actChangeValField = value + Me.RaisePropertyChanged("ActChangeVal") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class OFFSETTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private lenValField() As OFFSETVALII + + Private diaValField() As OFFSETVALII + + Private orientField As UShort + + Private externTypeField As UShort + + Private externIndField As UShort + + Private duserField() As Double + + Private suserField() As Short + + Private descrField() As UShort + + ''' + _ + Public Property LenVal() As OFFSETVALII() + Get + Return Me.lenValField + End Get + Set + Me.lenValField = value + Me.RaisePropertyChanged("LenVal") + End Set + End Property + + ''' + _ + Public Property DiaVal() As OFFSETVALII() + Get + Return Me.diaValField + End Get + Set + Me.diaValField = value + Me.RaisePropertyChanged("DiaVal") + End Set + End Property + + ''' + _ + Public Property Orient() As UShort + Get + Return Me.orientField + End Get + Set + Me.orientField = value + Me.RaisePropertyChanged("Orient") + End Set + End Property + + ''' + _ + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + Me.RaisePropertyChanged("ExternType") + End Set + End Property + + ''' + _ + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + Me.RaisePropertyChanged("ExternInd") + End Set + End Property + + ''' + _ + Public Property Duser() As Double() + Get + Return Me.duserField + End Get + Set + Me.duserField = value + Me.RaisePropertyChanged("Duser") + End Set + End Property + + ''' + _ + Public Property Suser() As Short() + Get + Return Me.suserField + End Get + Set + Me.suserField = value + Me.RaisePropertyChanged("Suser") + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + Me.RaisePropertyChanged("Descr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class TOOLTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private toolNameField As String + + Private statusField As UShort + + Private lifeTypeField As UShort + + Private maxLifeField As Double + + Private remLifeField As Double + + Private offsNumField As UShort + + Private externTypeField As UShort + + Private externIndField As UShort + + Private duserField() As Double + + Private suserField() As Short + + Private descrField() As UShort + + ''' + _ + Public Property ToolName() As String + Get + Return Me.toolNameField + End Get + Set + Me.toolNameField = value + Me.RaisePropertyChanged("ToolName") + End Set + End Property + + ''' + _ + Public Property Status() As UShort + Get + Return Me.statusField + End Get + Set + Me.statusField = value + Me.RaisePropertyChanged("Status") + End Set + End Property + + ''' + _ + Public Property LifeType() As UShort + Get + Return Me.lifeTypeField + End Get + Set + Me.lifeTypeField = value + Me.RaisePropertyChanged("LifeType") + End Set + End Property + + ''' + _ + Public Property MaxLife() As Double + Get + Return Me.maxLifeField + End Get + Set + Me.maxLifeField = value + Me.RaisePropertyChanged("MaxLife") + End Set + End Property + + ''' + _ + Public Property RemLife() As Double + Get + Return Me.remLifeField + End Get + Set + Me.remLifeField = value + Me.RaisePropertyChanged("RemLife") + End Set + End Property + + ''' + _ + Public Property OffsNum() As UShort + Get + Return Me.offsNumField + End Get + Set + Me.offsNumField = value + Me.RaisePropertyChanged("OffsNum") + End Set + End Property + + ''' + _ + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + Me.RaisePropertyChanged("ExternType") + End Set + End Property + + ''' + _ + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + Me.RaisePropertyChanged("ExternInd") + End Set + End Property + + ''' + _ + Public Property Duser() As Double() + Get + Return Me.duserField + End Get + Set + Me.duserField = value + Me.RaisePropertyChanged("Duser") + End Set + End Property + + ''' + _ + Public Property Suser() As Short() + Get + Return Me.suserField + End Get + Set + Me.suserField = value + Me.RaisePropertyChanged("Suser") + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + Me.RaisePropertyChanged("Descr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ORIGINTABLEII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisValField() As Double + + Private externTypeField As UShort + + Private externIndField As UShort + + Private descrField() As UShort + + ''' + _ + Public Property AxisVal() As Double() + Get + Return Me.axisValField + End Get + Set + Me.axisValField = value + Me.RaisePropertyChanged("AxisVal") + End Set + End Property + + ''' + _ + Public Property ExternType() As UShort + Get + Return Me.externTypeField + End Get + Set + Me.externTypeField = value + Me.RaisePropertyChanged("ExternType") + End Set + End Property + + ''' + _ + Public Property ExternInd() As UShort + Get + Return Me.externIndField + End Get + Set + Me.externIndField = value + Me.RaisePropertyChanged("ExternInd") + End Set + End Property + + ''' + _ + Public Property Descr() As UShort() + Get + Return Me.descrField + End Get + Set + Me.descrField = value + Me.RaisePropertyChanged("Descr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootPhaseEnquiryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private phaseField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Phase() As UShort + Get + Return Me.phaseField + End Get + Set + Me.phaseField = value + Me.RaisePropertyChanged("Phase") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootPhaseEnquiryRequest + + _ + Public BootPhaseEnquiry As OPENcontrol.BootPhaseEnquiry + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootPhaseEnquiry As OPENcontrol.BootPhaseEnquiry) + MyBase.New + Me.BootPhaseEnquiry = BootPhaseEnquiry + End Sub + End Class + + _ + Partial Public Class BootPhaseEnquiryResponse + + _ + Public BootPhaseEnquiryR As OPENcontrol.BootPhaseEnquiryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootPhaseEnquiryR As OPENcontrol.BootPhaseEnquiryR) + MyBase.New + Me.BootPhaseEnquiryR = BootPhaseEnquiryR + End Sub + End Class + + ''' + _ + Partial Public Class BootReboot + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootRebootR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootRebootRequest + + _ + Public BootReboot As OPENcontrol.BootReboot + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootReboot As OPENcontrol.BootReboot) + MyBase.New + Me.BootReboot = BootReboot + End Sub + End Class + + _ + Partial Public Class BootRebootResponse + + _ + Public BootRebootR As OPENcontrol.BootRebootR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootRebootR As OPENcontrol.BootRebootR) + MyBase.New + Me.BootRebootR = BootRebootR + End Sub + End Class + + ''' + _ + Partial Public Class BootShutDown + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootShutDownR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootShutDownRequest + + _ + Public BootShutDown As OPENcontrol.BootShutDown + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootShutDown As OPENcontrol.BootShutDown) + MyBase.New + Me.BootShutDown = BootShutDown + End Sub + End Class + + _ + Partial Public Class BootShutDownResponse + + _ + Public BootShutDownR As OPENcontrol.BootShutDownR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootShutDownR As OPENcontrol.BootShutDownR) + MyBase.New + Me.BootShutDownR = BootShutDownR + End Sub + End Class + + ''' + _ + Partial Public Class BootMode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private modeField As UShort + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class BootModeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BootModeRequest + + _ + Public BootMode As OPENcontrol.BootMode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootMode As OPENcontrol.BootMode) + MyBase.New + Me.BootMode = BootMode + End Sub + End Class + + _ + Partial Public Class BootModeResponse + + _ + Public BootModeR As OPENcontrol.BootModeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BootModeR As OPENcontrol.BootModeR) + MyBase.New + Me.BootModeR = BootModeR + End Sub + End Class + + ''' + _ + Partial Public Class GetHWKey + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetHWKeyR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private hwKeyField() As Byte + + Private securLevelField() As Byte + + Private releaseField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property HwKey() As Byte() + Get + Return Me.hwKeyField + End Get + Set + Me.hwKeyField = value + Me.RaisePropertyChanged("HwKey") + End Set + End Property + + ''' + _ + Public Property SecurLevel() As Byte() + Get + Return Me.securLevelField + End Get + Set + Me.securLevelField = value + Me.RaisePropertyChanged("SecurLevel") + End Set + End Property + + ''' + _ + Public Property Release() As String + Get + Return Me.releaseField + End Get + Set + Me.releaseField = value + Me.RaisePropertyChanged("Release") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetHWKeyRequest + + _ + Public GetHWKey As OPENcontrol.GetHWKey + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetHWKey As OPENcontrol.GetHWKey) + MyBase.New + Me.GetHWKey = GetHWKey + End Sub + End Class + + _ + Partial Public Class GetHWKeyResponse + + _ + Public GetHWKeyR As OPENcontrol.GetHWKeyR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetHWKeyR As OPENcontrol.GetHWKeyR) + MyBase.New + Me.GetHWKeyR = GetHWKeyR + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As UShort() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadVarWordRequest + + _ + Public ReadVarWord As OPENcontrol.ReadVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarWord As OPENcontrol.ReadVarWord) + MyBase.New + Me.ReadVarWord = ReadVarWord + End Sub + End Class + + _ + Partial Public Class ReadVarWordResponse + + _ + Public ReadVarWordR As OPENcontrol.ReadVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarWordR As OPENcontrol.ReadVarWordR) + MyBase.New + Me.ReadVarWordR = ReadVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField() As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadVarDoubleRequest + + _ + Public ReadVarDouble As OPENcontrol.ReadVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarDouble As OPENcontrol.ReadVarDouble) + MyBase.New + Me.ReadVarDouble = ReadVarDouble + End Sub + End Class + + _ + Partial Public Class ReadVarDoubleResponse + + _ + Public ReadVarDoubleR As OPENcontrol.ReadVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarDoubleR As OPENcontrol.ReadVarDoubleR) + MyBase.New + Me.ReadVarDoubleR = ReadVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + Private valueField() As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + ''' + _ + Public Property Value() As UShort() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarWordRequest + + _ + Public WriteVarWord As OPENcontrol.WriteVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWord As OPENcontrol.WriteVarWord) + MyBase.New + Me.WriteVarWord = WriteVarWord + End Sub + End Class + + _ + Partial Public Class WriteVarWordResponse + + _ + Public WriteVarWordR As OPENcontrol.WriteVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWordR As OPENcontrol.WriteVarWordR) + MyBase.New + Me.WriteVarWordR = WriteVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWordBit + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private bitIndexField As UShort + + Private bitValueField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property BitIndex() As UShort + Get + Return Me.bitIndexField + End Get + Set + Me.bitIndexField = value + Me.RaisePropertyChanged("BitIndex") + End Set + End Property + + ''' + _ + Public Property BitValue() As UShort + Get + Return Me.bitValueField + End Get + Set + Me.bitValueField = value + Me.RaisePropertyChanged("BitValue") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarWordBitR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarWordBitRequest + + _ + Public WriteVarWordBit As OPENcontrol.WriteVarWordBit + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWordBit As OPENcontrol.WriteVarWordBit) + MyBase.New + Me.WriteVarWordBit = WriteVarWordBit + End Sub + End Class + + _ + Partial Public Class WriteVarWordBitResponse + + _ + Public WriteVarWordBitR As OPENcontrol.WriteVarWordBitR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarWordBitR As OPENcontrol.WriteVarWordBitR) + MyBase.New + Me.WriteVarWordBitR = WriteVarWordBitR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private numVarField As UShort + + Private valueField() As Double + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + ''' + _ + Public Property Value() As Double() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarDoubleRequest + + _ + Public WriteVarDouble As OPENcontrol.WriteVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarDouble As OPENcontrol.WriteVarDouble) + MyBase.New + Me.WriteVarDouble = WriteVarDouble + End Sub + End Class + + _ + Partial Public Class WriteVarDoubleResponse + + _ + Public WriteVarDoubleR As OPENcontrol.WriteVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarDoubleR As OPENcontrol.WriteVarDoubleR) + MyBase.New + Me.WriteVarDoubleR = WriteVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarText + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private sizeField As UShort + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property Size() As UShort + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadVarTextR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private textField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Text() As String + Get + Return Me.textField + End Get + Set + Me.textField = value + Me.RaisePropertyChanged("Text") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadVarTextRequest + + _ + Public ReadVarText As OPENcontrol.ReadVarText + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarText As OPENcontrol.ReadVarText) + MyBase.New + Me.ReadVarText = ReadVarText + End Sub + End Class + + _ + Partial Public Class ReadVarTextResponse + + _ + Public ReadVarTextR As OPENcontrol.ReadVarTextR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadVarTextR As OPENcontrol.ReadVarTextR) + MyBase.New + Me.ReadVarTextR = ReadVarTextR + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarText + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private codeField As UShort + + Private processField As UShort + + Private indexField As UShort + + Private lenField As UShort + + Private textField As String + + ''' + _ + Public Property Code() As UShort + Get + Return Me.codeField + End Get + Set + Me.codeField = value + Me.RaisePropertyChanged("Code") + End Set + End Property + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + ''' + _ + Public Property Len() As UShort + Get + Return Me.lenField + End Get + Set + Me.lenField = value + Me.RaisePropertyChanged("Len") + End Set + End Property + + ''' + _ + Public Property Text() As String + Get + Return Me.textField + End Get + Set + Me.textField = value + Me.RaisePropertyChanged("Text") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteVarTextR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteVarTextRequest + + _ + Public WriteVarText As OPENcontrol.WriteVarText + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarText As OPENcontrol.WriteVarText) + MyBase.New + Me.WriteVarText = WriteVarText + End Sub + End Class + + _ + Partial Public Class WriteVarTextResponse + + _ + Public WriteVarTextR As OPENcontrol.WriteVarTextR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteVarTextR As OPENcontrol.WriteVarTextR) + MyBase.New + Me.WriteVarTextR = WriteVarTextR + End Sub + End Class + + ''' + _ + Partial Public Class ReadWarningMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadWarningMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private warningMsgField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property WarningMsg() As String + Get + Return Me.warningMsgField + End Get + Set + Me.warningMsgField = value + Me.RaisePropertyChanged("WarningMsg") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadWarningMsgRequest + + _ + Public ReadWarningMsg As OPENcontrol.ReadWarningMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadWarningMsg As OPENcontrol.ReadWarningMsg) + MyBase.New + Me.ReadWarningMsg = ReadWarningMsg + End Sub + End Class + + _ + Partial Public Class ReadWarningMsgResponse + + _ + Public ReadWarningMsgR As OPENcontrol.ReadWarningMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadWarningMsgR As OPENcontrol.ReadWarningMsgR) + MyBase.New + Me.ReadWarningMsgR = ReadWarningMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ResetSingleTableII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private tableNumField As UShort + + ''' + _ + Public Property TableNum() As UShort + Get + Return Me.tableNumField + End Get + Set + Me.tableNumField = value + Me.RaisePropertyChanged("TableNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ResetSingleTableIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ResetSingleTableIIRequest + + _ + Public ResetSingleTableII As OPENcontrol.ResetSingleTableII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ResetSingleTableII As OPENcontrol.ResetSingleTableII) + MyBase.New + Me.ResetSingleTableII = ResetSingleTableII + End Sub + End Class + + _ + Partial Public Class ResetSingleTableIIResponse + + _ + Public ResetSingleTableIIR As OPENcontrol.ResetSingleTableIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ResetSingleTableIIR As OPENcontrol.ResetSingleTableIIR) + MyBase.New + Me.ResetSingleTableIIR = ResetSingleTableIIR + End Sub + End Class + + ''' + _ + Partial Public Class LockTableII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private tableNumField As UShort + + ''' + _ + Public Property TableNum() As UShort + Get + Return Me.tableNumField + End Get + Set + Me.tableNumField = value + Me.RaisePropertyChanged("TableNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LockTableIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LockTableIIRequest + + _ + Public LockTableII As OPENcontrol.LockTableII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LockTableII As OPENcontrol.LockTableII) + MyBase.New + Me.LockTableII = LockTableII + End Sub + End Class + + _ + Partial Public Class LockTableIIResponse + + _ + Public LockTableIIR As OPENcontrol.LockTableIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LockTableIIR As OPENcontrol.LockTableIIR) + MyBase.New + Me.LockTableIIR = LockTableIIR + End Sub + End Class + + ''' + _ + Partial Public Class UnLockTableII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private tableNumField As UShort + + ''' + _ + Public Property TableNum() As UShort + Get + Return Me.tableNumField + End Get + Set + Me.tableNumField = value + Me.RaisePropertyChanged("TableNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class UnLockTableIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class UnLockTableIIRequest + + _ + Public UnLockTableII As OPENcontrol.UnLockTableII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal UnLockTableII As OPENcontrol.UnLockTableII) + MyBase.New + Me.UnLockTableII = UnLockTableII + End Sub + End Class + + _ + Partial Public Class UnLockTableIIResponse + + _ + Public UnLockTableIIR As OPENcontrol.UnLockTableIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal UnLockTableIIR As OPENcontrol.UnLockTableIIR) + MyBase.New + Me.UnLockTableIIR = UnLockTableIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetOriginTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetOriginTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As ORIGINTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As ORIGINTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetOriginTabRecordIIRequest + + _ + Public GetOriginTabRecordII As OPENcontrol.GetOriginTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOriginTabRecordII As OPENcontrol.GetOriginTabRecordII) + MyBase.New + Me.GetOriginTabRecordII = GetOriginTabRecordII + End Sub + End Class + + _ + Partial Public Class GetOriginTabRecordIIResponse + + _ + Public GetOriginTabRecordIIR As OPENcontrol.GetOriginTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOriginTabRecordIIR As OPENcontrol.GetOriginTabRecordIIR) + MyBase.New + Me.GetOriginTabRecordIIR = GetOriginTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetOriginTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As ORIGINTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As ORIGINTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetOriginTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetOriginTabRecordIIRequest + + _ + Public SetOriginTabRecordII As OPENcontrol.SetOriginTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOriginTabRecordII As OPENcontrol.SetOriginTabRecordII) + MyBase.New + Me.SetOriginTabRecordII = SetOriginTabRecordII + End Sub + End Class + + _ + Partial Public Class SetOriginTabRecordIIResponse + + _ + Public SetOriginTabRecordIIR As OPENcontrol.SetOriginTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOriginTabRecordIIR As OPENcontrol.SetOriginTabRecordIIR) + MyBase.New + Me.SetOriginTabRecordIIR = SetOriginTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetToolTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetToolTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As TOOLTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As TOOLTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetToolTabRecordIIRequest + + _ + Public GetToolTabRecordII As OPENcontrol.GetToolTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolTabRecordII As OPENcontrol.GetToolTabRecordII) + MyBase.New + Me.GetToolTabRecordII = GetToolTabRecordII + End Sub + End Class + + _ + Partial Public Class GetToolTabRecordIIResponse + + _ + Public GetToolTabRecordIIR As OPENcontrol.GetToolTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolTabRecordIIR As OPENcontrol.GetToolTabRecordIIR) + MyBase.New + Me.GetToolTabRecordIIR = GetToolTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetToolTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As TOOLTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As TOOLTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetToolTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetToolTabRecordIIRequest + + _ + Public SetToolTabRecordII As OPENcontrol.SetToolTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetToolTabRecordII As OPENcontrol.SetToolTabRecordII) + MyBase.New + Me.SetToolTabRecordII = SetToolTabRecordII + End Sub + End Class + + _ + Partial Public Class SetToolTabRecordIIResponse + + _ + Public SetToolTabRecordIIR As OPENcontrol.SetToolTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetToolTabRecordIIR As OPENcontrol.SetToolTabRecordIIR) + MyBase.New + Me.SetToolTabRecordIIR = SetToolTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetOffsetTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetOffsetTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As OFFSETTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As OFFSETTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetOffsetTabRecordIIRequest + + _ + Public GetOffsetTabRecordII As OPENcontrol.GetOffsetTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOffsetTabRecordII As OPENcontrol.GetOffsetTabRecordII) + MyBase.New + Me.GetOffsetTabRecordII = GetOffsetTabRecordII + End Sub + End Class + + _ + Partial Public Class GetOffsetTabRecordIIResponse + + _ + Public GetOffsetTabRecordIIR As OPENcontrol.GetOffsetTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOffsetTabRecordIIR As OPENcontrol.GetOffsetTabRecordIIR) + MyBase.New + Me.GetOffsetTabRecordIIR = GetOffsetTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetOffsetTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As OFFSETTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As OFFSETTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetOffsetTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetOffsetTabRecordIIRequest + + _ + Public SetOffsetTabRecordII As OPENcontrol.SetOffsetTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOffsetTabRecordII As OPENcontrol.SetOffsetTabRecordII) + MyBase.New + Me.SetOffsetTabRecordII = SetOffsetTabRecordII + End Sub + End Class + + _ + Partial Public Class SetOffsetTabRecordIIResponse + + _ + Public SetOffsetTabRecordIIR As OPENcontrol.SetOffsetTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetOffsetTabRecordIIR As OPENcontrol.SetOffsetTabRecordIIR) + MyBase.New + Me.SetOffsetTabRecordIIR = SetOffsetTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class GetUserTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetUserTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private recordBuffField As USERTABLEII + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As USERTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetUserTabRecordIIRequest + + _ + Public GetUserTabRecordII As OPENcontrol.GetUserTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetUserTabRecordII As OPENcontrol.GetUserTabRecordII) + MyBase.New + Me.GetUserTabRecordII = GetUserTabRecordII + End Sub + End Class + + _ + Partial Public Class GetUserTabRecordIIResponse + + _ + Public GetUserTabRecordIIR As OPENcontrol.GetUserTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetUserTabRecordIIR As OPENcontrol.GetUserTabRecordIIR) + MyBase.New + Me.GetUserTabRecordIIR = GetUserTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SetUserTabRecordII + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private recordNumField As UInteger + + Private recordBuffField As USERTABLEII + + ''' + _ + Public Property RecordNum() As UInteger + Get + Return Me.recordNumField + End Get + Set + Me.recordNumField = value + Me.RaisePropertyChanged("RecordNum") + End Set + End Property + + ''' + _ + Public Property RecordBuff() As USERTABLEII + Get + Return Me.recordBuffField + End Get + Set + Me.recordBuffField = value + Me.RaisePropertyChanged("RecordBuff") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetUserTabRecordIIR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetUserTabRecordIIRequest + + _ + Public SetUserTabRecordII As OPENcontrol.SetUserTabRecordII + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetUserTabRecordII As OPENcontrol.SetUserTabRecordII) + MyBase.New + Me.SetUserTabRecordII = SetUserTabRecordII + End Sub + End Class + + _ + Partial Public Class SetUserTabRecordIIResponse + + _ + Public SetUserTabRecordIIR As OPENcontrol.SetUserTabRecordIIR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetUserTabRecordIIR As OPENcontrol.SetUserTabRecordIIR) + MyBase.New + Me.SetUserTabRecordIIR = SetUserTabRecordIIR + End Sub + End Class + + ''' + _ + Partial Public Class SaveTables + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private localDirField As String + + ''' + _ + Public Property LocalDir() As String + Get + Return Me.localDirField + End Get + Set + Me.localDirField = value + Me.RaisePropertyChanged("LocalDir") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SaveTablesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SaveTablesRequest + + _ + Public SaveTables As OPENcontrol.SaveTables + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveTables As OPENcontrol.SaveTables) + MyBase.New + Me.SaveTables = SaveTables + End Sub + End Class + + _ + Partial Public Class SaveTablesResponse + + _ + Public SaveTablesR As OPENcontrol.SaveTablesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveTablesR As OPENcontrol.SaveTablesR) + MyBase.New + Me.SaveTablesR = SaveTablesR + End Sub + End Class + + ''' + _ + Partial Public Class RestoreSingleTable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private localDirField As String + + Private tableTypeField As TABLETYPEII + + ''' + _ + Public Property LocalDir() As String + Get + Return Me.localDirField + End Get + Set + Me.localDirField = value + Me.RaisePropertyChanged("LocalDir") + End Set + End Property + + ''' + _ + Public Property TableType() As TABLETYPEII + Get + Return Me.tableTypeField + End Get + Set + Me.tableTypeField = value + Me.RaisePropertyChanged("TableType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum TABLETYPEII + + ''' + _ + TabTypeTools + + ''' + _ + TabTypeOffsets + + ''' + _ + TabTypeOrigins + + ''' + _ + TabTypeUser + End Enum + + ''' + _ + Partial Public Class RestoreSingleTableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class RestoreSingleTableRequest + + _ + Public RestoreSingleTable As OPENcontrol.RestoreSingleTable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreSingleTable As OPENcontrol.RestoreSingleTable) + MyBase.New + Me.RestoreSingleTable = RestoreSingleTable + End Sub + End Class + + _ + Partial Public Class RestoreSingleTableResponse + + _ + Public RestoreSingleTableR As OPENcontrol.RestoreSingleTableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreSingleTableR As OPENcontrol.RestoreSingleTableR) + MyBase.New + Me.RestoreSingleTableR = RestoreSingleTableR + End Sub + End Class + + ''' + _ + Partial Public Class SaveSingleTable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private localDirField As String + + Private tableTypeField As TABLETYPEII + + ''' + _ + Public Property LocalDir() As String + Get + Return Me.localDirField + End Get + Set + Me.localDirField = value + Me.RaisePropertyChanged("LocalDir") + End Set + End Property + + ''' + _ + Public Property TableType() As TABLETYPEII + Get + Return Me.tableTypeField + End Get + Set + Me.tableTypeField = value + Me.RaisePropertyChanged("TableType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SaveSingleTableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SaveSingleTableRequest + + _ + Public SaveSingleTable As OPENcontrol.SaveSingleTable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveSingleTable As OPENcontrol.SaveSingleTable) + MyBase.New + Me.SaveSingleTable = SaveSingleTable + End Sub + End Class + + _ + Partial Public Class SaveSingleTableResponse + + _ + Public SaveSingleTableR As OPENcontrol.SaveSingleTableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveSingleTableR As OPENcontrol.SaveSingleTableR) + MyBase.New + Me.SaveSingleTableR = SaveSingleTableR + End Sub + End Class + + ''' + _ + Partial Public Class SaveBackupMemory + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileNameField As String + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SaveBackupMemoryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SaveBackupMemoryRequest + + _ + Public SaveBackupMemory As OPENcontrol.SaveBackupMemory + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveBackupMemory As OPENcontrol.SaveBackupMemory) + MyBase.New + Me.SaveBackupMemory = SaveBackupMemory + End Sub + End Class + + _ + Partial Public Class SaveBackupMemoryResponse + + _ + Public SaveBackupMemoryR As OPENcontrol.SaveBackupMemoryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SaveBackupMemoryR As OPENcontrol.SaveBackupMemoryR) + MyBase.New + Me.SaveBackupMemoryR = SaveBackupMemoryR + End Sub + End Class + + ''' + _ + Partial Public Class RestoreBackupMemory + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileNameField As String + + Private restoreMaskField As UInteger + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + ''' + _ + Public Property RestoreMask() As UInteger + Get + Return Me.restoreMaskField + End Get + Set + Me.restoreMaskField = value + Me.RaisePropertyChanged("RestoreMask") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class RestoreBackupMemoryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class RestoreBackupMemoryRequest + + _ + Public RestoreBackupMemory As OPENcontrol.RestoreBackupMemory + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreBackupMemory As OPENcontrol.RestoreBackupMemory) + MyBase.New + Me.RestoreBackupMemory = RestoreBackupMemory + End Sub + End Class + + _ + Partial Public Class RestoreBackupMemoryResponse + + _ + Public RestoreBackupMemoryR As OPENcontrol.RestoreBackupMemoryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal RestoreBackupMemoryR As OPENcontrol.RestoreBackupMemoryR) + MyBase.New + Me.RestoreBackupMemoryR = RestoreBackupMemoryR + End Sub + End Class + + ''' + _ + Partial Public Class Cycle + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private cmdField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Cmd() As UShort + Get + Return Me.cmdField + End Get + Set + Me.cmdField = value + Me.RaisePropertyChanged("Cmd") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class CycleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class CycleRequest + + _ + Public Cycle As OPENcontrol.Cycle + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Cycle As OPENcontrol.Cycle) + MyBase.New + Me.Cycle = Cycle + End Sub + End Class + + _ + Partial Public Class CycleResponse + + _ + Public CycleR As OPENcontrol.CycleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal CycleR As OPENcontrol.CycleR) + MyBase.New + Me.CycleR = CycleR + End Sub + End Class + + ''' + _ + Partial Public Class SyncroCycle + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SyncroCycleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SyncroCycleRequest + + _ + Public SyncroCycle As OPENcontrol.SyncroCycle + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SyncroCycle As OPENcontrol.SyncroCycle) + MyBase.New + Me.SyncroCycle = SyncroCycle + End Sub + End Class + + _ + Partial Public Class SyncroCycleResponse + + _ + Public SyncroCycleR As OPENcontrol.SyncroCycleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SyncroCycleR As OPENcontrol.SyncroCycleR) + MyBase.New + Me.SyncroCycleR = SyncroCycleR + End Sub + End Class + + ''' + _ + Partial Public Class Reset + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ResetR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ResetRequest + + _ + Public Reset As OPENcontrol.Reset + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Reset As OPENcontrol.Reset) + MyBase.New + Me.Reset = Reset + End Sub + End Class + + _ + Partial Public Class ResetResponse + + _ + Public ResetR As OPENcontrol.ResetR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ResetR As OPENcontrol.ResetR) + MyBase.New + Me.ResetR = ResetR + End Sub + End Class + + ''' + _ + Partial Public Class Hold + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private cmdField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Cmd() As UShort + Get + Return Me.cmdField + End Get + Set + Me.cmdField = value + Me.RaisePropertyChanged("Cmd") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class HoldR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class HoldRequest + + _ + Public Hold As OPENcontrol.Hold + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Hold As OPENcontrol.Hold) + MyBase.New + Me.Hold = Hold + End Sub + End Class + + _ + Partial Public Class HoldResponse + + _ + Public HoldR As OPENcontrol.HoldR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal HoldR As OPENcontrol.HoldR) + MyBase.New + Me.HoldR = HoldR + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedManOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private feedManOverField As UShort + + Private directionField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property FeedManOver() As UShort + Get + Return Me.feedManOverField + End Get + Set + Me.feedManOverField = value + Me.RaisePropertyChanged("FeedManOver") + End Set + End Property + + ''' + _ + Public Property Direction() As UShort + Get + Return Me.directionField + End Get + Set + Me.directionField = value + Me.RaisePropertyChanged("Direction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedManOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetFeedManOverRequest + + _ + Public SetFeedManOver As OPENcontrol.SetFeedManOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedManOver As OPENcontrol.SetFeedManOver) + MyBase.New + Me.SetFeedManOver = SetFeedManOver + End Sub + End Class + + _ + Partial Public Class SetFeedManOverResponse + + _ + Public SetFeedManOverR As OPENcontrol.SetFeedManOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedManOverR As OPENcontrol.SetFeedManOverR) + MyBase.New + Me.SetFeedManOverR = SetFeedManOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRateOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private feedRateOverField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property FeedRateOver() As UShort + Get + Return Me.feedRateOverField + End Get + Set + Me.feedRateOverField = value + Me.RaisePropertyChanged("FeedRateOver") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRateOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetFeedRateOverRequest + + _ + Public SetFeedRateOver As OPENcontrol.SetFeedRateOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRateOver As OPENcontrol.SetFeedRateOver) + MyBase.New + Me.SetFeedRateOver = SetFeedRateOver + End Sub + End Class + + _ + Partial Public Class SetFeedRateOverResponse + + _ + Public SetFeedRateOverR As OPENcontrol.SetFeedRateOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRateOverR As OPENcontrol.SetFeedRateOverR) + MyBase.New + Me.SetFeedRateOverR = SetFeedRateOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRapidOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private feedRapidOverField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property FeedRapidOver() As UShort + Get + Return Me.feedRapidOverField + End Get + Set + Me.feedRapidOverField = value + Me.RaisePropertyChanged("FeedRapidOver") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetFeedRapidOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetFeedRapidOverRequest + + _ + Public SetFeedRapidOver As OPENcontrol.SetFeedRapidOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRapidOver As OPENcontrol.SetFeedRapidOver) + MyBase.New + Me.SetFeedRapidOver = SetFeedRapidOver + End Sub + End Class + + _ + Partial Public Class SetFeedRapidOverResponse + + _ + Public SetFeedRapidOverR As OPENcontrol.SetFeedRapidOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetFeedRapidOverR As OPENcontrol.SetFeedRapidOverR) + MyBase.New + Me.SetFeedRapidOverR = SetFeedRapidOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetSpeedRateOver + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private speedRateOverField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property SpeedRateOver() As UShort + Get + Return Me.speedRateOverField + End Get + Set + Me.speedRateOverField = value + Me.RaisePropertyChanged("SpeedRateOver") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetSpeedRateOverR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetSpeedRateOverRequest + + _ + Public SetSpeedRateOver As OPENcontrol.SetSpeedRateOver + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetSpeedRateOver As OPENcontrol.SetSpeedRateOver) + MyBase.New + Me.SetSpeedRateOver = SetSpeedRateOver + End Sub + End Class + + _ + Partial Public Class SetSpeedRateOverResponse + + _ + Public SetSpeedRateOverR As OPENcontrol.SetSpeedRateOverR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetSpeedRateOverR As OPENcontrol.SetSpeedRateOverR) + MyBase.New + Me.SetSpeedRateOverR = SetSpeedRateOverR + End Sub + End Class + + ''' + _ + Partial Public Class SetManMovDirection + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private directionField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Direction() As UShort + Get + Return Me.directionField + End Get + Set + Me.directionField = value + Me.RaisePropertyChanged("Direction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetManMovDirectionR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetManMovDirectionRequest + + _ + Public SetManMovDirection As OPENcontrol.SetManMovDirection + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetManMovDirection As OPENcontrol.SetManMovDirection) + MyBase.New + Me.SetManMovDirection = SetManMovDirection + End Sub + End Class + + _ + Partial Public Class SetManMovDirectionResponse + + _ + Public SetManMovDirectionR As OPENcontrol.SetManMovDirectionR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetManMovDirectionR As OPENcontrol.SetManMovDirectionR) + MyBase.New + Me.SetManMovDirectionR = SetManMovDirectionR + End Sub + End Class + + ''' + _ + Partial Public Class GetVarJOG + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetVarJOGR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetVarJOGRequest + + _ + Public GetVarJOG As OPENcontrol.GetVarJOG + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarJOG As OPENcontrol.GetVarJOG) + MyBase.New + Me.GetVarJOG = GetVarJOG + End Sub + End Class + + _ + Partial Public Class GetVarJOGResponse + + _ + Public GetVarJOGR As OPENcontrol.GetVarJOGR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarJOGR As OPENcontrol.GetVarJOGR) + MyBase.New + Me.GetVarJOGR = GetVarJOGR + End Sub + End Class + + ''' + _ + Partial Public Class SetVarJOG + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private valueField As Double + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetVarJOGR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetVarJOGRequest + + _ + Public SetVarJOG As OPENcontrol.SetVarJOG + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarJOG As OPENcontrol.SetVarJOG) + MyBase.New + Me.SetVarJOG = SetVarJOG + End Sub + End Class + + _ + Partial Public Class SetVarJOGResponse + + _ + Public SetVarJOGR As OPENcontrol.SetVarJOGR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarJOGR As OPENcontrol.SetVarJOGR) + MyBase.New + Me.SetVarJOGR = SetVarJOGR + End Sub + End Class + + ''' + _ + Partial Public Class SetVarUAS + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetVarUASR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetVarUASRequest + + _ + Public SetVarUAS As OPENcontrol.SetVarUAS + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarUAS As OPENcontrol.SetVarUAS) + MyBase.New + Me.SetVarUAS = SetVarUAS + End Sub + End Class + + _ + Partial Public Class SetVarUASResponse + + _ + Public SetVarUASR As OPENcontrol.SetVarUASR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarUASR As OPENcontrol.SetVarUASR) + MyBase.New + Me.SetVarUASR = SetVarUASR + End Sub + End Class + + ''' + _ + Partial Public Class GetVarRCM + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetVarRCMR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As UShort + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetVarRCMRequest + + _ + Public GetVarRCM As OPENcontrol.GetVarRCM + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarRCM As OPENcontrol.GetVarRCM) + MyBase.New + Me.GetVarRCM = GetVarRCM + End Sub + End Class + + _ + Partial Public Class GetVarRCMResponse + + _ + Public GetVarRCMR As OPENcontrol.GetVarRCMR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetVarRCMR As OPENcontrol.GetVarRCMR) + MyBase.New + Me.GetVarRCMR = GetVarRCMR + End Sub + End Class + + ''' + _ + Partial Public Class SetVarRCM + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetVarRCMR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetVarRCMRequest + + _ + Public SetVarRCM As OPENcontrol.SetVarRCM + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarRCM As OPENcontrol.SetVarRCM) + MyBase.New + Me.SetVarRCM = SetVarRCM + End Sub + End Class + + _ + Partial Public Class SetVarRCMResponse + + _ + Public SetVarRCMR As OPENcontrol.SetVarRCMR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetVarRCMR As OPENcontrol.SetVarRCMR) + MyBase.New + Me.SetVarRCMR = SetVarRCMR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCWORDVARTYPE + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCWORDVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum PROCWORDVARTYPE + + ''' + _ + PROCWORDVARRCM + + ''' + _ + PROCWORDVARARM + + ''' + _ + PROCWORDVARDPS + + ''' + _ + PROCWORDVARRAP + + ''' + _ + PROCWORDVARTRP + + ''' + _ + PROCWORDVARVFF + + ''' + _ + PROCWORDVARUVR + + ''' + _ + PROCWORDVARDLA + + ''' + _ + PROCWORDVARMBR + + ''' + _ + PROCWORDVARURL + + ''' + _ + PROCWORDVARDSB + + ''' + _ + PROCWORDVARUSO + + ''' + _ + PROCWORDVARERR + + ''' + _ + PROCWORDVARHMP + + ''' + _ + PROCWORDVARUAS + + ''' + _ + PROCWORDVARMBA + + ''' + _ + PROCWORDVARREM + End Enum + + ''' + _ + Partial Public Class GetProcVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As UShort + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcVarWordRequest + + _ + Public GetProcVarWord As OPENcontrol.GetProcVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarWord As OPENcontrol.GetProcVarWord) + MyBase.New + Me.GetProcVarWord = GetProcVarWord + End Sub + End Class + + _ + Partial Public Class GetProcVarWordResponse + + _ + Public GetProcVarWordR As OPENcontrol.GetProcVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarWordR As OPENcontrol.GetProcVarWordR) + MyBase.New + Me.GetProcVarWordR = GetProcVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarWord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCWORDVARTYPE + + Private valueField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCWORDVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + ''' + _ + Public Property Value() As UShort + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarWordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetProcVarWordRequest + + _ + Public SetProcVarWord As OPENcontrol.SetProcVarWord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarWord As OPENcontrol.SetProcVarWord) + MyBase.New + Me.SetProcVarWord = SetProcVarWord + End Sub + End Class + + _ + Partial Public Class SetProcVarWordResponse + + _ + Public SetProcVarWordR As OPENcontrol.SetProcVarWordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarWordR As OPENcontrol.SetProcVarWordR) + MyBase.New + Me.SetProcVarWordR = SetProcVarWordR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCDOUBLEVARTYPE + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCDOUBLEVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum PROCDOUBLEVARTYPE + + ''' + _ + PROCDOUBLEVARURP + + ''' + _ + PROCDOUBLEVARDWT + + ''' + _ + PROCDOUBLEVARJOG + + ''' + _ + PROCDOUBLEVARMDA + + ''' + _ + PROCDOUBLEVARMSA + + ''' + _ + PROCDOUBLEVARSSL + + ''' + _ + PROCDOUBLEVARVEF + + ''' + _ + PROCDOUBLEVARUPO + + ''' + _ + PROCDOUBLEVARUPA + + ''' + _ + PROCDOUBLEVARCET + + ''' + _ + PROCDOUBLEVARFCT + + ''' + _ + PROCDOUBLEVARMBRLEN + + ''' + _ + PROCDOUBLEVARMBRTHR + End Enum + + ''' + _ + Partial Public Class GetProcVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcVarDoubleRequest + + _ + Public GetProcVarDouble As OPENcontrol.GetProcVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarDouble As OPENcontrol.GetProcVarDouble) + MyBase.New + Me.GetProcVarDouble = GetProcVarDouble + End Sub + End Class + + _ + Partial Public Class GetProcVarDoubleResponse + + _ + Public GetProcVarDoubleR As OPENcontrol.GetProcVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcVarDoubleR As OPENcontrol.GetProcVarDoubleR) + MyBase.New + Me.GetProcVarDoubleR = GetProcVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarDouble + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private varTypeField As PROCDOUBLEVARTYPE + + Private valueField As Double + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property VarType() As PROCDOUBLEVARTYPE + Get + Return Me.varTypeField + End Get + Set + Me.varTypeField = value + Me.RaisePropertyChanged("VarType") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetProcVarDoubleR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetProcVarDoubleRequest + + _ + Public SetProcVarDouble As OPENcontrol.SetProcVarDouble + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarDouble As OPENcontrol.SetProcVarDouble) + MyBase.New + Me.SetProcVarDouble = SetProcVarDouble + End Sub + End Class + + _ + Partial Public Class SetProcVarDoubleResponse + + _ + Public SetProcVarDoubleR As OPENcontrol.SetProcVarDoubleR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcVarDoubleR As OPENcontrol.SetProcVarDoubleR) + MyBase.New + Me.SetProcVarDoubleR = SetProcVarDoubleR + End Sub + End Class + + ''' + _ + Partial Public Class SetMdiString + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private mdiStringField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property MdiString() As String + Get + Return Me.mdiStringField + End Get + Set + Me.mdiStringField = value + Me.RaisePropertyChanged("MdiString") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetMdiStringR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetMdiStringRequest + + _ + Public SetMdiString As OPENcontrol.SetMdiString + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetMdiString As OPENcontrol.SetMdiString) + MyBase.New + Me.SetMdiString = SetMdiString + End Sub + End Class + + _ + Partial Public Class SetMdiStringResponse + + _ + Public SetMdiStringR As OPENcontrol.SetMdiStringR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetMdiStringR As OPENcontrol.SetMdiStringR) + MyBase.New + Me.SetMdiStringR = SetMdiStringR + End Sub + End Class + + ''' + _ + Partial Public Class SetProcessMode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetProcessModeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetProcessModeRequest + + _ + Public SetProcessMode As OPENcontrol.SetProcessMode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcessMode As OPENcontrol.SetProcessMode) + MyBase.New + Me.SetProcessMode = SetProcessMode + End Sub + End Class + + _ + Partial Public Class SetProcessModeResponse + + _ + Public SetProcessModeR As OPENcontrol.SetProcessModeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetProcessModeR As OPENcontrol.SetProcessModeR) + MyBase.New + Me.SetProcessModeR = SetProcessModeR + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcess + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcessR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectProcessRequest + + _ + Public SelectProcess As OPENcontrol.SelectProcess + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcess As OPENcontrol.SelectProcess) + MyBase.New + Me.SelectProcess = SelectProcess + End Sub + End Class + + _ + Partial Public Class SelectProcessResponse + + _ + Public SelectProcessR As OPENcontrol.SelectProcessR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcessR As OPENcontrol.SelectProcessR) + MyBase.New + Me.SelectProcessR = SelectProcessR + End Sub + End Class + + ''' + _ + Partial Public Class GetSelectedProcess + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetSelectedProcessR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private procNumField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetSelectedProcessRequest + + _ + Public GetSelectedProcess As OPENcontrol.GetSelectedProcess + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSelectedProcess As OPENcontrol.GetSelectedProcess) + MyBase.New + Me.GetSelectedProcess = GetSelectedProcess + End Sub + End Class + + _ + Partial Public Class GetSelectedProcessResponse + + _ + Public GetSelectedProcessR As OPENcontrol.GetSelectedProcessR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSelectedProcessR As OPENcontrol.GetSelectedProcessR) + MyBase.New + Me.GetSelectedProcessR = GetSelectedProcessR + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcAxis + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private axisNameField As Byte + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectProcAxisR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectProcAxisRequest + + _ + Public SelectProcAxis As OPENcontrol.SelectProcAxis + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcAxis As OPENcontrol.SelectProcAxis) + MyBase.New + Me.SelectProcAxis = SelectProcAxis + End Sub + End Class + + _ + Partial Public Class SelectProcAxisResponse + + _ + Public SelectProcAxisR As OPENcontrol.SelectProcAxisR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectProcAxisR As OPENcontrol.SelectProcAxisR) + MyBase.New + Me.SelectProcAxisR = SelectProcAxisR + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgram + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private pPNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property PPName() As String + Get + Return Me.pPNameField + End Get + Set + Me.pPNameField = value + Me.RaisePropertyChanged("PPName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgramR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectPartProgramRequest + + _ + Public SelectPartProgram As OPENcontrol.SelectPartProgram + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgram As OPENcontrol.SelectPartProgram) + MyBase.New + Me.SelectPartProgram = SelectPartProgram + End Sub + End Class + + _ + Partial Public Class SelectPartProgramResponse + + _ + Public SelectPartProgramR As OPENcontrol.SelectPartProgramR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgramR As OPENcontrol.SelectPartProgramR) + MyBase.New + Me.SelectPartProgramR = SelectPartProgramR + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgramFromDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private pPNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property PPName() As String + Get + Return Me.pPNameField + End Get + Set + Me.pPNameField = value + Me.RaisePropertyChanged("PPName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SelectPartProgramFromDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SelectPartProgramFromDriveRequest + + _ + Public SelectPartProgramFromDrive As OPENcontrol.SelectPartProgramFromDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgramFromDrive As OPENcontrol.SelectPartProgramFromDrive) + MyBase.New + Me.SelectPartProgramFromDrive = SelectPartProgramFromDrive + End Sub + End Class + + _ + Partial Public Class SelectPartProgramFromDriveResponse + + _ + Public SelectPartProgramFromDriveR As OPENcontrol.SelectPartProgramFromDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SelectPartProgramFromDriveR As OPENcontrol.SelectPartProgramFromDriveR) + MyBase.New + Me.SelectPartProgramFromDriveR = SelectPartProgramFromDriveR + End Sub + End Class + + ''' + _ + Partial Public Class GetActivePartProgram + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetActivePartProgramR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private levelField As UShort + + Private mainField As String + + Private subField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Level() As UShort + Get + Return Me.levelField + End Get + Set + Me.levelField = value + Me.RaisePropertyChanged("Level") + End Set + End Property + + ''' + _ + Public Property Main() As String + Get + Return Me.mainField + End Get + Set + Me.mainField = value + Me.RaisePropertyChanged("Main") + End Set + End Property + + ''' + _ + Public Property [Sub]() As String + Get + Return Me.subField + End Get + Set + Me.subField = value + Me.RaisePropertyChanged("Sub") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetActivePartProgramRequest + + _ + Public GetActivePartProgram As OPENcontrol.GetActivePartProgram + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetActivePartProgram As OPENcontrol.GetActivePartProgram) + MyBase.New + Me.GetActivePartProgram = GetActivePartProgram + End Sub + End Class + + _ + Partial Public Class GetActivePartProgramResponse + + _ + Public GetActivePartProgramR As OPENcontrol.GetActivePartProgramR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetActivePartProgramR As OPENcontrol.GetActivePartProgramR) + MyBase.New + Me.GetActivePartProgramR = GetActivePartProgramR + End Sub + End Class + + ''' + _ + Partial Public Class GetPartProgramLines + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetPartProgramLinesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private pPLine1Field As String + + Private pPLine2Field As String + + Private pPLine3Field As String + + Private pPLine4Field As String + + Private pPLine5Field As String + + Private pPLine6Field As String + + Private pPLine7Field As String + + Private pPLine8Field As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property PPLine1() As String + Get + Return Me.pPLine1Field + End Get + Set + Me.pPLine1Field = value + Me.RaisePropertyChanged("PPLine1") + End Set + End Property + + ''' + _ + Public Property PPLine2() As String + Get + Return Me.pPLine2Field + End Get + Set + Me.pPLine2Field = value + Me.RaisePropertyChanged("PPLine2") + End Set + End Property + + ''' + _ + Public Property PPLine3() As String + Get + Return Me.pPLine3Field + End Get + Set + Me.pPLine3Field = value + Me.RaisePropertyChanged("PPLine3") + End Set + End Property + + ''' + _ + Public Property PPLine4() As String + Get + Return Me.pPLine4Field + End Get + Set + Me.pPLine4Field = value + Me.RaisePropertyChanged("PPLine4") + End Set + End Property + + ''' + _ + Public Property PPLine5() As String + Get + Return Me.pPLine5Field + End Get + Set + Me.pPLine5Field = value + Me.RaisePropertyChanged("PPLine5") + End Set + End Property + + ''' + _ + Public Property PPLine6() As String + Get + Return Me.pPLine6Field + End Get + Set + Me.pPLine6Field = value + Me.RaisePropertyChanged("PPLine6") + End Set + End Property + + ''' + _ + Public Property PPLine7() As String + Get + Return Me.pPLine7Field + End Get + Set + Me.pPLine7Field = value + Me.RaisePropertyChanged("PPLine7") + End Set + End Property + + ''' + _ + Public Property PPLine8() As String + Get + Return Me.pPLine8Field + End Get + Set + Me.pPLine8Field = value + Me.RaisePropertyChanged("PPLine8") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetPartProgramLinesRequest + + _ + Public GetPartProgramLines As OPENcontrol.GetPartProgramLines + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPartProgramLines As OPENcontrol.GetPartProgramLines) + MyBase.New + Me.GetPartProgramLines = GetPartProgramLines + End Sub + End Class + + _ + Partial Public Class GetPartProgramLinesResponse + + _ + Public GetPartProgramLinesR As OPENcontrol.GetPartProgramLinesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPartProgramLinesR As OPENcontrol.GetPartProgramLinesR) + MyBase.New + Me.GetPartProgramLinesR = GetPartProgramLinesR + End Sub + End Class + + ''' + _ + Partial Public Class GetAxOriginNum + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private axesNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAxOriginNumR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private axesNumField As UShort + + Private axOriginNumField() As AXORIGNUM + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + ''' + _ + Public Property AxOriginNum() As AXORIGNUM() + Get + Return Me.axOriginNumField + End Get + Set + Me.axOriginNumField = value + Me.RaisePropertyChanged("AxOriginNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAxOriginNumRequest + + _ + Public GetAxOriginNum As OPENcontrol.GetAxOriginNum + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxOriginNum As OPENcontrol.GetAxOriginNum) + MyBase.New + Me.GetAxOriginNum = GetAxOriginNum + End Sub + End Class + + _ + Partial Public Class GetAxOriginNumResponse + + _ + Public GetAxOriginNumR As OPENcontrol.GetAxOriginNumR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxOriginNumR As OPENcontrol.GetAxOriginNumR) + MyBase.New + Me.GetAxOriginNumR = GetAxOriginNumR + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesPosition + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private axisNameField As Byte + + Private selectField As UShort + + Private numAxisField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property AxisName() As Byte + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + ''' + _ + Public Property [Select]() As UShort + Get + Return Me.selectField + End Get + Set + Me.selectField = value + Me.RaisePropertyChanged("Select") + End Set + End Property + + ''' + _ + Public Property NumAxis() As UShort + Get + Return Me.numAxisField + End Get + Set + Me.numAxisField = value + Me.RaisePropertyChanged("NumAxis") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesPositionR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numAxisField As UShort + + Private intPosField() As GETINTDATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumAxis() As UShort + Get + Return Me.numAxisField + End Get + Set + Me.numAxisField = value + Me.RaisePropertyChanged("NumAxis") + End Set + End Property + + ''' + _ + Public Property IntPos() As GETINTDATA() + Get + Return Me.intPosField + End Get + Set + Me.intPosField = value + Me.RaisePropertyChanged("IntPos") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAxesPositionRequest + + _ + Public GetAxesPosition As OPENcontrol.GetAxesPosition + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesPosition As OPENcontrol.GetAxesPosition) + MyBase.New + Me.GetAxesPosition = GetAxesPosition + End Sub + End Class + + _ + Partial Public Class GetAxesPositionResponse + + _ + Public GetAxesPositionR As OPENcontrol.GetAxesPositionR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesPositionR As OPENcontrol.GetAxesPositionR) + MyBase.New + Me.GetAxesPositionR = GetAxesPositionR + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo1 + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo1R + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private getInfoField As GETINFO1DATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GetInfo() As GETINFO1DATA + Get + Return Me.getInfoField + End Get + Set + Me.getInfoField = value + Me.RaisePropertyChanged("GetInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetNcInfo1Request + + _ + Public GetNcInfo1 As OPENcontrol.GetNcInfo1 + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo1 As OPENcontrol.GetNcInfo1) + MyBase.New + Me.GetNcInfo1 = GetNcInfo1 + End Sub + End Class + + _ + Partial Public Class GetNcInfo1Response + + _ + Public GetNcInfo1R As OPENcontrol.GetNcInfo1R + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo1R As OPENcontrol.GetNcInfo1R) + MyBase.New + Me.GetNcInfo1R = GetNcInfo1R + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo2 + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetNcInfo2R + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private getInfoField As GETINFO2DATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GetInfo() As GETINFO2DATA + Get + Return Me.getInfoField + End Get + Set + Me.getInfoField = value + Me.RaisePropertyChanged("GetInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetNcInfo2Request + + _ + Public GetNcInfo2 As OPENcontrol.GetNcInfo2 + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo2 As OPENcontrol.GetNcInfo2) + MyBase.New + Me.GetNcInfo2 = GetNcInfo2 + End Sub + End Class + + _ + Partial Public Class GetNcInfo2Response + + _ + Public GetNcInfo2R As OPENcontrol.GetNcInfo2R + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNcInfo2R As OPENcontrol.GetNcInfo2R) + MyBase.New + Me.GetNcInfo2R = GetNcInfo2R + End Sub + End Class + + ''' + _ + Partial Public Class GetToolNames + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetToolNamesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private toolField As String + + Private progToolField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Tool() As String + Get + Return Me.toolField + End Get + Set + Me.toolField = value + Me.RaisePropertyChanged("Tool") + End Set + End Property + + ''' + _ + Public Property ProgTool() As String + Get + Return Me.progToolField + End Get + Set + Me.progToolField = value + Me.RaisePropertyChanged("ProgTool") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetToolNamesRequest + + _ + Public GetToolNames As OPENcontrol.GetToolNames + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolNames As OPENcontrol.GetToolNames) + MyBase.New + Me.GetToolNames = GetToolNames + End Sub + End Class + + _ + Partial Public Class GetToolNamesResponse + + _ + Public GetToolNamesR As OPENcontrol.GetToolNamesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetToolNamesR As OPENcontrol.GetToolNamesR) + MyBase.New + Me.GetToolNamesR = GetToolNamesR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessStatus + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessStatusR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private procStatField As PROCDATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcStat() As PROCDATA + Get + Return Me.procStatField + End Get + Set + Me.procStatField = value + Me.RaisePropertyChanged("ProcStat") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcessStatusRequest + + _ + Public GetProcessStatus As OPENcontrol.GetProcessStatus + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessStatus As OPENcontrol.GetProcessStatus) + MyBase.New + Me.GetProcessStatus = GetProcessStatus + End Sub + End Class + + _ + Partial Public Class GetProcessStatusResponse + + _ + Public GetProcessStatusR As OPENcontrol.GetProcessStatusR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessStatusR As OPENcontrol.GetProcessStatusR) + MyBase.New + Me.GetProcessStatusR = GetProcessStatusR + End Sub + End Class + + ''' + _ + Partial Public Class GetBlkNum + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetBlkNumR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private getBlkNumField As GETBLKNUMDATA + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GetBlkNum() As GETBLKNUMDATA + Get + Return Me.getBlkNumField + End Get + Set + Me.getBlkNumField = value + Me.RaisePropertyChanged("GetBlkNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetBlkNumRequest + + _ + Public GetBlkNum As OPENcontrol.GetBlkNum + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBlkNum As OPENcontrol.GetBlkNum) + MyBase.New + Me.GetBlkNum = GetBlkNum + End Sub + End Class + + _ + Partial Public Class GetBlkNumResponse + + _ + Public GetBlkNumR As OPENcontrol.GetBlkNumR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBlkNumR As OPENcontrol.GetBlkNumR) + MyBase.New + Me.GetBlkNumR = GetBlkNumR + End Sub + End Class + + ''' + _ + Partial Public Class ReadErrMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadErrMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sysErrMsgField As ERRMSG + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SysErrMsg() As ERRMSG + Get + Return Me.sysErrMsgField + End Get + Set + Me.sysErrMsgField = value + Me.RaisePropertyChanged("SysErrMsg") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadErrMsgRequest + + _ + Public ReadErrMsg As OPENcontrol.ReadErrMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadErrMsg As OPENcontrol.ReadErrMsg) + MyBase.New + Me.ReadErrMsg = ReadErrMsg + End Sub + End Class + + _ + Partial Public Class ReadErrMsgResponse + + _ + Public ReadErrMsgR As OPENcontrol.ReadErrMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadErrMsgR As OPENcontrol.ReadErrMsgR) + MyBase.New + Me.ReadErrMsgR = ReadErrMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadPartProgramMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadPartProgramMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private partProgramMsgField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property PartProgramMsg() As String + Get + Return Me.partProgramMsgField + End Get + Set + Me.partProgramMsgField = value + Me.RaisePropertyChanged("PartProgramMsg") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadPartProgramMsgRequest + + _ + Public ReadPartProgramMsg As OPENcontrol.ReadPartProgramMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadPartProgramMsg As OPENcontrol.ReadPartProgramMsg) + MyBase.New + Me.ReadPartProgramMsg = ReadPartProgramMsg + End Sub + End Class + + _ + Partial Public Class ReadPartProgramMsgResponse + + _ + Public ReadPartProgramMsgR As OPENcontrol.ReadPartProgramMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadPartProgramMsgR As OPENcontrol.ReadPartProgramMsgR) + MyBase.New + Me.ReadPartProgramMsgR = ReadPartProgramMsgR + End Sub + End Class + + ''' + _ + Partial Public Class GetGCode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetGCodeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private gCodeField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property GCode() As UShort() + Get + Return Me.gCodeField + End Get + Set + Me.gCodeField = value + Me.RaisePropertyChanged("GCode") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetGCodeRequest + + _ + Public GetGCode As OPENcontrol.GetGCode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetGCode As OPENcontrol.GetGCode) + MyBase.New + Me.GetGCode = GetGCode + End Sub + End Class + + _ + Partial Public Class GetGCodeResponse + + _ + Public GetGCodeR As OPENcontrol.GetGCodeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetGCodeR As OPENcontrol.GetGCodeR) + MyBase.New + Me.GetGCodeR = GetGCodeR + End Sub + End Class + + ''' + _ + Partial Public Class GetMCode + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetMCodeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private mCodeField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property MCode() As UShort() + Get + Return Me.mCodeField + End Get + Set + Me.mCodeField = value + Me.RaisePropertyChanged("MCode") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetMCodeRequest + + _ + Public GetMCode As OPENcontrol.GetMCode + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMCode As OPENcontrol.GetMCode) + MyBase.New + Me.GetMCode = GetMCode + End Sub + End Class + + _ + Partial Public Class GetMCodeResponse + + _ + Public GetMCodeR As OPENcontrol.GetMCodeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMCodeR As OPENcontrol.GetMCodeR) + MyBase.New + Me.GetMCodeR = GetMCodeR + End Sub + End Class + + ''' + _ + Partial Public Class SkipPProgBlock + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private numOfBlocksField As UInteger + + Private directionField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property NumOfBlocks() As UInteger + Get + Return Me.numOfBlocksField + End Get + Set + Me.numOfBlocksField = value + Me.RaisePropertyChanged("NumOfBlocks") + End Set + End Property + + ''' + _ + Public Property Direction() As UShort + Get + Return Me.directionField + End Get + Set + Me.directionField = value + Me.RaisePropertyChanged("Direction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SkipPProgBlockR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SkipPProgBlockRequest + + _ + Public SkipPProgBlock As OPENcontrol.SkipPProgBlock + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SkipPProgBlock As OPENcontrol.SkipPProgBlock) + MyBase.New + Me.SkipPProgBlock = SkipPProgBlock + End Sub + End Class + + _ + Partial Public Class SkipPProgBlockResponse + + _ + Public SkipPProgBlockR As OPENcontrol.SkipPProgBlockR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SkipPProgBlockR As OPENcontrol.SkipPProgBlockR) + MyBase.New + Me.SkipPProgBlockR = SkipPProgBlockR + End Sub + End Class + + ''' + _ + Partial Public Class Ese + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private blockNumField As UInteger + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property BlockNum() As UInteger + Get + Return Me.blockNumField + End Get + Set + Me.blockNumField = value + Me.RaisePropertyChanged("BlockNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class EseR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class EseRequest + + _ + Public Ese As OPENcontrol.Ese + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Ese As OPENcontrol.Ese) + MyBase.New + Me.Ese = Ese + End Sub + End Class + + _ + Partial Public Class EseResponse + + _ + Public EseR As OPENcontrol.EseR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal EseR As OPENcontrol.EseR) + MyBase.New + Me.EseR = EseR + End Sub + End Class + + ''' + _ + Partial Public Class EseEx + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private modeField As RCMTOMODE + + Private maskField As UInteger + + Private blockNumField As UInteger + + Private lineNumField As UInteger + + Private brkValField As UInteger + + Private labelField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Mode() As RCMTOMODE + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property Mask() As UInteger + Get + Return Me.maskField + End Get + Set + Me.maskField = value + Me.RaisePropertyChanged("Mask") + End Set + End Property + + ''' + _ + Public Property BlockNum() As UInteger + Get + Return Me.blockNumField + End Get + Set + Me.blockNumField = value + Me.RaisePropertyChanged("BlockNum") + End Set + End Property + + ''' + _ + Public Property LineNum() As UInteger + Get + Return Me.lineNumField + End Get + Set + Me.lineNumField = value + Me.RaisePropertyChanged("LineNum") + End Set + End Property + + ''' + _ + Public Property BrkVal() As UInteger + Get + Return Me.brkValField + End Get + Set + Me.brkValField = value + Me.RaisePropertyChanged("BrkVal") + End Set + End Property + + ''' + _ + Public Property Label() As String + Get + Return Me.labelField + End Get + Set + Me.labelField = value + Me.RaisePropertyChanged("Label") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum RCMTOMODE + + ''' + _ + RCMTOTO + + ''' + _ + RCMTONEXT + End Enum + + ''' + _ + Partial Public Class EseExR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class EseExRequest + + _ + Public EseEx As OPENcontrol.EseEx + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal EseEx As OPENcontrol.EseEx) + MyBase.New + Me.EseEx = EseEx + End Sub + End Class + + _ + Partial Public Class EseExResponse + + _ + Public EseExR As OPENcontrol.EseExR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal EseExR As OPENcontrol.EseExR) + MyBase.New + Me.EseExR = EseExR + End Sub + End Class + + ''' + _ + Partial Public Class Exe + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private funcField As UShort + + Private modeField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Func() As UShort + Get + Return Me.funcField + End Get + Set + Me.funcField = value + Me.RaisePropertyChanged("Func") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ExeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ExeRequest + + _ + Public Exe As OPENcontrol.Exe + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Exe As OPENcontrol.Exe) + MyBase.New + Me.Exe = Exe + End Sub + End Class + + _ + Partial Public Class ExeResponse + + _ + Public ExeR As OPENcontrol.ExeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ExeR As OPENcontrol.ExeR) + MyBase.New + Me.ExeR = ExeR + End Sub + End Class + + ''' + _ + Partial Public Class AxesRef + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private numAxField As UShort + + Private axisNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property NumAx() As UShort + Get + Return Me.numAxField + End Get + Set + Me.numAxField = value + Me.RaisePropertyChanged("NumAx") + End Set + End Property + + ''' + _ + Public Property AxisName() As String + Get + Return Me.axisNameField + End Get + Set + Me.axisNameField = value + Me.RaisePropertyChanged("AxisName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class AxesRefR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class AxesRefRequest + + _ + Public AxesRef As OPENcontrol.AxesRef + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal AxesRef As OPENcontrol.AxesRef) + MyBase.New + Me.AxesRef = AxesRef + End Sub + End Class + + _ + Partial Public Class AxesRefResponse + + _ + Public AxesRefR As OPENcontrol.AxesRefR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal AxesRefR As OPENcontrol.AxesRefR) + MyBase.New + Me.AxesRefR = AxesRefR + End Sub + End Class + + ''' + _ + Partial Public Class DncInit + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private pathNameField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncInitR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncInitRequest + + _ + Public DncInit As OPENcontrol.DncInit + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncInit As OPENcontrol.DncInit) + MyBase.New + Me.DncInit = DncInit + End Sub + End Class + + _ + Partial Public Class DncInitResponse + + _ + Public DncInitR As OPENcontrol.DncInitR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncInitR As OPENcontrol.DncInitR) + MyBase.New + Me.DncInitR = DncInitR + End Sub + End Class + + ''' + _ + Partial Public Class DncData + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + Private dataField As String + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + ''' + _ + Public Property Data() As String + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncDataR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncDataRequest + + _ + Public DncData As OPENcontrol.DncData + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncData As OPENcontrol.DncData) + MyBase.New + Me.DncData = DncData + End Sub + End Class + + _ + Partial Public Class DncDataResponse + + _ + Public DncDataR As OPENcontrol.DncDataR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncDataR As OPENcontrol.DncDataR) + MyBase.New + Me.DncDataR = DncDataR + End Sub + End Class + + ''' + _ + Partial Public Class DncEof + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncEofR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncEofRequest + + _ + Public DncEof As OPENcontrol.DncEof + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncEof As OPENcontrol.DncEof) + MyBase.New + Me.DncEof = DncEof + End Sub + End Class + + _ + Partial Public Class DncEofResponse + + _ + Public DncEofR As OPENcontrol.DncEofR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncEofR As OPENcontrol.DncEofR) + MyBase.New + Me.DncEofR = DncEofR + End Sub + End Class + + ''' + _ + Partial Public Class DncStop + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private procNumField As UShort + + ''' + _ + Public Property ProcNum() As UShort + Get + Return Me.procNumField + End Get + Set + Me.procNumField = value + Me.RaisePropertyChanged("ProcNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class DncStopR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class DncStopRequest + + _ + Public DncStop As OPENcontrol.DncStop + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncStop As OPENcontrol.DncStop) + MyBase.New + Me.DncStop = DncStop + End Sub + End Class + + _ + Partial Public Class DncStopResponse + + _ + Public DncStopR As OPENcontrol.DncStopR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal DncStopR As OPENcontrol.DncStopR) + MyBase.New + Me.DncStopR = DncStopR + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesInfo3 + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisIdField As UShort + + Private axesNumField As UShort + + ''' + _ + Public Property AxisId() As UShort + Get + Return Me.axisIdField + End Get + Set + Me.axisIdField = value + Me.RaisePropertyChanged("AxisId") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAxesInfo3R + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private axesNumField As UShort + + Private axOwnerListField() As UShort + + Private axNameListField() As Byte + + Private axTypeField() As UShort + + Private axInterfaceField() As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property AxesNum() As UShort + Get + Return Me.axesNumField + End Get + Set + Me.axesNumField = value + Me.RaisePropertyChanged("AxesNum") + End Set + End Property + + ''' + _ + Public Property AxOwnerList() As UShort() + Get + Return Me.axOwnerListField + End Get + Set + Me.axOwnerListField = value + Me.RaisePropertyChanged("AxOwnerList") + End Set + End Property + + ''' + _ + Public Property AxNameList() As Byte() + Get + Return Me.axNameListField + End Get + Set + Me.axNameListField = value + Me.RaisePropertyChanged("AxNameList") + End Set + End Property + + ''' + _ + Public Property AxType() As UShort() + Get + Return Me.axTypeField + End Get + Set + Me.axTypeField = value + Me.RaisePropertyChanged("AxType") + End Set + End Property + + ''' + _ + Public Property AxInterface() As UShort() + Get + Return Me.axInterfaceField + End Get + Set + Me.axInterfaceField = value + Me.RaisePropertyChanged("AxInterface") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAxesInfo3Request + + _ + Public GetAxesInfo3 As OPENcontrol.GetAxesInfo3 + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesInfo3 As OPENcontrol.GetAxesInfo3) + MyBase.New + Me.GetAxesInfo3 = GetAxesInfo3 + End Sub + End Class + + _ + Partial Public Class GetAxesInfo3Response + + _ + Public GetAxesInfo3R As OPENcontrol.GetAxesInfo3R + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAxesInfo3R As OPENcontrol.GetAxesInfo3R) + MyBase.New + Me.GetAxesInfo3R = GetAxesInfo3R + End Sub + End Class + + ''' + _ + Partial Public Class GetCodeNumber + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetCodeNumberR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private codeNumberField As String + + Private swVersionField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property CodeNumber() As String + Get + Return Me.codeNumberField + End Get + Set + Me.codeNumberField = value + Me.RaisePropertyChanged("CodeNumber") + End Set + End Property + + ''' + _ + Public Property SwVersion() As String + Get + Return Me.swVersionField + End Get + Set + Me.swVersionField = value + Me.RaisePropertyChanged("SwVersion") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCodeNumberRequest + + _ + Public GetCodeNumber As OPENcontrol.GetCodeNumber + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCodeNumber As OPENcontrol.GetCodeNumber) + MyBase.New + Me.GetCodeNumber = GetCodeNumber + End Sub + End Class + + _ + Partial Public Class GetCodeNumberResponse + + _ + Public GetCodeNumberR As OPENcontrol.GetCodeNumberR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCodeNumberR As OPENcontrol.GetCodeNumberR) + MyBase.New + Me.GetCodeNumberR = GetCodeNumberR + End Sub + End Class + + ''' + _ + Partial Public Class GetOptions + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetOptionsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private optionField() As Byte + + Private securLevelField() As Byte + + Private swVersionField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property [Option]() As Byte() + Get + Return Me.optionField + End Get + Set + Me.optionField = value + Me.RaisePropertyChanged("Option") + End Set + End Property + + ''' + _ + Public Property SecurLevel() As Byte() + Get + Return Me.securLevelField + End Get + Set + Me.securLevelField = value + Me.RaisePropertyChanged("SecurLevel") + End Set + End Property + + ''' + _ + Public Property SwVersion() As String + Get + Return Me.swVersionField + End Get + Set + Me.swVersionField = value + Me.RaisePropertyChanged("SwVersion") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetOptionsRequest + + _ + Public GetOptions As OPENcontrol.GetOptions + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOptions As OPENcontrol.GetOptions) + MyBase.New + Me.GetOptions = GetOptions + End Sub + End Class + + _ + Partial Public Class GetOptionsResponse + + _ + Public GetOptionsR As OPENcontrol.GetOptionsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetOptionsR As OPENcontrol.GetOptionsR) + MyBase.New + Me.GetOptionsR = GetOptionsR + End Sub + End Class + + ''' + _ + Partial Public Class GetDateTime + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetDateTimeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private yearField As UShort + + Private monthField As UShort + + Private dayField As UShort + + Private hourField As UShort + + Private minuteField As UShort + + Private secondField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Year() As UShort + Get + Return Me.yearField + End Get + Set + Me.yearField = value + Me.RaisePropertyChanged("Year") + End Set + End Property + + ''' + _ + Public Property Month() As UShort + Get + Return Me.monthField + End Get + Set + Me.monthField = value + Me.RaisePropertyChanged("Month") + End Set + End Property + + ''' + _ + Public Property Day() As UShort + Get + Return Me.dayField + End Get + Set + Me.dayField = value + Me.RaisePropertyChanged("Day") + End Set + End Property + + ''' + _ + Public Property Hour() As UShort + Get + Return Me.hourField + End Get + Set + Me.hourField = value + Me.RaisePropertyChanged("Hour") + End Set + End Property + + ''' + _ + Public Property Minute() As UShort + Get + Return Me.minuteField + End Get + Set + Me.minuteField = value + Me.RaisePropertyChanged("Minute") + End Set + End Property + + ''' + _ + Public Property Second() As UShort + Get + Return Me.secondField + End Get + Set + Me.secondField = value + Me.RaisePropertyChanged("Second") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetDateTimeRequest + + _ + Public GetDateTime As OPENcontrol.GetDateTime + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateTime As OPENcontrol.GetDateTime) + MyBase.New + Me.GetDateTime = GetDateTime + End Sub + End Class + + _ + Partial Public Class GetDateTimeResponse + + _ + Public GetDateTimeR As OPENcontrol.GetDateTimeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDateTimeR As OPENcontrol.GetDateTimeR) + MyBase.New + Me.GetDateTimeR = GetDateTimeR + End Sub + End Class + + ''' + _ + Partial Public Class SetDateTime + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private yearField As UShort + + Private monthField As UShort + + Private dayField As UShort + + Private hourField As UShort + + Private minuteField As UShort + + Private secondField As UShort + + ''' + _ + Public Property Year() As UShort + Get + Return Me.yearField + End Get + Set + Me.yearField = value + Me.RaisePropertyChanged("Year") + End Set + End Property + + ''' + _ + Public Property Month() As UShort + Get + Return Me.monthField + End Get + Set + Me.monthField = value + Me.RaisePropertyChanged("Month") + End Set + End Property + + ''' + _ + Public Property Day() As UShort + Get + Return Me.dayField + End Get + Set + Me.dayField = value + Me.RaisePropertyChanged("Day") + End Set + End Property + + ''' + _ + Public Property Hour() As UShort + Get + Return Me.hourField + End Get + Set + Me.hourField = value + Me.RaisePropertyChanged("Hour") + End Set + End Property + + ''' + _ + Public Property Minute() As UShort + Get + Return Me.minuteField + End Get + Set + Me.minuteField = value + Me.RaisePropertyChanged("Minute") + End Set + End Property + + ''' + _ + Public Property Second() As UShort + Get + Return Me.secondField + End Get + Set + Me.secondField = value + Me.RaisePropertyChanged("Second") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetDateTimeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetDateTimeRequest + + _ + Public SetDateTime As OPENcontrol.SetDateTime + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetDateTime As OPENcontrol.SetDateTime) + MyBase.New + Me.SetDateTime = SetDateTime + End Sub + End Class + + _ + Partial Public Class SetDateTimeResponse + + _ + Public SetDateTimeR As OPENcontrol.SetDateTimeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetDateTimeR As OPENcontrol.SetDateTimeR) + MyBase.New + Me.SetDateTimeR = SetDateTimeR + End Sub + End Class + + ''' + _ + Partial Public Class GetSerialNumber + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetSerialNumberR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private serialNumberField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SerialNumber() As String + Get + Return Me.serialNumberField + End Get + Set + Me.serialNumberField = value + Me.RaisePropertyChanged("SerialNumber") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetSerialNumberRequest + + _ + Public GetSerialNumber As OPENcontrol.GetSerialNumber + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSerialNumber As OPENcontrol.GetSerialNumber) + MyBase.New + Me.GetSerialNumber = GetSerialNumber + End Sub + End Class + + _ + Partial Public Class GetSerialNumberResponse + + _ + Public GetSerialNumberR As OPENcontrol.GetSerialNumberR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSerialNumberR As OPENcontrol.GetSerialNumberR) + MyBase.New + Me.GetSerialNumberR = GetSerialNumberR + End Sub + End Class + + ''' + _ + Partial Public Class PutFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private dataField As String + + Private sizeField As UInteger + + Private pathNameField As String + + ''' + _ + Public Property Data() As String + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class PutFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class PutFileRequest + + _ + Public PutFile As OPENcontrol.PutFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutFile As OPENcontrol.PutFile) + MyBase.New + Me.PutFile = PutFile + End Sub + End Class + + _ + Partial Public Class PutFileResponse + + _ + Public PutFileR As OPENcontrol.PutFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutFileR As OPENcontrol.PutFileR) + MyBase.New + Me.PutFileR = PutFileR + End Sub + End Class + + ''' + _ + Partial Public Class GetFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private sizeField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sizeField As UInteger + + Private dataField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + ''' + _ + Public Property Data() As String + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetFileRequest + + _ + Public GetFile As OPENcontrol.GetFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetFile As OPENcontrol.GetFile) + MyBase.New + Me.GetFile = GetFile + End Sub + End Class + + _ + Partial Public Class GetFileResponse + + _ + Public GetFileR As OPENcontrol.GetFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetFileR As OPENcontrol.GetFileR) + MyBase.New + Me.GetFileR = GetFileR + End Sub + End Class + + ''' + _ + Partial Public Class PutBinaryFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private dataField() As Byte + + Private pathNameField As String + + ''' + _ + Public Property Data() As Byte() + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class PutBinaryFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class PutBinaryFileRequest + + _ + Public PutBinaryFile As OPENcontrol.PutBinaryFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutBinaryFile As OPENcontrol.PutBinaryFile) + MyBase.New + Me.PutBinaryFile = PutBinaryFile + End Sub + End Class + + _ + Partial Public Class PutBinaryFileResponse + + _ + Public PutBinaryFileR As OPENcontrol.PutBinaryFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal PutBinaryFileR As OPENcontrol.PutBinaryFileR) + MyBase.New + Me.PutBinaryFileR = PutBinaryFileR + End Sub + End Class + + ''' + _ + Partial Public Class GetBinaryFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private sizeField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetBinaryFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As Byte() + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetBinaryFileRequest + + _ + Public GetBinaryFile As OPENcontrol.GetBinaryFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBinaryFile As OPENcontrol.GetBinaryFile) + MyBase.New + Me.GetBinaryFile = GetBinaryFile + End Sub + End Class + + _ + Partial Public Class GetBinaryFileResponse + + _ + Public GetBinaryFileR As OPENcontrol.GetBinaryFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetBinaryFileR As OPENcontrol.GetBinaryFileR) + MyBase.New + Me.GetBinaryFileR = GetBinaryFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSSetSecurityLevel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private passwordField As String + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property Password() As String + Get + Return Me.passwordField + End Get + Set + Me.passwordField = value + Me.RaisePropertyChanged("Password") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Public Enum SECURITYLEVEL + + ''' + _ + SECURITYLEVELADMIN + + ''' + _ + SECURITYLEVELSERVICE + + ''' + _ + SECURITYLEVELOEMADMIN + + ''' + _ + SECURITYLEVELOEMSERVICE + + ''' + _ + SECURITYLEVELUSERADMIN + + ''' + _ + SECURITYLEVELUSERSERVICE + End Enum + + ''' + _ + Partial Public Class LogFSSetSecurityLevelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private oldSecurityLevelField As SECURITYLEVEL + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property OldSecurityLevel() As SECURITYLEVEL + Get + Return Me.oldSecurityLevelField + End Get + Set + Me.oldSecurityLevelField = value + Me.RaisePropertyChanged("OldSecurityLevel") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSSetSecurityLevelRequest + + _ + Public LogFSSetSecurityLevel As OPENcontrol.LogFSSetSecurityLevel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetSecurityLevel As OPENcontrol.LogFSSetSecurityLevel) + MyBase.New + Me.LogFSSetSecurityLevel = LogFSSetSecurityLevel + End Sub + End Class + + _ + Partial Public Class LogFSSetSecurityLevelResponse + + _ + Public LogFSSetSecurityLevelR As OPENcontrol.LogFSSetSecurityLevelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetSecurityLevelR As OPENcontrol.LogFSSetSecurityLevelR) + MyBase.New + Me.LogFSSetSecurityLevelR = LogFSSetSecurityLevelR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetSecurityLevel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetSecurityLevelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private securityLevelField As SECURITYLEVEL + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetSecurityLevelRequest + + _ + Public LogFSGetSecurityLevel As OPENcontrol.LogFSGetSecurityLevel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetSecurityLevel As OPENcontrol.LogFSGetSecurityLevel) + MyBase.New + Me.LogFSGetSecurityLevel = LogFSGetSecurityLevel + End Sub + End Class + + _ + Partial Public Class LogFSGetSecurityLevelResponse + + _ + Public LogFSGetSecurityLevelR As OPENcontrol.LogFSGetSecurityLevelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetSecurityLevelR As OPENcontrol.LogFSGetSecurityLevelR) + MyBase.New + Me.LogFSGetSecurityLevelR = LogFSGetSecurityLevelR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSLongFileNames + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSLongFileNamesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private useLongFileNamesField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property UseLongFileNames() As UShort + Get + Return Me.useLongFileNamesField + End Get + Set + Me.useLongFileNamesField = value + Me.RaisePropertyChanged("UseLongFileNames") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSLongFileNamesRequest + + _ + Public LogFSLongFileNames As OPENcontrol.LogFSLongFileNames + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSLongFileNames As OPENcontrol.LogFSLongFileNames) + MyBase.New + Me.LogFSLongFileNames = LogFSLongFileNames + End Sub + End Class + + _ + Partial Public Class LogFSLongFileNamesResponse + + _ + Public LogFSLongFileNamesR As OPENcontrol.LogFSLongFileNamesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSLongFileNamesR As OPENcontrol.LogFSLongFileNamesR) + MyBase.New + Me.LogFSLongFileNamesR = LogFSLongFileNamesR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetNumDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetNumDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numHiddenDriveField As UShort + + Private numUserDriveField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumHiddenDrive() As UShort + Get + Return Me.numHiddenDriveField + End Get + Set + Me.numHiddenDriveField = value + Me.RaisePropertyChanged("NumHiddenDrive") + End Set + End Property + + ''' + _ + Public Property NumUserDrive() As UShort + Get + Return Me.numUserDriveField + End Get + Set + Me.numUserDriveField = value + Me.RaisePropertyChanged("NumUserDrive") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetNumDriveRequest + + _ + Public LogFSGetNumDrive As OPENcontrol.LogFSGetNumDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetNumDrive As OPENcontrol.LogFSGetNumDrive) + MyBase.New + Me.LogFSGetNumDrive = LogFSGetNumDrive + End Sub + End Class + + _ + Partial Public Class LogFSGetNumDriveResponse + + _ + Public LogFSGetNumDriveR As OPENcontrol.LogFSGetNumDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetNumDriveR As OPENcontrol.LogFSGetNumDriveR) + MyBase.New + Me.LogFSGetNumDriveR = LogFSGetNumDriveR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDriveList + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private indexField As UShort + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDriveListR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private driveNameField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetDriveListRequest + + _ + Public LogFSGetDriveList As OPENcontrol.LogFSGetDriveList + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDriveList As OPENcontrol.LogFSGetDriveList) + MyBase.New + Me.LogFSGetDriveList = LogFSGetDriveList + End Sub + End Class + + _ + Partial Public Class LogFSGetDriveListResponse + + _ + Public LogFSGetDriveListR As OPENcontrol.LogFSGetDriveListR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDriveListR As OPENcontrol.LogFSGetDriveListR) + MyBase.New + Me.LogFSGetDriveListR = LogFSGetDriveListR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetHiddenDriveList + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private indexField As UShort + + ''' + _ + Public Property Index() As UShort + Get + Return Me.indexField + End Get + Set + Me.indexField = value + Me.RaisePropertyChanged("Index") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetHiddenDriveListR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private driveNameField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetHiddenDriveListRequest + + _ + Public LogFSGetHiddenDriveList As OPENcontrol.LogFSGetHiddenDriveList + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetHiddenDriveList As OPENcontrol.LogFSGetHiddenDriveList) + MyBase.New + Me.LogFSGetHiddenDriveList = LogFSGetHiddenDriveList + End Sub + End Class + + _ + Partial Public Class LogFSGetHiddenDriveListResponse + + _ + Public LogFSGetHiddenDriveListR As OPENcontrol.LogFSGetHiddenDriveListR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetHiddenDriveListR As OPENcontrol.LogFSGetHiddenDriveListR) + MyBase.New + Me.LogFSGetHiddenDriveListR = LogFSGetHiddenDriveListR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDrivePath + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private driveNameField As String + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetDrivePathR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private drivePathField As String + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DrivePath() As String + Get + Return Me.drivePathField + End Get + Set + Me.drivePathField = value + Me.RaisePropertyChanged("DrivePath") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetDrivePathRequest + + _ + Public LogFSGetDrivePath As OPENcontrol.LogFSGetDrivePath + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDrivePath As OPENcontrol.LogFSGetDrivePath) + MyBase.New + Me.LogFSGetDrivePath = LogFSGetDrivePath + End Sub + End Class + + _ + Partial Public Class LogFSGetDrivePathResponse + + _ + Public LogFSGetDrivePathR As OPENcontrol.LogFSGetDrivePathR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetDrivePathR As OPENcontrol.LogFSGetDrivePathR) + MyBase.New + Me.LogFSGetDrivePathR = LogFSGetDrivePathR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSAddDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private driveNameField As String + + Private pathNameField As String + + Private temporaryField As Boolean + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Temporary() As Boolean + Get + Return Me.temporaryField + End Get + Set + Me.temporaryField = value + Me.RaisePropertyChanged("Temporary") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSAddDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSAddDriveRequest + + _ + Public LogFSAddDrive As OPENcontrol.LogFSAddDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSAddDrive As OPENcontrol.LogFSAddDrive) + MyBase.New + Me.LogFSAddDrive = LogFSAddDrive + End Sub + End Class + + _ + Partial Public Class LogFSAddDriveResponse + + _ + Public LogFSAddDriveR As OPENcontrol.LogFSAddDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSAddDriveR As OPENcontrol.LogFSAddDriveR) + MyBase.New + Me.LogFSAddDriveR = LogFSAddDriveR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDrive + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private driveNameField As String + + Private securityLevelField As SECURITYLEVEL + + ''' + _ + Public Property DriveName() As String + Get + Return Me.driveNameField + End Get + Set + Me.driveNameField = value + Me.RaisePropertyChanged("DriveName") + End Set + End Property + + ''' + _ + Public Property SecurityLevel() As SECURITYLEVEL + Get + Return Me.securityLevelField + End Get + Set + Me.securityLevelField = value + Me.RaisePropertyChanged("SecurityLevel") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDriveR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDriveRequest + + _ + Public LogFSRemoveDrive As OPENcontrol.LogFSRemoveDrive + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDrive As OPENcontrol.LogFSRemoveDrive) + MyBase.New + Me.LogFSRemoveDrive = LogFSRemoveDrive + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDriveResponse + + _ + Public LogFSRemoveDriveR As OPENcontrol.LogFSRemoveDriveR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDriveR As OPENcontrol.LogFSRemoveDriveR) + MyBase.New + Me.LogFSRemoveDriveR = LogFSRemoveDriveR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReloadDriveList + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReloadDriveListR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSReloadDriveListRequest + + _ + Public LogFSReloadDriveList As OPENcontrol.LogFSReloadDriveList + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReloadDriveList As OPENcontrol.LogFSReloadDriveList) + MyBase.New + Me.LogFSReloadDriveList = LogFSReloadDriveList + End Sub + End Class + + _ + Partial Public Class LogFSReloadDriveListResponse + + _ + Public LogFSReloadDriveListR As OPENcontrol.LogFSReloadDriveListR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReloadDriveListR As OPENcontrol.LogFSReloadDriveListR) + MyBase.New + Me.LogFSReloadDriveListR = LogFSReloadDriveListR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateDir + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateDirR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCreateDirRequest + + _ + Public LogFSCreateDir As OPENcontrol.LogFSCreateDir + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateDir As OPENcontrol.LogFSCreateDir) + MyBase.New + Me.LogFSCreateDir = LogFSCreateDir + End Sub + End Class + + _ + Partial Public Class LogFSCreateDirResponse + + _ + Public LogFSCreateDirR As OPENcontrol.LogFSCreateDirR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateDirR As OPENcontrol.LogFSCreateDirR) + MyBase.New + Me.LogFSCreateDirR = LogFSCreateDirR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCreateFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCreateFileRequest + + _ + Public LogFSCreateFile As OPENcontrol.LogFSCreateFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateFile As OPENcontrol.LogFSCreateFile) + MyBase.New + Me.LogFSCreateFile = LogFSCreateFile + End Sub + End Class + + _ + Partial Public Class LogFSCreateFileResponse + + _ + Public LogFSCreateFileR As OPENcontrol.LogFSCreateFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCreateFileR As OPENcontrol.LogFSCreateFileR) + MyBase.New + Me.LogFSCreateFileR = LogFSCreateFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileSize + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileSizeR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sizeField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Size() As UInteger + Get + Return Me.sizeField + End Get + Set + Me.sizeField = value + Me.RaisePropertyChanged("Size") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetFileSizeRequest + + _ + Public LogFSGetFileSize As OPENcontrol.LogFSGetFileSize + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileSize As OPENcontrol.LogFSGetFileSize) + MyBase.New + Me.LogFSGetFileSize = LogFSGetFileSize + End Sub + End Class + + _ + Partial Public Class LogFSGetFileSizeResponse + + _ + Public LogFSGetFileSizeR As OPENcontrol.LogFSGetFileSizeR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileSizeR As OPENcontrol.LogFSGetFileSizeR) + MyBase.New + Me.LogFSGetFileSizeR = LogFSGetFileSizeR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileAttrib + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetFileAttribR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private attribField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Attrib() As UInteger + Get + Return Me.attribField + End Get + Set + Me.attribField = value + Me.RaisePropertyChanged("Attrib") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetFileAttribRequest + + _ + Public LogFSGetFileAttrib As OPENcontrol.LogFSGetFileAttrib + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileAttrib As OPENcontrol.LogFSGetFileAttrib) + MyBase.New + Me.LogFSGetFileAttrib = LogFSGetFileAttrib + End Sub + End Class + + _ + Partial Public Class LogFSGetFileAttribResponse + + _ + Public LogFSGetFileAttribR As OPENcontrol.LogFSGetFileAttribR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetFileAttribR As OPENcontrol.LogFSGetFileAttribR) + MyBase.New + Me.LogFSGetFileAttribR = LogFSGetFileAttribR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSSetFileAttrib + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private attribField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Attrib() As UInteger + Get + Return Me.attribField + End Get + Set + Me.attribField = value + Me.RaisePropertyChanged("Attrib") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSSetFileAttribR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSSetFileAttribRequest + + _ + Public LogFSSetFileAttrib As OPENcontrol.LogFSSetFileAttrib + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetFileAttrib As OPENcontrol.LogFSSetFileAttrib) + MyBase.New + Me.LogFSSetFileAttrib = LogFSSetFileAttrib + End Sub + End Class + + _ + Partial Public Class LogFSSetFileAttribResponse + + _ + Public LogFSSetFileAttribR As OPENcontrol.LogFSSetFileAttribR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSSetFileAttribR As OPENcontrol.LogFSSetFileAttribR) + MyBase.New + Me.LogFSSetFileAttribR = LogFSSetFileAttribR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSChangeFileAttrib + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private addField As UInteger + + Private removeField As UInteger + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Add() As UInteger + Get + Return Me.addField + End Get + Set + Me.addField = value + Me.RaisePropertyChanged("Add") + End Set + End Property + + ''' + _ + Public Property Remove() As UInteger + Get + Return Me.removeField + End Get + Set + Me.removeField = value + Me.RaisePropertyChanged("Remove") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSChangeFileAttribR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSChangeFileAttribRequest + + _ + Public LogFSChangeFileAttrib As OPENcontrol.LogFSChangeFileAttrib + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSChangeFileAttrib As OPENcontrol.LogFSChangeFileAttrib) + MyBase.New + Me.LogFSChangeFileAttrib = LogFSChangeFileAttrib + End Sub + End Class + + _ + Partial Public Class LogFSChangeFileAttribResponse + + _ + Public LogFSChangeFileAttribR As OPENcontrol.LogFSChangeFileAttribR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSChangeFileAttribR As OPENcontrol.LogFSChangeFileAttribR) + MyBase.New + Me.LogFSChangeFileAttribR = LogFSChangeFileAttribR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindFirst + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileNameField As String + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindFirstR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private findDataField As FILEFINDDATA + + Private finderField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FindData() As FILEFINDDATA + Get + Return Me.findDataField + End Get + Set + Me.findDataField = value + Me.RaisePropertyChanged("FindData") + End Set + End Property + + ''' + _ + Public Property Finder() As UInteger + Get + Return Me.finderField + End Get + Set + Me.finderField = value + Me.RaisePropertyChanged("Finder") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSFindFirstRequest + + _ + Public LogFSFindFirst As OPENcontrol.LogFSFindFirst + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindFirst As OPENcontrol.LogFSFindFirst) + MyBase.New + Me.LogFSFindFirst = LogFSFindFirst + End Sub + End Class + + _ + Partial Public Class LogFSFindFirstResponse + + _ + Public LogFSFindFirstR As OPENcontrol.LogFSFindFirstR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindFirstR As OPENcontrol.LogFSFindFirstR) + MyBase.New + Me.LogFSFindFirstR = LogFSFindFirstR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindNext + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private finderField As UInteger + + ''' + _ + Public Property Finder() As UInteger + Get + Return Me.finderField + End Get + Set + Me.finderField = value + Me.RaisePropertyChanged("Finder") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindNextR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private findDataField As FILEFINDDATA + + Private foundField As Boolean + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FindData() As FILEFINDDATA + Get + Return Me.findDataField + End Get + Set + Me.findDataField = value + Me.RaisePropertyChanged("FindData") + End Set + End Property + + ''' + _ + Public Property Found() As Boolean + Get + Return Me.foundField + End Get + Set + Me.foundField = value + Me.RaisePropertyChanged("Found") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSFindNextRequest + + _ + Public LogFSFindNext As OPENcontrol.LogFSFindNext + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindNext As OPENcontrol.LogFSFindNext) + MyBase.New + Me.LogFSFindNext = LogFSFindNext + End Sub + End Class + + _ + Partial Public Class LogFSFindNextResponse + + _ + Public LogFSFindNextR As OPENcontrol.LogFSFindNextR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindNextR As OPENcontrol.LogFSFindNextR) + MyBase.New + Me.LogFSFindNextR = LogFSFindNextR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindClose + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private finderField As UInteger + + ''' + _ + Public Property Finder() As UInteger + Get + Return Me.finderField + End Get + Set + Me.finderField = value + Me.RaisePropertyChanged("Finder") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSFindCloseR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSFindCloseRequest + + _ + Public LogFSFindClose As OPENcontrol.LogFSFindClose + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindClose As OPENcontrol.LogFSFindClose) + MyBase.New + Me.LogFSFindClose = LogFSFindClose + End Sub + End Class + + _ + Partial Public Class LogFSFindCloseResponse + + _ + Public LogFSFindCloseR As OPENcontrol.LogFSFindCloseR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSFindCloseR As OPENcontrol.LogFSFindCloseR) + MyBase.New + Me.LogFSFindCloseR = LogFSFindCloseR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private fileNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property FileName() As String + Get + Return Me.fileNameField + End Get + Set + Me.fileNameField = value + Me.RaisePropertyChanged("FileName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRemoveFileRequest + + _ + Public LogFSRemoveFile As OPENcontrol.LogFSRemoveFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveFile As OPENcontrol.LogFSRemoveFile) + MyBase.New + Me.LogFSRemoveFile = LogFSRemoveFile + End Sub + End Class + + _ + Partial Public Class LogFSRemoveFileResponse + + _ + Public LogFSRemoveFileR As OPENcontrol.LogFSRemoveFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveFileR As OPENcontrol.LogFSRemoveFileR) + MyBase.New + Me.LogFSRemoveFileR = LogFSRemoveFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDir + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRemoveDirR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDirRequest + + _ + Public LogFSRemoveDir As OPENcontrol.LogFSRemoveDir + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDir As OPENcontrol.LogFSRemoveDir) + MyBase.New + Me.LogFSRemoveDir = LogFSRemoveDir + End Sub + End Class + + _ + Partial Public Class LogFSRemoveDirResponse + + _ + Public LogFSRemoveDirR As OPENcontrol.LogFSRemoveDirR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRemoveDirR As OPENcontrol.LogFSRemoveDirR) + MyBase.New + Me.LogFSRemoveDirR = LogFSRemoveDirR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRename + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private newPathNameField As String + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property NewPathName() As String + Get + Return Me.newPathNameField + End Get + Set + Me.newPathNameField = value + Me.RaisePropertyChanged("NewPathName") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSRenameR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSRenameRequest + + _ + Public LogFSRename As OPENcontrol.LogFSRename + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRename As OPENcontrol.LogFSRename) + MyBase.New + Me.LogFSRename = LogFSRename + End Sub + End Class + + _ + Partial Public Class LogFSRenameResponse + + _ + Public LogFSRenameR As OPENcontrol.LogFSRenameR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSRenameR As OPENcontrol.LogFSRenameR) + MyBase.New + Me.LogFSRenameR = LogFSRenameR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCopyFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private newPathNameField As String + + Private failIfExistsField As Boolean + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property NewPathName() As String + Get + Return Me.newPathNameField + End Get + Set + Me.newPathNameField = value + Me.RaisePropertyChanged("NewPathName") + End Set + End Property + + ''' + _ + Public Property FailIfExists() As Boolean + Get + Return Me.failIfExistsField + End Get + Set + Me.failIfExistsField = value + Me.RaisePropertyChanged("FailIfExists") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCopyFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCopyFileRequest + + _ + Public LogFSCopyFile As OPENcontrol.LogFSCopyFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCopyFile As OPENcontrol.LogFSCopyFile) + MyBase.New + Me.LogFSCopyFile = LogFSCopyFile + End Sub + End Class + + _ + Partial Public Class LogFSCopyFileResponse + + _ + Public LogFSCopyFileR As OPENcontrol.LogFSCopyFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCopyFileR As OPENcontrol.LogFSCopyFileR) + MyBase.New + Me.LogFSCopyFileR = LogFSCopyFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetInfo + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private selectorField As UInteger + + Private itemCounterField As UShort + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property Selector() As UInteger + Get + Return Me.selectorField + End Get + Set + Me.selectorField = value + Me.RaisePropertyChanged("Selector") + End Set + End Property + + ''' + _ + Public Property ItemCounter() As UShort + Get + Return Me.itemCounterField + End Get + Set + Me.itemCounterField = value + Me.RaisePropertyChanged("ItemCounter") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSGetInfoR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private bufferField() As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Buffer() As UInteger() + Get + Return Me.bufferField + End Get + Set + Me.bufferField = value + Me.RaisePropertyChanged("Buffer") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSGetInfoRequest + + _ + Public LogFSGetInfo As OPENcontrol.LogFSGetInfo + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetInfo As OPENcontrol.LogFSGetInfo) + MyBase.New + Me.LogFSGetInfo = LogFSGetInfo + End Sub + End Class + + _ + Partial Public Class LogFSGetInfoResponse + + _ + Public LogFSGetInfoR As OPENcontrol.LogFSGetInfoR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSGetInfoR As OPENcontrol.LogFSGetInfoR) + MyBase.New + Me.LogFSGetInfoR = LogFSGetInfoR + End Sub + End Class + + ''' + _ + Partial Public Class GetAvailableCustomEvents + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private maxEventsField As UShort + + ''' + _ + Public Property MaxEvents() As UShort + Get + Return Me.maxEventsField + End Get + Set + Me.maxEventsField = value + Me.RaisePropertyChanged("MaxEvents") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetAvailableCustomEventsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numEventsField As UShort + + Private eventDataField() As MONCUSTOMEVENTINFO + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumEvents() As UShort + Get + Return Me.numEventsField + End Get + Set + Me.numEventsField = value + Me.RaisePropertyChanged("NumEvents") + End Set + End Property + + ''' + _ + Public Property EventData() As MONCUSTOMEVENTINFO() + Get + Return Me.eventDataField + End Get + Set + Me.eventDataField = value + Me.RaisePropertyChanged("EventData") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetAvailableCustomEventsRequest + + _ + Public GetAvailableCustomEvents As OPENcontrol.GetAvailableCustomEvents + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAvailableCustomEvents As OPENcontrol.GetAvailableCustomEvents) + MyBase.New + Me.GetAvailableCustomEvents = GetAvailableCustomEvents + End Sub + End Class + + _ + Partial Public Class GetAvailableCustomEventsResponse + + _ + Public GetAvailableCustomEventsR As OPENcontrol.GetAvailableCustomEventsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAvailableCustomEventsR As OPENcontrol.GetAvailableCustomEventsR) + MyBase.New + Me.GetAvailableCustomEventsR = GetAvailableCustomEventsR + End Sub + End Class + + ''' + _ + Partial Public Class GetSysTick + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetSysTickR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private sysTickField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property SysTick() As Double + Get + Return Me.sysTickField + End Get + Set + Me.sysTickField = value + Me.RaisePropertyChanged("SysTick") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetSysTickRequest + + _ + Public GetSysTick As OPENcontrol.GetSysTick + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSysTick As OPENcontrol.GetSysTick) + MyBase.New + Me.GetSysTick = GetSysTick + End Sub + End Class + + _ + Partial Public Class GetSysTickResponse + + _ + Public GetSysTickR As OPENcontrol.GetSysTickR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetSysTickR As OPENcontrol.GetSysTickR) + MyBase.New + Me.GetSysTickR = GetSysTickR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessConfNum + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetProcessConfNumR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private processConfNumField As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcessConfNum() As Byte + Get + Return Me.processConfNumField + End Get + Set + Me.processConfNumField = value + Me.RaisePropertyChanged("ProcessConfNum") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcessConfNumRequest + + _ + Public GetProcessConfNum As OPENcontrol.GetProcessConfNum + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessConfNum As OPENcontrol.GetProcessConfNum) + MyBase.New + Me.GetProcessConfNum = GetProcessConfNum + End Sub + End Class + + _ + Partial Public Class GetProcessConfNumResponse + + _ + Public GetProcessConfNumR As OPENcontrol.GetProcessConfNumR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcessConfNumR As OPENcontrol.GetProcessConfNumR) + MyBase.New + Me.GetProcessConfNumR = GetProcessConfNumR + End Sub + End Class + + ''' + _ + Partial Public Class MonOpenChannel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private synchronizedField As Boolean + + ''' + _ + Public Property Synchronized() As Boolean + Get + Return Me.synchronizedField + End Get + Set + Me.synchronizedField = value + Me.RaisePropertyChanged("Synchronized") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonOpenChannelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private channelIDField As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonOpenChannelRequest + + _ + Public MonOpenChannel As OPENcontrol.MonOpenChannel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonOpenChannel As OPENcontrol.MonOpenChannel) + MyBase.New + Me.MonOpenChannel = MonOpenChannel + End Sub + End Class + + _ + Partial Public Class MonOpenChannelResponse + + _ + Public MonOpenChannelR As OPENcontrol.MonOpenChannelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonOpenChannelR As OPENcontrol.MonOpenChannelR) + MyBase.New + Me.MonOpenChannelR = MonOpenChannelR + End Sub + End Class + + ''' + _ + Partial Public Class MonCloseChannel + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonCloseChannelR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonCloseChannelRequest + + _ + Public MonCloseChannel As OPENcontrol.MonCloseChannel + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonCloseChannel As OPENcontrol.MonCloseChannel) + MyBase.New + Me.MonCloseChannel = MonCloseChannel + End Sub + End Class + + _ + Partial Public Class MonCloseChannelResponse + + _ + Public MonCloseChannelR As OPENcontrol.MonCloseChannelR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonCloseChannelR As OPENcontrol.MonCloseChannelR) + MyBase.New + Me.MonCloseChannelR = MonCloseChannelR + End Sub + End Class + + ''' + _ + Partial Public Class MonAddVariable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + Private varDescrField As MONVARDESCR + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property VarDescr() As MONVARDESCR + Get + Return Me.varDescrField + End Get + Set + Me.varDescrField = value + Me.RaisePropertyChanged("VarDescr") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonAddVariableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private variableIDField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property VariableID() As UShort + Get + Return Me.variableIDField + End Get + Set + Me.variableIDField = value + Me.RaisePropertyChanged("VariableID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonAddVariableRequest + + _ + Public MonAddVariable As OPENcontrol.MonAddVariable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonAddVariable As OPENcontrol.MonAddVariable) + MyBase.New + Me.MonAddVariable = MonAddVariable + End Sub + End Class + + _ + Partial Public Class MonAddVariableResponse + + _ + Public MonAddVariableR As OPENcontrol.MonAddVariableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonAddVariableR As OPENcontrol.MonAddVariableR) + MyBase.New + Me.MonAddVariableR = MonAddVariableR + End Sub + End Class + + ''' + _ + Partial Public Class MonDeleteVariable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + Private variableIDField As UShort + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property VariableID() As UShort + Get + Return Me.variableIDField + End Get + Set + Me.variableIDField = value + Me.RaisePropertyChanged("VariableID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonDeleteVariableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonDeleteVariableRequest + + _ + Public MonDeleteVariable As OPENcontrol.MonDeleteVariable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonDeleteVariable As OPENcontrol.MonDeleteVariable) + MyBase.New + Me.MonDeleteVariable = MonDeleteVariable + End Sub + End Class + + _ + Partial Public Class MonDeleteVariableResponse + + _ + Public MonDeleteVariableR As OPENcontrol.MonDeleteVariableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonDeleteVariableR As OPENcontrol.MonDeleteVariableR) + MyBase.New + Me.MonDeleteVariableR = MonDeleteVariableR + End Sub + End Class + + ''' + _ + Partial Public Class MonStartSampling + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonStartSamplingR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonStartSamplingRequest + + _ + Public MonStartSampling As OPENcontrol.MonStartSampling + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStartSampling As OPENcontrol.MonStartSampling) + MyBase.New + Me.MonStartSampling = MonStartSampling + End Sub + End Class + + _ + Partial Public Class MonStartSamplingResponse + + _ + Public MonStartSamplingR As OPENcontrol.MonStartSamplingR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStartSamplingR As OPENcontrol.MonStartSamplingR) + MyBase.New + Me.MonStartSamplingR = MonStartSamplingR + End Sub + End Class + + ''' + _ + Partial Public Class MonStopSampling + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonStopSamplingR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonStopSamplingRequest + + _ + Public MonStopSampling As OPENcontrol.MonStopSampling + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStopSampling As OPENcontrol.MonStopSampling) + MyBase.New + Me.MonStopSampling = MonStopSampling + End Sub + End Class + + _ + Partial Public Class MonStopSamplingResponse + + _ + Public MonStopSamplingR As OPENcontrol.MonStopSamplingR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonStopSamplingR As OPENcontrol.MonStopSamplingR) + MyBase.New + Me.MonStopSamplingR = MonStopSamplingR + End Sub + End Class + + ''' + _ + Partial Public Class MonGetVariable + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private channelIDField As UInteger + + Private variableIDField As UShort + + Private maxSamplesField As UShort + + ''' + _ + Public Property ChannelID() As UInteger + Get + Return Me.channelIDField + End Get + Set + Me.channelIDField = value + Me.RaisePropertyChanged("ChannelID") + End Set + End Property + + ''' + _ + Public Property VariableID() As UShort + Get + Return Me.variableIDField + End Get + Set + Me.variableIDField = value + Me.RaisePropertyChanged("VariableID") + End Set + End Property + + ''' + _ + Public Property MaxSamples() As UShort + Get + Return Me.maxSamplesField + End Get + Set + Me.maxSamplesField = value + Me.RaisePropertyChanged("MaxSamples") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class MonGetVariableR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private numSampleReadField As UShort + + Private dataBufferField() As Double + + Private timeBufferField() As Long + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property NumSampleRead() As UShort + Get + Return Me.numSampleReadField + End Get + Set + Me.numSampleReadField = value + Me.RaisePropertyChanged("NumSampleRead") + End Set + End Property + + ''' + _ + Public Property DataBuffer() As Double() + Get + Return Me.dataBufferField + End Get + Set + Me.dataBufferField = value + Me.RaisePropertyChanged("DataBuffer") + End Set + End Property + + ''' + _ + Public Property TimeBuffer() As Long() + Get + Return Me.timeBufferField + End Get + Set + Me.timeBufferField = value + Me.RaisePropertyChanged("TimeBuffer") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class MonGetVariableRequest + + _ + Public MonGetVariable As OPENcontrol.MonGetVariable + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonGetVariable As OPENcontrol.MonGetVariable) + MyBase.New + Me.MonGetVariable = MonGetVariable + End Sub + End Class + + _ + Partial Public Class MonGetVariableResponse + + _ + Public MonGetVariableR As OPENcontrol.MonGetVariableR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal MonGetVariableR As OPENcontrol.MonGetVariableR) + MyBase.New + Me.MonGetVariableR = MonGetVariableR + End Sub + End Class + + ''' + _ + Partial Public Class CheckHistory + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class CheckHistoryR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private thisBootMsgCounterField() As UInteger + + Private allBootMsgCounterField() As UInteger + + Private thisBootIDField() As UInteger + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ThisBootMsgCounter() As UInteger() + Get + Return Me.thisBootMsgCounterField + End Get + Set + Me.thisBootMsgCounterField = value + Me.RaisePropertyChanged("ThisBootMsgCounter") + End Set + End Property + + ''' + _ + Public Property AllBootMsgCounter() As UInteger() + Get + Return Me.allBootMsgCounterField + End Get + Set + Me.allBootMsgCounterField = value + Me.RaisePropertyChanged("AllBootMsgCounter") + End Set + End Property + + ''' + _ + Public Property ThisBootID() As UInteger() + Get + Return Me.thisBootIDField + End Get + Set + Me.thisBootIDField = value + Me.RaisePropertyChanged("ThisBootID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class CheckHistoryRequest + + _ + Public CheckHistory As OPENcontrol.CheckHistory + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal CheckHistory As OPENcontrol.CheckHistory) + MyBase.New + Me.CheckHistory = CheckHistory + End Sub + End Class + + _ + Partial Public Class CheckHistoryResponse + + _ + Public CheckHistoryR As OPENcontrol.CheckHistoryR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal CheckHistoryR As OPENcontrol.CheckHistoryR) + MyBase.New + Me.CheckHistoryR = CheckHistoryR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryEmergMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryEmergMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGEMERGENCY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGEMERGENCY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryEmergMsgRequest + + _ + Public ReadHistoryEmergMsg As OPENcontrol.ReadHistoryEmergMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryEmergMsg As OPENcontrol.ReadHistoryEmergMsg) + MyBase.New + Me.ReadHistoryEmergMsg = ReadHistoryEmergMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryEmergMsgResponse + + _ + Public ReadHistoryEmergMsgR As OPENcontrol.ReadHistoryEmergMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryEmergMsgR As OPENcontrol.ReadHistoryEmergMsgR) + MyBase.New + Me.ReadHistoryEmergMsgR = ReadHistoryEmergMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryErrorMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryErrorMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGERROR + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGERROR + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryErrorMsgRequest + + _ + Public ReadHistoryErrorMsg As OPENcontrol.ReadHistoryErrorMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryErrorMsg As OPENcontrol.ReadHistoryErrorMsg) + MyBase.New + Me.ReadHistoryErrorMsg = ReadHistoryErrorMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryErrorMsgResponse + + _ + Public ReadHistoryErrorMsgR As OPENcontrol.ReadHistoryErrorMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryErrorMsgR As OPENcontrol.ReadHistoryErrorMsgR) + MyBase.New + Me.ReadHistoryErrorMsgR = ReadHistoryErrorMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryLogMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private noHistoryField As Integer + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property NoHistory() As Integer + Get + Return Me.noHistoryField + End Get + Set + Me.noHistoryField = value + Me.RaisePropertyChanged("NoHistory") + End Set + End Property + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryLogMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGLOGS + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGLOGS + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryLogMsgRequest + + _ + Public ReadHistoryLogMsg As OPENcontrol.ReadHistoryLogMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryLogMsg As OPENcontrol.ReadHistoryLogMsg) + MyBase.New + Me.ReadHistoryLogMsg = ReadHistoryLogMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryLogMsgResponse + + _ + Public ReadHistoryLogMsgR As OPENcontrol.ReadHistoryLogMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryLogMsgR As OPENcontrol.ReadHistoryLogMsgR) + MyBase.New + Me.ReadHistoryLogMsgR = ReadHistoryLogMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryAnomalyMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private readModeField As Integer + + Private recNumField As UInteger + + ''' + _ + Public Property ReadMode() As Integer + Get + Return Me.readModeField + End Get + Set + Me.readModeField = value + Me.RaisePropertyChanged("ReadMode") + End Set + End Property + + ''' + _ + Public Property RecNum() As UInteger + Get + Return Me.recNumField + End Get + Set + Me.recNumField = value + Me.RaisePropertyChanged("RecNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadHistoryAnomalyMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGANOMALY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGANOMALY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadHistoryAnomalyMsgRequest + + _ + Public ReadHistoryAnomalyMsg As OPENcontrol.ReadHistoryAnomalyMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryAnomalyMsg As OPENcontrol.ReadHistoryAnomalyMsg) + MyBase.New + Me.ReadHistoryAnomalyMsg = ReadHistoryAnomalyMsg + End Sub + End Class + + _ + Partial Public Class ReadHistoryAnomalyMsgResponse + + _ + Public ReadHistoryAnomalyMsgR As OPENcontrol.ReadHistoryAnomalyMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadHistoryAnomalyMsgR As OPENcontrol.ReadHistoryAnomalyMsgR) + MyBase.New + Me.ReadHistoryAnomalyMsgR = ReadHistoryAnomalyMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentErrorMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentErrorMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGERROR + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGERROR + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadCurrentErrorMsgRequest + + _ + Public ReadCurrentErrorMsg As OPENcontrol.ReadCurrentErrorMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentErrorMsg As OPENcontrol.ReadCurrentErrorMsg) + MyBase.New + Me.ReadCurrentErrorMsg = ReadCurrentErrorMsg + End Sub + End Class + + _ + Partial Public Class ReadCurrentErrorMsgResponse + + _ + Public ReadCurrentErrorMsgR As OPENcontrol.ReadCurrentErrorMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentErrorMsgR As OPENcontrol.ReadCurrentErrorMsgR) + MyBase.New + Me.ReadCurrentErrorMsgR = ReadCurrentErrorMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentEmergMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentEmergMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGEMERGENCY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGEMERGENCY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadCurrentEmergMsgRequest + + _ + Public ReadCurrentEmergMsg As OPENcontrol.ReadCurrentEmergMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentEmergMsg As OPENcontrol.ReadCurrentEmergMsg) + MyBase.New + Me.ReadCurrentEmergMsg = ReadCurrentEmergMsg + End Sub + End Class + + _ + Partial Public Class ReadCurrentEmergMsgResponse + + _ + Public ReadCurrentEmergMsgR As OPENcontrol.ReadCurrentEmergMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentEmergMsgR As OPENcontrol.ReadCurrentEmergMsgR) + MyBase.New + Me.ReadCurrentEmergMsgR = ReadCurrentEmergMsgR + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentAnomalyMsg + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadCurrentAnomalyMsgR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataField As MSGANOMALY + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Data() As MSGANOMALY + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadCurrentAnomalyMsgRequest + + _ + Public ReadCurrentAnomalyMsg As OPENcontrol.ReadCurrentAnomalyMsg + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentAnomalyMsg As OPENcontrol.ReadCurrentAnomalyMsg) + MyBase.New + Me.ReadCurrentAnomalyMsg = ReadCurrentAnomalyMsg + End Sub + End Class + + _ + Partial Public Class ReadCurrentAnomalyMsgResponse + + _ + Public ReadCurrentAnomalyMsgR As OPENcontrol.ReadCurrentAnomalyMsgR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadCurrentAnomalyMsgR As OPENcontrol.ReadCurrentAnomalyMsgR) + MyBase.New + Me.ReadCurrentAnomalyMsgR = ReadCurrentAnomalyMsgR + End Sub + End Class + + ''' + _ + Partial Public Class GetPTechSizes + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetPTechSizesR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private ind1Field As UShort + + Private ind2Field As UShort + + Private ind3Field As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Ind1() As UShort + Get + Return Me.ind1Field + End Get + Set + Me.ind1Field = value + Me.RaisePropertyChanged("Ind1") + End Set + End Property + + ''' + _ + Public Property Ind2() As UShort + Get + Return Me.ind2Field + End Get + Set + Me.ind2Field = value + Me.RaisePropertyChanged("Ind2") + End Set + End Property + + ''' + _ + Public Property Ind3() As UShort + Get + Return Me.ind3Field + End Get + Set + Me.ind3Field = value + Me.RaisePropertyChanged("Ind3") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetPTechSizesRequest + + _ + Public GetPTechSizes As OPENcontrol.GetPTechSizes + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPTechSizes As OPENcontrol.GetPTechSizes) + MyBase.New + Me.GetPTechSizes = GetPTechSizes + End Sub + End Class + + _ + Partial Public Class GetPTechSizesResponse + + _ + Public GetPTechSizesR As OPENcontrol.GetPTechSizesR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetPTechSizesR As OPENcontrol.GetPTechSizesR) + MyBase.New + Me.GetPTechSizesR = GetPTechSizesR + End Sub + End Class + + ''' + _ + Partial Public Class LoadPTech + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private pPPathNameField As String + + Private writeModeField As UShort + + Private sheetField As UShort + + Private lineField As UShort + + Private columnField As UShort + + Private numVarField As UShort + + Private dataField() As Double + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property PPPathName() As String + Get + Return Me.pPPathNameField + End Get + Set + Me.pPPathNameField = value + Me.RaisePropertyChanged("PPPathName") + End Set + End Property + + ''' + _ + Public Property WriteMode() As UShort + Get + Return Me.writeModeField + End Get + Set + Me.writeModeField = value + Me.RaisePropertyChanged("WriteMode") + End Set + End Property + + ''' + _ + Public Property Sheet() As UShort + Get + Return Me.sheetField + End Get + Set + Me.sheetField = value + Me.RaisePropertyChanged("Sheet") + End Set + End Property + + ''' + _ + Public Property Line() As UShort + Get + Return Me.lineField + End Get + Set + Me.lineField = value + Me.RaisePropertyChanged("Line") + End Set + End Property + + ''' + _ + Public Property Column() As UShort + Get + Return Me.columnField + End Get + Set + Me.columnField = value + Me.RaisePropertyChanged("Column") + End Set + End Property + + ''' + _ + Public Property NumVar() As UShort + Get + Return Me.numVarField + End Get + Set + Me.numVarField = value + Me.RaisePropertyChanged("NumVar") + End Set + End Property + + ''' + _ + Public Property Data() As Double() + Get + Return Me.dataField + End Get + Set + Me.dataField = value + Me.RaisePropertyChanged("Data") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LoadPTechR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LoadPTechRequest + + _ + Public LoadPTech As OPENcontrol.LoadPTech + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LoadPTech As OPENcontrol.LoadPTech) + MyBase.New + Me.LoadPTech = LoadPTech + End Sub + End Class + + _ + Partial Public Class LoadPTechResponse + + _ + Public LoadPTechR As OPENcontrol.LoadPTechR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LoadPTechR As OPENcontrol.LoadPTechR) + MyBase.New + Me.LoadPTechR = LoadPTechR + End Sub + End Class + + ''' + _ + Partial Public Class GetMarkerInfo + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private requestField As Byte + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Request() As Byte + Get + Return Me.requestField + End Get + Set + Me.requestField = value + Me.RaisePropertyChanged("Request") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetMarkerInfoR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private markerInfoField As MARKERINFO + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property MarkerInfo() As MARKERINFO + Get + Return Me.markerInfoField + End Get + Set + Me.markerInfoField = value + Me.RaisePropertyChanged("MarkerInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetMarkerInfoRequest + + _ + Public GetMarkerInfo As OPENcontrol.GetMarkerInfo + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMarkerInfo As OPENcontrol.GetMarkerInfo) + MyBase.New + Me.GetMarkerInfo = GetMarkerInfo + End Sub + End Class + + _ + Partial Public Class GetMarkerInfoResponse + + _ + Public GetMarkerInfoR As OPENcontrol.GetMarkerInfoR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetMarkerInfoR As OPENcontrol.GetMarkerInfoR) + MyBase.New + Me.GetMarkerInfoR = GetMarkerInfoR + End Sub + End Class + + ''' + _ + Partial Public Class ManagePartProgram + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private modeField As UShort + + Private pPPathField As String + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property Mode() As UShort + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + ''' + _ + Public Property PPPath() As String + Get + Return Me.pPPathField + End Get + Set + Me.pPPathField = value + Me.RaisePropertyChanged("PPPath") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ManagePartProgramR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errStringField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrString() As Byte() + Get + Return Me.errStringField + End Get + Set + Me.errStringField = value + Me.RaisePropertyChanged("ErrString") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ManagePartProgramRequest + + _ + Public ManagePartProgram As OPENcontrol.ManagePartProgram + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ManagePartProgram As OPENcontrol.ManagePartProgram) + MyBase.New + Me.ManagePartProgram = ManagePartProgram + End Sub + End Class + + _ + Partial Public Class ManagePartProgramResponse + + _ + Public ManagePartProgramR As OPENcontrol.ManagePartProgramR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ManagePartProgramR As OPENcontrol.ManagePartProgramR) + MyBase.New + Me.ManagePartProgramR = ManagePartProgramR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSOpenFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private pathNameField As String + + Private writeModeField As Boolean + + Private dOSDateLastWriteField As UShort + + Private dOSTimeLastWriteField As UShort + + ''' + _ + Public Property PathName() As String + Get + Return Me.pathNameField + End Get + Set + Me.pathNameField = value + Me.RaisePropertyChanged("PathName") + End Set + End Property + + ''' + _ + Public Property WriteMode() As Boolean + Get + Return Me.writeModeField + End Get + Set + Me.writeModeField = value + Me.RaisePropertyChanged("WriteMode") + End Set + End Property + + ''' + _ + Public Property DOSDateLastWrite() As UShort + Get + Return Me.dOSDateLastWriteField + End Get + Set + Me.dOSDateLastWriteField = value + Me.RaisePropertyChanged("DOSDateLastWrite") + End Set + End Property + + ''' + _ + Public Property DOSTimeLastWrite() As UShort + Get + Return Me.dOSTimeLastWriteField + End Get + Set + Me.dOSTimeLastWriteField = value + Me.RaisePropertyChanged("DOSTimeLastWrite") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSOpenFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private fileIDField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSOpenFileRequest + + _ + Public LogFSOpenFile As OPENcontrol.LogFSOpenFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSOpenFile As OPENcontrol.LogFSOpenFile) + MyBase.New + Me.LogFSOpenFile = LogFSOpenFile + End Sub + End Class + + _ + Partial Public Class LogFSOpenFileResponse + + _ + Public LogFSOpenFileR As OPENcontrol.LogFSOpenFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSOpenFileR As OPENcontrol.LogFSOpenFileR) + MyBase.New + Me.LogFSOpenFileR = LogFSOpenFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCloseFile + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileIDField As UShort + + Private transactionField As UShort + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property Transaction() As UShort + Get + Return Me.transactionField + End Get + Set + Me.transactionField = value + Me.RaisePropertyChanged("Transaction") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSCloseFileR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private fileIDField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSCloseFileRequest + + _ + Public LogFSCloseFile As OPENcontrol.LogFSCloseFile + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCloseFile As OPENcontrol.LogFSCloseFile) + MyBase.New + Me.LogFSCloseFile = LogFSCloseFile + End Sub + End Class + + _ + Partial Public Class LogFSCloseFileResponse + + _ + Public LogFSCloseFileR As OPENcontrol.LogFSCloseFileR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSCloseFileR As OPENcontrol.LogFSCloseFileR) + MyBase.New + Me.LogFSCloseFileR = LogFSCloseFileR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSWriteRecord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileIDField As UShort + + Private transactionField As UShort + + Private recordLenField As UInteger + + Private recordField() As Byte + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property Transaction() As UShort + Get + Return Me.transactionField + End Get + Set + Me.transactionField = value + Me.RaisePropertyChanged("Transaction") + End Set + End Property + + ''' + _ + Public Property RecordLen() As UInteger + Get + Return Me.recordLenField + End Get + Set + Me.recordLenField = value + Me.RaisePropertyChanged("RecordLen") + End Set + End Property + + ''' + _ + Public Property Record() As Byte() + Get + Return Me.recordField + End Get + Set + Me.recordField = value + Me.RaisePropertyChanged("Record") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSWriteRecordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSWriteRecordRequest + + _ + Public LogFSWriteRecord As OPENcontrol.LogFSWriteRecord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSWriteRecord As OPENcontrol.LogFSWriteRecord) + MyBase.New + Me.LogFSWriteRecord = LogFSWriteRecord + End Sub + End Class + + _ + Partial Public Class LogFSWriteRecordResponse + + _ + Public LogFSWriteRecordR As OPENcontrol.LogFSWriteRecordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSWriteRecordR As OPENcontrol.LogFSWriteRecordR) + MyBase.New + Me.LogFSWriteRecordR = LogFSWriteRecordR + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReadRecord + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private fileIDField As UShort + + Private transactionField As UShort + + Private recordLenField As UInteger + + ''' + _ + Public Property FileID() As UShort + Get + Return Me.fileIDField + End Get + Set + Me.fileIDField = value + Me.RaisePropertyChanged("FileID") + End Set + End Property + + ''' + _ + Public Property Transaction() As UShort + Get + Return Me.transactionField + End Get + Set + Me.transactionField = value + Me.RaisePropertyChanged("Transaction") + End Set + End Property + + ''' + _ + Public Property RecordLen() As UInteger + Get + Return Me.recordLenField + End Get + Set + Me.recordLenField = value + Me.RaisePropertyChanged("RecordLen") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class LogFSReadRecordR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private dataSizeField As UInteger + + Private recordField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property DataSize() As UInteger + Get + Return Me.dataSizeField + End Get + Set + Me.dataSizeField = value + Me.RaisePropertyChanged("DataSize") + End Set + End Property + + ''' + _ + Public Property Record() As Byte() + Get + Return Me.recordField + End Get + Set + Me.recordField = value + Me.RaisePropertyChanged("Record") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class LogFSReadRecordRequest + + _ + Public LogFSReadRecord As OPENcontrol.LogFSReadRecord + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReadRecord As OPENcontrol.LogFSReadRecord) + MyBase.New + Me.LogFSReadRecord = LogFSReadRecord + End Sub + End Class + + _ + Partial Public Class LogFSReadRecordResponse + + _ + Public LogFSReadRecordR As OPENcontrol.LogFSReadRecordR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal LogFSReadRecordR As OPENcontrol.LogFSReadRecordR) + MyBase.New + Me.LogFSReadRecordR = LogFSReadRecordR + End Sub + End Class + + ''' + _ + Partial Public Class ReadRemapDefinitions + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private arraySizeField As Integer + + Private typeField As Integer + + ''' + _ + Public Property ArraySize() As Integer + Get + Return Me.arraySizeField + End Get + Set + Me.arraySizeField = value + Me.RaisePropertyChanged("ArraySize") + End Set + End Property + + ''' + _ + Public Property Type() As Integer + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("Type") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class ReadRemapDefinitionsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private arrayField() As REMAPDEF + + Private definitionsCntField As Integer + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Array() As REMAPDEF() + Get + Return Me.arrayField + End Get + Set + Me.arrayField = value + Me.RaisePropertyChanged("Array") + End Set + End Property + + ''' + _ + Public Property DefinitionsCnt() As Integer + Get + Return Me.definitionsCntField + End Get + Set + Me.definitionsCntField = value + Me.RaisePropertyChanged("DefinitionsCnt") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class ReadRemapDefinitionsRequest + + _ + Public ReadRemapDefinitions As OPENcontrol.ReadRemapDefinitions + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadRemapDefinitions As OPENcontrol.ReadRemapDefinitions) + MyBase.New + Me.ReadRemapDefinitions = ReadRemapDefinitions + End Sub + End Class + + _ + Partial Public Class ReadRemapDefinitionsResponse + + _ + Public ReadRemapDefinitionsR As OPENcontrol.ReadRemapDefinitionsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal ReadRemapDefinitionsR As OPENcontrol.ReadRemapDefinitionsR) + MyBase.New + Me.ReadRemapDefinitionsR = ReadRemapDefinitionsR + End Sub + End Class + + ''' + _ + Partial Public Class WriteRemapDefinitions + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private arraySizeField As Integer + + Private arrayField() As REMAPDEF + + Private typeField As Integer + + Private modeField As Integer + + ''' + _ + Public Property ArraySize() As Integer + Get + Return Me.arraySizeField + End Get + Set + Me.arraySizeField = value + Me.RaisePropertyChanged("ArraySize") + End Set + End Property + + ''' + _ + Public Property Array() As REMAPDEF() + Get + Return Me.arrayField + End Get + Set + Me.arrayField = value + Me.RaisePropertyChanged("Array") + End Set + End Property + + ''' + _ + Public Property Type() As Integer + Get + Return Me.typeField + End Get + Set + Me.typeField = value + Me.RaisePropertyChanged("Type") + End Set + End Property + + ''' + _ + Public Property Mode() As Integer + Get + Return Me.modeField + End Get + Set + Me.modeField = value + Me.RaisePropertyChanged("Mode") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class WriteRemapDefinitionsR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class WriteRemapDefinitionsRequest + + _ + Public WriteRemapDefinitions As OPENcontrol.WriteRemapDefinitions + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteRemapDefinitions As OPENcontrol.WriteRemapDefinitions) + MyBase.New + Me.WriteRemapDefinitions = WriteRemapDefinitions + End Sub + End Class + + _ + Partial Public Class WriteRemapDefinitionsResponse + + _ + Public WriteRemapDefinitionsR As OPENcontrol.WriteRemapDefinitionsR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal WriteRemapDefinitionsR As OPENcontrol.WriteRemapDefinitionsR) + MyBase.New + Me.WriteRemapDefinitionsR = WriteRemapDefinitionsR + End Sub + End Class + + ''' + _ + Partial Public Class GetServoPar + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisIdField As UShort + + Private parIdField As UShort + + ''' + _ + Public Property AxisId() As UShort + Get + Return Me.axisIdField + End Get + Set + Me.axisIdField = value + Me.RaisePropertyChanged("AxisId") + End Set + End Property + + ''' + _ + Public Property ParId() As UShort + Get + Return Me.parIdField + End Get + Set + Me.parIdField = value + Me.RaisePropertyChanged("ParId") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetServoParR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueField As Double + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetServoParRequest + + _ + Public GetServoPar As OPENcontrol.GetServoPar + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetServoPar As OPENcontrol.GetServoPar) + MyBase.New + Me.GetServoPar = GetServoPar + End Sub + End Class + + _ + Partial Public Class GetServoParResponse + + _ + Public GetServoParR As OPENcontrol.GetServoParR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetServoParR As OPENcontrol.GetServoParR) + MyBase.New + Me.GetServoParR = GetServoParR + End Sub + End Class + + ''' + _ + Partial Public Class SetServoPar + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private axisIdField As UShort + + Private parIdField As UShort + + Private valueField As Double + + ''' + _ + Public Property AxisId() As UShort + Get + Return Me.axisIdField + End Get + Set + Me.axisIdField = value + Me.RaisePropertyChanged("AxisId") + End Set + End Property + + ''' + _ + Public Property ParId() As UShort + Get + Return Me.parIdField + End Get + Set + Me.parIdField = value + Me.RaisePropertyChanged("ParId") + End Set + End Property + + ''' + _ + Public Property Value() As Double + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetServoParR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetServoParRequest + + _ + Public SetServoPar As OPENcontrol.SetServoPar + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetServoPar As OPENcontrol.SetServoPar) + MyBase.New + Me.SetServoPar = SetServoPar + End Sub + End Class + + _ + Partial Public Class SetServoParResponse + + _ + Public SetServoParR As OPENcontrol.SetServoParR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetServoParR As OPENcontrol.SetServoParR) + MyBase.New + Me.SetServoParR = SetServoParR + End Sub + End Class + + ''' + _ + Partial Public Class GetCNCRegKey + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private keyField As String + + Private subKeyField As String + + Private valueLenField As Integer + + ''' + _ + Public Property Key() As String + Get + Return Me.keyField + End Get + Set + Me.keyField = value + Me.RaisePropertyChanged("Key") + End Set + End Property + + ''' + _ + Public Property SubKey() As String + Get + Return Me.subKeyField + End Get + Set + Me.subKeyField = value + Me.RaisePropertyChanged("SubKey") + End Set + End Property + + ''' + _ + Public Property ValueLen() As Integer + Get + Return Me.valueLenField + End Get + Set + Me.valueLenField = value + Me.RaisePropertyChanged("ValueLen") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetCNCRegKeyR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private valueLenField As Integer + + Private valueField() As Byte + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ValueLen() As Integer + Get + Return Me.valueLenField + End Get + Set + Me.valueLenField = value + Me.RaisePropertyChanged("ValueLen") + End Set + End Property + + ''' + _ + Public Property Value() As Byte() + Get + Return Me.valueField + End Get + Set + Me.valueField = value + Me.RaisePropertyChanged("Value") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetCNCRegKeyRequest + + _ + Public GetCNCRegKey As OPENcontrol.GetCNCRegKey + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCNCRegKey As OPENcontrol.GetCNCRegKey) + MyBase.New + Me.GetCNCRegKey = GetCNCRegKey + End Sub + End Class + + _ + Partial Public Class GetCNCRegKeyResponse + + _ + Public GetCNCRegKeyR As OPENcontrol.GetCNCRegKeyR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCNCRegKeyR As OPENcontrol.GetCNCRegKeyR) + MyBase.New + Me.GetCNCRegKeyR = GetCNCRegKeyR + End Sub + End Class + + ''' + _ + Partial Public Class SetIpAddress + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private ipAddressField As String + + Private subNetMaskField As String + + Private defaultGatewayField As String + + Private dnsField As String + + Private winsField As String + + Private netField As String + + ''' + _ + Public Property IpAddress() As String + Get + Return Me.ipAddressField + End Get + Set + Me.ipAddressField = value + Me.RaisePropertyChanged("IpAddress") + End Set + End Property + + ''' + _ + Public Property SubNetMask() As String + Get + Return Me.subNetMaskField + End Get + Set + Me.subNetMaskField = value + Me.RaisePropertyChanged("SubNetMask") + End Set + End Property + + ''' + _ + Public Property DefaultGateway() As String + Get + Return Me.defaultGatewayField + End Get + Set + Me.defaultGatewayField = value + Me.RaisePropertyChanged("DefaultGateway") + End Set + End Property + + ''' + _ + Public Property Dns() As String + Get + Return Me.dnsField + End Get + Set + Me.dnsField = value + Me.RaisePropertyChanged("Dns") + End Set + End Property + + ''' + _ + Public Property Wins() As String + Get + Return Me.winsField + End Get + Set + Me.winsField = value + Me.RaisePropertyChanged("Wins") + End Set + End Property + + ''' + _ + Public Property Net() As String + Get + Return Me.netField + End Get + Set + Me.netField = value + Me.RaisePropertyChanged("Net") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SetIpAddressR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SetIpAddressRequest + + _ + Public SetIpAddress As OPENcontrol.SetIpAddress + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetIpAddress As OPENcontrol.SetIpAddress) + MyBase.New + Me.SetIpAddress = SetIpAddress + End Sub + End Class + + _ + Partial Public Class SetIpAddressResponse + + _ + Public SetIpAddressR As OPENcontrol.SetIpAddressR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SetIpAddressR As OPENcontrol.SetIpAddressR) + MyBase.New + Me.SetIpAddressR = SetIpAddressR + End Sub + End Class + + ''' + _ + Partial Public Class GetProcInInput + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class GetProcInInputR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private procInfoField As INPUTINFO + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ProcInfo() As INPUTINFO + Get + Return Me.procInfoField + End Get + Set + Me.procInfoField = value + Me.RaisePropertyChanged("ProcInfo") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class GetProcInInputRequest + + _ + Public GetProcInInput As OPENcontrol.GetProcInInput + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcInInput As OPENcontrol.GetProcInInput) + MyBase.New + Me.GetProcInInput = GetProcInInput + End Sub + End Class + + _ + Partial Public Class GetProcInInputResponse + + _ + Public GetProcInInputR As OPENcontrol.GetProcInInputR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetProcInInputR As OPENcontrol.GetProcInInputR) + MyBase.New + Me.GetProcInInputR = GetProcInInputR + End Sub + End Class + + ''' + _ + Partial Public Class SndProcInpData + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private processField As UShort + + Private keyPressedField As UShort + + Private numDataField As UShort + + Private arDataField() As Byte + + Private arSizeField As UShort + + ''' + _ + Public Property Process() As UShort + Get + Return Me.processField + End Get + Set + Me.processField = value + Me.RaisePropertyChanged("Process") + End Set + End Property + + ''' + _ + Public Property keyPressed() As UShort + Get + Return Me.keyPressedField + End Get + Set + Me.keyPressedField = value + Me.RaisePropertyChanged("keyPressed") + End Set + End Property + + ''' + _ + Public Property numData() As UShort + Get + Return Me.numDataField + End Get + Set + Me.numDataField = value + Me.RaisePropertyChanged("numData") + End Set + End Property + + ''' + _ + Public Property arData() As Byte() + Get + Return Me.arDataField + End Get + Set + Me.arDataField = value + Me.RaisePropertyChanged("arData") + End Set + End Property + + ''' + _ + Public Property arSize() As UShort + Get + Return Me.arSizeField + End Get + Set + Me.arSizeField = value + Me.RaisePropertyChanged("arSize") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + ''' + _ + Partial Public Class SndProcInpDataR + Inherits Object + Implements System.ComponentModel.INotifyPropertyChanged + + Private retvalField As UShort + + Private errClassField As UInteger + + Private errNumField As UInteger + + ''' + _ + Public Property retval() As UShort + Get + Return Me.retvalField + End Get + Set + Me.retvalField = value + Me.RaisePropertyChanged("retval") + End Set + End Property + + ''' + _ + Public Property ErrClass() As UInteger + Get + Return Me.errClassField + End Get + Set + Me.errClassField = value + Me.RaisePropertyChanged("ErrClass") + End Set + End Property + + ''' + _ + Public Property ErrNum() As UInteger + Get + Return Me.errNumField + End Get + Set + Me.errNumField = value + Me.RaisePropertyChanged("ErrNum") + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class SndProcInpDataRequest + + _ + Public SndProcInpData As OPENcontrol.SndProcInpData + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SndProcInpData As OPENcontrol.SndProcInpData) + MyBase.New + Me.SndProcInpData = SndProcInpData + End Sub + End Class + + _ + Partial Public Class SndProcInpDataResponse + + _ + Public SndProcInpDataR As OPENcontrol.SndProcInpDataR + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal SndProcInpDataR As OPENcontrol.SndProcInpDataR) + MyBase.New + Me.SndProcInpDataR = SndProcInpDataR + End Sub + End Class + + _ + Public Interface OPENcontrolPortTypeChannel + Inherits OPENcontrol.OPENcontrolPortType, System.ServiceModel.IClientChannel + End Interface + + _ + Partial Public Class OPENcontrolPortTypeClient + Inherits System.ServiceModel.ClientBase(Of OPENcontrol.OPENcontrolPortType) + Implements OPENcontrol.OPENcontrolPortType + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal endpointConfigurationName As String) + MyBase.New(endpointConfigurationName) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(binding, remoteAddress) + End Sub + + _ + Function OPENcontrol_OPENcontrolPortType_BootPhaseEnquiry(ByVal request As OPENcontrol.BootPhaseEnquiryRequest) As OPENcontrol.BootPhaseEnquiryResponse Implements OPENcontrol.OPENcontrolPortType.BootPhaseEnquiry + Return MyBase.Channel.BootPhaseEnquiry(request) + End Function + + Public Function BootPhaseEnquiry(ByVal BootPhaseEnquiry1 As OPENcontrol.BootPhaseEnquiry) As OPENcontrol.BootPhaseEnquiryR + Dim inValue As OPENcontrol.BootPhaseEnquiryRequest = New OPENcontrol.BootPhaseEnquiryRequest + inValue.BootPhaseEnquiry = BootPhaseEnquiry1 + Dim retVal As OPENcontrol.BootPhaseEnquiryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootPhaseEnquiry(inValue) + Return retVal.BootPhaseEnquiryR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_BootReboot(ByVal request As OPENcontrol.BootRebootRequest) As OPENcontrol.BootRebootResponse Implements OPENcontrol.OPENcontrolPortType.BootReboot + Return MyBase.Channel.BootReboot(request) + End Function + + Public Function BootReboot(ByVal BootReboot1 As OPENcontrol.BootReboot) As OPENcontrol.BootRebootR + Dim inValue As OPENcontrol.BootRebootRequest = New OPENcontrol.BootRebootRequest + inValue.BootReboot = BootReboot1 + Dim retVal As OPENcontrol.BootRebootResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootReboot(inValue) + Return retVal.BootRebootR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_BootShutDown(ByVal request As OPENcontrol.BootShutDownRequest) As OPENcontrol.BootShutDownResponse Implements OPENcontrol.OPENcontrolPortType.BootShutDown + Return MyBase.Channel.BootShutDown(request) + End Function + + Public Function BootShutDown(ByVal BootShutDown1 As OPENcontrol.BootShutDown) As OPENcontrol.BootShutDownR + Dim inValue As OPENcontrol.BootShutDownRequest = New OPENcontrol.BootShutDownRequest + inValue.BootShutDown = BootShutDown1 + Dim retVal As OPENcontrol.BootShutDownResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootShutDown(inValue) + Return retVal.BootShutDownR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_BootMode(ByVal request As OPENcontrol.BootModeRequest) As OPENcontrol.BootModeResponse Implements OPENcontrol.OPENcontrolPortType.BootMode + Return MyBase.Channel.BootMode(request) + End Function + + Public Function BootMode(ByVal BootMode1 As OPENcontrol.BootMode) As OPENcontrol.BootModeR + Dim inValue As OPENcontrol.BootModeRequest = New OPENcontrol.BootModeRequest + inValue.BootMode = BootMode1 + Dim retVal As OPENcontrol.BootModeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).BootMode(inValue) + Return retVal.BootModeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetHWKey(ByVal request As OPENcontrol.GetHWKeyRequest) As OPENcontrol.GetHWKeyResponse Implements OPENcontrol.OPENcontrolPortType.GetHWKey + Return MyBase.Channel.GetHWKey(request) + End Function + + Public Function GetHWKey(ByVal GetHWKey1 As OPENcontrol.GetHWKey) As OPENcontrol.GetHWKeyR + Dim inValue As OPENcontrol.GetHWKeyRequest = New OPENcontrol.GetHWKeyRequest + inValue.GetHWKey = GetHWKey1 + Dim retVal As OPENcontrol.GetHWKeyResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetHWKey(inValue) + Return retVal.GetHWKeyR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadVarWord(ByVal request As OPENcontrol.ReadVarWordRequest) As OPENcontrol.ReadVarWordResponse Implements OPENcontrol.OPENcontrolPortType.ReadVarWord + Return MyBase.Channel.ReadVarWord(request) + End Function + + Public Function ReadVarWord(ByVal ReadVarWord1 As OPENcontrol.ReadVarWord) As OPENcontrol.ReadVarWordR + Dim inValue As OPENcontrol.ReadVarWordRequest = New OPENcontrol.ReadVarWordRequest + inValue.ReadVarWord = ReadVarWord1 + Dim retVal As OPENcontrol.ReadVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadVarWord(inValue) + Return retVal.ReadVarWordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadVarDouble(ByVal request As OPENcontrol.ReadVarDoubleRequest) As OPENcontrol.ReadVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.ReadVarDouble + Return MyBase.Channel.ReadVarDouble(request) + End Function + + Public Function ReadVarDouble(ByVal ReadVarDouble1 As OPENcontrol.ReadVarDouble) As OPENcontrol.ReadVarDoubleR + Dim inValue As OPENcontrol.ReadVarDoubleRequest = New OPENcontrol.ReadVarDoubleRequest + inValue.ReadVarDouble = ReadVarDouble1 + Dim retVal As OPENcontrol.ReadVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadVarDouble(inValue) + Return retVal.ReadVarDoubleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_WriteVarWord(ByVal request As OPENcontrol.WriteVarWordRequest) As OPENcontrol.WriteVarWordResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarWord + Return MyBase.Channel.WriteVarWord(request) + End Function + + Public Function WriteVarWord(ByVal WriteVarWord1 As OPENcontrol.WriteVarWord) As OPENcontrol.WriteVarWordR + Dim inValue As OPENcontrol.WriteVarWordRequest = New OPENcontrol.WriteVarWordRequest + inValue.WriteVarWord = WriteVarWord1 + Dim retVal As OPENcontrol.WriteVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarWord(inValue) + Return retVal.WriteVarWordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_WriteVarWordBit(ByVal request As OPENcontrol.WriteVarWordBitRequest) As OPENcontrol.WriteVarWordBitResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarWordBit + Return MyBase.Channel.WriteVarWordBit(request) + End Function + + Public Function WriteVarWordBit(ByVal WriteVarWordBit1 As OPENcontrol.WriteVarWordBit) As OPENcontrol.WriteVarWordBitR + Dim inValue As OPENcontrol.WriteVarWordBitRequest = New OPENcontrol.WriteVarWordBitRequest + inValue.WriteVarWordBit = WriteVarWordBit1 + Dim retVal As OPENcontrol.WriteVarWordBitResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarWordBit(inValue) + Return retVal.WriteVarWordBitR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_WriteVarDouble(ByVal request As OPENcontrol.WriteVarDoubleRequest) As OPENcontrol.WriteVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarDouble + Return MyBase.Channel.WriteVarDouble(request) + End Function + + Public Function WriteVarDouble(ByVal WriteVarDouble1 As OPENcontrol.WriteVarDouble) As OPENcontrol.WriteVarDoubleR + Dim inValue As OPENcontrol.WriteVarDoubleRequest = New OPENcontrol.WriteVarDoubleRequest + inValue.WriteVarDouble = WriteVarDouble1 + Dim retVal As OPENcontrol.WriteVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarDouble(inValue) + Return retVal.WriteVarDoubleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadVarText(ByVal request As OPENcontrol.ReadVarTextRequest) As OPENcontrol.ReadVarTextResponse Implements OPENcontrol.OPENcontrolPortType.ReadVarText + Return MyBase.Channel.ReadVarText(request) + End Function + + Public Function ReadVarText(ByVal ReadVarText1 As OPENcontrol.ReadVarText) As OPENcontrol.ReadVarTextR + Dim inValue As OPENcontrol.ReadVarTextRequest = New OPENcontrol.ReadVarTextRequest + inValue.ReadVarText = ReadVarText1 + Dim retVal As OPENcontrol.ReadVarTextResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadVarText(inValue) + Return retVal.ReadVarTextR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_WriteVarText(ByVal request As OPENcontrol.WriteVarTextRequest) As OPENcontrol.WriteVarTextResponse Implements OPENcontrol.OPENcontrolPortType.WriteVarText + Return MyBase.Channel.WriteVarText(request) + End Function + + Public Function WriteVarText(ByVal WriteVarText1 As OPENcontrol.WriteVarText) As OPENcontrol.WriteVarTextR + Dim inValue As OPENcontrol.WriteVarTextRequest = New OPENcontrol.WriteVarTextRequest + inValue.WriteVarText = WriteVarText1 + Dim retVal As OPENcontrol.WriteVarTextResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteVarText(inValue) + Return retVal.WriteVarTextR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadWarningMsg(ByVal request As OPENcontrol.ReadWarningMsgRequest) As OPENcontrol.ReadWarningMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadWarningMsg + Return MyBase.Channel.ReadWarningMsg(request) + End Function + + Public Function ReadWarningMsg(ByVal ReadWarningMsg1 As OPENcontrol.ReadWarningMsg) As OPENcontrol.ReadWarningMsgR + Dim inValue As OPENcontrol.ReadWarningMsgRequest = New OPENcontrol.ReadWarningMsgRequest + inValue.ReadWarningMsg = ReadWarningMsg1 + Dim retVal As OPENcontrol.ReadWarningMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadWarningMsg(inValue) + Return retVal.ReadWarningMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ResetSingleTableII(ByVal request As OPENcontrol.ResetSingleTableIIRequest) As OPENcontrol.ResetSingleTableIIResponse Implements OPENcontrol.OPENcontrolPortType.ResetSingleTableII + Return MyBase.Channel.ResetSingleTableII(request) + End Function + + Public Function ResetSingleTableII(ByVal ResetSingleTableII1 As OPENcontrol.ResetSingleTableII) As OPENcontrol.ResetSingleTableIIR + Dim inValue As OPENcontrol.ResetSingleTableIIRequest = New OPENcontrol.ResetSingleTableIIRequest + inValue.ResetSingleTableII = ResetSingleTableII1 + Dim retVal As OPENcontrol.ResetSingleTableIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ResetSingleTableII(inValue) + Return retVal.ResetSingleTableIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LockTableII(ByVal request As OPENcontrol.LockTableIIRequest) As OPENcontrol.LockTableIIResponse Implements OPENcontrol.OPENcontrolPortType.LockTableII + Return MyBase.Channel.LockTableII(request) + End Function + + Public Function LockTableII(ByVal LockTableII1 As OPENcontrol.LockTableII) As OPENcontrol.LockTableIIR + Dim inValue As OPENcontrol.LockTableIIRequest = New OPENcontrol.LockTableIIRequest + inValue.LockTableII = LockTableII1 + Dim retVal As OPENcontrol.LockTableIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LockTableII(inValue) + Return retVal.LockTableIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_UnLockTableII(ByVal request As OPENcontrol.UnLockTableIIRequest) As OPENcontrol.UnLockTableIIResponse Implements OPENcontrol.OPENcontrolPortType.UnLockTableII + Return MyBase.Channel.UnLockTableII(request) + End Function + + Public Function UnLockTableII(ByVal UnLockTableII1 As OPENcontrol.UnLockTableII) As OPENcontrol.UnLockTableIIR + Dim inValue As OPENcontrol.UnLockTableIIRequest = New OPENcontrol.UnLockTableIIRequest + inValue.UnLockTableII = UnLockTableII1 + Dim retVal As OPENcontrol.UnLockTableIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).UnLockTableII(inValue) + Return retVal.UnLockTableIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetOriginTabRecordII(ByVal request As OPENcontrol.GetOriginTabRecordIIRequest) As OPENcontrol.GetOriginTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetOriginTabRecordII + Return MyBase.Channel.GetOriginTabRecordII(request) + End Function + + Public Function GetOriginTabRecordII(ByVal GetOriginTabRecordII1 As OPENcontrol.GetOriginTabRecordII) As OPENcontrol.GetOriginTabRecordIIR + Dim inValue As OPENcontrol.GetOriginTabRecordIIRequest = New OPENcontrol.GetOriginTabRecordIIRequest + inValue.GetOriginTabRecordII = GetOriginTabRecordII1 + Dim retVal As OPENcontrol.GetOriginTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetOriginTabRecordII(inValue) + Return retVal.GetOriginTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetOriginTabRecordII(ByVal request As OPENcontrol.SetOriginTabRecordIIRequest) As OPENcontrol.SetOriginTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetOriginTabRecordII + Return MyBase.Channel.SetOriginTabRecordII(request) + End Function + + Public Function SetOriginTabRecordII(ByVal SetOriginTabRecordII1 As OPENcontrol.SetOriginTabRecordII) As OPENcontrol.SetOriginTabRecordIIR + Dim inValue As OPENcontrol.SetOriginTabRecordIIRequest = New OPENcontrol.SetOriginTabRecordIIRequest + inValue.SetOriginTabRecordII = SetOriginTabRecordII1 + Dim retVal As OPENcontrol.SetOriginTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetOriginTabRecordII(inValue) + Return retVal.SetOriginTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetToolTabRecordII(ByVal request As OPENcontrol.GetToolTabRecordIIRequest) As OPENcontrol.GetToolTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetToolTabRecordII + Return MyBase.Channel.GetToolTabRecordII(request) + End Function + + Public Function GetToolTabRecordII(ByVal GetToolTabRecordII1 As OPENcontrol.GetToolTabRecordII) As OPENcontrol.GetToolTabRecordIIR + Dim inValue As OPENcontrol.GetToolTabRecordIIRequest = New OPENcontrol.GetToolTabRecordIIRequest + inValue.GetToolTabRecordII = GetToolTabRecordII1 + Dim retVal As OPENcontrol.GetToolTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetToolTabRecordII(inValue) + Return retVal.GetToolTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetToolTabRecordII(ByVal request As OPENcontrol.SetToolTabRecordIIRequest) As OPENcontrol.SetToolTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetToolTabRecordII + Return MyBase.Channel.SetToolTabRecordII(request) + End Function + + Public Function SetToolTabRecordII(ByVal SetToolTabRecordII1 As OPENcontrol.SetToolTabRecordII) As OPENcontrol.SetToolTabRecordIIR + Dim inValue As OPENcontrol.SetToolTabRecordIIRequest = New OPENcontrol.SetToolTabRecordIIRequest + inValue.SetToolTabRecordII = SetToolTabRecordII1 + Dim retVal As OPENcontrol.SetToolTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetToolTabRecordII(inValue) + Return retVal.SetToolTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetOffsetTabRecordII(ByVal request As OPENcontrol.GetOffsetTabRecordIIRequest) As OPENcontrol.GetOffsetTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetOffsetTabRecordII + Return MyBase.Channel.GetOffsetTabRecordII(request) + End Function + + Public Function GetOffsetTabRecordII(ByVal GetOffsetTabRecordII1 As OPENcontrol.GetOffsetTabRecordII) As OPENcontrol.GetOffsetTabRecordIIR + Dim inValue As OPENcontrol.GetOffsetTabRecordIIRequest = New OPENcontrol.GetOffsetTabRecordIIRequest + inValue.GetOffsetTabRecordII = GetOffsetTabRecordII1 + Dim retVal As OPENcontrol.GetOffsetTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetOffsetTabRecordII(inValue) + Return retVal.GetOffsetTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetOffsetTabRecordII(ByVal request As OPENcontrol.SetOffsetTabRecordIIRequest) As OPENcontrol.SetOffsetTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetOffsetTabRecordII + Return MyBase.Channel.SetOffsetTabRecordII(request) + End Function + + Public Function SetOffsetTabRecordII(ByVal SetOffsetTabRecordII1 As OPENcontrol.SetOffsetTabRecordII) As OPENcontrol.SetOffsetTabRecordIIR + Dim inValue As OPENcontrol.SetOffsetTabRecordIIRequest = New OPENcontrol.SetOffsetTabRecordIIRequest + inValue.SetOffsetTabRecordII = SetOffsetTabRecordII1 + Dim retVal As OPENcontrol.SetOffsetTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetOffsetTabRecordII(inValue) + Return retVal.SetOffsetTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetUserTabRecordII(ByVal request As OPENcontrol.GetUserTabRecordIIRequest) As OPENcontrol.GetUserTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.GetUserTabRecordII + Return MyBase.Channel.GetUserTabRecordII(request) + End Function + + Public Function GetUserTabRecordII(ByVal GetUserTabRecordII1 As OPENcontrol.GetUserTabRecordII) As OPENcontrol.GetUserTabRecordIIR + Dim inValue As OPENcontrol.GetUserTabRecordIIRequest = New OPENcontrol.GetUserTabRecordIIRequest + inValue.GetUserTabRecordII = GetUserTabRecordII1 + Dim retVal As OPENcontrol.GetUserTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetUserTabRecordII(inValue) + Return retVal.GetUserTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetUserTabRecordII(ByVal request As OPENcontrol.SetUserTabRecordIIRequest) As OPENcontrol.SetUserTabRecordIIResponse Implements OPENcontrol.OPENcontrolPortType.SetUserTabRecordII + Return MyBase.Channel.SetUserTabRecordII(request) + End Function + + Public Function SetUserTabRecordII(ByVal SetUserTabRecordII1 As OPENcontrol.SetUserTabRecordII) As OPENcontrol.SetUserTabRecordIIR + Dim inValue As OPENcontrol.SetUserTabRecordIIRequest = New OPENcontrol.SetUserTabRecordIIRequest + inValue.SetUserTabRecordII = SetUserTabRecordII1 + Dim retVal As OPENcontrol.SetUserTabRecordIIResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetUserTabRecordII(inValue) + Return retVal.SetUserTabRecordIIR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SaveTables(ByVal request As OPENcontrol.SaveTablesRequest) As OPENcontrol.SaveTablesResponse Implements OPENcontrol.OPENcontrolPortType.SaveTables + Return MyBase.Channel.SaveTables(request) + End Function + + Public Function SaveTables(ByVal SaveTables1 As OPENcontrol.SaveTables) As OPENcontrol.SaveTablesR + Dim inValue As OPENcontrol.SaveTablesRequest = New OPENcontrol.SaveTablesRequest + inValue.SaveTables = SaveTables1 + Dim retVal As OPENcontrol.SaveTablesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SaveTables(inValue) + Return retVal.SaveTablesR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_RestoreSingleTable(ByVal request As OPENcontrol.RestoreSingleTableRequest) As OPENcontrol.RestoreSingleTableResponse Implements OPENcontrol.OPENcontrolPortType.RestoreSingleTable + Return MyBase.Channel.RestoreSingleTable(request) + End Function + + Public Function RestoreSingleTable(ByVal RestoreSingleTable1 As OPENcontrol.RestoreSingleTable) As OPENcontrol.RestoreSingleTableR + Dim inValue As OPENcontrol.RestoreSingleTableRequest = New OPENcontrol.RestoreSingleTableRequest + inValue.RestoreSingleTable = RestoreSingleTable1 + Dim retVal As OPENcontrol.RestoreSingleTableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).RestoreSingleTable(inValue) + Return retVal.RestoreSingleTableR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SaveSingleTable(ByVal request As OPENcontrol.SaveSingleTableRequest) As OPENcontrol.SaveSingleTableResponse Implements OPENcontrol.OPENcontrolPortType.SaveSingleTable + Return MyBase.Channel.SaveSingleTable(request) + End Function + + Public Function SaveSingleTable(ByVal SaveSingleTable1 As OPENcontrol.SaveSingleTable) As OPENcontrol.SaveSingleTableR + Dim inValue As OPENcontrol.SaveSingleTableRequest = New OPENcontrol.SaveSingleTableRequest + inValue.SaveSingleTable = SaveSingleTable1 + Dim retVal As OPENcontrol.SaveSingleTableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SaveSingleTable(inValue) + Return retVal.SaveSingleTableR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SaveBackupMemory(ByVal request As OPENcontrol.SaveBackupMemoryRequest) As OPENcontrol.SaveBackupMemoryResponse Implements OPENcontrol.OPENcontrolPortType.SaveBackupMemory + Return MyBase.Channel.SaveBackupMemory(request) + End Function + + Public Function SaveBackupMemory(ByVal SaveBackupMemory1 As OPENcontrol.SaveBackupMemory) As OPENcontrol.SaveBackupMemoryR + Dim inValue As OPENcontrol.SaveBackupMemoryRequest = New OPENcontrol.SaveBackupMemoryRequest + inValue.SaveBackupMemory = SaveBackupMemory1 + Dim retVal As OPENcontrol.SaveBackupMemoryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SaveBackupMemory(inValue) + Return retVal.SaveBackupMemoryR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_RestoreBackupMemory(ByVal request As OPENcontrol.RestoreBackupMemoryRequest) As OPENcontrol.RestoreBackupMemoryResponse Implements OPENcontrol.OPENcontrolPortType.RestoreBackupMemory + Return MyBase.Channel.RestoreBackupMemory(request) + End Function + + Public Function RestoreBackupMemory(ByVal RestoreBackupMemory1 As OPENcontrol.RestoreBackupMemory) As OPENcontrol.RestoreBackupMemoryR + Dim inValue As OPENcontrol.RestoreBackupMemoryRequest = New OPENcontrol.RestoreBackupMemoryRequest + inValue.RestoreBackupMemory = RestoreBackupMemory1 + Dim retVal As OPENcontrol.RestoreBackupMemoryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).RestoreBackupMemory(inValue) + Return retVal.RestoreBackupMemoryR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_Cycle(ByVal request As OPENcontrol.CycleRequest) As OPENcontrol.CycleResponse Implements OPENcontrol.OPENcontrolPortType.Cycle + Return MyBase.Channel.Cycle(request) + End Function + + Public Function Cycle(ByVal Cycle1 As OPENcontrol.Cycle) As OPENcontrol.CycleR + Dim inValue As OPENcontrol.CycleRequest = New OPENcontrol.CycleRequest + inValue.Cycle = Cycle1 + Dim retVal As OPENcontrol.CycleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Cycle(inValue) + Return retVal.CycleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SyncroCycle(ByVal request As OPENcontrol.SyncroCycleRequest) As OPENcontrol.SyncroCycleResponse Implements OPENcontrol.OPENcontrolPortType.SyncroCycle + Return MyBase.Channel.SyncroCycle(request) + End Function + + Public Function SyncroCycle(ByVal SyncroCycle1 As OPENcontrol.SyncroCycle) As OPENcontrol.SyncroCycleR + Dim inValue As OPENcontrol.SyncroCycleRequest = New OPENcontrol.SyncroCycleRequest + inValue.SyncroCycle = SyncroCycle1 + Dim retVal As OPENcontrol.SyncroCycleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SyncroCycle(inValue) + Return retVal.SyncroCycleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_Reset(ByVal request As OPENcontrol.ResetRequest) As OPENcontrol.ResetResponse Implements OPENcontrol.OPENcontrolPortType.Reset + Return MyBase.Channel.Reset(request) + End Function + + Public Function Reset(ByVal Reset1 As OPENcontrol.Reset) As OPENcontrol.ResetR + Dim inValue As OPENcontrol.ResetRequest = New OPENcontrol.ResetRequest + inValue.Reset = Reset1 + Dim retVal As OPENcontrol.ResetResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Reset(inValue) + Return retVal.ResetR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_Hold(ByVal request As OPENcontrol.HoldRequest) As OPENcontrol.HoldResponse Implements OPENcontrol.OPENcontrolPortType.Hold + Return MyBase.Channel.Hold(request) + End Function + + Public Function Hold(ByVal Hold1 As OPENcontrol.Hold) As OPENcontrol.HoldR + Dim inValue As OPENcontrol.HoldRequest = New OPENcontrol.HoldRequest + inValue.Hold = Hold1 + Dim retVal As OPENcontrol.HoldResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Hold(inValue) + Return retVal.HoldR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetFeedManOver(ByVal request As OPENcontrol.SetFeedManOverRequest) As OPENcontrol.SetFeedManOverResponse Implements OPENcontrol.OPENcontrolPortType.SetFeedManOver + Return MyBase.Channel.SetFeedManOver(request) + End Function + + Public Function SetFeedManOver(ByVal SetFeedManOver1 As OPENcontrol.SetFeedManOver) As OPENcontrol.SetFeedManOverR + Dim inValue As OPENcontrol.SetFeedManOverRequest = New OPENcontrol.SetFeedManOverRequest + inValue.SetFeedManOver = SetFeedManOver1 + Dim retVal As OPENcontrol.SetFeedManOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetFeedManOver(inValue) + Return retVal.SetFeedManOverR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetFeedRateOver(ByVal request As OPENcontrol.SetFeedRateOverRequest) As OPENcontrol.SetFeedRateOverResponse Implements OPENcontrol.OPENcontrolPortType.SetFeedRateOver + Return MyBase.Channel.SetFeedRateOver(request) + End Function + + Public Function SetFeedRateOver(ByVal SetFeedRateOver1 As OPENcontrol.SetFeedRateOver) As OPENcontrol.SetFeedRateOverR + Dim inValue As OPENcontrol.SetFeedRateOverRequest = New OPENcontrol.SetFeedRateOverRequest + inValue.SetFeedRateOver = SetFeedRateOver1 + Dim retVal As OPENcontrol.SetFeedRateOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetFeedRateOver(inValue) + Return retVal.SetFeedRateOverR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetFeedRapidOver(ByVal request As OPENcontrol.SetFeedRapidOverRequest) As OPENcontrol.SetFeedRapidOverResponse Implements OPENcontrol.OPENcontrolPortType.SetFeedRapidOver + Return MyBase.Channel.SetFeedRapidOver(request) + End Function + + Public Function SetFeedRapidOver(ByVal SetFeedRapidOver1 As OPENcontrol.SetFeedRapidOver) As OPENcontrol.SetFeedRapidOverR + Dim inValue As OPENcontrol.SetFeedRapidOverRequest = New OPENcontrol.SetFeedRapidOverRequest + inValue.SetFeedRapidOver = SetFeedRapidOver1 + Dim retVal As OPENcontrol.SetFeedRapidOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetFeedRapidOver(inValue) + Return retVal.SetFeedRapidOverR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetSpeedRateOver(ByVal request As OPENcontrol.SetSpeedRateOverRequest) As OPENcontrol.SetSpeedRateOverResponse Implements OPENcontrol.OPENcontrolPortType.SetSpeedRateOver + Return MyBase.Channel.SetSpeedRateOver(request) + End Function + + Public Function SetSpeedRateOver(ByVal SetSpeedRateOver1 As OPENcontrol.SetSpeedRateOver) As OPENcontrol.SetSpeedRateOverR + Dim inValue As OPENcontrol.SetSpeedRateOverRequest = New OPENcontrol.SetSpeedRateOverRequest + inValue.SetSpeedRateOver = SetSpeedRateOver1 + Dim retVal As OPENcontrol.SetSpeedRateOverResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetSpeedRateOver(inValue) + Return retVal.SetSpeedRateOverR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetManMovDirection(ByVal request As OPENcontrol.SetManMovDirectionRequest) As OPENcontrol.SetManMovDirectionResponse Implements OPENcontrol.OPENcontrolPortType.SetManMovDirection + Return MyBase.Channel.SetManMovDirection(request) + End Function + + Public Function SetManMovDirection(ByVal SetManMovDirection1 As OPENcontrol.SetManMovDirection) As OPENcontrol.SetManMovDirectionR + Dim inValue As OPENcontrol.SetManMovDirectionRequest = New OPENcontrol.SetManMovDirectionRequest + inValue.SetManMovDirection = SetManMovDirection1 + Dim retVal As OPENcontrol.SetManMovDirectionResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetManMovDirection(inValue) + Return retVal.SetManMovDirectionR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetVarJOG(ByVal request As OPENcontrol.GetVarJOGRequest) As OPENcontrol.GetVarJOGResponse Implements OPENcontrol.OPENcontrolPortType.GetVarJOG + Return MyBase.Channel.GetVarJOG(request) + End Function + + Public Function GetVarJOG(ByVal GetVarJOG1 As OPENcontrol.GetVarJOG) As OPENcontrol.GetVarJOGR + Dim inValue As OPENcontrol.GetVarJOGRequest = New OPENcontrol.GetVarJOGRequest + inValue.GetVarJOG = GetVarJOG1 + Dim retVal As OPENcontrol.GetVarJOGResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetVarJOG(inValue) + Return retVal.GetVarJOGR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetVarJOG(ByVal request As OPENcontrol.SetVarJOGRequest) As OPENcontrol.SetVarJOGResponse Implements OPENcontrol.OPENcontrolPortType.SetVarJOG + Return MyBase.Channel.SetVarJOG(request) + End Function + + Public Function SetVarJOG(ByVal SetVarJOG1 As OPENcontrol.SetVarJOG) As OPENcontrol.SetVarJOGR + Dim inValue As OPENcontrol.SetVarJOGRequest = New OPENcontrol.SetVarJOGRequest + inValue.SetVarJOG = SetVarJOG1 + Dim retVal As OPENcontrol.SetVarJOGResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetVarJOG(inValue) + Return retVal.SetVarJOGR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetVarUAS(ByVal request As OPENcontrol.SetVarUASRequest) As OPENcontrol.SetVarUASResponse Implements OPENcontrol.OPENcontrolPortType.SetVarUAS + Return MyBase.Channel.SetVarUAS(request) + End Function + + Public Function SetVarUAS(ByVal SetVarUAS1 As OPENcontrol.SetVarUAS) As OPENcontrol.SetVarUASR + Dim inValue As OPENcontrol.SetVarUASRequest = New OPENcontrol.SetVarUASRequest + inValue.SetVarUAS = SetVarUAS1 + Dim retVal As OPENcontrol.SetVarUASResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetVarUAS(inValue) + Return retVal.SetVarUASR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetVarRCM(ByVal request As OPENcontrol.GetVarRCMRequest) As OPENcontrol.GetVarRCMResponse Implements OPENcontrol.OPENcontrolPortType.GetVarRCM + Return MyBase.Channel.GetVarRCM(request) + End Function + + Public Function GetVarRCM(ByVal GetVarRCM1 As OPENcontrol.GetVarRCM) As OPENcontrol.GetVarRCMR + Dim inValue As OPENcontrol.GetVarRCMRequest = New OPENcontrol.GetVarRCMRequest + inValue.GetVarRCM = GetVarRCM1 + Dim retVal As OPENcontrol.GetVarRCMResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetVarRCM(inValue) + Return retVal.GetVarRCMR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetVarRCM(ByVal request As OPENcontrol.SetVarRCMRequest) As OPENcontrol.SetVarRCMResponse Implements OPENcontrol.OPENcontrolPortType.SetVarRCM + Return MyBase.Channel.SetVarRCM(request) + End Function + + Public Function SetVarRCM(ByVal SetVarRCM1 As OPENcontrol.SetVarRCM) As OPENcontrol.SetVarRCMR + Dim inValue As OPENcontrol.SetVarRCMRequest = New OPENcontrol.SetVarRCMRequest + inValue.SetVarRCM = SetVarRCM1 + Dim retVal As OPENcontrol.SetVarRCMResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetVarRCM(inValue) + Return retVal.SetVarRCMR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetProcVarWord(ByVal request As OPENcontrol.GetProcVarWordRequest) As OPENcontrol.GetProcVarWordResponse Implements OPENcontrol.OPENcontrolPortType.GetProcVarWord + Return MyBase.Channel.GetProcVarWord(request) + End Function + + Public Function GetProcVarWord(ByVal GetProcVarWord1 As OPENcontrol.GetProcVarWord) As OPENcontrol.GetProcVarWordR + Dim inValue As OPENcontrol.GetProcVarWordRequest = New OPENcontrol.GetProcVarWordRequest + inValue.GetProcVarWord = GetProcVarWord1 + Dim retVal As OPENcontrol.GetProcVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcVarWord(inValue) + Return retVal.GetProcVarWordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetProcVarWord(ByVal request As OPENcontrol.SetProcVarWordRequest) As OPENcontrol.SetProcVarWordResponse Implements OPENcontrol.OPENcontrolPortType.SetProcVarWord + Return MyBase.Channel.SetProcVarWord(request) + End Function + + Public Function SetProcVarWord(ByVal SetProcVarWord1 As OPENcontrol.SetProcVarWord) As OPENcontrol.SetProcVarWordR + Dim inValue As OPENcontrol.SetProcVarWordRequest = New OPENcontrol.SetProcVarWordRequest + inValue.SetProcVarWord = SetProcVarWord1 + Dim retVal As OPENcontrol.SetProcVarWordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetProcVarWord(inValue) + Return retVal.SetProcVarWordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetProcVarDouble(ByVal request As OPENcontrol.GetProcVarDoubleRequest) As OPENcontrol.GetProcVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.GetProcVarDouble + Return MyBase.Channel.GetProcVarDouble(request) + End Function + + Public Function GetProcVarDouble(ByVal GetProcVarDouble1 As OPENcontrol.GetProcVarDouble) As OPENcontrol.GetProcVarDoubleR + Dim inValue As OPENcontrol.GetProcVarDoubleRequest = New OPENcontrol.GetProcVarDoubleRequest + inValue.GetProcVarDouble = GetProcVarDouble1 + Dim retVal As OPENcontrol.GetProcVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcVarDouble(inValue) + Return retVal.GetProcVarDoubleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetProcVarDouble(ByVal request As OPENcontrol.SetProcVarDoubleRequest) As OPENcontrol.SetProcVarDoubleResponse Implements OPENcontrol.OPENcontrolPortType.SetProcVarDouble + Return MyBase.Channel.SetProcVarDouble(request) + End Function + + Public Function SetProcVarDouble(ByVal SetProcVarDouble1 As OPENcontrol.SetProcVarDouble) As OPENcontrol.SetProcVarDoubleR + Dim inValue As OPENcontrol.SetProcVarDoubleRequest = New OPENcontrol.SetProcVarDoubleRequest + inValue.SetProcVarDouble = SetProcVarDouble1 + Dim retVal As OPENcontrol.SetProcVarDoubleResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetProcVarDouble(inValue) + Return retVal.SetProcVarDoubleR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetMdiString(ByVal request As OPENcontrol.SetMdiStringRequest) As OPENcontrol.SetMdiStringResponse Implements OPENcontrol.OPENcontrolPortType.SetMdiString + Return MyBase.Channel.SetMdiString(request) + End Function + + Public Function SetMdiString(ByVal SetMdiString1 As OPENcontrol.SetMdiString) As OPENcontrol.SetMdiStringR + Dim inValue As OPENcontrol.SetMdiStringRequest = New OPENcontrol.SetMdiStringRequest + inValue.SetMdiString = SetMdiString1 + Dim retVal As OPENcontrol.SetMdiStringResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetMdiString(inValue) + Return retVal.SetMdiStringR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetProcessMode(ByVal request As OPENcontrol.SetProcessModeRequest) As OPENcontrol.SetProcessModeResponse Implements OPENcontrol.OPENcontrolPortType.SetProcessMode + Return MyBase.Channel.SetProcessMode(request) + End Function + + Public Function SetProcessMode(ByVal SetProcessMode1 As OPENcontrol.SetProcessMode) As OPENcontrol.SetProcessModeR + Dim inValue As OPENcontrol.SetProcessModeRequest = New OPENcontrol.SetProcessModeRequest + inValue.SetProcessMode = SetProcessMode1 + Dim retVal As OPENcontrol.SetProcessModeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetProcessMode(inValue) + Return retVal.SetProcessModeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SelectProcess(ByVal request As OPENcontrol.SelectProcessRequest) As OPENcontrol.SelectProcessResponse Implements OPENcontrol.OPENcontrolPortType.SelectProcess + Return MyBase.Channel.SelectProcess(request) + End Function + + Public Function SelectProcess(ByVal SelectProcess1 As OPENcontrol.SelectProcess) As OPENcontrol.SelectProcessR + Dim inValue As OPENcontrol.SelectProcessRequest = New OPENcontrol.SelectProcessRequest + inValue.SelectProcess = SelectProcess1 + Dim retVal As OPENcontrol.SelectProcessResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectProcess(inValue) + Return retVal.SelectProcessR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetSelectedProcess(ByVal request As OPENcontrol.GetSelectedProcessRequest) As OPENcontrol.GetSelectedProcessResponse Implements OPENcontrol.OPENcontrolPortType.GetSelectedProcess + Return MyBase.Channel.GetSelectedProcess(request) + End Function + + Public Function GetSelectedProcess(ByVal GetSelectedProcess1 As OPENcontrol.GetSelectedProcess) As OPENcontrol.GetSelectedProcessR + Dim inValue As OPENcontrol.GetSelectedProcessRequest = New OPENcontrol.GetSelectedProcessRequest + inValue.GetSelectedProcess = GetSelectedProcess1 + Dim retVal As OPENcontrol.GetSelectedProcessResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetSelectedProcess(inValue) + Return retVal.GetSelectedProcessR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SelectProcAxis(ByVal request As OPENcontrol.SelectProcAxisRequest) As OPENcontrol.SelectProcAxisResponse Implements OPENcontrol.OPENcontrolPortType.SelectProcAxis + Return MyBase.Channel.SelectProcAxis(request) + End Function + + Public Function SelectProcAxis(ByVal SelectProcAxis1 As OPENcontrol.SelectProcAxis) As OPENcontrol.SelectProcAxisR + Dim inValue As OPENcontrol.SelectProcAxisRequest = New OPENcontrol.SelectProcAxisRequest + inValue.SelectProcAxis = SelectProcAxis1 + Dim retVal As OPENcontrol.SelectProcAxisResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectProcAxis(inValue) + Return retVal.SelectProcAxisR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SelectPartProgram(ByVal request As OPENcontrol.SelectPartProgramRequest) As OPENcontrol.SelectPartProgramResponse Implements OPENcontrol.OPENcontrolPortType.SelectPartProgram + Return MyBase.Channel.SelectPartProgram(request) + End Function + + Public Function SelectPartProgram(ByVal SelectPartProgram1 As OPENcontrol.SelectPartProgram) As OPENcontrol.SelectPartProgramR + Dim inValue As OPENcontrol.SelectPartProgramRequest = New OPENcontrol.SelectPartProgramRequest + inValue.SelectPartProgram = SelectPartProgram1 + Dim retVal As OPENcontrol.SelectPartProgramResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectPartProgram(inValue) + Return retVal.SelectPartProgramR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SelectPartProgramFromDrive(ByVal request As OPENcontrol.SelectPartProgramFromDriveRequest) As OPENcontrol.SelectPartProgramFromDriveResponse Implements OPENcontrol.OPENcontrolPortType.SelectPartProgramFromDrive + Return MyBase.Channel.SelectPartProgramFromDrive(request) + End Function + + Public Function SelectPartProgramFromDrive(ByVal SelectPartProgramFromDrive1 As OPENcontrol.SelectPartProgramFromDrive) As OPENcontrol.SelectPartProgramFromDriveR + Dim inValue As OPENcontrol.SelectPartProgramFromDriveRequest = New OPENcontrol.SelectPartProgramFromDriveRequest + inValue.SelectPartProgramFromDrive = SelectPartProgramFromDrive1 + Dim retVal As OPENcontrol.SelectPartProgramFromDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SelectPartProgramFromDrive(inValue) + Return retVal.SelectPartProgramFromDriveR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetActivePartProgram(ByVal request As OPENcontrol.GetActivePartProgramRequest) As OPENcontrol.GetActivePartProgramResponse Implements OPENcontrol.OPENcontrolPortType.GetActivePartProgram + Return MyBase.Channel.GetActivePartProgram(request) + End Function + + Public Function GetActivePartProgram(ByVal GetActivePartProgram1 As OPENcontrol.GetActivePartProgram) As OPENcontrol.GetActivePartProgramR + Dim inValue As OPENcontrol.GetActivePartProgramRequest = New OPENcontrol.GetActivePartProgramRequest + inValue.GetActivePartProgram = GetActivePartProgram1 + Dim retVal As OPENcontrol.GetActivePartProgramResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetActivePartProgram(inValue) + Return retVal.GetActivePartProgramR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetPartProgramLines(ByVal request As OPENcontrol.GetPartProgramLinesRequest) As OPENcontrol.GetPartProgramLinesResponse Implements OPENcontrol.OPENcontrolPortType.GetPartProgramLines + Return MyBase.Channel.GetPartProgramLines(request) + End Function + + Public Function GetPartProgramLines(ByVal GetPartProgramLines1 As OPENcontrol.GetPartProgramLines) As OPENcontrol.GetPartProgramLinesR + Dim inValue As OPENcontrol.GetPartProgramLinesRequest = New OPENcontrol.GetPartProgramLinesRequest + inValue.GetPartProgramLines = GetPartProgramLines1 + Dim retVal As OPENcontrol.GetPartProgramLinesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetPartProgramLines(inValue) + Return retVal.GetPartProgramLinesR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetAxOriginNum(ByVal request As OPENcontrol.GetAxOriginNumRequest) As OPENcontrol.GetAxOriginNumResponse Implements OPENcontrol.OPENcontrolPortType.GetAxOriginNum + Return MyBase.Channel.GetAxOriginNum(request) + End Function + + Public Function GetAxOriginNum(ByVal GetAxOriginNum1 As OPENcontrol.GetAxOriginNum) As OPENcontrol.GetAxOriginNumR + Dim inValue As OPENcontrol.GetAxOriginNumRequest = New OPENcontrol.GetAxOriginNumRequest + inValue.GetAxOriginNum = GetAxOriginNum1 + Dim retVal As OPENcontrol.GetAxOriginNumResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetAxOriginNum(inValue) + Return retVal.GetAxOriginNumR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetAxesPosition(ByVal request As OPENcontrol.GetAxesPositionRequest) As OPENcontrol.GetAxesPositionResponse Implements OPENcontrol.OPENcontrolPortType.GetAxesPosition + Return MyBase.Channel.GetAxesPosition(request) + End Function + + Public Function GetAxesPosition(ByVal GetAxesPosition1 As OPENcontrol.GetAxesPosition) As OPENcontrol.GetAxesPositionR + Dim inValue As OPENcontrol.GetAxesPositionRequest = New OPENcontrol.GetAxesPositionRequest + inValue.GetAxesPosition = GetAxesPosition1 + Dim retVal As OPENcontrol.GetAxesPositionResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetAxesPosition(inValue) + Return retVal.GetAxesPositionR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetNcInfo1(ByVal request As OPENcontrol.GetNcInfo1Request) As OPENcontrol.GetNcInfo1Response Implements OPENcontrol.OPENcontrolPortType.GetNcInfo1 + Return MyBase.Channel.GetNcInfo1(request) + End Function + + Public Function GetNcInfo1(ByVal GetNcInfo11 As OPENcontrol.GetNcInfo1) As OPENcontrol.GetNcInfo1R + Dim inValue As OPENcontrol.GetNcInfo1Request = New OPENcontrol.GetNcInfo1Request + inValue.GetNcInfo1 = GetNcInfo11 + Dim retVal As OPENcontrol.GetNcInfo1Response = CType(Me,OPENcontrol.OPENcontrolPortType).GetNcInfo1(inValue) + Return retVal.GetNcInfo1R + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetNcInfo2(ByVal request As OPENcontrol.GetNcInfo2Request) As OPENcontrol.GetNcInfo2Response Implements OPENcontrol.OPENcontrolPortType.GetNcInfo2 + Return MyBase.Channel.GetNcInfo2(request) + End Function + + Public Function GetNcInfo2(ByVal GetNcInfo21 As OPENcontrol.GetNcInfo2) As OPENcontrol.GetNcInfo2R + Dim inValue As OPENcontrol.GetNcInfo2Request = New OPENcontrol.GetNcInfo2Request + inValue.GetNcInfo2 = GetNcInfo21 + Dim retVal As OPENcontrol.GetNcInfo2Response = CType(Me,OPENcontrol.OPENcontrolPortType).GetNcInfo2(inValue) + Return retVal.GetNcInfo2R + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetToolNames(ByVal request As OPENcontrol.GetToolNamesRequest) As OPENcontrol.GetToolNamesResponse Implements OPENcontrol.OPENcontrolPortType.GetToolNames + Return MyBase.Channel.GetToolNames(request) + End Function + + Public Function GetToolNames(ByVal GetToolNames1 As OPENcontrol.GetToolNames) As OPENcontrol.GetToolNamesR + Dim inValue As OPENcontrol.GetToolNamesRequest = New OPENcontrol.GetToolNamesRequest + inValue.GetToolNames = GetToolNames1 + Dim retVal As OPENcontrol.GetToolNamesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetToolNames(inValue) + Return retVal.GetToolNamesR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetProcessStatus(ByVal request As OPENcontrol.GetProcessStatusRequest) As OPENcontrol.GetProcessStatusResponse Implements OPENcontrol.OPENcontrolPortType.GetProcessStatus + Return MyBase.Channel.GetProcessStatus(request) + End Function + + Public Function GetProcessStatus(ByVal GetProcessStatus1 As OPENcontrol.GetProcessStatus) As OPENcontrol.GetProcessStatusR + Dim inValue As OPENcontrol.GetProcessStatusRequest = New OPENcontrol.GetProcessStatusRequest + inValue.GetProcessStatus = GetProcessStatus1 + Dim retVal As OPENcontrol.GetProcessStatusResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcessStatus(inValue) + Return retVal.GetProcessStatusR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetBlkNum(ByVal request As OPENcontrol.GetBlkNumRequest) As OPENcontrol.GetBlkNumResponse Implements OPENcontrol.OPENcontrolPortType.GetBlkNum + Return MyBase.Channel.GetBlkNum(request) + End Function + + Public Function GetBlkNum(ByVal GetBlkNum1 As OPENcontrol.GetBlkNum) As OPENcontrol.GetBlkNumR + Dim inValue As OPENcontrol.GetBlkNumRequest = New OPENcontrol.GetBlkNumRequest + inValue.GetBlkNum = GetBlkNum1 + Dim retVal As OPENcontrol.GetBlkNumResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetBlkNum(inValue) + Return retVal.GetBlkNumR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadErrMsg(ByVal request As OPENcontrol.ReadErrMsgRequest) As OPENcontrol.ReadErrMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadErrMsg + Return MyBase.Channel.ReadErrMsg(request) + End Function + + Public Function ReadErrMsg(ByVal ReadErrMsg1 As OPENcontrol.ReadErrMsg) As OPENcontrol.ReadErrMsgR + Dim inValue As OPENcontrol.ReadErrMsgRequest = New OPENcontrol.ReadErrMsgRequest + inValue.ReadErrMsg = ReadErrMsg1 + Dim retVal As OPENcontrol.ReadErrMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadErrMsg(inValue) + Return retVal.ReadErrMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadPartProgramMsg(ByVal request As OPENcontrol.ReadPartProgramMsgRequest) As OPENcontrol.ReadPartProgramMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadPartProgramMsg + Return MyBase.Channel.ReadPartProgramMsg(request) + End Function + + Public Function ReadPartProgramMsg(ByVal ReadPartProgramMsg1 As OPENcontrol.ReadPartProgramMsg) As OPENcontrol.ReadPartProgramMsgR + Dim inValue As OPENcontrol.ReadPartProgramMsgRequest = New OPENcontrol.ReadPartProgramMsgRequest + inValue.ReadPartProgramMsg = ReadPartProgramMsg1 + Dim retVal As OPENcontrol.ReadPartProgramMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadPartProgramMsg(inValue) + Return retVal.ReadPartProgramMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetGCode(ByVal request As OPENcontrol.GetGCodeRequest) As OPENcontrol.GetGCodeResponse Implements OPENcontrol.OPENcontrolPortType.GetGCode + Return MyBase.Channel.GetGCode(request) + End Function + + Public Function GetGCode(ByVal GetGCode1 As OPENcontrol.GetGCode) As OPENcontrol.GetGCodeR + Dim inValue As OPENcontrol.GetGCodeRequest = New OPENcontrol.GetGCodeRequest + inValue.GetGCode = GetGCode1 + Dim retVal As OPENcontrol.GetGCodeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetGCode(inValue) + Return retVal.GetGCodeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetMCode(ByVal request As OPENcontrol.GetMCodeRequest) As OPENcontrol.GetMCodeResponse Implements OPENcontrol.OPENcontrolPortType.GetMCode + Return MyBase.Channel.GetMCode(request) + End Function + + Public Function GetMCode(ByVal GetMCode1 As OPENcontrol.GetMCode) As OPENcontrol.GetMCodeR + Dim inValue As OPENcontrol.GetMCodeRequest = New OPENcontrol.GetMCodeRequest + inValue.GetMCode = GetMCode1 + Dim retVal As OPENcontrol.GetMCodeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetMCode(inValue) + Return retVal.GetMCodeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SkipPProgBlock(ByVal request As OPENcontrol.SkipPProgBlockRequest) As OPENcontrol.SkipPProgBlockResponse Implements OPENcontrol.OPENcontrolPortType.SkipPProgBlock + Return MyBase.Channel.SkipPProgBlock(request) + End Function + + Public Function SkipPProgBlock(ByVal SkipPProgBlock1 As OPENcontrol.SkipPProgBlock) As OPENcontrol.SkipPProgBlockR + Dim inValue As OPENcontrol.SkipPProgBlockRequest = New OPENcontrol.SkipPProgBlockRequest + inValue.SkipPProgBlock = SkipPProgBlock1 + Dim retVal As OPENcontrol.SkipPProgBlockResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SkipPProgBlock(inValue) + Return retVal.SkipPProgBlockR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_Ese(ByVal request As OPENcontrol.EseRequest) As OPENcontrol.EseResponse Implements OPENcontrol.OPENcontrolPortType.Ese + Return MyBase.Channel.Ese(request) + End Function + + Public Function Ese(ByVal Ese1 As OPENcontrol.Ese) As OPENcontrol.EseR + Dim inValue As OPENcontrol.EseRequest = New OPENcontrol.EseRequest + inValue.Ese = Ese1 + Dim retVal As OPENcontrol.EseResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Ese(inValue) + Return retVal.EseR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_EseEx(ByVal request As OPENcontrol.EseExRequest) As OPENcontrol.EseExResponse Implements OPENcontrol.OPENcontrolPortType.EseEx + Return MyBase.Channel.EseEx(request) + End Function + + Public Function EseEx(ByVal EseEx1 As OPENcontrol.EseEx) As OPENcontrol.EseExR + Dim inValue As OPENcontrol.EseExRequest = New OPENcontrol.EseExRequest + inValue.EseEx = EseEx1 + Dim retVal As OPENcontrol.EseExResponse = CType(Me,OPENcontrol.OPENcontrolPortType).EseEx(inValue) + Return retVal.EseExR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_Exe(ByVal request As OPENcontrol.ExeRequest) As OPENcontrol.ExeResponse Implements OPENcontrol.OPENcontrolPortType.Exe + Return MyBase.Channel.Exe(request) + End Function + + Public Function Exe(ByVal Exe1 As OPENcontrol.Exe) As OPENcontrol.ExeR + Dim inValue As OPENcontrol.ExeRequest = New OPENcontrol.ExeRequest + inValue.Exe = Exe1 + Dim retVal As OPENcontrol.ExeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).Exe(inValue) + Return retVal.ExeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_AxesRef(ByVal request As OPENcontrol.AxesRefRequest) As OPENcontrol.AxesRefResponse Implements OPENcontrol.OPENcontrolPortType.AxesRef + Return MyBase.Channel.AxesRef(request) + End Function + + Public Function AxesRef(ByVal AxesRef1 As OPENcontrol.AxesRef) As OPENcontrol.AxesRefR + Dim inValue As OPENcontrol.AxesRefRequest = New OPENcontrol.AxesRefRequest + inValue.AxesRef = AxesRef1 + Dim retVal As OPENcontrol.AxesRefResponse = CType(Me,OPENcontrol.OPENcontrolPortType).AxesRef(inValue) + Return retVal.AxesRefR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_DncInit(ByVal request As OPENcontrol.DncInitRequest) As OPENcontrol.DncInitResponse Implements OPENcontrol.OPENcontrolPortType.DncInit + Return MyBase.Channel.DncInit(request) + End Function + + Public Function DncInit(ByVal DncInit1 As OPENcontrol.DncInit) As OPENcontrol.DncInitR + Dim inValue As OPENcontrol.DncInitRequest = New OPENcontrol.DncInitRequest + inValue.DncInit = DncInit1 + Dim retVal As OPENcontrol.DncInitResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncInit(inValue) + Return retVal.DncInitR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_DncData(ByVal request As OPENcontrol.DncDataRequest) As OPENcontrol.DncDataResponse Implements OPENcontrol.OPENcontrolPortType.DncData + Return MyBase.Channel.DncData(request) + End Function + + Public Function DncData(ByVal DncData1 As OPENcontrol.DncData) As OPENcontrol.DncDataR + Dim inValue As OPENcontrol.DncDataRequest = New OPENcontrol.DncDataRequest + inValue.DncData = DncData1 + Dim retVal As OPENcontrol.DncDataResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncData(inValue) + Return retVal.DncDataR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_DncEof(ByVal request As OPENcontrol.DncEofRequest) As OPENcontrol.DncEofResponse Implements OPENcontrol.OPENcontrolPortType.DncEof + Return MyBase.Channel.DncEof(request) + End Function + + Public Function DncEof(ByVal DncEof1 As OPENcontrol.DncEof) As OPENcontrol.DncEofR + Dim inValue As OPENcontrol.DncEofRequest = New OPENcontrol.DncEofRequest + inValue.DncEof = DncEof1 + Dim retVal As OPENcontrol.DncEofResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncEof(inValue) + Return retVal.DncEofR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_DncStop(ByVal request As OPENcontrol.DncStopRequest) As OPENcontrol.DncStopResponse Implements OPENcontrol.OPENcontrolPortType.DncStop + Return MyBase.Channel.DncStop(request) + End Function + + Public Function DncStop(ByVal DncStop1 As OPENcontrol.DncStop) As OPENcontrol.DncStopR + Dim inValue As OPENcontrol.DncStopRequest = New OPENcontrol.DncStopRequest + inValue.DncStop = DncStop1 + Dim retVal As OPENcontrol.DncStopResponse = CType(Me,OPENcontrol.OPENcontrolPortType).DncStop(inValue) + Return retVal.DncStopR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetAxesInfo3(ByVal request As OPENcontrol.GetAxesInfo3Request) As OPENcontrol.GetAxesInfo3Response Implements OPENcontrol.OPENcontrolPortType.GetAxesInfo3 + Return MyBase.Channel.GetAxesInfo3(request) + End Function + + Public Function GetAxesInfo3(ByVal GetAxesInfo31 As OPENcontrol.GetAxesInfo3) As OPENcontrol.GetAxesInfo3R + Dim inValue As OPENcontrol.GetAxesInfo3Request = New OPENcontrol.GetAxesInfo3Request + inValue.GetAxesInfo3 = GetAxesInfo31 + Dim retVal As OPENcontrol.GetAxesInfo3Response = CType(Me,OPENcontrol.OPENcontrolPortType).GetAxesInfo3(inValue) + Return retVal.GetAxesInfo3R + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetCodeNumber(ByVal request As OPENcontrol.GetCodeNumberRequest) As OPENcontrol.GetCodeNumberResponse Implements OPENcontrol.OPENcontrolPortType.GetCodeNumber + Return MyBase.Channel.GetCodeNumber(request) + End Function + + Public Function GetCodeNumber(ByVal GetCodeNumber1 As OPENcontrol.GetCodeNumber) As OPENcontrol.GetCodeNumberR + Dim inValue As OPENcontrol.GetCodeNumberRequest = New OPENcontrol.GetCodeNumberRequest + inValue.GetCodeNumber = GetCodeNumber1 + Dim retVal As OPENcontrol.GetCodeNumberResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetCodeNumber(inValue) + Return retVal.GetCodeNumberR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetOptions(ByVal request As OPENcontrol.GetOptionsRequest) As OPENcontrol.GetOptionsResponse Implements OPENcontrol.OPENcontrolPortType.GetOptions + Return MyBase.Channel.GetOptions(request) + End Function + + Public Function GetOptions(ByVal GetOptions1 As OPENcontrol.GetOptions) As OPENcontrol.GetOptionsR + Dim inValue As OPENcontrol.GetOptionsRequest = New OPENcontrol.GetOptionsRequest + inValue.GetOptions = GetOptions1 + Dim retVal As OPENcontrol.GetOptionsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetOptions(inValue) + Return retVal.GetOptionsR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetDateTime(ByVal request As OPENcontrol.GetDateTimeRequest) As OPENcontrol.GetDateTimeResponse Implements OPENcontrol.OPENcontrolPortType.GetDateTime + Return MyBase.Channel.GetDateTime(request) + End Function + + Public Function GetDateTime(ByVal GetDateTime1 As OPENcontrol.GetDateTime) As OPENcontrol.GetDateTimeR + Dim inValue As OPENcontrol.GetDateTimeRequest = New OPENcontrol.GetDateTimeRequest + inValue.GetDateTime = GetDateTime1 + Dim retVal As OPENcontrol.GetDateTimeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetDateTime(inValue) + Return retVal.GetDateTimeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetDateTime(ByVal request As OPENcontrol.SetDateTimeRequest) As OPENcontrol.SetDateTimeResponse Implements OPENcontrol.OPENcontrolPortType.SetDateTime + Return MyBase.Channel.SetDateTime(request) + End Function + + Public Function SetDateTime(ByVal SetDateTime1 As OPENcontrol.SetDateTime) As OPENcontrol.SetDateTimeR + Dim inValue As OPENcontrol.SetDateTimeRequest = New OPENcontrol.SetDateTimeRequest + inValue.SetDateTime = SetDateTime1 + Dim retVal As OPENcontrol.SetDateTimeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetDateTime(inValue) + Return retVal.SetDateTimeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetSerialNumber(ByVal request As OPENcontrol.GetSerialNumberRequest) As OPENcontrol.GetSerialNumberResponse Implements OPENcontrol.OPENcontrolPortType.GetSerialNumber + Return MyBase.Channel.GetSerialNumber(request) + End Function + + Public Function GetSerialNumber(ByVal GetSerialNumber1 As OPENcontrol.GetSerialNumber) As OPENcontrol.GetSerialNumberR + Dim inValue As OPENcontrol.GetSerialNumberRequest = New OPENcontrol.GetSerialNumberRequest + inValue.GetSerialNumber = GetSerialNumber1 + Dim retVal As OPENcontrol.GetSerialNumberResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetSerialNumber(inValue) + Return retVal.GetSerialNumberR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_PutFile(ByVal request As OPENcontrol.PutFileRequest) As OPENcontrol.PutFileResponse Implements OPENcontrol.OPENcontrolPortType.PutFile + Return MyBase.Channel.PutFile(request) + End Function + + Public Function PutFile(ByVal PutFile1 As OPENcontrol.PutFile) As OPENcontrol.PutFileR + Dim inValue As OPENcontrol.PutFileRequest = New OPENcontrol.PutFileRequest + inValue.PutFile = PutFile1 + Dim retVal As OPENcontrol.PutFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).PutFile(inValue) + Return retVal.PutFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetFile(ByVal request As OPENcontrol.GetFileRequest) As OPENcontrol.GetFileResponse Implements OPENcontrol.OPENcontrolPortType.GetFile + Return MyBase.Channel.GetFile(request) + End Function + + Public Function GetFile(ByVal GetFile1 As OPENcontrol.GetFile) As OPENcontrol.GetFileR + Dim inValue As OPENcontrol.GetFileRequest = New OPENcontrol.GetFileRequest + inValue.GetFile = GetFile1 + Dim retVal As OPENcontrol.GetFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetFile(inValue) + Return retVal.GetFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_PutBinaryFile(ByVal request As OPENcontrol.PutBinaryFileRequest) As OPENcontrol.PutBinaryFileResponse Implements OPENcontrol.OPENcontrolPortType.PutBinaryFile + Return MyBase.Channel.PutBinaryFile(request) + End Function + + Public Function PutBinaryFile(ByVal PutBinaryFile1 As OPENcontrol.PutBinaryFile) As OPENcontrol.PutBinaryFileR + Dim inValue As OPENcontrol.PutBinaryFileRequest = New OPENcontrol.PutBinaryFileRequest + inValue.PutBinaryFile = PutBinaryFile1 + Dim retVal As OPENcontrol.PutBinaryFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).PutBinaryFile(inValue) + Return retVal.PutBinaryFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetBinaryFile(ByVal request As OPENcontrol.GetBinaryFileRequest) As OPENcontrol.GetBinaryFileResponse Implements OPENcontrol.OPENcontrolPortType.GetBinaryFile + Return MyBase.Channel.GetBinaryFile(request) + End Function + + Public Function GetBinaryFile(ByVal GetBinaryFile1 As OPENcontrol.GetBinaryFile) As OPENcontrol.GetBinaryFileR + Dim inValue As OPENcontrol.GetBinaryFileRequest = New OPENcontrol.GetBinaryFileRequest + inValue.GetBinaryFile = GetBinaryFile1 + Dim retVal As OPENcontrol.GetBinaryFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetBinaryFile(inValue) + Return retVal.GetBinaryFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSSetSecurityLevel(ByVal request As OPENcontrol.LogFSSetSecurityLevelRequest) As OPENcontrol.LogFSSetSecurityLevelResponse Implements OPENcontrol.OPENcontrolPortType.LogFSSetSecurityLevel + Return MyBase.Channel.LogFSSetSecurityLevel(request) + End Function + + Public Function LogFSSetSecurityLevel(ByVal LogFSSetSecurityLevel1 As OPENcontrol.LogFSSetSecurityLevel) As OPENcontrol.LogFSSetSecurityLevelR + Dim inValue As OPENcontrol.LogFSSetSecurityLevelRequest = New OPENcontrol.LogFSSetSecurityLevelRequest + inValue.LogFSSetSecurityLevel = LogFSSetSecurityLevel1 + Dim retVal As OPENcontrol.LogFSSetSecurityLevelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSSetSecurityLevel(inValue) + Return retVal.LogFSSetSecurityLevelR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetSecurityLevel(ByVal request As OPENcontrol.LogFSGetSecurityLevelRequest) As OPENcontrol.LogFSGetSecurityLevelResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetSecurityLevel + Return MyBase.Channel.LogFSGetSecurityLevel(request) + End Function + + Public Function LogFSGetSecurityLevel(ByVal LogFSGetSecurityLevel1 As OPENcontrol.LogFSGetSecurityLevel) As OPENcontrol.LogFSGetSecurityLevelR + Dim inValue As OPENcontrol.LogFSGetSecurityLevelRequest = New OPENcontrol.LogFSGetSecurityLevelRequest + inValue.LogFSGetSecurityLevel = LogFSGetSecurityLevel1 + Dim retVal As OPENcontrol.LogFSGetSecurityLevelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetSecurityLevel(inValue) + Return retVal.LogFSGetSecurityLevelR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSLongFileNames(ByVal request As OPENcontrol.LogFSLongFileNamesRequest) As OPENcontrol.LogFSLongFileNamesResponse Implements OPENcontrol.OPENcontrolPortType.LogFSLongFileNames + Return MyBase.Channel.LogFSLongFileNames(request) + End Function + + Public Function LogFSLongFileNames(ByVal LogFSLongFileNames1 As OPENcontrol.LogFSLongFileNames) As OPENcontrol.LogFSLongFileNamesR + Dim inValue As OPENcontrol.LogFSLongFileNamesRequest = New OPENcontrol.LogFSLongFileNamesRequest + inValue.LogFSLongFileNames = LogFSLongFileNames1 + Dim retVal As OPENcontrol.LogFSLongFileNamesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSLongFileNames(inValue) + Return retVal.LogFSLongFileNamesR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetNumDrive(ByVal request As OPENcontrol.LogFSGetNumDriveRequest) As OPENcontrol.LogFSGetNumDriveResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetNumDrive + Return MyBase.Channel.LogFSGetNumDrive(request) + End Function + + Public Function LogFSGetNumDrive(ByVal LogFSGetNumDrive1 As OPENcontrol.LogFSGetNumDrive) As OPENcontrol.LogFSGetNumDriveR + Dim inValue As OPENcontrol.LogFSGetNumDriveRequest = New OPENcontrol.LogFSGetNumDriveRequest + inValue.LogFSGetNumDrive = LogFSGetNumDrive1 + Dim retVal As OPENcontrol.LogFSGetNumDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetNumDrive(inValue) + Return retVal.LogFSGetNumDriveR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetDriveList(ByVal request As OPENcontrol.LogFSGetDriveListRequest) As OPENcontrol.LogFSGetDriveListResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetDriveList + Return MyBase.Channel.LogFSGetDriveList(request) + End Function + + Public Function LogFSGetDriveList(ByVal LogFSGetDriveList1 As OPENcontrol.LogFSGetDriveList) As OPENcontrol.LogFSGetDriveListR + Dim inValue As OPENcontrol.LogFSGetDriveListRequest = New OPENcontrol.LogFSGetDriveListRequest + inValue.LogFSGetDriveList = LogFSGetDriveList1 + Dim retVal As OPENcontrol.LogFSGetDriveListResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetDriveList(inValue) + Return retVal.LogFSGetDriveListR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetHiddenDriveList(ByVal request As OPENcontrol.LogFSGetHiddenDriveListRequest) As OPENcontrol.LogFSGetHiddenDriveListResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetHiddenDriveList + Return MyBase.Channel.LogFSGetHiddenDriveList(request) + End Function + + Public Function LogFSGetHiddenDriveList(ByVal LogFSGetHiddenDriveList1 As OPENcontrol.LogFSGetHiddenDriveList) As OPENcontrol.LogFSGetHiddenDriveListR + Dim inValue As OPENcontrol.LogFSGetHiddenDriveListRequest = New OPENcontrol.LogFSGetHiddenDriveListRequest + inValue.LogFSGetHiddenDriveList = LogFSGetHiddenDriveList1 + Dim retVal As OPENcontrol.LogFSGetHiddenDriveListResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetHiddenDriveList(inValue) + Return retVal.LogFSGetHiddenDriveListR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetDrivePath(ByVal request As OPENcontrol.LogFSGetDrivePathRequest) As OPENcontrol.LogFSGetDrivePathResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetDrivePath + Return MyBase.Channel.LogFSGetDrivePath(request) + End Function + + Public Function LogFSGetDrivePath(ByVal LogFSGetDrivePath1 As OPENcontrol.LogFSGetDrivePath) As OPENcontrol.LogFSGetDrivePathR + Dim inValue As OPENcontrol.LogFSGetDrivePathRequest = New OPENcontrol.LogFSGetDrivePathRequest + inValue.LogFSGetDrivePath = LogFSGetDrivePath1 + Dim retVal As OPENcontrol.LogFSGetDrivePathResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetDrivePath(inValue) + Return retVal.LogFSGetDrivePathR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSAddDrive(ByVal request As OPENcontrol.LogFSAddDriveRequest) As OPENcontrol.LogFSAddDriveResponse Implements OPENcontrol.OPENcontrolPortType.LogFSAddDrive + Return MyBase.Channel.LogFSAddDrive(request) + End Function + + Public Function LogFSAddDrive(ByVal LogFSAddDrive1 As OPENcontrol.LogFSAddDrive) As OPENcontrol.LogFSAddDriveR + Dim inValue As OPENcontrol.LogFSAddDriveRequest = New OPENcontrol.LogFSAddDriveRequest + inValue.LogFSAddDrive = LogFSAddDrive1 + Dim retVal As OPENcontrol.LogFSAddDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSAddDrive(inValue) + Return retVal.LogFSAddDriveR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSRemoveDrive(ByVal request As OPENcontrol.LogFSRemoveDriveRequest) As OPENcontrol.LogFSRemoveDriveResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRemoveDrive + Return MyBase.Channel.LogFSRemoveDrive(request) + End Function + + Public Function LogFSRemoveDrive(ByVal LogFSRemoveDrive1 As OPENcontrol.LogFSRemoveDrive) As OPENcontrol.LogFSRemoveDriveR + Dim inValue As OPENcontrol.LogFSRemoveDriveRequest = New OPENcontrol.LogFSRemoveDriveRequest + inValue.LogFSRemoveDrive = LogFSRemoveDrive1 + Dim retVal As OPENcontrol.LogFSRemoveDriveResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRemoveDrive(inValue) + Return retVal.LogFSRemoveDriveR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSReloadDriveList(ByVal request As OPENcontrol.LogFSReloadDriveListRequest) As OPENcontrol.LogFSReloadDriveListResponse Implements OPENcontrol.OPENcontrolPortType.LogFSReloadDriveList + Return MyBase.Channel.LogFSReloadDriveList(request) + End Function + + Public Function LogFSReloadDriveList(ByVal LogFSReloadDriveList1 As OPENcontrol.LogFSReloadDriveList) As OPENcontrol.LogFSReloadDriveListR + Dim inValue As OPENcontrol.LogFSReloadDriveListRequest = New OPENcontrol.LogFSReloadDriveListRequest + inValue.LogFSReloadDriveList = LogFSReloadDriveList1 + Dim retVal As OPENcontrol.LogFSReloadDriveListResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSReloadDriveList(inValue) + Return retVal.LogFSReloadDriveListR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSCreateDir(ByVal request As OPENcontrol.LogFSCreateDirRequest) As OPENcontrol.LogFSCreateDirResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCreateDir + Return MyBase.Channel.LogFSCreateDir(request) + End Function + + Public Function LogFSCreateDir(ByVal LogFSCreateDir1 As OPENcontrol.LogFSCreateDir) As OPENcontrol.LogFSCreateDirR + Dim inValue As OPENcontrol.LogFSCreateDirRequest = New OPENcontrol.LogFSCreateDirRequest + inValue.LogFSCreateDir = LogFSCreateDir1 + Dim retVal As OPENcontrol.LogFSCreateDirResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCreateDir(inValue) + Return retVal.LogFSCreateDirR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSCreateFile(ByVal request As OPENcontrol.LogFSCreateFileRequest) As OPENcontrol.LogFSCreateFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCreateFile + Return MyBase.Channel.LogFSCreateFile(request) + End Function + + Public Function LogFSCreateFile(ByVal LogFSCreateFile1 As OPENcontrol.LogFSCreateFile) As OPENcontrol.LogFSCreateFileR + Dim inValue As OPENcontrol.LogFSCreateFileRequest = New OPENcontrol.LogFSCreateFileRequest + inValue.LogFSCreateFile = LogFSCreateFile1 + Dim retVal As OPENcontrol.LogFSCreateFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCreateFile(inValue) + Return retVal.LogFSCreateFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetFileSize(ByVal request As OPENcontrol.LogFSGetFileSizeRequest) As OPENcontrol.LogFSGetFileSizeResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetFileSize + Return MyBase.Channel.LogFSGetFileSize(request) + End Function + + Public Function LogFSGetFileSize(ByVal LogFSGetFileSize1 As OPENcontrol.LogFSGetFileSize) As OPENcontrol.LogFSGetFileSizeR + Dim inValue As OPENcontrol.LogFSGetFileSizeRequest = New OPENcontrol.LogFSGetFileSizeRequest + inValue.LogFSGetFileSize = LogFSGetFileSize1 + Dim retVal As OPENcontrol.LogFSGetFileSizeResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetFileSize(inValue) + Return retVal.LogFSGetFileSizeR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetFileAttrib(ByVal request As OPENcontrol.LogFSGetFileAttribRequest) As OPENcontrol.LogFSGetFileAttribResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetFileAttrib + Return MyBase.Channel.LogFSGetFileAttrib(request) + End Function + + Public Function LogFSGetFileAttrib(ByVal LogFSGetFileAttrib1 As OPENcontrol.LogFSGetFileAttrib) As OPENcontrol.LogFSGetFileAttribR + Dim inValue As OPENcontrol.LogFSGetFileAttribRequest = New OPENcontrol.LogFSGetFileAttribRequest + inValue.LogFSGetFileAttrib = LogFSGetFileAttrib1 + Dim retVal As OPENcontrol.LogFSGetFileAttribResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetFileAttrib(inValue) + Return retVal.LogFSGetFileAttribR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSSetFileAttrib(ByVal request As OPENcontrol.LogFSSetFileAttribRequest) As OPENcontrol.LogFSSetFileAttribResponse Implements OPENcontrol.OPENcontrolPortType.LogFSSetFileAttrib + Return MyBase.Channel.LogFSSetFileAttrib(request) + End Function + + Public Function LogFSSetFileAttrib(ByVal LogFSSetFileAttrib1 As OPENcontrol.LogFSSetFileAttrib) As OPENcontrol.LogFSSetFileAttribR + Dim inValue As OPENcontrol.LogFSSetFileAttribRequest = New OPENcontrol.LogFSSetFileAttribRequest + inValue.LogFSSetFileAttrib = LogFSSetFileAttrib1 + Dim retVal As OPENcontrol.LogFSSetFileAttribResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSSetFileAttrib(inValue) + Return retVal.LogFSSetFileAttribR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSChangeFileAttrib(ByVal request As OPENcontrol.LogFSChangeFileAttribRequest) As OPENcontrol.LogFSChangeFileAttribResponse Implements OPENcontrol.OPENcontrolPortType.LogFSChangeFileAttrib + Return MyBase.Channel.LogFSChangeFileAttrib(request) + End Function + + Public Function LogFSChangeFileAttrib(ByVal LogFSChangeFileAttrib1 As OPENcontrol.LogFSChangeFileAttrib) As OPENcontrol.LogFSChangeFileAttribR + Dim inValue As OPENcontrol.LogFSChangeFileAttribRequest = New OPENcontrol.LogFSChangeFileAttribRequest + inValue.LogFSChangeFileAttrib = LogFSChangeFileAttrib1 + Dim retVal As OPENcontrol.LogFSChangeFileAttribResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSChangeFileAttrib(inValue) + Return retVal.LogFSChangeFileAttribR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSFindFirst(ByVal request As OPENcontrol.LogFSFindFirstRequest) As OPENcontrol.LogFSFindFirstResponse Implements OPENcontrol.OPENcontrolPortType.LogFSFindFirst + Return MyBase.Channel.LogFSFindFirst(request) + End Function + + Public Function LogFSFindFirst(ByVal LogFSFindFirst1 As OPENcontrol.LogFSFindFirst) As OPENcontrol.LogFSFindFirstR + Dim inValue As OPENcontrol.LogFSFindFirstRequest = New OPENcontrol.LogFSFindFirstRequest + inValue.LogFSFindFirst = LogFSFindFirst1 + Dim retVal As OPENcontrol.LogFSFindFirstResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSFindFirst(inValue) + Return retVal.LogFSFindFirstR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSFindNext(ByVal request As OPENcontrol.LogFSFindNextRequest) As OPENcontrol.LogFSFindNextResponse Implements OPENcontrol.OPENcontrolPortType.LogFSFindNext + Return MyBase.Channel.LogFSFindNext(request) + End Function + + Public Function LogFSFindNext(ByVal LogFSFindNext1 As OPENcontrol.LogFSFindNext) As OPENcontrol.LogFSFindNextR + Dim inValue As OPENcontrol.LogFSFindNextRequest = New OPENcontrol.LogFSFindNextRequest + inValue.LogFSFindNext = LogFSFindNext1 + Dim retVal As OPENcontrol.LogFSFindNextResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSFindNext(inValue) + Return retVal.LogFSFindNextR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSFindClose(ByVal request As OPENcontrol.LogFSFindCloseRequest) As OPENcontrol.LogFSFindCloseResponse Implements OPENcontrol.OPENcontrolPortType.LogFSFindClose + Return MyBase.Channel.LogFSFindClose(request) + End Function + + Public Function LogFSFindClose(ByVal LogFSFindClose1 As OPENcontrol.LogFSFindClose) As OPENcontrol.LogFSFindCloseR + Dim inValue As OPENcontrol.LogFSFindCloseRequest = New OPENcontrol.LogFSFindCloseRequest + inValue.LogFSFindClose = LogFSFindClose1 + Dim retVal As OPENcontrol.LogFSFindCloseResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSFindClose(inValue) + Return retVal.LogFSFindCloseR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSRemoveFile(ByVal request As OPENcontrol.LogFSRemoveFileRequest) As OPENcontrol.LogFSRemoveFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRemoveFile + Return MyBase.Channel.LogFSRemoveFile(request) + End Function + + Public Function LogFSRemoveFile(ByVal LogFSRemoveFile1 As OPENcontrol.LogFSRemoveFile) As OPENcontrol.LogFSRemoveFileR + Dim inValue As OPENcontrol.LogFSRemoveFileRequest = New OPENcontrol.LogFSRemoveFileRequest + inValue.LogFSRemoveFile = LogFSRemoveFile1 + Dim retVal As OPENcontrol.LogFSRemoveFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRemoveFile(inValue) + Return retVal.LogFSRemoveFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSRemoveDir(ByVal request As OPENcontrol.LogFSRemoveDirRequest) As OPENcontrol.LogFSRemoveDirResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRemoveDir + Return MyBase.Channel.LogFSRemoveDir(request) + End Function + + Public Function LogFSRemoveDir(ByVal LogFSRemoveDir1 As OPENcontrol.LogFSRemoveDir) As OPENcontrol.LogFSRemoveDirR + Dim inValue As OPENcontrol.LogFSRemoveDirRequest = New OPENcontrol.LogFSRemoveDirRequest + inValue.LogFSRemoveDir = LogFSRemoveDir1 + Dim retVal As OPENcontrol.LogFSRemoveDirResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRemoveDir(inValue) + Return retVal.LogFSRemoveDirR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSRename(ByVal request As OPENcontrol.LogFSRenameRequest) As OPENcontrol.LogFSRenameResponse Implements OPENcontrol.OPENcontrolPortType.LogFSRename + Return MyBase.Channel.LogFSRename(request) + End Function + + Public Function LogFSRename(ByVal LogFSRename1 As OPENcontrol.LogFSRename) As OPENcontrol.LogFSRenameR + Dim inValue As OPENcontrol.LogFSRenameRequest = New OPENcontrol.LogFSRenameRequest + inValue.LogFSRename = LogFSRename1 + Dim retVal As OPENcontrol.LogFSRenameResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSRename(inValue) + Return retVal.LogFSRenameR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSCopyFile(ByVal request As OPENcontrol.LogFSCopyFileRequest) As OPENcontrol.LogFSCopyFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCopyFile + Return MyBase.Channel.LogFSCopyFile(request) + End Function + + Public Function LogFSCopyFile(ByVal LogFSCopyFile1 As OPENcontrol.LogFSCopyFile) As OPENcontrol.LogFSCopyFileR + Dim inValue As OPENcontrol.LogFSCopyFileRequest = New OPENcontrol.LogFSCopyFileRequest + inValue.LogFSCopyFile = LogFSCopyFile1 + Dim retVal As OPENcontrol.LogFSCopyFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCopyFile(inValue) + Return retVal.LogFSCopyFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSGetInfo(ByVal request As OPENcontrol.LogFSGetInfoRequest) As OPENcontrol.LogFSGetInfoResponse Implements OPENcontrol.OPENcontrolPortType.LogFSGetInfo + Return MyBase.Channel.LogFSGetInfo(request) + End Function + + Public Function LogFSGetInfo(ByVal LogFSGetInfo1 As OPENcontrol.LogFSGetInfo) As OPENcontrol.LogFSGetInfoR + Dim inValue As OPENcontrol.LogFSGetInfoRequest = New OPENcontrol.LogFSGetInfoRequest + inValue.LogFSGetInfo = LogFSGetInfo1 + Dim retVal As OPENcontrol.LogFSGetInfoResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSGetInfo(inValue) + Return retVal.LogFSGetInfoR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetAvailableCustomEvents(ByVal request As OPENcontrol.GetAvailableCustomEventsRequest) As OPENcontrol.GetAvailableCustomEventsResponse Implements OPENcontrol.OPENcontrolPortType.GetAvailableCustomEvents + Return MyBase.Channel.GetAvailableCustomEvents(request) + End Function + + Public Function GetAvailableCustomEvents(ByVal GetAvailableCustomEvents1 As OPENcontrol.GetAvailableCustomEvents) As OPENcontrol.GetAvailableCustomEventsR + Dim inValue As OPENcontrol.GetAvailableCustomEventsRequest = New OPENcontrol.GetAvailableCustomEventsRequest + inValue.GetAvailableCustomEvents = GetAvailableCustomEvents1 + Dim retVal As OPENcontrol.GetAvailableCustomEventsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetAvailableCustomEvents(inValue) + Return retVal.GetAvailableCustomEventsR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetSysTick(ByVal request As OPENcontrol.GetSysTickRequest) As OPENcontrol.GetSysTickResponse Implements OPENcontrol.OPENcontrolPortType.GetSysTick + Return MyBase.Channel.GetSysTick(request) + End Function + + Public Function GetSysTick(ByVal GetSysTick1 As OPENcontrol.GetSysTick) As OPENcontrol.GetSysTickR + Dim inValue As OPENcontrol.GetSysTickRequest = New OPENcontrol.GetSysTickRequest + inValue.GetSysTick = GetSysTick1 + Dim retVal As OPENcontrol.GetSysTickResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetSysTick(inValue) + Return retVal.GetSysTickR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetProcessConfNum(ByVal request As OPENcontrol.GetProcessConfNumRequest) As OPENcontrol.GetProcessConfNumResponse Implements OPENcontrol.OPENcontrolPortType.GetProcessConfNum + Return MyBase.Channel.GetProcessConfNum(request) + End Function + + Public Function GetProcessConfNum(ByVal GetProcessConfNum1 As OPENcontrol.GetProcessConfNum) As OPENcontrol.GetProcessConfNumR + Dim inValue As OPENcontrol.GetProcessConfNumRequest = New OPENcontrol.GetProcessConfNumRequest + inValue.GetProcessConfNum = GetProcessConfNum1 + Dim retVal As OPENcontrol.GetProcessConfNumResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcessConfNum(inValue) + Return retVal.GetProcessConfNumR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonOpenChannel(ByVal request As OPENcontrol.MonOpenChannelRequest) As OPENcontrol.MonOpenChannelResponse Implements OPENcontrol.OPENcontrolPortType.MonOpenChannel + Return MyBase.Channel.MonOpenChannel(request) + End Function + + Public Function MonOpenChannel(ByVal MonOpenChannel1 As OPENcontrol.MonOpenChannel) As OPENcontrol.MonOpenChannelR + Dim inValue As OPENcontrol.MonOpenChannelRequest = New OPENcontrol.MonOpenChannelRequest + inValue.MonOpenChannel = MonOpenChannel1 + Dim retVal As OPENcontrol.MonOpenChannelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonOpenChannel(inValue) + Return retVal.MonOpenChannelR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonCloseChannel(ByVal request As OPENcontrol.MonCloseChannelRequest) As OPENcontrol.MonCloseChannelResponse Implements OPENcontrol.OPENcontrolPortType.MonCloseChannel + Return MyBase.Channel.MonCloseChannel(request) + End Function + + Public Function MonCloseChannel(ByVal MonCloseChannel1 As OPENcontrol.MonCloseChannel) As OPENcontrol.MonCloseChannelR + Dim inValue As OPENcontrol.MonCloseChannelRequest = New OPENcontrol.MonCloseChannelRequest + inValue.MonCloseChannel = MonCloseChannel1 + Dim retVal As OPENcontrol.MonCloseChannelResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonCloseChannel(inValue) + Return retVal.MonCloseChannelR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonAddVariable(ByVal request As OPENcontrol.MonAddVariableRequest) As OPENcontrol.MonAddVariableResponse Implements OPENcontrol.OPENcontrolPortType.MonAddVariable + Return MyBase.Channel.MonAddVariable(request) + End Function + + Public Function MonAddVariable(ByVal MonAddVariable1 As OPENcontrol.MonAddVariable) As OPENcontrol.MonAddVariableR + Dim inValue As OPENcontrol.MonAddVariableRequest = New OPENcontrol.MonAddVariableRequest + inValue.MonAddVariable = MonAddVariable1 + Dim retVal As OPENcontrol.MonAddVariableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonAddVariable(inValue) + Return retVal.MonAddVariableR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonDeleteVariable(ByVal request As OPENcontrol.MonDeleteVariableRequest) As OPENcontrol.MonDeleteVariableResponse Implements OPENcontrol.OPENcontrolPortType.MonDeleteVariable + Return MyBase.Channel.MonDeleteVariable(request) + End Function + + Public Function MonDeleteVariable(ByVal MonDeleteVariable1 As OPENcontrol.MonDeleteVariable) As OPENcontrol.MonDeleteVariableR + Dim inValue As OPENcontrol.MonDeleteVariableRequest = New OPENcontrol.MonDeleteVariableRequest + inValue.MonDeleteVariable = MonDeleteVariable1 + Dim retVal As OPENcontrol.MonDeleteVariableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonDeleteVariable(inValue) + Return retVal.MonDeleteVariableR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonStartSampling(ByVal request As OPENcontrol.MonStartSamplingRequest) As OPENcontrol.MonStartSamplingResponse Implements OPENcontrol.OPENcontrolPortType.MonStartSampling + Return MyBase.Channel.MonStartSampling(request) + End Function + + Public Function MonStartSampling(ByVal MonStartSampling1 As OPENcontrol.MonStartSampling) As OPENcontrol.MonStartSamplingR + Dim inValue As OPENcontrol.MonStartSamplingRequest = New OPENcontrol.MonStartSamplingRequest + inValue.MonStartSampling = MonStartSampling1 + Dim retVal As OPENcontrol.MonStartSamplingResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonStartSampling(inValue) + Return retVal.MonStartSamplingR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonStopSampling(ByVal request As OPENcontrol.MonStopSamplingRequest) As OPENcontrol.MonStopSamplingResponse Implements OPENcontrol.OPENcontrolPortType.MonStopSampling + Return MyBase.Channel.MonStopSampling(request) + End Function + + Public Function MonStopSampling(ByVal MonStopSampling1 As OPENcontrol.MonStopSampling) As OPENcontrol.MonStopSamplingR + Dim inValue As OPENcontrol.MonStopSamplingRequest = New OPENcontrol.MonStopSamplingRequest + inValue.MonStopSampling = MonStopSampling1 + Dim retVal As OPENcontrol.MonStopSamplingResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonStopSampling(inValue) + Return retVal.MonStopSamplingR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_MonGetVariable(ByVal request As OPENcontrol.MonGetVariableRequest) As OPENcontrol.MonGetVariableResponse Implements OPENcontrol.OPENcontrolPortType.MonGetVariable + Return MyBase.Channel.MonGetVariable(request) + End Function + + Public Function MonGetVariable(ByVal MonGetVariable1 As OPENcontrol.MonGetVariable) As OPENcontrol.MonGetVariableR + Dim inValue As OPENcontrol.MonGetVariableRequest = New OPENcontrol.MonGetVariableRequest + inValue.MonGetVariable = MonGetVariable1 + Dim retVal As OPENcontrol.MonGetVariableResponse = CType(Me,OPENcontrol.OPENcontrolPortType).MonGetVariable(inValue) + Return retVal.MonGetVariableR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_CheckHistory(ByVal request As OPENcontrol.CheckHistoryRequest) As OPENcontrol.CheckHistoryResponse Implements OPENcontrol.OPENcontrolPortType.CheckHistory + Return MyBase.Channel.CheckHistory(request) + End Function + + Public Function CheckHistory(ByVal CheckHistory1 As OPENcontrol.CheckHistory) As OPENcontrol.CheckHistoryR + Dim inValue As OPENcontrol.CheckHistoryRequest = New OPENcontrol.CheckHistoryRequest + inValue.CheckHistory = CheckHistory1 + Dim retVal As OPENcontrol.CheckHistoryResponse = CType(Me,OPENcontrol.OPENcontrolPortType).CheckHistory(inValue) + Return retVal.CheckHistoryR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadHistoryEmergMsg(ByVal request As OPENcontrol.ReadHistoryEmergMsgRequest) As OPENcontrol.ReadHistoryEmergMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryEmergMsg + Return MyBase.Channel.ReadHistoryEmergMsg(request) + End Function + + Public Function ReadHistoryEmergMsg(ByVal ReadHistoryEmergMsg1 As OPENcontrol.ReadHistoryEmergMsg) As OPENcontrol.ReadHistoryEmergMsgR + Dim inValue As OPENcontrol.ReadHistoryEmergMsgRequest = New OPENcontrol.ReadHistoryEmergMsgRequest + inValue.ReadHistoryEmergMsg = ReadHistoryEmergMsg1 + Dim retVal As OPENcontrol.ReadHistoryEmergMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryEmergMsg(inValue) + Return retVal.ReadHistoryEmergMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadHistoryErrorMsg(ByVal request As OPENcontrol.ReadHistoryErrorMsgRequest) As OPENcontrol.ReadHistoryErrorMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryErrorMsg + Return MyBase.Channel.ReadHistoryErrorMsg(request) + End Function + + Public Function ReadHistoryErrorMsg(ByVal ReadHistoryErrorMsg1 As OPENcontrol.ReadHistoryErrorMsg) As OPENcontrol.ReadHistoryErrorMsgR + Dim inValue As OPENcontrol.ReadHistoryErrorMsgRequest = New OPENcontrol.ReadHistoryErrorMsgRequest + inValue.ReadHistoryErrorMsg = ReadHistoryErrorMsg1 + Dim retVal As OPENcontrol.ReadHistoryErrorMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryErrorMsg(inValue) + Return retVal.ReadHistoryErrorMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadHistoryLogMsg(ByVal request As OPENcontrol.ReadHistoryLogMsgRequest) As OPENcontrol.ReadHistoryLogMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryLogMsg + Return MyBase.Channel.ReadHistoryLogMsg(request) + End Function + + Public Function ReadHistoryLogMsg(ByVal ReadHistoryLogMsg1 As OPENcontrol.ReadHistoryLogMsg) As OPENcontrol.ReadHistoryLogMsgR + Dim inValue As OPENcontrol.ReadHistoryLogMsgRequest = New OPENcontrol.ReadHistoryLogMsgRequest + inValue.ReadHistoryLogMsg = ReadHistoryLogMsg1 + Dim retVal As OPENcontrol.ReadHistoryLogMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryLogMsg(inValue) + Return retVal.ReadHistoryLogMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadHistoryAnomalyMsg(ByVal request As OPENcontrol.ReadHistoryAnomalyMsgRequest) As OPENcontrol.ReadHistoryAnomalyMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadHistoryAnomalyMsg + Return MyBase.Channel.ReadHistoryAnomalyMsg(request) + End Function + + Public Function ReadHistoryAnomalyMsg(ByVal ReadHistoryAnomalyMsg1 As OPENcontrol.ReadHistoryAnomalyMsg) As OPENcontrol.ReadHistoryAnomalyMsgR + Dim inValue As OPENcontrol.ReadHistoryAnomalyMsgRequest = New OPENcontrol.ReadHistoryAnomalyMsgRequest + inValue.ReadHistoryAnomalyMsg = ReadHistoryAnomalyMsg1 + Dim retVal As OPENcontrol.ReadHistoryAnomalyMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadHistoryAnomalyMsg(inValue) + Return retVal.ReadHistoryAnomalyMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadCurrentErrorMsg(ByVal request As OPENcontrol.ReadCurrentErrorMsgRequest) As OPENcontrol.ReadCurrentErrorMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadCurrentErrorMsg + Return MyBase.Channel.ReadCurrentErrorMsg(request) + End Function + + Public Function ReadCurrentErrorMsg(ByVal ReadCurrentErrorMsg1 As OPENcontrol.ReadCurrentErrorMsg) As OPENcontrol.ReadCurrentErrorMsgR + Dim inValue As OPENcontrol.ReadCurrentErrorMsgRequest = New OPENcontrol.ReadCurrentErrorMsgRequest + inValue.ReadCurrentErrorMsg = ReadCurrentErrorMsg1 + Dim retVal As OPENcontrol.ReadCurrentErrorMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadCurrentErrorMsg(inValue) + Return retVal.ReadCurrentErrorMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadCurrentEmergMsg(ByVal request As OPENcontrol.ReadCurrentEmergMsgRequest) As OPENcontrol.ReadCurrentEmergMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadCurrentEmergMsg + Return MyBase.Channel.ReadCurrentEmergMsg(request) + End Function + + Public Function ReadCurrentEmergMsg(ByVal ReadCurrentEmergMsg1 As OPENcontrol.ReadCurrentEmergMsg) As OPENcontrol.ReadCurrentEmergMsgR + Dim inValue As OPENcontrol.ReadCurrentEmergMsgRequest = New OPENcontrol.ReadCurrentEmergMsgRequest + inValue.ReadCurrentEmergMsg = ReadCurrentEmergMsg1 + Dim retVal As OPENcontrol.ReadCurrentEmergMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadCurrentEmergMsg(inValue) + Return retVal.ReadCurrentEmergMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadCurrentAnomalyMsg(ByVal request As OPENcontrol.ReadCurrentAnomalyMsgRequest) As OPENcontrol.ReadCurrentAnomalyMsgResponse Implements OPENcontrol.OPENcontrolPortType.ReadCurrentAnomalyMsg + Return MyBase.Channel.ReadCurrentAnomalyMsg(request) + End Function + + Public Function ReadCurrentAnomalyMsg(ByVal ReadCurrentAnomalyMsg1 As OPENcontrol.ReadCurrentAnomalyMsg) As OPENcontrol.ReadCurrentAnomalyMsgR + Dim inValue As OPENcontrol.ReadCurrentAnomalyMsgRequest = New OPENcontrol.ReadCurrentAnomalyMsgRequest + inValue.ReadCurrentAnomalyMsg = ReadCurrentAnomalyMsg1 + Dim retVal As OPENcontrol.ReadCurrentAnomalyMsgResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadCurrentAnomalyMsg(inValue) + Return retVal.ReadCurrentAnomalyMsgR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetPTechSizes(ByVal request As OPENcontrol.GetPTechSizesRequest) As OPENcontrol.GetPTechSizesResponse Implements OPENcontrol.OPENcontrolPortType.GetPTechSizes + Return MyBase.Channel.GetPTechSizes(request) + End Function + + Public Function GetPTechSizes(ByVal GetPTechSizes1 As OPENcontrol.GetPTechSizes) As OPENcontrol.GetPTechSizesR + Dim inValue As OPENcontrol.GetPTechSizesRequest = New OPENcontrol.GetPTechSizesRequest + inValue.GetPTechSizes = GetPTechSizes1 + Dim retVal As OPENcontrol.GetPTechSizesResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetPTechSizes(inValue) + Return retVal.GetPTechSizesR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LoadPTech(ByVal request As OPENcontrol.LoadPTechRequest) As OPENcontrol.LoadPTechResponse Implements OPENcontrol.OPENcontrolPortType.LoadPTech + Return MyBase.Channel.LoadPTech(request) + End Function + + Public Function LoadPTech(ByVal LoadPTech1 As OPENcontrol.LoadPTech) As OPENcontrol.LoadPTechR + Dim inValue As OPENcontrol.LoadPTechRequest = New OPENcontrol.LoadPTechRequest + inValue.LoadPTech = LoadPTech1 + Dim retVal As OPENcontrol.LoadPTechResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LoadPTech(inValue) + Return retVal.LoadPTechR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetMarkerInfo(ByVal request As OPENcontrol.GetMarkerInfoRequest) As OPENcontrol.GetMarkerInfoResponse Implements OPENcontrol.OPENcontrolPortType.GetMarkerInfo + Return MyBase.Channel.GetMarkerInfo(request) + End Function + + Public Function GetMarkerInfo(ByVal GetMarkerInfo1 As OPENcontrol.GetMarkerInfo) As OPENcontrol.GetMarkerInfoR + Dim inValue As OPENcontrol.GetMarkerInfoRequest = New OPENcontrol.GetMarkerInfoRequest + inValue.GetMarkerInfo = GetMarkerInfo1 + Dim retVal As OPENcontrol.GetMarkerInfoResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetMarkerInfo(inValue) + Return retVal.GetMarkerInfoR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ManagePartProgram(ByVal request As OPENcontrol.ManagePartProgramRequest) As OPENcontrol.ManagePartProgramResponse Implements OPENcontrol.OPENcontrolPortType.ManagePartProgram + Return MyBase.Channel.ManagePartProgram(request) + End Function + + Public Function ManagePartProgram(ByVal ManagePartProgram1 As OPENcontrol.ManagePartProgram) As OPENcontrol.ManagePartProgramR + Dim inValue As OPENcontrol.ManagePartProgramRequest = New OPENcontrol.ManagePartProgramRequest + inValue.ManagePartProgram = ManagePartProgram1 + Dim retVal As OPENcontrol.ManagePartProgramResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ManagePartProgram(inValue) + Return retVal.ManagePartProgramR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSOpenFile(ByVal request As OPENcontrol.LogFSOpenFileRequest) As OPENcontrol.LogFSOpenFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSOpenFile + Return MyBase.Channel.LogFSOpenFile(request) + End Function + + Public Function LogFSOpenFile(ByVal LogFSOpenFile1 As OPENcontrol.LogFSOpenFile) As OPENcontrol.LogFSOpenFileR + Dim inValue As OPENcontrol.LogFSOpenFileRequest = New OPENcontrol.LogFSOpenFileRequest + inValue.LogFSOpenFile = LogFSOpenFile1 + Dim retVal As OPENcontrol.LogFSOpenFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSOpenFile(inValue) + Return retVal.LogFSOpenFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSCloseFile(ByVal request As OPENcontrol.LogFSCloseFileRequest) As OPENcontrol.LogFSCloseFileResponse Implements OPENcontrol.OPENcontrolPortType.LogFSCloseFile + Return MyBase.Channel.LogFSCloseFile(request) + End Function + + Public Function LogFSCloseFile(ByVal LogFSCloseFile1 As OPENcontrol.LogFSCloseFile) As OPENcontrol.LogFSCloseFileR + Dim inValue As OPENcontrol.LogFSCloseFileRequest = New OPENcontrol.LogFSCloseFileRequest + inValue.LogFSCloseFile = LogFSCloseFile1 + Dim retVal As OPENcontrol.LogFSCloseFileResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSCloseFile(inValue) + Return retVal.LogFSCloseFileR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSWriteRecord(ByVal request As OPENcontrol.LogFSWriteRecordRequest) As OPENcontrol.LogFSWriteRecordResponse Implements OPENcontrol.OPENcontrolPortType.LogFSWriteRecord + Return MyBase.Channel.LogFSWriteRecord(request) + End Function + + Public Function LogFSWriteRecord(ByVal LogFSWriteRecord1 As OPENcontrol.LogFSWriteRecord) As OPENcontrol.LogFSWriteRecordR + Dim inValue As OPENcontrol.LogFSWriteRecordRequest = New OPENcontrol.LogFSWriteRecordRequest + inValue.LogFSWriteRecord = LogFSWriteRecord1 + Dim retVal As OPENcontrol.LogFSWriteRecordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSWriteRecord(inValue) + Return retVal.LogFSWriteRecordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_LogFSReadRecord(ByVal request As OPENcontrol.LogFSReadRecordRequest) As OPENcontrol.LogFSReadRecordResponse Implements OPENcontrol.OPENcontrolPortType.LogFSReadRecord + Return MyBase.Channel.LogFSReadRecord(request) + End Function + + Public Function LogFSReadRecord(ByVal LogFSReadRecord1 As OPENcontrol.LogFSReadRecord) As OPENcontrol.LogFSReadRecordR + Dim inValue As OPENcontrol.LogFSReadRecordRequest = New OPENcontrol.LogFSReadRecordRequest + inValue.LogFSReadRecord = LogFSReadRecord1 + Dim retVal As OPENcontrol.LogFSReadRecordResponse = CType(Me,OPENcontrol.OPENcontrolPortType).LogFSReadRecord(inValue) + Return retVal.LogFSReadRecordR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_ReadRemapDefinitions(ByVal request As OPENcontrol.ReadRemapDefinitionsRequest) As OPENcontrol.ReadRemapDefinitionsResponse Implements OPENcontrol.OPENcontrolPortType.ReadRemapDefinitions + Return MyBase.Channel.ReadRemapDefinitions(request) + End Function + + Public Function ReadRemapDefinitions(ByVal ReadRemapDefinitions1 As OPENcontrol.ReadRemapDefinitions) As OPENcontrol.ReadRemapDefinitionsR + Dim inValue As OPENcontrol.ReadRemapDefinitionsRequest = New OPENcontrol.ReadRemapDefinitionsRequest + inValue.ReadRemapDefinitions = ReadRemapDefinitions1 + Dim retVal As OPENcontrol.ReadRemapDefinitionsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).ReadRemapDefinitions(inValue) + Return retVal.ReadRemapDefinitionsR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_WriteRemapDefinitions(ByVal request As OPENcontrol.WriteRemapDefinitionsRequest) As OPENcontrol.WriteRemapDefinitionsResponse Implements OPENcontrol.OPENcontrolPortType.WriteRemapDefinitions + Return MyBase.Channel.WriteRemapDefinitions(request) + End Function + + Public Function WriteRemapDefinitions(ByVal WriteRemapDefinitions1 As OPENcontrol.WriteRemapDefinitions) As OPENcontrol.WriteRemapDefinitionsR + Dim inValue As OPENcontrol.WriteRemapDefinitionsRequest = New OPENcontrol.WriteRemapDefinitionsRequest + inValue.WriteRemapDefinitions = WriteRemapDefinitions1 + Dim retVal As OPENcontrol.WriteRemapDefinitionsResponse = CType(Me,OPENcontrol.OPENcontrolPortType).WriteRemapDefinitions(inValue) + Return retVal.WriteRemapDefinitionsR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetServoPar(ByVal request As OPENcontrol.GetServoParRequest) As OPENcontrol.GetServoParResponse Implements OPENcontrol.OPENcontrolPortType.GetServoPar + Return MyBase.Channel.GetServoPar(request) + End Function + + Public Function GetServoPar(ByVal GetServoPar1 As OPENcontrol.GetServoPar) As OPENcontrol.GetServoParR + Dim inValue As OPENcontrol.GetServoParRequest = New OPENcontrol.GetServoParRequest + inValue.GetServoPar = GetServoPar1 + Dim retVal As OPENcontrol.GetServoParResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetServoPar(inValue) + Return retVal.GetServoParR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetServoPar(ByVal request As OPENcontrol.SetServoParRequest) As OPENcontrol.SetServoParResponse Implements OPENcontrol.OPENcontrolPortType.SetServoPar + Return MyBase.Channel.SetServoPar(request) + End Function + + Public Function SetServoPar(ByVal SetServoPar1 As OPENcontrol.SetServoPar) As OPENcontrol.SetServoParR + Dim inValue As OPENcontrol.SetServoParRequest = New OPENcontrol.SetServoParRequest + inValue.SetServoPar = SetServoPar1 + Dim retVal As OPENcontrol.SetServoParResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetServoPar(inValue) + Return retVal.SetServoParR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetCNCRegKey(ByVal request As OPENcontrol.GetCNCRegKeyRequest) As OPENcontrol.GetCNCRegKeyResponse Implements OPENcontrol.OPENcontrolPortType.GetCNCRegKey + Return MyBase.Channel.GetCNCRegKey(request) + End Function + + Public Function GetCNCRegKey(ByVal GetCNCRegKey1 As OPENcontrol.GetCNCRegKey) As OPENcontrol.GetCNCRegKeyR + Dim inValue As OPENcontrol.GetCNCRegKeyRequest = New OPENcontrol.GetCNCRegKeyRequest + inValue.GetCNCRegKey = GetCNCRegKey1 + Dim retVal As OPENcontrol.GetCNCRegKeyResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetCNCRegKey(inValue) + Return retVal.GetCNCRegKeyR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SetIpAddress(ByVal request As OPENcontrol.SetIpAddressRequest) As OPENcontrol.SetIpAddressResponse Implements OPENcontrol.OPENcontrolPortType.SetIpAddress + Return MyBase.Channel.SetIpAddress(request) + End Function + + Public Function SetIpAddress(ByVal SetIpAddress1 As OPENcontrol.SetIpAddress) As OPENcontrol.SetIpAddressR + Dim inValue As OPENcontrol.SetIpAddressRequest = New OPENcontrol.SetIpAddressRequest + inValue.SetIpAddress = SetIpAddress1 + Dim retVal As OPENcontrol.SetIpAddressResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SetIpAddress(inValue) + Return retVal.SetIpAddressR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_GetProcInInput(ByVal request As OPENcontrol.GetProcInInputRequest) As OPENcontrol.GetProcInInputResponse Implements OPENcontrol.OPENcontrolPortType.GetProcInInput + Return MyBase.Channel.GetProcInInput(request) + End Function + + Public Function GetProcInInput(ByVal GetProcInInput1 As OPENcontrol.GetProcInInput) As OPENcontrol.GetProcInInputR + Dim inValue As OPENcontrol.GetProcInInputRequest = New OPENcontrol.GetProcInInputRequest + inValue.GetProcInInput = GetProcInInput1 + Dim retVal As OPENcontrol.GetProcInInputResponse = CType(Me,OPENcontrol.OPENcontrolPortType).GetProcInInput(inValue) + Return retVal.GetProcInInputR + End Function + + _ + Function OPENcontrol_OPENcontrolPortType_SndProcInpData(ByVal request As OPENcontrol.SndProcInpDataRequest) As OPENcontrol.SndProcInpDataResponse Implements OPENcontrol.OPENcontrolPortType.SndProcInpData + Return MyBase.Channel.SndProcInpData(request) + End Function + + Public Function SndProcInpData(ByVal SndProcInpData1 As OPENcontrol.SndProcInpData) As OPENcontrol.SndProcInpDataR + Dim inValue As OPENcontrol.SndProcInpDataRequest = New OPENcontrol.SndProcInpDataRequest + inValue.SndProcInpData = SndProcInpData1 + Dim retVal As OPENcontrol.SndProcInpDataResponse = CType(Me,OPENcontrol.OPENcontrolPortType).SndProcInpData(inValue) + Return retVal.SndProcInpDataR + End Function + End Class +End Namespace diff --git a/MaterialeSetup/OSAI/SIMULATORE_192.168.157.2.wsdl.xml b/MaterialeSetup/OSAI/SIMULATORE_192.168.157.2.wsdl.xml new file mode 100644 index 0000000..b2b4b5a --- /dev/null +++ b/MaterialeSetup/OSAI/SIMULATORE_192.168.157.2.wsdl.xml @@ -0,0 +1,8995 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Service definition of function ns__BootPhaseEnquiry + + + + + Service definition of function ns__BootReboot + + + + + Service definition of function ns__BootShutDown + + + + + Service definition of function ns__BootMode + + + + + Service definition of function ns__GetHWKey + + + + + Service definition of function ns__ReadVarWord + + + + + Service definition of function ns__ReadVarDouble + + + + + Service definition of function ns__WriteVarWord + + + + + Service definition of function ns__WriteVarWordBit + + + + + Service definition of function ns__WriteVarDouble + + + + + Service definition of function ns__ReadVarText + + + + + Service definition of function ns__WriteVarText + + + + + Service definition of function ns__ReadNamedVarBool + + + + + Service definition of function ns__ReadNamedVarByte + + + + + Service definition of function ns__ReadNamedVarShort + + + + + Service definition of function ns__ReadNamedVarWord + + + + + Service definition of function ns__ReadNamedVarLong + + + + + Service definition of function ns__ReadNamedVarDword + + + + + Service definition of function ns__ReadNamedVarDouble + + + + + Service definition of function ns__ReadNamedVarString + + + + + Service definition of function ns__WriteNamedVarBool + + + + + Service definition of function ns__WriteNamedVarByte + + + + + Service definition of function ns__WriteNamedVarShort + + + + + Service definition of function ns__WriteNamedVarWord + + + + + Service definition of function ns__WriteNamedVarLong + + + + + Service definition of function ns__WriteNamedVarDword + + + + + Service definition of function ns__WriteNamedVarDouble + + + + + Service definition of function ns__WriteNamedVarString + + + + + Service definition of function ns__ReadWarningMsg + + + + + Service definition of function ns__ResetSingleTableII + + + + + Service definition of function ns__LockTableII + + + + + Service definition of function ns__UnLockTableII + + + + + Service definition of function ns__GetOriginTabRecordII + + + + + Service definition of function ns__SetOriginTabRecordII + + + + + Service definition of function ns__GetToolTabRecordII + + + + + Service definition of function ns__SetToolTabRecordII + + + + + Service definition of function ns__GetOffsetTabRecordII + + + + + Service definition of function ns__SetOffsetTabRecordII + + + + + Service definition of function ns__GetUserTabRecordII + + + + + Service definition of function ns__SetUserTabRecordII + + + + + Service definition of function ns__GetMagazineTabRecordII + + + + + Service definition of function ns__SetMagazineTabRecordII + + + + + Service definition of function ns__GetPocketTabRecordII + + + + + Service definition of function ns__SetPocketTabRecordII + + + + + Service definition of function ns__SaveTables + + + + + Service definition of function ns__RestoreSingleTable + + + + + Service definition of function ns__SaveSingleTable + + + + + Service definition of function ns__SaveBackupMemory + + + + + Service definition of function ns__RestoreBackupMemory + + + + + Service definition of function ns__ToolSearch + + + + + Service definition of function ns__ToolSearchLife + + + + + Service definition of function ns__ToolSearchDir + + + + + Service definition of function ns__ToolSearchLifeDir + + + + + Service definition of function ns__ToolSameFamily + + + + + Service definition of function ns__ToolLoad + + + + + Service definition of function ns__ToolUnload + + + + + Service definition of function ns__PocketSearch + + + + + Service definition of function ns__PocketClosest + + + + + Service definition of function ns__PocketNearest + + + + + Service definition of function ns__ToolLife + + + + + Service definition of function ns__LoadTableFromFile + + + + + Service definition of function ns__MagConfigurePockets + + + + + Service definition of function ns__Cycle + + + + + Service definition of function ns__SyncroCycle + + + + + Service definition of function ns__Reset + + + + + Service definition of function ns__Hold + + + + + Service definition of function ns__SetFeedManOver + + + + + Service definition of function ns__SetFeedRateOver + + + + + Service definition of function ns__SetFeedRapidOver + + + + + Service definition of function ns__SetSpeedRateOver + + + + + Service definition of function ns__SetManMovDirection + + + + + Service definition of function ns__GetVarJOG + + + + + Service definition of function ns__SetVarJOG + + + + + Service definition of function ns__SetVarUAS + + + + + Service definition of function ns__GetVarRCM + + + + + Service definition of function ns__SetVarRCM + + + + + Service definition of function ns__GetVarCYCTIME + + + + + Service definition of function ns__SetVarCYCTIME + + + + + Service definition of function ns__GetProcVarWord + + + + + Service definition of function ns__SetProcVarWord + + + + + Service definition of function ns__GetProcVarDouble + + + + + Service definition of function ns__SetProcVarDouble + + + + + Service definition of function ns__SetMdiString + + + + + Service definition of function ns__SetProcessMode + + + + + Service definition of function ns__SelectProcess + + + + + Service definition of function ns__GetSelectedProcess + + + + + Service definition of function ns__SelectProcAxis + + + + + Service definition of function ns__SelectPartProgram + + + + + Service definition of function ns__SelectPartProgramFromDrive + + + + + Service definition of function ns__GetActivePartProgram + + + + + Service definition of function ns__GetActivePartProgramFullPath + + + + + Service definition of function ns__GetPartProgramLines + + + + + Service definition of function ns__GetAxOriginNum + + + + + Service definition of function ns__GetAxesPosition + + + + + Service definition of function ns__GetNcInfo1 + + + + + Service definition of function ns__GetNcInfo2 + + + + + Service definition of function ns__GetToolNames + + + + + Service definition of function ns__GetProcessStatus + + + + + Service definition of function ns__GetBlkNum + + + + + Service definition of function ns__ReadErrMsg + + + + + Service definition of function ns__ReadPartProgramMsg + + + + + Service definition of function ns__GetGCode + + + + + Service definition of function ns__GetMCode + + + + + Service definition of function ns__SkipPProgBlock + + + + + Service definition of function ns__Ese + + + + + Service definition of function ns__EseEx + + + + + Service definition of function ns__Exe + + + + + Service definition of function ns__AxesRef + + + + + Service definition of function ns__DncInit + + + + + Service definition of function ns__DncData + + + + + Service definition of function ns__DncEof + + + + + Service definition of function ns__DncStop + + + + + Service definition of function ns__GetAxesInfo3 + + + + + Service definition of function ns__GetCodeNumber + + + + + Service definition of function ns__GetOptions + + + + + Service definition of function ns__GetDateTime + + + + + Service definition of function ns__SetDateTime + + + + + Service definition of function ns__GetSerialNumber + + + + + Service definition of function ns__PutFile + + + + + Service definition of function ns__GetFile + + + + + Service definition of function ns__PutBinaryFile + + + + + Service definition of function ns__GetBinaryFile + + + + + Service definition of function ns__LogFSSetSecurityLevel + + + + + Service definition of function ns__LogFSGetSecurityLevel + + + + + Service definition of function ns__LogFSLongFileNames + + + + + Service definition of function ns__LogFSGetNumDrive + + + + + Service definition of function ns__LogFSGetDriveList + + + + + Service definition of function ns__LogFSGetHiddenDriveList + + + + + Service definition of function ns__LogFSGetDrivePath + + + + + Service definition of function ns__LogFSAddDrive + + + + + Service definition of function ns__LogFSRemoveDrive + + + + + Service definition of function ns__LogFSReloadDriveList + + + + + Service definition of function ns__LogFSCreateDir + + + + + Service definition of function ns__LogFSCreateFile + + + + + Service definition of function ns__LogFSGetFileSize + + + + + Service definition of function ns__LogFSGetFileAttrib + + + + + Service definition of function ns__LogFSSetFileAttrib + + + + + Service definition of function ns__LogFSChangeFileAttrib + + + + + Service definition of function ns__LogFSFindFirst + + + + + Service definition of function ns__LogFSFindNext + + + + + Service definition of function ns__LogFSFindClose + + + + + Service definition of function ns__LogFSRemoveFile + + + + + Service definition of function ns__LogFSRemoveDir + + + + + Service definition of function ns__LogFSRename + + + + + Service definition of function ns__LogFSCopyFile + + + + + Service definition of function ns__LogFSGetInfo + + + + + Service definition of function ns__LogFSOpenFile + + + + + Service definition of function ns__LogFSCloseFile + + + + + Service definition of function ns__GetSysTick + + + + + Service definition of function ns__GetProcessConfNum + + + + + Service definition of function ns__CheckHistory + + + + + Service definition of function ns__ReadHistoryEmergMsg + + + + + Service definition of function ns__ReadHistoryErrorMsg + + + + + Service definition of function ns__ReadHistoryLogMsg + + + + + Service definition of function ns__ReadHistoryAnomalyMsg + + + + + Service definition of function ns__ReadCurrentErrorMsg + + + + + Service definition of function ns__ReadCurrentEmergMsg + + + + + Service definition of function ns__ReadCurrentAnomalyMsg + + + + + Service definition of function ns__GetPTechSizes + + + + + Service definition of function ns__LoadPTech + + + + + Service definition of function ns__GetMarkerInfo + + + + + Service definition of function ns__ManagePartProgram + + + + + Service definition of function ns__LogFSWriteRecord + + + + + Service definition of function ns__LogFSReadRecord + + + + + Service definition of function ns__ReadRemapDefinitions + + + + + Service definition of function ns__WriteRemapDefinitions + + + + + Service definition of function ns__GetServoPar + + + + + Service definition of function ns__SetServoPar + + + + + Service definition of function ns__GetCNCRegKey + + + + + Service definition of function ns__GetSecurityData + + + + + Service definition of function ns__SetSecurityData + + + + + Service definition of function ns__SetIpAddress + + + + + Service definition of function ns__GetProcInInput + + + + + Service definition of function ns__SndProcInpData + + + + + Service definition of function ns__GetPartProgramLinesEx + + + + + Service definition of function ns__SetMdiStringEx + + + + + Service definition of function ns__GetExpireData + + + + + Service definition of function ns__GetRemainingTime + + + + + Service definition of function ns__GenerateUserKey + + + + + Service definition of function ns__WriteActivationKey + + + + + Service definition of function ns__GetAvailableCustomEvents + + + + + Service definition of function ns__MonOpenChannel + + + + + Service definition of function ns__MonCloseChannel + + + + + Service definition of function ns__MonAddVariable + + + + + Service definition of function ns__MonDeleteVariable + + + + + Service definition of function ns__MonStartSampling + + + + + Service definition of function ns__MonStopSampling + + + + + Service definition of function ns__MonGetVariable + + + + + Service definition of function ns__MonGetVariableS + + + + + Service definition of function ns__MonGetDryRun + + + + + Service definition of function ns__MonGetMov + + + + + Service definition of function ns__GetDriveBasicInfo + + + + + Service definition of function ns__ReadStatistics + + + + + Service definition of function ns__ReadStatisticsBaseFrequency + + + + + Service definition of function ns__GetActiveAmp + + + + + Service definition of function ns__SetActiveAmp + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + OPENcontrol Web Services Definition + + + + + + \ No newline at end of file diff --git a/MaterialeSetup/OSAI/SOAP/CNC.OSAI_SOAP.vb b/MaterialeSetup/OSAI/SOAP/CNC.OSAI_SOAP.vb new file mode 100644 index 0000000..6e6d253 --- /dev/null +++ b/MaterialeSetup/OSAI/SOAP/CNC.OSAI_SOAP.vb @@ -0,0 +1,997 @@ +Imports CndexLinkDotNet +Imports Microsoft.Win32 +Imports CMSControl.App.Runtime +Imports CMSControl.Config.Settings + +Imports T_memType = System.Collections.Generic.Dictionary(Of System.Int32, System.Collections.Generic.Dictionary(Of System.Int32, System.Object)) +Imports T_memDim = System.Collections.Generic.Dictionary(Of System.Int32, System.Object) + +Namespace CNC + + Public Class OSAI_OPEN + Inherits OSAI + + 'Variabili per Web Service OPENcontrol + Protected _szIpAddress As String + Friend OPENws As OPENcontrol.OPENcontrolPortTypeClient + Private nReturn As Short + + Protected Const MAXRET = 3 + + Public Enum O_Table + TOOL_TABLE_ID = 1 + OFFSET_TABLE_ID = 2 + ORIGIN_TABLE_ID = 3 + USER_TABLE_ID = 4 + End Enum + + Public Overrides Property Licenza() As Integer + Get + Dim uiLicence(0) As UInteger + 'leggo dal cn il valore + Me.O_RW_DWord(R, MemTypeWord.GW_CODE, 303, uiLicence) + Return UnsignedToInteger(uiLicence(0)) + End Get + Set(ByVal value As Integer) + 'setto sul cn il valore + Dim uiLicence(0) As UInteger + uiLicence(0) = IntegerToUnsigned(value) + Me.O_RW_DWord(W, MemTypeWord.GW_CODE, 303, uiLicence) + End Set + End Property + + Public Overrides Property LicenzaScaduta() As Boolean + Get + Dim bLicenzaScaduta As Boolean + 'leggo dal cn il valore + Me.O_RW_Boolean(R, MemTypeWord.GW_CODE, 302, 0, bLicenzaScaduta) + Return bLicenzaScaduta + End Get + Set(ByVal value As Boolean) + 'setto sul cn il valore + Me.O_RW_Boolean(W, MemTypeWord.GW_CODE, 302, 0, value) + End Set + End Property + + Public Sub New(ByRef szIpAddress As String) + _Type = NcType.OSAI + _szIpAddress = szIpAddress + + Dim conf As String = "OPENcontrol" + Dim url As String = "http://" & szIpAddress & ":8080" + + Try + OPENws = New OPENcontrol.OPENcontrolPortTypeClient(conf, url) + Catch ex As Exception + MsgBox(ex.Message) + End Try + + 'Definisco l'area della Cnc Window + SetCncWindowSize() + + 'Inizializzo le variabili + Me._Descrizione = "NC OSAI OPENcontrol" & vbNewLine + Me._Descrizione = Me._Descrizione & "IpAddress: " & _szIpAddress + End Sub + + Public Overrides Sub Connect(Optional ByRef szStatus As String = "") + Dim BootPhaseEnquiryR As New OPENcontrol.BootPhaseEnquiryR + Dim BootPhaseEnquiry As OPENcontrol.BootPhaseEnquiry + Dim szReturn As String = "" + Dim usValue(0) As UShort + Dim TimeStart As Date + + BootPhaseEnquiry = New OPENcontrol.BootPhaseEnquiry() + + 'leggo in che fase di boot mi trovo + Try + BootPhaseEnquiryR = OPENws.BootPhaseEnquiry(BootPhaseEnquiry) + Catch ex As System.ServiceModel.EndpointNotFoundException + _bConnected = False + Throw New CmsNcException(ex.Message) + Catch ex As System.ServiceModel.CommunicationException + _bConnected = False + Throw New CmsNcException(ex.Message) + End Try + + If O_CheckRetError(BootPhaseEnquiryR.retval, BootPhaseEnquiryR.ErrClass, BootPhaseEnquiryR.ErrNum, String.Format("BootPhaseEnquiry({0}) Connect CNC.OSAI_OPEN", BootPhaseEnquiry), szReturn) Then + _bConnected = False + Throw New CmsNcException(szReturn) + Else + 'verifico che il sistema si trovi in una fase operativa "stabile" + Log.WI("OK BootPhaseEnquiry CNC.OSAI_OPEN", "Phase=" & BootPhaseEnquiryR.Phase, CLog.Lev.Secondary) + If BootPhaseEnquiryR.Phase = 4 Then 'SYSTEM_UP_PHASE + + 'leggo matricola e verifico che sia diversa da zero + TimeStart = Now + Do + Select Case Settings.MemoryMapping + Case MemoryMapping.ElsManager, _ + MemoryMapping.ToolManager + 'Matricola + usValue(0) = 0 'non esiste mappatura elsmangaer e toolmanager in OPENcontrol + MsgBox("Non esiste implementazione con questa mappatura su OSAI OPENcontrol", MsgBoxStyle.Critical) + End + Case MemoryMapping.Default, _ + MemoryMapping.ToolTable + 'Matricola + nReturn = O_RW_Word(R, MemTypeWord.MW_CODE, 3403, usValue) + End Select + + If usValue(0) > 0 Then + Threading.Thread.Sleep(500) + Exit Do + End If + + If (Now - TimeStart).Seconds > 30 Then + Select Case MsgBox("Matricola non inizializzata in 30 secondi: Verificare inizializzazione PLC", MsgBoxStyle.Exclamation + MsgBoxStyle.RetryCancel) + Case MsgBoxResult.Retry : TimeStart = Now + Case MsgBoxResult.Cancel : Exit Do + End Select + End If + Log.WI("OK Connect CNC.OSAI_OPEN but SERIAL NUMBER NOT YET INITIALIZED", , CLog.Lev.Secondary) + Application.DoEvents() + Threading.Thread.Sleep(500) 'aspetto 500ms prima di ritentare + Application.DoEvents() + Loop + + _bConnected = True + Log.WI("OK Connect CNC.OSAI_OPEN", "Connected=" & _bConnected, CLog.Lev.Secondary) + Else + _bConnected = False + Log.WI("OK Connect CNC.OSAI_OPEN but PHASE NOT OK", "Phase=" & BootPhaseEnquiryR.Phase & " Connected=" & _bConnected, CLog.Lev.Secondary) + Throw New CmsNcException("ERR BootPhase NOT OK CNC.OSAI_OPEN") + End If + End If + + End Sub + + Public Overrides Sub Disconnect(Optional ByRef szStatus As String = "") + _bConnected = False + End Sub + + + + '''

+ ''' Legge le memorie di configurazione dal cn + ''' + Public Overrides Sub GetStaticData() + Dim nValue(0) As Integer + Dim sValue(0) As Short + Dim ucValue(0) As Byte + + If Not bStaticDataReaded Then + 'Try + Select Case Settings.MemoryMapping + Case MemoryMapping.ElsManager + + Case MemoryMapping.Default, _ + MemoryMapping.ToolManager, _ + MemoryMapping.ToolTable + + 'Matricola + nReturn = O_RW_Short(R, MemTypeWord.MW_CODE, 3403, sValue) + Me._Matricola = sValue(0) + 'Teste + nReturn = O_RW_Short(R, MemTypeWord.MW_CODE, 3405, sValue) + Me._Teste = sValue(0) + 'Magazzini + nReturn = O_RW_Short(R, MemTypeWord.MW_CODE, 3407, sValue) + Me._Magazzini = sValue(0) + 'Manine per Magazzino + ReDim Me._ManineMagazzino(Me._Magazzini - 1) + ReDim ucValue(19) + nReturn = O_RW_Byte(R, MemTypeWord.MW_CODE, 2900, LOW_ORDER, ucValue) + Array.Copy(ucValue, Me._ManineMagazzino, Me._ManineMagazzino.Length) + ReDim ucValue(0) + + 'Magazzini Con Attrezzaggio Automatico (maschera) + O_RW_Integer(R, MemTypeWord.MW_CODE, 4060, nValue) + Me._MagazziniConAttrezzaggioAutomatico = nValue(0) + End Select + + Me._MaxUtensiliGestibili = 300 'TODO IMPLEMENTARE + Me._MaxIdUtensile = 300 'TODO IMPLEMENTARE + + Select Case Settings.MemoryMapping + Case MemoryMapping.ElsManager + Case MemoryMapping.ToolManager + Case MemoryMapping.Default, _ + MemoryMapping.ToolTable + 'ZoomSpeed + nReturn = O_RW_Short(R, MemTypeWord.MW_CODE, 3425, sValue) + If sValue(0) > 0 And sValue(0) <= 100 Then + Me._ZoomSpeed = sValue(0) + Else + Me._ZoomSpeed = 1 + End If + End Select + + bStaticDataReaded = True + + 'Catch ex As CmsNcException + ' Me.CncException(ex.Message) + 'End Try + + End If + End Sub + + + ''' + ''' Legge o scrive Boolean da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Bit della memoria + ''' Valore da scrivere su scrittura e letto su lettura + ''' True se andata a buon fine + Public Overloads Overrides Function O_RW_Boolean(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByVal MemBit As Integer, ByRef Value As Boolean) As Boolean + Dim szReturn As String = "" + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + If bWrite Then ' *** Write + Dim myWriteVarWordBitR As OPENcontrol.WriteVarWordBitR + Dim myWriteVarWordBit As New OPENcontrol.WriteVarWordBit + myWriteVarWordBit.Code = MemType + myWriteVarWordBit.Index = MemIndex + myWriteVarWordBit.BitIndex = MemBit + myWriteVarWordBit.BitValue = IIf(Value, 1, 0) + myWriteVarWordBitR = OPENws.WriteVarWordBit(myWriteVarWordBit) + If O_CheckRetError(myWriteVarWordBitR.retval, myWriteVarWordBitR.ErrClass, myWriteVarWordBitR.ErrNum, String.Format("WriteVarWordBit({0},{1}) O_RW_Boolean CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + Dim myReadVarWordR As OPENcontrol.ReadVarWordR + Dim myReadVarWord As New OPENcontrol.ReadVarWord + myReadVarWord.Code = MemType + myReadVarWord.Index = MemIndex + myReadVarWord.NumVar = 1 + myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) + If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarWord({0},{1}) O_RW_Boolean CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + If (myReadVarWordR.Value(0) And (2 ^ MemBit)) = (2 ^ MemBit) Then 'True + Value = True + Else 'False + Value = False + End If + End If + + Return True + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + ''' + ''' Legge o scrive Byte da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Ordine di partenza LOW_ORDER = 0 HIGH_ORDER = 1 + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overloads Overrides Function O_RW_Byte(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByVal MemOrderStart As Integer, ByRef Value() As Byte) As Boolean + Dim szReturn As String = "" + Dim bStartHigh As Boolean = MemOrderStart + Dim bEndDispari As Boolean = (Value.Length + MemOrderStart) Mod 2 + Dim cStart, cEnd As Byte + Dim ValueTmp(((Value.Length + MemOrderStart) \ 2) + ((Value.Length + MemOrderStart) Mod 2) - 1) As UShort + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + If bWrite Then ' *** Write + 'se comincio con hi leggo la prima memo + If bStartHigh Then + Dim ValStartTmp(0) As UShort + O_RW_Word(R, MemType, MemIndex, ValStartTmp) + cStart = WordToByte(ValStartTmp(0), LOW_ORDER) + End If + + 'se finisco dispari, leggo l'ultima memo + If bEndDispari Then + Dim ValEndTmp(0) As UShort + O_RW_Word(R, MemType, MemIndex + ValueTmp.Length - 1, ValEndTmp) + cEnd = WordToByte(ValEndTmp(0), HIGH_ORDER) + End If + + For i = 0 To ValueTmp.Length - 1 + Dim cLow, cHigh As Byte + 'Low + If i = 0 AndAlso bStartHigh Then + cLow = cStart + Else + cLow = Value(i * 2 - MemOrderStart) + End If + 'High + If i = (ValueTmp.Length - 1) AndAlso bEndDispari Then + cHigh = cEnd + Else + cHigh = Value(i * 2 + 1 - MemOrderStart) + End If + + ValueTmp(i) = ByteToWord(cLow, cHigh) + Next + + O_RW_Word(W, MemType, MemIndex, ValueTmp) + + Else ' ************* Read + Dim myReadVarWordR As OPENcontrol.ReadVarWordR + Dim myReadVarWord As New OPENcontrol.ReadVarWord + myReadVarWord.Code = MemType + myReadVarWord.Index = MemIndex + myReadVarWord.NumVar = ValueTmp.Length + myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) + If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarWord({0},{1}) O_RW_Byte CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + For i = 0 To Value.Length - 1 + Value(i) = WordToByte(myReadVarWordR.Value((i + MemOrderStart) \ 2), (i + MemOrderStart) Mod 2) + Next + End If + + Return True + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + ''' + ''' Legge o scrive Word da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overloads Overrides Function O_RW_Word(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As UShort) As Boolean + Dim szReturn As String = "" + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + If bWrite Then ' *** Write + Dim myWriteVarWordR As OPENcontrol.WriteVarWordR + Dim myWriteVarWord As New OPENcontrol.WriteVarWord + myWriteVarWord.Code = MemType + myWriteVarWord.Index = MemIndex + myWriteVarWord.NumVar = Value.Length + ReDim myWriteVarWord.Value(Value.Length - 1) + Array.Copy(Value, myWriteVarWord.Value, Value.Length) + myWriteVarWordR = OPENws.WriteVarWord(myWriteVarWord) + If O_CheckRetError(myWriteVarWordR.retval, myWriteVarWordR.ErrClass, myWriteVarWordR.ErrNum, String.Format("WriteVarWord({0},{1}) O_RW_Word CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + Dim myReadVarWordR As OPENcontrol.ReadVarWordR + Dim myReadVarWord As New OPENcontrol.ReadVarWord + myReadVarWord.Code = MemType + myReadVarWord.Index = MemIndex + myReadVarWord.NumVar = Value.Length + myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) + If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarWord({0},{1}) O_RW_Word CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + Array.Copy(myReadVarWordR.Value, Value, Value.Length) + End If + + Return True + + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + + ''' + ''' Legge o scrive Short da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overloads Overrides Function O_RW_Short(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As Short) As Boolean + Dim szReturn As String = "" + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + If bWrite Then ' *** Write + Dim myWriteVarWordR As OPENcontrol.WriteVarWordR + Dim myWriteVarWord As New OPENcontrol.WriteVarWord + myWriteVarWord.Code = MemType + myWriteVarWord.Index = MemIndex + myWriteVarWord.NumVar = Value.Length + ReDim myWriteVarWord.Value(Value.Length - 1) + For i = 0 To Value.Length - 1 + myWriteVarWord.Value(i) = ShortToUnsigned(Value(i)) + Next + myWriteVarWordR = OPENws.WriteVarWord(myWriteVarWord) + If O_CheckRetError(myWriteVarWordR.retval, myWriteVarWordR.ErrClass, myWriteVarWordR.ErrNum, String.Format("WriteVarWord({0},{1}) O_RW_Short CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + Dim myReadVarWordR As OPENcontrol.ReadVarWordR + Dim myReadVarWord As New OPENcontrol.ReadVarWord + myReadVarWord.Code = MemType + myReadVarWord.Index = MemIndex + myReadVarWord.NumVar = Value.Length + myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) + If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarWord({0},{1}) O_RW_Short CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + For i = 0 To Value.Length - 1 + Value(i) = UnsignedToShort(myReadVarWordR.Value(i)) + Next + End If + Return True + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + + ''' + ''' Legge o scrive Integer da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overloads Overrides Function O_RW_DWord(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As UInteger) As Boolean + Dim szReturn As String = "" + Dim ValueTmp(Value.Length * 2 - 1) As UShort + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + If bWrite Then ' *** Write + Dim myWriteVarWordR As OPENcontrol.WriteVarWordR + Dim myWriteVarWord As New OPENcontrol.WriteVarWord + myWriteVarWord.Code = MemType + myWriteVarWord.Index = MemIndex + myWriteVarWord.NumVar = ValueTmp.Length + For i = 0 To Value.Length - 1 + ValueTmp(i * 2) = DWordToWord(Value(i), LOW_ORDER) + ValueTmp(i * 2 + 1) = DWordToWord(Value(i), HIGH_ORDER) + Next + ReDim myWriteVarWord.Value(ValueTmp.Length - 1) + Array.Copy(ValueTmp, myWriteVarWord.Value, ValueTmp.Length) + myWriteVarWordR = OPENws.WriteVarWord(myWriteVarWord) + If O_CheckRetError(myWriteVarWordR.retval, myWriteVarWordR.ErrClass, myWriteVarWordR.ErrNum, String.Format("WriteVarWord({0},{1}) O_RW_DWord CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + Dim myReadVarWordR As OPENcontrol.ReadVarWordR + Dim myReadVarWord As New OPENcontrol.ReadVarWord + myReadVarWord.Code = MemType + myReadVarWord.Index = MemIndex + myReadVarWord.NumVar = ValueTmp.Length + myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) + If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarWord({0},{1}) O_RW_DWord CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + Else + For i = 0 To Value.Length - 1 + Value(i) = WordsToDWord(myReadVarWordR.Value(i * 2), myReadVarWordR.Value(i * 2 + 1)) + Next + End If + End If + + Return True + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + + ''' + ''' Legge o scrive Integer da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overloads Overrides Function O_RW_Integer(ByVal bWrite As Boolean, ByVal MemType As MemTypeWord, ByVal MemIndex As Integer, ByRef Value() As Integer) As Boolean + Dim szReturn As String = "" + Dim ValueTmp(Value.Length * 2 - 1) As UShort + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + If bWrite Then ' *** Write + Dim myWriteVarWordR As OPENcontrol.WriteVarWordR + Dim myWriteVarWord As New OPENcontrol.WriteVarWord + myWriteVarWord.Code = MemType + myWriteVarWord.Index = MemIndex + myWriteVarWord.NumVar = ValueTmp.Length + For i = 0 To Value.Length - 1 + ValueTmp(i * 2) = IntegerToWord(Value(i), LOW_ORDER) + ValueTmp(i * 2 + 1) = IntegerToWord(Value(i), HIGH_ORDER) + Next + ReDim myWriteVarWord.Value(ValueTmp.Length - 1) + Array.Copy(ValueTmp, myWriteVarWord.Value, ValueTmp.Length) + myWriteVarWordR = OPENws.WriteVarWord(myWriteVarWord) + If O_CheckRetError(myWriteVarWordR.retval, myWriteVarWordR.ErrClass, myWriteVarWordR.ErrNum, String.Format("WriteVarDWord({0},{1}) O_RW_DWord CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + Dim myReadVarWordR As OPENcontrol.ReadVarWordR + Dim myReadVarWord As New OPENcontrol.ReadVarWord + myReadVarWord.Code = MemType + myReadVarWord.Index = MemIndex + myReadVarWord.NumVar = ValueTmp.Length + myReadVarWordR = OPENws.ReadVarWord(myReadVarWord) + If O_CheckRetError(myReadVarWordR.retval, myReadVarWordR.ErrClass, myReadVarWordR.ErrNum, String.Format("ReadVarDWord({0},{1}) O_RW_DWord CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + Else + For i = 0 To Value.Length - 1 + Value(i) = WordsToInteger(myReadVarWordR.Value(i * 2), myReadVarWordR.Value(i * 2 + 1)) + Next + End If + End If + + Return True + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + ''' + ''' Legge o scrive Double da MEMORIE PLC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Tipo di memoria Osai + ''' Indice di memoria + ''' Matrice di valori da scrivere su scrittura o letti su lettura + ''' True se andata a buon fine + Public Overloads Overrides Function O_RW_Double(ByVal bWrite As Boolean, ByVal MemType As MemTypeDouble, ByVal MemIndex As Integer, ByRef Value() As Double) As Boolean + Dim szReturn As String = "" + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + If bWrite Then ' *** Write + Dim myWriteVarDoubleR As OPENcontrol.WriteVarDoubleR + Dim myWriteVarDouble As New OPENcontrol.WriteVarDouble + myWriteVarDouble.Code = MemType + myWriteVarDouble.Index = MemIndex + myWriteVarDouble.NumVar = Value.Length + ReDim myWriteVarDouble.Value(Value.Length - 1) + Array.Copy(Value, myWriteVarDouble.Value, Value.Length) + myWriteVarDoubleR = OPENws.WriteVarDouble(myWriteVarDouble) + If O_CheckRetError(myWriteVarDoubleR.retval, myWriteVarDoubleR.ErrClass, myWriteVarDoubleR.ErrNum, String.Format("WriteVarDouble({0},{1}) O_RW_Double CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + Dim myReadVarDoubleR As OPENcontrol.ReadVarDoubleR + Dim myReadVarDouble As New OPENcontrol.ReadVarDouble + myReadVarDouble.Code = MemType + myReadVarDouble.Index = MemIndex + myReadVarDouble.NumVar = Value.Length + myReadVarDoubleR = OPENws.ReadVarDouble(myReadVarDouble) + If O_CheckRetError(myReadVarDoubleR.retval, myReadVarDoubleR.ErrClass, myReadVarDoubleR.ErrNum, String.Format("ReadVarDouble({0},{1}) O_RW_Double CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + Array.Copy(myReadVarDoubleR.Value, Value, Value.Length) + End If + + Return True + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + ''' + ''' Legge o scrive Stringhe da MEMORIE SC + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Indice di memoria + ''' Lunghezza caratteri + ''' Stringa da scrivere su scrittura o leggere su lettura + ''' True se andata a buon fine + Public Overloads Overrides Function O_RW_Text(ByVal bWrite As Boolean, ByVal MemType As MemTypeText, ByVal MemIndex As Integer, ByVal MemLength As Integer, ByRef Value As String) As Boolean + Dim szReturn As String = "" + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + If bWrite Then ' *** Write + Dim myWriteVarTextR As OPENcontrol.WriteVarTextR + Dim myWriteVarText As New OPENcontrol.WriteVarText + myWriteVarText.Code = MemType + myWriteVarText.Index = MemIndex + myWriteVarText.Len = MemLength + myWriteVarText.Text = Value + myWriteVarText.Process = 1 'serve per le variabili SC + myWriteVarTextR = OPENws.WriteVarText(myWriteVarText) + If O_CheckRetError(myWriteVarTextR.retval, myWriteVarTextR.ErrClass, myWriteVarTextR.ErrNum, String.Format("WriteVarText({0},{1}) O_RW_Text CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + Dim myReadVarTextR As OPENcontrol.ReadVarTextR + Dim myReadVarText As New OPENcontrol.ReadVarText + myReadVarText.Code = MemType + myReadVarText.Index = MemIndex + myReadVarText.Size = MemLength + myReadVarText.Process = 1 'serve per le variabili SC + myReadVarTextR = OPENws.ReadVarText(myReadVarText) + If O_CheckRetError(myReadVarTextR.retval, myReadVarTextR.ErrClass, myReadVarTextR.ErrNum, String.Format("ReadVarText({0},{1}) O_RW_Text CNC.OSAI_OPEN", [Enum].GetName(MemType.GetType, MemType), MemIndex), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + Value = myReadVarTextR.Text + End If + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + Catch ex As System.TimeoutException + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + + + ''' + ''' Legge o scrive Length and Radius Offset da tabella Utensili CN + ''' + ''' Se True SCRIVE, se False LEGGE + ''' Numero dell'offset utensile + Public Overrides Function O_RW_ToolOffset(ByVal bWrite As Boolean, ByVal ToolOffsetNumber As Integer, ByRef CutterRadius_Wear As Double, ByRef CutterRadius_Geometry As Double, ByRef ToolLenght_Wear As Double, ByRef ToolLenght_Geometry As Double) As Boolean + Dim szReturn As String = "" + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + If bWrite Then ' *** Write + 'leggo il correttore per usarlo come template + Dim myGetOffsetTabRecordIIR As OPENcontrol.GetOffsetTabRecordIIR + Dim myGetOffsetTabRecordII As New OPENcontrol.GetOffsetTabRecordII + myGetOffsetTabRecordII.RecordNum = ToolOffsetNumber + myGetOffsetTabRecordIIR = OPENws.GetOffsetTabRecordII(myGetOffsetTabRecordII) + If O_CheckRetError(myGetOffsetTabRecordIIR.retval, myGetOffsetTabRecordIIR.ErrClass, myGetOffsetTabRecordIIR.ErrNum, String.Format("GetOffsetTabRecordII({0}) O_RW_ToolOffset CNC.OSAI_OPEN", ToolOffsetNumber), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Dim mySetOffsetTabRecordIIR As OPENcontrol.SetOffsetTabRecordIIR + Dim mySetOffsetTabRecordII As New OPENcontrol.SetOffsetTabRecordII + mySetOffsetTabRecordII.RecordNum = ToolOffsetNumber + mySetOffsetTabRecordII.RecordBuff = myGetOffsetTabRecordIIR.RecordBuff + 'modifico i valori che mi interesssano + mySetOffsetTabRecordII.RecordBuff.DiaVal(0).ActChangeVal = CutterRadius_Wear + mySetOffsetTabRecordII.RecordBuff.DiaVal(0).ValOrig = CutterRadius_Geometry + mySetOffsetTabRecordII.RecordBuff.LenVal(0).ActChangeVal = ToolLenght_Wear + mySetOffsetTabRecordII.RecordBuff.LenVal(0).ValOrig = ToolLenght_Geometry + + 'scrivo il correttore + mySetOffsetTabRecordIIR = OPENws.SetOffsetTabRecordII(mySetOffsetTabRecordII) + If O_CheckRetError(mySetOffsetTabRecordIIR.retval, mySetOffsetTabRecordIIR.ErrClass, mySetOffsetTabRecordIIR.ErrNum, String.Format("SetOffsetTabRecordII({0}) O_RW_ToolOffset CNC.OSAI_OPEN", ToolOffsetNumber), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Else ' ************* Read + Dim myGetOffsetTabRecordIIR As OPENcontrol.GetOffsetTabRecordIIR + Dim myGetOffsetTabRecordII As New OPENcontrol.GetOffsetTabRecordII + myGetOffsetTabRecordII.RecordNum = ToolOffsetNumber + myGetOffsetTabRecordIIR = OPENws.GetOffsetTabRecordII(myGetOffsetTabRecordII) + If O_CheckRetError(myGetOffsetTabRecordIIR.retval, myGetOffsetTabRecordIIR.ErrClass, myGetOffsetTabRecordIIR.ErrNum, String.Format("GetOffsetTabRecordII({0}) O_RW_ToolOffset CNC.OSAI_OPEN", ToolOffsetNumber), szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + CutterRadius_Wear = myGetOffsetTabRecordIIR.RecordBuff.DiaVal(0).ActChangeVal + CutterRadius_Geometry = myGetOffsetTabRecordIIR.RecordBuff.DiaVal(0).ValOrig + ToolLenght_Wear = myGetOffsetTabRecordIIR.RecordBuff.LenVal(0).ActChangeVal + ToolLenght_Geometry = myGetOffsetTabRecordIIR.RecordBuff.LenVal(0).ValOrig + End If + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + End Try + + + + 'Dim iodbpsd_1 As Focas1.IODBPSD_1 + 'Dim odbtofs As Focas1.ODBTOFS + 'Dim nReturn As Integer + 'Dim bNcInInch As Boolean + 'Dim bTtInInch As Boolean + 'Dim valid_fig As Short + 'Dim dec_fig_in(31) As Short + 'Dim dec_fig_out(31) As Short + + 'iodbpsd_1 = New Focas1.IODBPSD_1 + 'odbtofs = New Focas1.ODBTOFS + + ''Leggo se il CN è impostato in Inch (parametro 0.2) + 'nReturn = Focas1.cnc_rdparam(nLibHandle(1), 0, 0, 4 + 1, iodbpsd_1) + 'If F_CheckRetError_Cnc(nReturn, "cnc_rdparam F_RW_LengthOffset CNC.FANUC") Then + ' Throw New CmsNcException("ERR cnc_rdparam F_RW_LengthOffset CNC.FANUC") + 'End If + 'bNcInInch = (iodbpsd_1.cdata And MASK_BIT2) = MASK_BIT2 + + ''Leggo se ToolTable è impostato in Inch + 'bTtInInch = Config.Options.CurrentOptions.ToolTable_Inch + + ''leggo le cifre decimali + 'nReturn = Focas1.cnc_getfigure(nLibHandle(1), 1, valid_fig, dec_fig_in, dec_fig_out) + 'If F_CheckRetError_Cnc(nReturn, "cnc_getfigure F_RW_LengthOffset CNC.FANUC") Then + ' Throw New CmsNcException("ERR cnc_getfigure F_RW_LengthOffset CNC.FANUC") + 'End If + + 'If bWrite Then ' *** Write + ' For i = 0 To 3 + ' Dim dblTmp As Double + ' Dim nTmp As Integer + ' Select Case i + ' Case 0 : dblTmp = CutterRadius_Wear + ' Case 1 : dblTmp = CutterRadius_Geometry + ' Case 2 : dblTmp = ToolLenght_Wear + ' Case 3 : dblTmp = ToolLenght_Geometry + ' End Select + ' 'moltiplico per le cifre decimali + ' dblTmp *= 10 ^ dec_fig_in(0) + ' 'riporto all'unità di misura di Nc + ' If bNcInInch And Not bTtInInch Then + ' nTmp = dblTmp / 25.4 + ' ElseIf Not bNcInInch And bTtInInch Then + ' nTmp = dblTmp * 25.4 + ' Else + ' nTmp = dblTmp + ' End If + ' nReturn = Focas1.cnc_wrtofs(nLibHandle(1), ToolOffsetNumber, i, 8, nTmp) + ' If F_CheckRetError_Pmc(nReturn, "cnc_wrtofs F_RW_ToolOffset CNC.FANUC") Then + ' Throw New CmsNcException("ERR cnc_wrtofs F_RW_ToolOffset CNC.FANUC") + ' End If + ' Next + + 'Else ' ************* Read + ' For i = 0 To 3 + ' nReturn = Focas1.cnc_rdtofs(nLibHandle(1), ToolOffsetNumber, i, 8, odbtofs) + ' If F_CheckRetError_Pmc(nReturn, "cnc_rdtofs F_RW_ToolOffset CNC.FANUC") OrElse (odbtofs.datano <> ToolOffsetNumber Or odbtofs.type <> i) Then + ' Throw New CmsNcException("ERR cnc_rdtofs F_RW_ToolOffset CNC.FANUC") + ' Else + ' Dim dblTmp As Double + ' 'riporto all'unità di misura di ToolTable + ' If bNcInInch And Not bTtInInch Then + ' dblTmp = odbtofs.data * 25.4 + ' ElseIf Not bNcInInch And bTtInInch Then + ' dblTmp = odbtofs.data / 25.4 + ' Else + ' dblTmp = odbtofs.data + ' End If + ' 'divido per le cifre decimali + ' dblTmp /= 10 ^ dec_fig_in(0) + ' 'memorizzo il dato + ' Select Case i + ' Case 0 : CutterRadius_Wear = dblTmp + ' Case 1 : CutterRadius_Geometry = dblTmp + ' Case 2 : ToolLenght_Wear = dblTmp + ' Case 3 : ToolLenght_Geometry = dblTmp + ' End Select + ' End If + ' Next + + 'End If + + End Function + + ''' + ''' Blocca l'accesso alla tabella dei correttori + ''' + ''' =True: Blocca la tabella, =False: Sblocca la tabella + ''' True se andata a buon fine + Public Overrides Function O_LockOffsetTable(ByVal Lock As Boolean) As Boolean + Static bLocked As Boolean + Dim szReturn As String = "" + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + If Lock Then + If Not bLocked Then + Dim myLockTableIIR As OPENcontrol.LockTableIIR + Dim myLockTableII As New OPENcontrol.LockTableII + myLockTableII.TableNum = O_Table.OFFSET_TABLE_ID + myLockTableIIR = OPENws.LockTableII(myLockTableII) + If O_CheckRetError(myLockTableIIR.retval, myLockTableIIR.ErrClass, myLockTableIIR.ErrNum, String.Format("LockTableII({0}) O_LockOffsetTable CNC.OSAI_OPEN", myLockTableII.TableNum), szReturn) Then + 'Throw New CmsNcException(szReturn) + Return False + End If + bLocked = True + End If + Else + Dim myUnLockTableIIR As OPENcontrol.UnLockTableIIR + Dim myUnLockTableII As New OPENcontrol.UnLockTableII + myUnLockTableII.TableNum = O_Table.OFFSET_TABLE_ID + myUnLockTableIIR = OPENws.UnLockTableII(myUnLockTableII) + If O_CheckRetError(myUnLockTableIIR.retval, myUnLockTableIIR.ErrClass, myUnLockTableIIR.ErrNum, String.Format("UnLockTableII({0}) O_LockOffsetTable CNC.OSAI_OPEN", myUnLockTableII.TableNum), szReturn) Then + 'Throw New CmsNcException(szReturn) + Return False + End If + bLocked = False + End If + Return True + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + + ''' + ''' Legge il numero del processo attivo + ''' + ''' Valore di ritorno del processo selezionato + ''' True se andata a buon fine + Public Overloads Overrides Function O_GetSelectedProcess(ByRef ProcessId As Short) As Boolean + Dim szReturn As String = "" + Dim myGetSelectedProcessR As OPENcontrol.GetSelectedProcessR + Dim myGetSelectedProcess As New OPENcontrol.GetSelectedProcess + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + myGetSelectedProcessR = OPENws.GetSelectedProcess(myGetSelectedProcess) + If O_CheckRetError(myGetSelectedProcessR.retval, myGetSelectedProcessR.ErrClass, myGetSelectedProcessR.ErrNum, "GetSelectedProcess() O_GetSelectedProcess CNC.OSAI_OPEN", szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + ProcessId = UnsignedToShort(myGetSelectedProcessR.ProcNum) + Return True + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + ''' + ''' Legge la riga del programma attivo + ''' + ''' Riga in esecuzione del programma attivo + ''' True se andata a buon fine + Public Overloads Overrides Function O_GetActiveLineProgram(ByRef Line As String) As Boolean + Dim szReturn As String = "" + Dim myGetPartProgramLinesR As OPENcontrol.GetPartProgramLinesR + Dim myGetPartProgramLines As New OPENcontrol.GetPartProgramLines + Dim ProcessId As Short + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + O_GetSelectedProcess(ProcessId) + + myGetPartProgramLines.ProcNum = ProcessId + myGetPartProgramLinesR = OPENws.GetPartProgramLines(myGetPartProgramLines) + If O_CheckRetError(myGetPartProgramLinesR.retval, myGetPartProgramLinesR.ErrClass, myGetPartProgramLinesR.ErrNum, "GetPartProgramLines() O_GetActiveLineProgram CNC.OSAI_OPEN", szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + Line = myGetPartProgramLinesR.PPLine2 + Return True + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + + ''' + ''' Legge la tabella assi + ''' + ''' Processo selezionato + ''' Valore di ritorno Assi del processo selezionato + ''' True se andata a buon fine + Public Overloads Overrides Function O_GetAxisTab(ByVal ProcessId As Short, ByRef AxisTable() As Char, ByRef AxisIdTable() As Short) As Boolean + Dim szReturn As String = "" + Dim i, j As Integer + Dim myGetAxesInfo3R As OPENcontrol.GetAxesInfo3R + Dim myGetAxesInfo3 As New OPENcontrol.GetAxesInfo3 + Dim nRetry As Integer +Retry: nRetry += 1 + + Try + myGetAxesInfo3.AxesNum = 64 + myGetAxesInfo3R = OPENws.GetAxesInfo3(myGetAxesInfo3) + If O_CheckRetError(myGetAxesInfo3R.retval, myGetAxesInfo3R.ErrClass, myGetAxesInfo3R.ErrNum, "GetAxesInfo3() O_RW_Word CNC.OSAI_OPEN", szReturn) Then + Throw New CmsNcException(szReturn) + Return False + End If + + For i = 0 To 63 + If myGetAxesInfo3R.AxOwnerList(i) = ProcessId Then + If (myGetAxesInfo3R.AxNameList(i) < Asc("a") Or myGetAxesInfo3R.AxNameList(i) > Asc("z")) And myGetAxesInfo3R.AxNameList(i) <> Asc("S") Then + AxisTable(j) = Chr(myGetAxesInfo3R.AxNameList(i)) + AxisIdTable(j) = i + 1 + j += 1 + End If + 'ElseIf myGetAxesInfo3R.AxOwnerList(i) = &HFFFF& Then 'Non esco perchè gli assi potrebbero non essere in fila + ' Exit For + End If + Next i + + Return True + Catch ex As System.ServiceModel.CommunicationException + If nRetry < MAXRET Then GoTo Retry + Throw New CmsNcException(ex.Message) + Return False + End Try + End Function + + + End Class + +End Namespace