Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Evtroutine Handling(#myscreen_wrapper.vHandleArrive) Arrivedscreen(#ArrivedScreen) Previousscreen(#PreviousScreen) Arrivedpayload(#Payload)
 
Case (#ArrivedScreen)
 
When Value_Is(= EMPLOYEE_DETAILS)
 
Set Com(#SAVE_BUTTON) Enabled(false)
 
If (#Payload *NE UPDATE_EMPLOYEE)
 
#myscreen_wrapper.getvalue From('empno') Value(#empno.value)
#myscreen_wrapper.getvalue From('surname') Value(#surname.value)
 
Endif
 
Endcase
 Endcase 
Endroutine