Fórum
Ver pergunta

Criar função de utilizador programaticamente   

60 visualizações
0
♥ 0

Bom dia, estou a tentar criar uma função do tipo “Formulário de utilizador” programaticamente no Visual Studio com o objectivo desta chamar um formulário de utilizador desenvolvido também no Visual Studio.

Neste momento já consigo criar a função, no entanto esta não abre o formulário como seria suposto, reparei que na base de dados na tabela FuncoesUtilizadorFormulario, fico com a coluna “Formulario” a null para a função criada, quando, comparando com outra função criada diretamente no ERP deveria ser algo como”{“Extension”:”SPLWareHouse”,”Class”:”FrmSPLWareHouse”}”

o meu código é o seguinte:
Dim funcao As New StdPlatBE100.StdBEXDU

funcao.Activa = True
funcao.Id = Guid.NewGuid().ToString
funcao.Nome = “TestePRI”
funcao.Tipo = StdPlatBE100.StdBETipos.TipoXDU.txduFormularioUtilizador

funcao.Formulario.Formulario = “FrmSPLWareHouse”

PSO.FuncoesUtilizador.Actualiza(funcao)

O que é que está a falhar ou a faltar?

Obrigado

Faça login para poder traduzir
Integração
V10
Geral
Web API
Marcado como spam
Criado há 7 anos e 1 mês celsocoelho
c
celsocoelho Celso Coelho Iniciante
1 respostas
0
Resposta privada

Isto pode ser feito da seguinte forma:

Imports Newtonsoft.Json.Linq

Dim id As String = PSO.FuncoesGlobais.CriaGuid(True)

Dim def As JObject = New JObject()
def.Add("Extension", "ExtensibilityERP")
def.Add("Class", "PriCustomForm4")

Dim xdu As New StdPlatBE100.StdBEXDU
With xdu
.Activa = True
.Id = id
.Nome = "FTeste"
.Tipo = StdPlatBE100.StdBETipos.TipoXDU.txduFormularioUtilizador
'Formulário
.Formulario.Funcao = id
.Formulario.Formulario = "CustomForm4"
.Formulario.Definicao = def
End With

PSO.FuncoesUtilizador.Actualiza(xdu)

Faça login para poder traduzir
Marcado como spam
Criado há 7 anos e 1 mês danielvieira-1
d
danielvieira-1 Daniel Vieira Responsiveness Member