Tela Modal - Configuracao Script

#1

Estou com problemas para colocar o nome do equipamento ou caminho do da pasta onde estao as variaveis do equipamento no no titulo.
image

Sub Figura3_Click()
Arg = Control_Aspiracao_Expansao.PathName
Application.DoModal “[Telas Setta Expensao].[04 - Janela de Operação].Simocode_Expansao”,Control_Aspiracao_Expansao.Name,0,0, , ,Arg, 1+2+64+2048

End Sub

#2

Felipe, tente deixar em branco a propriedade Caption desta tela.

#3

@Enrico
image
A imagem mostra como esta minha janela de associações

#4

Felipe, estas configurações não são feitas por esta janela de propriedades.
Veja onde deve configurar:

image
image.png419×521 22.5 KB

A propriedade Caption da tela modal (Simocode_Expansao) e do objeto Viewer devem estar em branco.

#5

image
Essa imagem é da janela atual da empresa, essa alteração que nao consegui colocar esse titulo

#6

Por favor, envie sua aplicação para enrico@elipse.com.br.

#7

Boa tarde @Enrico acabei de encaminhar o e-mail.

#8

Você pode passar o Arg para o Caption da sua tela modal no OnPreShow desta:

Sub Simocode_Expansao_OnPreShow(Arg)
	Caption = Arg
End Sub

e na chamada da tela modal você passa o Name (ou o PathName) da sua Fonte (XObject) como argumento.

Sub Figura3_Click()
	Dim arg
	Dim flags
	Dim xo
	Dim strScreen
	
	Set xo = Control_Aspiracao_Expansao.Fonte

	If (Not xo Is Nothing) Then
		arg = xo.Name
		flags = 1 + 2 + 64 + 2048
		strScreen = "[Telas Setta Expensao].[04 - Janela de Operação].Simocode_Expansao"
		Application.DoModal strScreen, , , , , , arg, flags
	End If
End Sub
#9

@Enrico Tentei responder seu e-mail nao deu certo, agradeço o apoio deu certo.

#10

Oi, Felipe.
Então vou deixar registrado aqui o que foi sugerido por e-mail.

  • Deixar em branco a propriedade Caption da tela modal e do Viewer;
  • Carregar o nome do objeto como argumento do comando DoModal, pois estava sendo carregado somente o Pathname.
  • Todos os XControls motores da tela que testei estão com a mesma associação na FONTE do objeto Control_Motor, que é para o Equipamentos.FC.[FC-01]. Você deve modificar para que cada um seja associado ao motor correto (instância correta dos XObjects dos motores).

Os scripts sugeridos ficaram assim:

XControl Control_Motor:

Sub Figura2_Click()
dim Arg(2)
Arg(0) = Control_Motor.Fonte.PathName
Arg(1) = Control_Motor.Fonte.Name
Application.DoModal “MT”, Control_Motor.Fonte.Name,0,0, , ,Arg, 1+2+64+2048
End Sub

Tela MT:

Sub MT_OnPreShow(Arg)
Item("Tela_Motor1").Fonte = Arg(0)
Caption = Arg(1)
End Sub
1 Like