hexagon logo
Register Sign in
  • Replies 5 replies
  • Subscribers 30 subscribers
  • Views 78 views
  • Users 0 members are here
Options
Related

Operators Bypassing Filling Out the Form: Flow Control

bfire85
Happy Saturday!

At the beginning of each program, I have a Form that operators need to fill out. Unfortunately, we have operators that like to just click the continue button on the execution box, which bypasses the form and the program continues. This will not cause the program to crash, but along with other people, I like to see what job# the part was run, who ran it, and for what reason. (Each tracefield is coded into a customized header) So I have had to create a flow control that will not allow operators to bypass the form. They will need to completely fill it out to continue running the program. Hopefully this will help someone who may be in the same situation.

Code: 

REFILL     =LABEL/
            ASSIGN/STR_INSPECT=""
            ASSIGN/STR_USER=""
            ASSIGN/STR_DESC=""
CS1        =FORM/FILENAME= C:\USERS\CMM\DOCUMENTS\CMM FILES\FORMS\INSPECTIONFORM.FORM
            PARAM/TXTINSPECT.TEXT=STR_INSPECT
            PARAM/TXTUSER.TEXT=STR_USER
            PARAM/TXTDESCRIPTION.TEXT=STR_DESC
            PARAM/=
            ENDFORM/
            ASSIGN/FORM1=STR_USER
            ASSIGN/FORM2=STR_INSPECT
            ASSIGN/FORM3=STR_DESC
            IF/FORM1=="" OR FORM2=="" OR FORM3==""
              COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
              Please completely fill out the form in the upper left corner.
            GOTO/REFILL
            END_IF/
            TRACEFIELD/NO_DISPLAY,LIMIT=15 ; TECH / OPERATOR : FORM1
            TRACEFIELD/NO_DISPLAY,LIMIT=20 ; COMMENTS : FORM2
            TRACEFIELD/NO_DISPLAY,LIMIT=15 ; JOB / PART# : FORM3
Parents
  • Pseudo-code:

    Assign COUNTER=0

    Label RETRY

    Assign COUNTER=COUNTER+1

    If COUNTER>3 then operator comment "Go see supervisor"
    and Goto end of program
    End If

    declare variables, assign each to be value 0

    Call form

    If important variable == 0 then GOTO label Retry

    "Go See Supervisor"...Nice! There are times where I want to insert a "Slap yourself really hard" if they keep screwing up when fixturing a part or typing in data, but I am sure that would be frowned upon in our organization.
Reply
  • Pseudo-code:

    Assign COUNTER=0

    Label RETRY

    Assign COUNTER=COUNTER+1

    If COUNTER>3 then operator comment "Go see supervisor"
    and Goto end of program
    End If

    declare variables, assign each to be value 0

    Call form

    If important variable == 0 then GOTO label Retry

    "Go See Supervisor"...Nice! There are times where I want to insert a "Slap yourself really hard" if they keep screwing up when fixturing a part or typing in data, but I am sure that would be frowned upon in our organization.
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement