CVariaveis.cls
4.2 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "CVariaveis"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' Classe para armazenamento de variáveis globais de uma forma um pouco mais elegante
'
Private objIDsTrechos As Variant
Private objIDTrechoSelecionado As String
Private totalTrechosMovendo As Integer
Private retornaEmailErro As Boolean
Private paraExe As Boolean
Private objIdNoMovendo As String
Private moveVertice As Boolean 'indica se está ou não movendo um vértice de uma rede
Private podeRealizarCommit As Boolean 'tem objetivo de informar se é para realizar um Commit ou Rollback, pois houve falha
Private calcularOZNo As Boolean 'para saber se a cota Z do nó deve ser calculada no momento em que estou desenhando a rede
Private numVertRamal As Integer 'número do vértice do ramal que está sendo cadastrado pelo usuário, 1 = primeiro, 2 = segundo, ....
' Retorna qual o número do vértice do ramal que está sendo entrado pelo usuário
'
Property Get numeroVerticeDoRamal() As Integer
numeroVerticeDoRamal = numVertRamal
End Property
' Recebe qual o número do vértice do ramal que está sendo entrado pelo usuário
'
Property Let numeroVerticeDoRamal(ByVal numVRamal As Integer)
numVertRamal = numVRamal
End Property
' Retorna se pode ou não realizar um Commit no banco de dados
'
Property Get deveCalcularZNo() As Boolean
deveCalcularZNo = calcularOZNo
End Property
' Recebe se pode ou não realizar um Commit no banco de dados
'
Property Let deveCalcularZNo(ByVal calculaZNo As Boolean)
calcularOZNo = calculaZNo
End Property
' Retorna se pode ou não realizar um Commit no banco de dados
'
Property Get realizaCommit() As Boolean
realizaCommit = podeRealizarCommit
End Property
' Recebe se pode ou não realizar um Commit no banco de dados
'
Property Let realizaCommit(ByVal podeComitar As Boolean)
podeRealizarCommit = podeComitar
End Property
' Retorna se o vértice está sendo movido ou não
'
Property Get moverVertice() As Boolean
moverVertice = moveVertice
End Property
' Recebe se o vértice está sendo movido ou não
'
Property Let moverVertice(ByVal vertice As Boolean)
moveVertice = vertice
End Property
' Retorna valor de do object_id do trecho
'
Property Get objIdTreSelecionado() As String
objIdTreSelecionado = objIDTrechoSelecionado
End Property
' Recebe valor do object_id do trecho
'
Property Let objIdTreSelecionado(ByVal objIdTreSel As String)
objIDTrechoSelecionado = objIdTreSel
End Property
' Retorna valor de do object_id do trecho
'
Property Get objIdTre() As Variant
objIdTre = objIDsTrechos
End Property
' Recebe valor do object_id do trecho
'
Property Let objIdTre(ByVal objId As Variant)
objIDsTrechos = objId
End Property
'Retorna valor do número total de trechos que estão sendo movidos
'
Property Get totalTrechos() As Variant
totalTrechos = totalTrechosMovendo
End Property
' Recebe valor do número total de trechos que estão sendo movidos
'
Property Let totalTrechos(ByVal trechos As Variant)
totalTrechosMovendo = trechos
End Property
'Retorna valor se é para enviar emails de erros
'
Property Get enviarEmails() As Variant
enviarEmails = retornaEmailErro
End Property
' Recebe valor se é para enviar emails de erros
'
Property Let seEnviaEmailErro(ByVal enviaEmails As Variant)
retornaEmailErro = enviaEmails
End Property
'Retorna valor se é para enviar emails de erros
'
Property Get pararExecucao() As Variant
pararExecucao = paraExe
End Property
' Recebe valor se é para enviar emails de erros
'
Property Let pararExecucao(ByVal para As Variant)
paraExe = para
End Property
'Retorna valor do object_id do nó selecionado para mover
'
Property Get objIdNoSelecionado() As Variant
objIdNoSelecionado = objIdNoMovendo
End Property
' Recebe valor do object_id do nó selecionado para mover
'
Property Let objIdNoSelecionado(ByVal objId As Variant)
objIdNoMovendo = objId
End Property
Private Function variaveis()
End Function