f_x_genapp_frame.srf 1.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
  1. $PBExportHeader$f_x_genapp_frame.srf
  2. global type f_x_genapp_frame from function_object
  3. end type
  4. forward prototypes
  5. global subroutine f_x_genapp_frame ()
  6. end prototypes
  7. global subroutine f_x_genapp_frame ();string n
  8. setnull(n)
  9. //if keydown(KeyControl!) and keydown(KeyAlt!) and &
  10. // (( keydown(Key0!) and DayNumber(today())=1 ) or &
  11. // (keydown(Key1!) and DayNumber(today())=2 ) or &
  12. // (keydown(Key2!) and DayNumber(today())=3 ) or &
  13. // (keydown(Key3!) and DayNumber(today())=4 ) or &
  14. // (keydown(Key4!) and DayNumber(today())=5 ) or &
  15. // (keydown(Key5!) and DayNumber(today())=6 ) or &
  16. // (keydown(Key6!) and DayNumber(today())=7 ) &
  17. // ) then
  18. //
  19. // if isvalid(M_x_genapp_frame) then
  20. // if f_power_ind(131) then
  21. // M_x_genapp_frame.m_ysgl.text='财务部&T'
  22. // else
  23. // M_x_genapp_frame.m_ysgl.text=n
  24. // end if
  25. // M_x_genapp_frame.m_ysgl.enabled=f_power_ind(131)
  26. // w_main_scware.p_cwgl.visible=f_power_ind(131)
  27. //
  28. // M_x_genapp_frame.m_bbzx.text='报表中心&B'
  29. // M_x_genapp_frame.m_bbzx.enabled=true
  30. // w_main_scware.p_bbzx.visible=true
  31. // end if
  32. //elseif keydown(KeyControl!) then
  33. // M_x_genapp_frame.m_ysgl.text=n
  34. // M_x_genapp_frame.m_ysgl.enabled=false
  35. // w_main_scware.p_cwgl.visible=false
  36. //
  37. // M_x_genapp_frame.m_bbzx.text=n
  38. // M_x_genapp_frame.m_bbzx.enabled=false
  39. // w_main_scware.p_bbzx.visible=false
  40. //
  41. // if isvalid(w_main_child_cw) then
  42. // w_main_scware.wf_mbtface(0)
  43. // end if
  44. //end if
  45. end subroutine