Jump to content
Miguel Alves Neto

Primavera 9.15 - Desenvolvimento vb .net - integrador

Recommended Posts

Miguel Alves Neto

Boa tarde,

na actualização 9.15 do primavera deixou de existir a opção Integrador

Plataforma = New Interop.StdPlatBS900.StdPlatBS

Plataforma.AbrePlataformaEmpresaIntegrador(Motor.Contexto.CodEmp, Nothing, ObjConfApl, Interop.StdBE900.EnumTipoPlataforma.tpProfissional)

Passando só a existir

Plataforma.AbrePlataformaEmpresa(Motor.Contexto.CodEmp, Nothing, ObjConfApl, Interop.StdBE900.EnumTipoPlataforma.tpProfissional, ObjConfApl.PwdUtilizador)

Com mais opções de campos para preencher como se pode verificar.

o meu código:

Class

'##################################################################
Public Class ClassUtil
Shared Plataforma As Interop.StdPlatBS900.StdPlatBS
Shared ObjConfApl As Interop.StdPlatBS900.StdBSConfApl
Shared Function GetConnactionString(ByVal Motor As Interop.ErpBS900.ErpBS) As String
 Dim connString As String = String.Empty
Try
	 InstanciaPlataforma(Motor)
	 connString = Plataforma.BaseDados.DaConnectionString("PRI" & Plataforma.Contexto.Empresa.CodEmp, Plataforma.Contexto.Instancia)
	 Dim startIndex As Integer = connString.IndexOf("User")
	 connString = connString.Substring(startIndex, connString.Length - startIndex)
	 Plataforma.FechaPlataformaEx()
	 Return connString
 Catch ex As Exception
	 Throw
 End Try
End Function
Shared Function InstanciaPlataforma(ByVal Motor As Interop.ErpBS900.ErpBS) As Interop.StdPlatBS900.StdPlatBS
 Try
	 ObjConfApl = New Interop.StdPlatBS900.StdBSConfApl
	 Plataforma = New Interop.StdPlatBS900.StdPlatBS
	 'Plataforma.AbrePlataformaEmpresaIntegrador()

ObjConfApl.AbvtApl = "GCP" 'm_strApl
	 ObjConfApl.Instancia = Motor.Contexto.Instancia
	 ObjConfApl.Utilizador = Motor.Contexto.UtilizadorActual
	 ObjConfApl.PwdUtilizador = Motor.Contexto.PasswordUtilizadorActual

'varios testes de ligação ###este já não é valido para a versão 9.15 apenas para a 8.10 e funciona na 8.10#############
	 'Plataforma.AbrePlataformaEmpresaIntegrador(Motor.Contexto.CodEmp, Nothing, ObjConfApl, Interop.StdBE900.EnumTipoPlataforma.tpProfissional)
'###############Algumas opções válidas que não estão a funcionar##################
		 'varios testes

     'Plataforma.AbrePlataformaEmpresa(Motor.Contexto.CodEmp, Nothing, ObjConfApl, Interop.StdBE900.EnumTipoPlataforma.tpProfissional, ObjConfApl.PwdUtilizador)
'varios testes

  Plataforma.AbrePlataformaPRIEMPRE(Nothing, ObjConfApl, Interop.StdBE900.EnumTipoPlataforma.tpProfissional, ObjConfApl.PwdUtilizador)
'varios testes

Return Plataforma
 Catch ex As Exception
	 Throw New Exception("InstanciaPlataforma:" & ex.Message)
 End Try
End Function
End Class
'#####################################################################################

Se colocar, na opção de Password se colocar “ObjConfApl.PwdUtilizador” ou qualquer outra password em string “xpto” dá erro de password da plataforma errada.

Se colocar “nothing” na password, dá erro de não ter licença nos motores, confirmei e tenho a licença técnica e a licença dos motores está ativa.

Se alguem conseguir ajudar, agradecia muito

Obrigado, Desde já

Se este não era o local correcto, a colocar a questão, porfavor indiquem me onde posso colocar. Obrigado

Edited by Miguel Alves Neto

Share this post


Link to post
Share on other sites
Helder Meneses

Boa tarde,

se servir de ajuda, também tive este problema, e bastou colocar a indicação da licença minima da aplicação:

objConfApl.LicVersaoMinima = "9.00"

e assim já funciona...

Share this post


Link to post
Share on other sites
sapuser

eu uso este codigo e funciona:

objConfApl = New Interop.StdPlatBS900.StdBSConfApl

objConfApl.AbvtApl = "GCP"

objConfApl.Instancia = "default"

objConfApl.Utilizador = "utilizador"

objConfApl.PwdUtilizador = "password"

objConfApl.LicVersaoMinima = "9.00"

objPlat = New Interop.StdPlatBS900.StdPlatBS

objPlat.AbrePlataformaEmpresa(bso.Contexto.CodEmp, Nothing, objConfApl, 1, "")

objPlat.Mapas.Inicializar("GCP")

espero ter ajudado

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.