SHARE
TWEET

Pop-Up

a guest Jul 19th, 2019 54 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' PopUpTagModule
  2. ' All the popups on the R_Recipe_Serach screen are trigered by the tags below.
  3. ' AddPopUpTag is called as soon as the display is running so that all tags can be added to the tag group once
  4. ' Calling the fucntion LoadPopUpTags in any routine will load all the tags and give you acccess to them with their current values
  5. Option Explicit
  6.  
  7. Public Type PopUpTags
  8.  
  9.     PopUp_SaveRcpUpdated As Tag
  10.     PopUp_SaveRcpSaved As Tag
  11.     PopUp_SaveFailed As Tag
  12.     PopUp_MasterComplete As Tag
  13.     PopUp_QComplete As Tag
  14.     PopUp_K2Complete As Tag
  15.     PopUp_KComplete As Tag
  16.     PopUp_IndAComplete As Tag
  17.     PopUp_IndBComplete As Tag
  18.     PopUp_QProdComplete As Tag
  19.    
  20.  
  21. End Type
  22.  
  23. ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  24. ' * * * * * * * * * * *  ADDING  HMI  TAGS TO THE  TAG GROUP  * * * * * * * * * * * * * *
  25. ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  26. Function AddPopUpTag()
  27.     Dim strFolder As String
  28.     strFolder = "BO\"
  29.    
  30.     With ThisDisplay.MyTagGroup
  31.    
  32.         .Add ("{" & strFolder & "PopUp_SaveRcpUpdated}")
  33.         .Add ("{" & strFolder & "PopUp_SaveRcpSaved}")
  34.         .Add ("{" & strFolder & "PopUp_SaveFailed}")
  35.         .Add ("{" & strFolder & "PopUp_MasterComplete}")
  36.         .Add ("{" & strFolder & "PopUp_QComplete}")
  37.         .Add ("{" & strFolder & "PopUp_K2Complete}")
  38.         .Add ("{" & strFolder & "PopUp_KComplete}")
  39.         .Add ("{" & strFolder & "PopUp_IndAComplete}")
  40.         .Add ("{" & strFolder & "PopUp_IndBComplete}")
  41.         .Add ("{" & strFolder & "PopUp_QProdComplete}")
  42.        
  43.     End With
  44.  
  45. End Function
  46.  
  47. ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  48. ' * * * * * * * * * * * *    ADDING TAGS TO THE GROUP   * * * * * * * * * * * * * * * * *
  49. ' * Whenever any of the popuptags are needed, calling this function will load them all  *
  50. ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  51. Function LoadPopUpTags() As PopUpTags
  52.     Dim TagP As PopUpTags
  53.     Dim strFolder As String
  54.     strFolder = "BO\"
  55.    
  56.     With ThisDisplay.MyTagGroup
  57.  
  58.         Set TagP.PopUp_SaveFailed = .Item("{" & strFolder & "PopUp_SaveFailed}")
  59.         Set TagP.PopUp_SaveRcpSaved = .Item("{" & strFolder & "PopUp_SaveRcpSaved}")
  60.         Set TagP.PopUp_SaveRcpUpdated = .Item("{" & strFolder & "PopUp_SaveRcpUpdated}")
  61.         Set TagP.PopUp_MasterComplete = .Item("{" & strFolder & "PopUp_MasterComplete}")
  62.         Set TagP.PopUp_QComplete = .Item("{" & strFolder & "PopUp_QComplete}")
  63.         Set TagP.PopUp_K2Complete = .Item("{" & strFolder & "PopUp_K2Complete}")
  64.         Set TagP.PopUp_KComplete = .Item("{" & strFolder & "PopUp_KComplete}")
  65.         Set TagP.PopUp_IndAComplete = .Item("{" & strFolder & "PopUp_IndAComplete}")
  66.         Set TagP.PopUp_IndBComplete = .Item("{" & strFolder & "PopUp_IndBComplete}")
  67.         Set TagP.PopUp_QProdComplete = .Item("{" & strFolder & "PopUp_QProdComplete}")
  68.        
  69.     End With
  70.    
  71.     LoadPopUpTags = TagP
  72.      
  73. End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top