Criar XControls associado ao XObjects pelo CustomConfig

Boa tarde Amigos,

Tenho uma necessidade de criar objetos via CustomConfig, colocando como parâmetro no input box a quantidade de objetos também… Como fazemos ao criar uma TagDemo… É escolhido o nome da primeira e a quantidade de Tags a serem criadas, e são criadas N tags com a seguencia de nomes correta.

Porém não tenho noção de como criar os objetos (XObjects) na pasta dados já linkados com os Controls na tela (XControls) que também serão criados pelo mesmo customconfig.

Olá @magnurv12,

Pelo que entendi, você quer saber como adicionar o XObject e associá-lo ao XControl, correto?

Segue exemplo de script do evento CustomConfig do XControl que insere e associa o XObject:

'Nome da bomba
Nome = InputBox(“Digite o nome da Bomba:”)
If Nome = “” Then Exit Sub

'Cria o objeto XO_Bomba
Set obj = Application.GetObject(“Dados.Bombas”)._
AddObject(“XO_Bomba”, True, Nome)
obj.DocString = InputBox(“Digite uma descrição para a Bomba:”)

'Associa o XControl ao XObject
Fonte = obj.PathName

Atenciosamente,
Lucas Angelo dos Santos

1 Like