Menu.Treatment.qsrc 1.1 KB

1234567891011121314151617181920212223242526272829
  1. # Menu.Treatment
  2. ARGS[0] = otg_Menu_Compliance[ARGS[0]-1]
  3. !----------
  4. if ARGS[0] = 0: exit
  5. !----------
  6. $ARGS[0] = dyneval("$Result = $<<$otg_Menu_Current>>_Parameters['<<ARGS[0]>>_F']")
  7. $ARGS[1] = dyneval("$Result = $<<$otg_Menu_Current>>_Parameters['<<ARGS[0]>>_M']")
  8. !----------
  9. dynamic "
  10. if $ARGS[1] <> '' or ($ARGS[0] <> '' and LOC $ARGS[0]):
  11. <<$otg_Menu_Current>>_Time = MSECSCOUNT-<<$otg_Menu_Current>>_Time
  12. otg_Menu_Time = <<$otg_Menu_Current>>_Time
  13. <<$otg_Menu_Current>>_Selected = -1
  14. <<$otg_Menu_Current>>_VybrannyyPunkt = <<ARGS[0]>>
  15. !----------
  16. $ARGS[3] = $<<$otg_Menu_Current>>_ModuliSobyty['when you select']
  17. if $ARGS[3] <> '': dynamic $ARGS[3],$<<$otg_Menu_Current>>_Parameters['<<ARGS[0]>>_W']"+dyneval("$Result = $<<$otg_Menu_Current>>_Parameters['<<ARGS[0]>>_P']")+"
  18. !----------
  19. if $ARGS[1] <> '':
  20. dynamic $ARGS[1]"+dyneval("$Result = $<<$otg_Menu_Current>>_Parameters['<<ARGS[0]>>_P']")+"
  21. else
  22. GS $ARGS[0]"+dyneval("$Result = $<<$otg_Menu_Current>>_Parameters['<<ARGS[0]>>_P']")+"
  23. end
  24. else
  25. MSG 'Location ''<<$ARGS[0]>>'' Found!'
  26. end
  27. ",$ARGS[0],$ARGS[1]
  28. --- Menu.Treatment ---------------------------------