Criar DataFolder com AlarmVerify True

#1

Bom dia

Estou tentando criar uma pasta de dados em RunTime, e na hora de mudar a propriedade AlarmVerify para True, ele dá erro.

Meu código:
set Dados = Application.GetObject(“Dados”)

set DtFolder = Dados.AddObject("DataFolder", True, Application.GetObject("Dados.DadosCadPonto.spNome").Value)
	
	'Está DANDO ERRO AQUI
	DtFolder.AlarmVerify = True
	'DtFolder.IsAlarmArea = True

Agradeço desde já!

#2

@wagner.dracha, bom dia.

O objeto DataFolder não tem a propriedade AlarmVerify:

Sds.

#3

@Fernando, se tu habilitares o IsAlarmArea, ele aparece o AlarVerify.

#4

Neste caso, habilita o IsAlarmArea antes do AlarmVerify.

#5

A propriedade AlarmVerify só fica disponível após a propriedade IsAlarmArea estar em TRUE.

	set Dados = Application.GetObject("Dados")

	set DtFolder = Dados.AddObject("DataFolder", False, Application.GetObject("Dados.DadosCadPonto.spNome").Value)

	With DtFolder
		.IsAlarmArea = True
		.AlarmVerify = True
		.Activate()
	End With
1 Like
#6

@Fernando e @leandrobpedro está dando este erro mesmo com a tua atualização:

set Dados = Application.GetObject("Dados")
set DtFolder = Dados.AddObject("DataFolder", True, Application.GetObject("Dados.DadosCadPonto.spNome").Value)
	
With DtFolder
	.IsAlarmArea = True       '<= Linha310
	.AlarmVerify = True
	.Activate()
End With
#7

Muda o “True” pelo “False”.

1 Like
#8

@Fernando, funcionou.

Qual o motivo deste True ou False?

Outra coisa, porque o @leandrobpedro usou o With e o .Activate()?

#9

O segundo parâmetro da função AddObject é a propriedade Activate, que ativa ou não o objeto criado.

Os passos p/ habilitar o AlarmVerify, seriam:

  1. Criar a datafolder mas não ativá-la.
  2. IsAlarmArea = True
  3. AlarmVerify = True
  4. Ativar a datafolder.

O uso do With … End With é somente para faciliar caso vc opte por trocar o nome da sua variável DtFolder, mas poderia ser feito desta forma:

	DtFolder.IsAlarmArea = True
	DtFolder.AlarmVerify = True
	DtFolder.Activate()
2 Likes
#10

Apenas complementando, neste artigo do KB há informações sobre o método AddObject e o uso do With… End With.

1 Like
#11

Muito obrigado senhores!