Hi guys,
I am trying to run the switch statement but getting EWorkToolSwitch value invalid message when stepping through. Can someone tell me what am I doing wrong here?
FYI: WorkToolEnum defined at config.dat file this way
"ENUM WorkToolEnum GetScrapTool,GetScrewTool,GetStapleTool,GetNailTool,LeaveScrapTool,LeaveScrewTool,LeaveStapleTool,LeaveCurrentTool,LeaveNailTool"
Code:
&ACCESS RVP
&REL 834
&PARAM DISKPATH = KRC:\R1\UserPrograms
DEF ToolChange (eWorkToolSwitch:IN )
DECL WorkToolEnum eWorkToolSwitch
;FOLD INI;%{PE}
;FOLD BASISTECH INI
GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
INTERRUPT ON 3
BAS (#INITMOV,0 )
;ENDFOLD (BASISTECH INI)
;FOLD USER INI
;Make your modifications here
;ENDFOLD (USER INI)
;ENDFOLD (INI)
GoHome()
SWITCH eWorkToolSwitch
;-------------------------------------------------
CASE #GetScrapTool
;CHECK IF THERE IS ANY TOOL PRESSENT AT TCU
IF diScrewToolContact == TRUE THEN
LeaveScrewTool()
ENDIF
IF diStapleToolContact == TRUE THEN
LeaveStapleTool()
ENDIF
IF diNailToolContact == TRUE THEN
LeaveNailTool()
ENDIF
;TO PLC: ALARM TOOL MISSING
WHILE (diScrapToolContact == FALSE) AND (bAllToolsDocked == FALSE)
Alarm(141)
ENDWHILE
;CHECK IF SCRAP TOOL PRESENT AT TCU
IF diScrapToolContact == FALSE THEN
GetScrapTool()
ENDIF