SHARE
TWEET

Untitled

a guest Aug 27th, 2019 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. '******************************************************************************'
  2. ' Project    : Sanepar
  3. ' File       : popGraficoIndividual.grf
  4. ' Author     : intech-automacao
  5. ' Date       : 2019.08.27
  6. '
  7. ' Revision history
  8. '------------------------------------------------------------------------------'
  9. ' Date      Author  Revision
  10. '******************************************************************************'
  11. Option Explicit
  12.  
  13. '
  14. ' Initialize
  15. '
  16. Private Sub CFixPicture_Initialize()
  17.     ' Retira nome do .grf da barra de titulo.
  18.    Application.ActiveWindow.Caption = ""
  19.    
  20.     With Me
  21.         ' Previne que a tela abra com barras de rolagem.
  22.        .WindowHeightPercentage = 100#
  23.         .WindowWidthPercentage = 100#
  24.     End With
  25.  
  26.     With cboAreas
  27.         .Clear
  28.         .AddItem "TODOS"
  29.         .AddItem "CP01"
  30.         .AddItem "CP02"
  31.         .AddItem "CP03"
  32.         .AddItem "CP04"
  33.         .AddItem "CP05"
  34.         .AddItem "CP06"
  35.         .AddItem "CP07"
  36.         .AddItem "CP08"
  37.         .ListIndex = 0
  38.     End With
  39. End Sub
  40.  
  41. '
  42. ' Filtrar
  43. '
  44. Private Sub btnFiltrar_Click()
  45.    
  46.     ' Caso combobox vazio
  47.    If (cboAreas.ListIndex < 0) Then Exit Sub
  48.    
  49.     'Caso combobox for todos, limpa o filtro
  50.    If (cboAreas.Text = "TODOS") Then
  51.         almSummary.FilterString = ""
  52.     Else
  53.         almSummary.FilterString = "Area In ""02" & cboAreas.Text & """"
  54.     End If
  55.    
  56. End Sub
  57. '
  58. ' Close
  59. '
  60. Private Sub btnClose_Click()
  61.     ClosePicture
  62. End Sub
  63. '
  64. ' Sumario de alarmes
  65. '
  66. Private Sub almSummary_DblClick(ByVal Col As Long, ByVal Row As Long)
  67.     If (Col = 1) Then
  68.         ' Coluna Ack
  69.        User.OpenAckAllAlarmsForm almSummary
  70.     End If
  71. End Sub
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