Erro no AbreEmpresaTrabalho   

Bom dia

Estou a desenvolver uma web aplication e num dos métodos tento realizar uma conexão ao primavera.

O código já esteve a funcionar corretamente mas desde que atualizei o erp no dia 06/02/2025 comecei a ter o seguinte erro no método abreEmpresaTrabalho:

“System.NullReferenceException: ‘A referência de objecto não foi definida como uma instância de um objecto.”

segue  código :

Public Shared Function CreatContext(ByVal Company As String, ByVal User As String, ByVal Password As String) As PriEngine
Dim objAplConf As StdBSConfApl = New StdBSConfApl()
Dim Plataforma As StdPlatBS = New StdPlatBS()
Dim MotorLE As ErpBS = New ErpBS()
Dim objTipoPlataforma As EnumTipoPlataforma
objTipoPlataforma = EnumTipoPlataforma.tpProfissional
objAplConf.Instancia = “Default”
objAplConf.AbvtApl = “ERP”
objAplConf.PwdUtilizador = Password
objAplConf.Utilizador = User
objAplConf.LicVersaoMinima = “10.00”

Dim objStdTransac As StdBETransaccao = New StdBETransaccao()

Try
Plataforma.AbrePlataformaEmpresa(Company, objStdTransac, objAplConf, objTipoPlataforma)
Catch ex As Exception
‘FrmPlataforma.Show()
Throw (ex)
End Try

If Plataforma.Inicializada Then
Dim objConfMotor As New StdBEConfMotorBS()
objConfMotor.TipoPlataforma = objTipoPlataforma
objConfMotor.CodEmp = Company
objConfMotor.Instancia = “Default”
objConfMotor.UtilizadorActual = User
objConfMotor.PasswordUtilizador = Password
objConfMotor.Transaccao = objStdTransac
objConfMotor.LicVersaoMinima = “10.00”
MotorLE.AbreEmpresaTrabalho(objConfMotor)

Dim service As ExtensibilityService = New ExtensibilityService()
service.Initialize(MotorLE)

If service.IsOperational Then
service.LoadExtensions()
End If

Platform = Plataforma
Engine = MotorLE
EngineStatus = True
End If

Return engineInstance
End Function