depois de abrir empresa

Private Sub Empresa_DepoisDeAbrirEmpresa()

    On Error GoTo errHandler

    Dim strErros As String
    Set Base.ObjUserInterfaceApp = New DEV_1_0_UserInterface.UserInterfaceApplication

    If Base.ObjUserInterfaceApp.Empresa_DepoisDeAbrirEmpresa(BSO, strErros) = False Then
        Base.AppOk = False
        PlataformaPRIMAVERA.MDI.Notificacoes.MostraAlerta "Atenção: Ocorreu um erro ao validar a Extensibilidade", strErros, False
    Else
        PlataformaPRIMAVERA.MDI.Notificacoes.MostraSucesso "Sucesso:", "Validação da extensibilidade concluida sem erros", False
        Base.AppOk = True
    End If

    Exit Sub
errHandler:
    Base.AppOk = False
    PlataformaPRIMAVERA.MDI.Notificacoes.MostraAlerta "Atenção: Ocorreu um erro ao validar a Extensibilidade", strErros, False

End Sub