× Linguagem de Programação ADVPL

Perguntas It wasn´t possible to obtain exclusive access to the objects repository

Mais
11 anos 6 meses atrás - 11 anos 6 meses atrás #13279 por gvasselai
Olá pessoal!

Estou aprendendo a desenvolver em AdvPL, desta forma acredito que minha pergunta será bem básica!

Fiz um programa HelloWorld no Totvs Developer Studio que vem junto com a instalação do sistema e ao tentar compila-lo estou recebendo a mensagem "It wasn´t possible to obtain exclusive access to the objects repository".

O programa é este:
#include "Rwmake.ch"
#include "Protheus.ch"
#include "Totvs.ch"

User Function Exemplo1

For nI := 1 to 10
MsgAlert("Exemplo de Programa")
Next

Return

Estou usando o ambiente "dev" que foi criado durante a instalação, um print da configuração está neste link: snag.gy/ccUsg.jpg .

No arquivo appserver.ini a configuração deste ambiente está da seguinte forma:
[dev]
SourcePath=C:\TOTVS11\Microsiga\Protheus\apo\PROTHEUS11_DEV
RootPath=C:\TOTVS11\Microsiga\Protheus_Data\PROTHEUS11_DEV
StartPath=\system\
x2_path=
RpoDb=Top
RpoLanguage=portuguese
RpoVersion=110
LocalFiles=ads
Trace=0
localdbextension=.dbf
PictFormat=DEFAULT
DateFormat=DEFAULT
RegionalLanguage=BRA
TopDataBase=MSSQL
TopServer=localhost
TopALIAS=PROTHEUS11_DEV
PROTHEUSONLY=0

O que será que estou fazendo de errado? Será que é alguma coisa com meu ambiente?
Ultima edição: 11 anos 6 meses atrás por gvasselai.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 6 meses atrás #13280 por kanaamlrr
Cara, essa mensagem significa que tem alguém utilizando o ambiente enquanto você está tentando compilar.
O sistema deve estar totalmente fechado para fazer a compilação, incluindo o monitor.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 6 meses atrás #13282 por gvasselai
Iniciei o DbAccess e o AppServer com a opção -console e percebi que ele não estava encontrando o arquivo "ttdp110.rpo" e portanto ele estava sendo criado vazio.

