Olá boa noite estou tentando realizar a leitura de uma tag de comunicação, onde passo o pathName da mesma, realizo um Select Case para identificar qual valores vou atribuir, abaixo uma parte dó código, porém não está realizando a leitura.
Estou realizando no evento OnPreShow da tela.
Dim Tela, Cam, AREC, AQC, ATA, ATIEC, ATIAC, BREC, BQC, BTA, BTIEC, BTIAC
Tela = Application.GetObject(“Dados.IndexTela”).Value
’ ===============================
’ Define o sufixo da câmara
’ ===============================
Select Case Tela
Case 1
Cam = “Cam5A”
Case 2
Cam = “Cam5B”
Case 3
Cam = “Cam5C”
Case 4
Cam = “Cam5D”
Case else
End Select
'BREC = Application.GetObject("Driver1.Ambientes." & Cam & ".Receita.Envia.B.Atual")
'BQC = Application.GetObject("Driver1.Ambientes." & Cam & ".Receita.Envia.B.QC")
'BTA = Application.GetObject("Driver1.Ambientes." & Cam & ".Receita.Envia.B.TA")
'BTIEC = Application.GetObject("Driver1.Ambientes." & Cam & ".Receita.Envia.B.TIEC")
'BTIAC = Application.GetObject("Driver1.Ambientes." & Cam & ".Receita.Envia.B.TIAC")