Na pasta onde o arquivo estava sendo criado existia um arquivo chamado "tttp110.rpo" que veio junto com a instalação e nunca foi mexido. Renomeei ele pra "ttdp110.rpo" e o sistema passou a inicializar sem erros e a compilação funcionou ;) .

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 6 meses atrás #13283 por kanaamlrr
Gabriela,
O ideal seria baixar a versão correta no portal da TOTVS, pois o tttp110.rpo é o repositório utilizado para conexões de top connect e o ttdp110.rpo para codebase (dbf).

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 6 meses atrás #13284 por LucasCosta
o melhor mesmo a fazer e você trocar o RPO, troca o RPO pelo um novo atualizado do site da totvs e tenta copilar de novo meu amigo. ;)

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 6 meses atrás - 11 anos 6 meses atrás #13414 por gvasselai
Precisei fazer uma nova instalação pois nosso servidor anterior corrompeu o HD :( Baixei o instalador novo no site da TOTVS, acho que o RPO é o mais atualizado porém parei no mesmo problema. Fiz alguns testes mas não consegui resolver desta vez. Provavelmente é um problema bem básico que estou deixando passar :(

A configuração do appserver.ini está da seguinte forma:
[dev]
SourcePath=C:\TOTVS11\Microsiga\Protheus\apo\PROTHEUS_DEV
RootPath=C:\TOTVS11\Microsiga\Protheus_Data\PROTHEUS_DEV
StartPath=\system\
x2_path=
RpoDb=Top
RpoLanguage=portuguese
RpoVersion=110
LocalFiles=ads
Trace=1
localdbextension=.dbf
PictFormat=DEFAULT
DateFormat=DEFAULT
RegionalLanguage=BRA
TopDataBase=MSSQL
TopServer=localhost
TopALIAS=PROTHEUS_DEV
PROTHEUSONLY=0

[tst]
SourcePath=C:\TOTVS11\Microsiga\Protheus\apo\PROTHEUS_TST
RootPath=C:\TOTVS11\Microsiga\Protheus_Data\PROTHEUS_TST
StartPath=\system\
x2_path=
RpoDb=Top
RpoLanguage=portuguese
RpoVersion=110
LocalFiles=ads
Trace=1
localdbextension=.dbf
PictFormat=DEFAULT
DateFormat=DEFAULT
RegionalLanguage=BRA
TopDataBase=MSSQL
TopServer=localhost
TopALIAS=PROTHEUS_TST

[Drivers]
Active=TCP

[Service]
Name=TOTVSProtheus
DisplayName=TOTVS Protheus

[TCP]
TYPE=TCPIP
Port=1234

[General]
InstallPath=C:\TOTVS11\Microsiga\Protheus

[LICENSESERVER]
enable=0
port=5555
ShowStatus=1

[LICENSECLIENT]
server=PROTEUS
port=5555

[HTTP]
Enable=1
Port=8010
Path=C:\TOTVS11\Microsiga\Protheus_Data\PROTHEUS_DEV\web\ws
Environment=dev
UploadPath=\Protheus_Data\PROTHEUS_DEV\web\ws

[localhost:8010/ws]
Enable=1
Path=C:\TOTVS11\Microsiga\Protheus_Data\PROTHEUS_DEV\web\ws
InstanceName=WS
Environment=dev
ResponseJob=JOB_WS_9901
DefaultPage=wsindex.apw

[JOB_WS_9901]
Type=WEBEX
Environment=dev
Instances=0,20
SigaWeb=WS
InstanceName=WS
ONSTART=__WSSTART
ONCONNECT=__WSCONNECT
PREPAREIN=99,01

[FWSCHDMANAG]
Main=FWSCHDMANAG
Environment=dev

[FWSCHDQUEUE]
Main=FWSCHDQUEUE
Environment=dev

[ONSTART]
JOBS=JOB_WS_9901,FWSCHDMANAG,FWSCHDQUEUE

Quando eu compilo um programa simples que só emite um alerta, eu consigo compila-lo no ambiente TST porém não no ambiente DEV. Se eu comentar a linha JOBS do [ONSTART] eu até consigo compilar o programa no DEV, porém quando tento compilar nele um WebService, o sistema acusa um erro diferente. Provavelmente pois o job do web service não está rodando.

Programa simples:
#include "protheus.ch"

User Function teste01() 
  Local cMsg := "Hello World"
  MsgInfo(cMsg)
Return

Programa com WebService:
#include "apwebsrv.ch"
#include "tbiconn.ch"
#include "tbicode.ch"
#include "protheus.ch"
#include "totvs.ch"
          
// Estrutura para o Cabeçalho da NFe
WsStruct StrCabecalhoNFe
	WsData Numero as String
EndWsStruct                

// Estrutura para o Item da NFe
WsStruct StrItemNFe
	WsData CodPro as String
EndWsStruct

// Estrutura para os Itens da NFe
WsStruct StrItensNFe
	WsData ItemNFe As Array Of StrItemNFe
EndWsStruct

WsService SupplyWS       
	WsData CabecalhoNFe As StrCabecalhoNFe
	WsData ItensNFe As StrItensNFe
	WsData MsgRet as String
	WsMethod IncluiPreNotaNFe Description "Inclusão de uma pré-nota de uma NFe no Módulo Compras (SIGACOM)"
EndWsService

WsMethod IncluiPreNotaNFe WsReceive CabecalhoNFe, ItensNFe WsSend MsgRet WsService SupplyWS
	::MsgRet := "OK"
Return .T.

Quando tento compilar o programa web service no DEV:
Iniciando compilação...

Erro de compilação: 
It wasn´t possible to obtain exclusive access to the objects repository


Compilação finalizada - 2 arquivo(s) - 0 mensagem(s)

Tempo de duração da compilação: 14 segundos

Quando tento compilar o WebService no TST:
Iniciando compilação...

Por favor, aguarde. Montando lista de arquivos para a compilação....
Compilando arquivos para a configuração TST2...
--------------------------------------------------------------------------

Compilando arquivos...
   c:\totvs11\microsiga\protheus\custom\supplyws.prw...
   c:\totvs11\microsiga\protheus\custom\teste01.prw...
Compilação finalizada - 2 arquivo(s) - 0 mensagem(s)

Tempo de duração da compilação: 10 segundos

No DBMonitor eu vejo um client do JOB rodando, mas se eu parar ele não vou conseguir compilar o web service, não é? Está um pouco confuso para eu entender isso...
Ultima edição: 11 anos 6 meses atrás por gvasselai.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.128 segundos
Joomla templates by a4joomla