Perguntas Importação de dados via WebService

Boa Tarde Segue a Apostila que eu tenho:


Sim, eu já consigo criar o client no Assistente Código do TDS 11.3 mas os métodos ainda desconheço, você tem algum material ou link sobre como criá-los para me passar?

Resp: Está em anexo

Por exemplo, o que será necessário para que tudo funcione?
Resp: Precisa ter dois programas um Cliente e um Consumidor do WebService

Como e em que momento o arquivo será importado? o usuário vai ter que "apontar" o local do arquivo?
Resp: O arquivo Webservice vem para uma variavel via internet a partir do momento que vc declara ela no programa com esse comando. oWs := WSIntegrationWebService():New()

O processo haverá ou não interação do usuário?
Resp: Depende do que vc vai fazer já fiz dos dois jeitos.

O exemplo que você postou ele é tudo, não devo desenvolver mais nada?
Resp:Sim tem mais coisas mais vai para a minha necessidade, tem que começar por ele e ver o que vc for precisando vou te ajudando

Enfim, preciso entender o caminho das pedras para começar a desenvolver.

Me desculpe se estou fazendo perguntas desnecessárias mas são minhas dúvidas.

E mais uma vez muito obrigado pelo apoio!

Att.:
Sidelcino Souza


Leia a apostila e comece pelo programa que te passei e veja até onde consegue chegar.

Bom dia W. Sposito,

Excelente material, com certeza vai me salvar aqui!

Muito obrigado mesmo e surgindo dúvidas comentarei aqui no post.

Thanks!

Bom dia,

Estou tentando subir o serviço do web-service mas está dando um erro:

Vejam o log por favor:

Windows Operating System version 6.2.9200

[INFO ][SERVER] [Thread 8252] [SMARTHEAP] Version 8.0.0
*** TOTVS S.A. ***
*** www.totvs.com.br ***
* TOTVS - Build 7.00.131227A - May 10 2016 - 14:09:15 NG
* Build: 32 bits
* SVN Revision: 8595 - 10901 - 1288


'TOTVS_WSDL' console mode.
Press Ctrl+Break to terminate.

Build: 32 bits.
RPO Format: 32 bits

---

OS System Info

---

OS Version .........: Windows 8 [Version 6.2.9200]
OS Platform ........: Windows NT Based (x64)
OS Version Info ....:

---

---

OS Memory Info

---

Physical memory . 8154.36 MB. Used 4638.41 MB. Free 3515.95 MB.
Paging file ..... 8154.36 MB. Used 4890.54 MB. Free 3263.82 MB.

---

[INFO ][SERVER] [Thread 8252] APP Virtual Address Allocation Limit .... 4095.88 MB.

[INFO ][SERVER] [Thread 8252] Memory Monitor Virtual Address LIMIT .... 4095.88 MB.

Http server is ready.
Root path is c:\totvs\totvs 12\microsiga\protheus\web\ws\
Listening port 80 (default)

[INFO ][SERVER] Application PID ......... [4504]

[INFO ][SERVER] Application Main Thread .. [8252]

[INFO ][SERVER] [Thread 8252] Application Server started on port 8099

[10/11/2016 10:20:35] Server started.

Starting Job [JOB_WS_9901]

************************ (THIS,JOB_WS_9901) ************************
[WARNING] RPO incomplete compilation. Some programs will not work.
Environment ... WEBSERVICE
RPO ........... c:\totvs\totvs 12\microsiga\protheus\apo_wsdl\tttp120.rpo
Source List ... EXEMPLO.PRW RETDATE.PRW

*** Loading dbapi.dll

Loading Ctree Local [ctreestd.dll]
*** Loading dbapi.dll
*** Loading ace32.dll - Version: 8.00 (8.0.0.0)
WARNING: Servidor de licenþas nÒo estß respondendo.
*** Loading dbapi.dll

************************************************************
* A T E N Ã ├ O *
*O controle de numeraþÒo do License Server estß desligado !*
************************************************************

O que pode estar errado?

Antes eu havia conseguido subir o serviço e abrir no navegador através do caminho localhost:8099 mas agora não carrega mais, mesmo com o serviço rodando.

---

Segue meu .INI

[WEBSERVICE]
SourcePath=C:\TOTVS\TOTVS 12\Microsiga\Protheus\apo_wsdl
RootPath=C:\TOTVS\TOTVS 12\Microsiga\protheus_data
StartPath=\system\
x2_path=
RpoDb=top
RpoLanguage=Portuguese
RpoVersion=120
LocalFiles=ads
Trace=0
localdbextension=.dbf
TopMemoMega=1
PictFormat=DEFAULT
DateFormat=DEFAULT
RegionalLanguage=BRA
TOPSERVER=NOTEDELL
TOPDATABASE=MSSQL
TOPALIAS=P12_ESTUDOS

[Drivers]
Active=TCP

[TCP]
TYPE=TCPIP
PORT=8099

[HTTP]
ENABLE=1
PATH=C:\TOTVS\TOTVS 12\Microsiga\Protheus\web\WS
Environment=WEBSERVICE
INSTANCENAME=WS
RESPONSEJOB=JOB_WS_9901
DEFAULTPAGE=wsindex.apw

[General]
InstallPath=C:\TOTVS\TOTVS 12\Microsiga\Protheus
Logmessages=1

[licenseclient]
server=LOCALHOST
port=5555

[ONSTART]
RefreshRate=180
jobs=JOB_WS_9901

[JOB_WS_9901]
TYPE=WEBEX
ENVIRONMENT=WEBSERVICE
INSTANCES=1,20
SIGAWEB=WS
INSTANCENAME=WS
ONSTART=__WSSTART
ONCONNECT=__WSCONNECT
PREPAREIN=99,01

[SERVICE]
Name=TOTVS_WSDL
DisplayName=TOTVS_WSDL

[MAIL]
Protocol=POP3

---

E os fontes que criei:

#include "protheus.ch"
#include "parmtype.ch"
#INCLUDE "APWEBSRV.CH"
#INCLUDE "TBICONN.CH"
#INCLUDE "TBICODE.CH"
#INCLUDE "XMLXFUN.CH"
#INCLUDE "WEBEXDEF.CH"

user function EXEMP01()

Local cHTML:=""

//PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" USER "Admin"

Web Extended Init cHTML

cHTML:= l_EXEMP01() // ou h_ex001()

Web EXTENDED End

//RESET ENVIRONMENT

return cHTML

---

user function EXEMP01()

Local cHTML:=""

//PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" USER "Admin"

Web Extended Init cHTML

cHTML:= l_EXEMP01() // ou h_ex001()

Web EXTENDED End

//RESET ENVIRONMENT

return cHTML


Os arquivos que criei, eu salvei no seguinte caminho:
C:\TOTVS\TOTVS 12\Microsiga\Protheus\web\WS

Sendo eles: EXEMP01.APH e U_EXEMP01.PRW (Este PRW eu compilei no RPO e depois salvei ele com essa extensão.

Todas as dicas serão muito bem vindas e desde já agradeço a colaboração.

Att.:
Sidelcino

Olá,

Consegui subir o webserver mas quando executo a função no smartclient surge a seguinte mensagem:
ERR0027: TOTVS SmartClient conectou com TOTVS Application Server mas houve erro no inicio de validação de conexão.
Server = NOTEDELL
Port = 80

O que pode ser?

Grato.

Sidelcino Souza escreveu: Bom dia,

Estou tentando subir o serviço do web-service mas está dando um erro:

Vejam o log por favor:

Windows Operating System version 6.2.9200

[INFO ][SERVER] [Thread 8252] [SMARTHEAP] Version 8.0.0
*** TOTVS S.A. ***
*** www.totvs.com.br ***
* TOTVS - Build 7.00.131227A - May 10 2016 - 14:09:15 NG
* Build: 32 bits
* SVN Revision: 8595 - 10901 - 1288


'TOTVS_WSDL' console mode.
Press Ctrl+Break to terminate.

Build: 32 bits.
RPO Format: 32 bits

---

OS System Info

---

OS Version .........: Windows 8 [Version 6.2.9200]
OS Platform ........: Windows NT Based (x64)
OS Version Info ....:

---

---

OS Memory Info

---

Physical memory . 8154.36 MB. Used 4638.41 MB. Free 3515.95 MB.
Paging file ..... 8154.36 MB. Used 4890.54 MB. Free 3263.82 MB.

---

[INFO ][SERVER] [Thread 8252] APP Virtual Address Allocation Limit .... 4095.88 MB.

[INFO ][SERVER] [Thread 8252] Memory Monitor Virtual Address LIMIT .... 4095.88 MB.

Http server is ready.
Root path is c:\totvs\totvs 12\microsiga\protheus\web\ws\
Listening port 80 (default)

[INFO ][SERVER] Application PID ......... [4504]

[INFO ][SERVER] Application Main Thread .. [8252]

[INFO ][SERVER] [Thread 8252] Application Server started on port 8099

[10/11/2016 10:20:35] Server started.

Starting Job [JOB_WS_9901]

************************ (THIS,JOB_WS_9901) ************************
[WARNING] RPO incomplete compilation. Some programs will not work.
Environment ... WEBSERVICE
RPO ........... c:\totvs\totvs 12\microsiga\protheus\apo_wsdl\tttp120.rpo
Source List ... EXEMPLO.PRW RETDATE.PRW

*** Loading dbapi.dll

Loading Ctree Local [ctreestd.dll]
*** Loading dbapi.dll
*** Loading ace32.dll - Version: 8.00 (8.0.0.0)
WARNING: Servidor de licenþas nÒo estß respondendo.
*** Loading dbapi.dll

************************************************************
* A T E N Ã ├ O *
*O controle de numeraþÒo do License Server estß desligado !*
************************************************************

O que pode estar errado?

Antes eu havia conseguido subir o serviço e abrir no navegador através do caminho localhost:8099 mas agora não carrega mais, mesmo com o serviço rodando.

---

Segue meu .INI

[WEBSERVICE]
SourcePath=C:\TOTVS\TOTVS 12\Microsiga\Protheus\apo_wsdl
RootPath=C:\TOTVS\TOTVS 12\Microsiga\protheus_data
StartPath=\system\
x2_path=
RpoDb=top
RpoLanguage=Portuguese
RpoVersion=120
LocalFiles=ads
Trace=0
localdbextension=.dbf
TopMemoMega=1
PictFormat=DEFAULT
DateFormat=DEFAULT
RegionalLanguage=BRA
TOPSERVER=NOTEDELL
TOPDATABASE=MSSQL
TOPALIAS=P12_ESTUDOS

[Drivers]
Active=TCP

[TCP]
TYPE=TCPIP
PORT=8099

[HTTP]
ENABLE=1
PATH=C:\TOTVS\TOTVS 12\Microsiga\Protheus\web\WS
Environment=WEBSERVICE
INSTANCENAME=WS
RESPONSEJOB=JOB_WS_9901
DEFAULTPAGE=wsindex.apw

[General]
InstallPath=C:\TOTVS\TOTVS 12\Microsiga\Protheus
Logmessages=1

[licenseclient]
server=LOCALHOST
port=5555

[ONSTART]
RefreshRate=180
jobs=JOB_WS_9901

[JOB_WS_9901]
TYPE=WEBEX
ENVIRONMENT=WEBSERVICE
INSTANCES=1,20
SIGAWEB=WS
INSTANCENAME=WS
ONSTART=__WSSTART
ONCONNECT=__WSCONNECT
PREPAREIN=99,01

[SERVICE]
Name=TOTVS_WSDL
DisplayName=TOTVS_WSDL

[MAIL]
Protocol=POP3

---

E os fontes que criei:

#include "protheus.ch"
#include "parmtype.ch"
#INCLUDE "APWEBSRV.CH"
#INCLUDE "TBICONN.CH"
#INCLUDE "TBICODE.CH"
#INCLUDE "XMLXFUN.CH"
#INCLUDE "WEBEXDEF.CH"

user function EXEMP01()

Local cHTML:=""

//PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" USER "Admin"

Web Extended Init cHTML

cHTML:= l_EXEMP01() // ou h_ex001()

Web EXTENDED End

//RESET ENVIRONMENT

return cHTML

---

user function EXEMP01()

Local cHTML:=""

//PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" USER "Admin"

Web Extended Init cHTML

cHTML:= l_EXEMP01() // ou h_ex001()

Web EXTENDED End

//RESET ENVIRONMENT

return cHTML


Os arquivos que criei, eu salvei no seguinte caminho:
C:\TOTVS\TOTVS 12\Microsiga\Protheus\web\WS

Sendo eles: EXEMP01.APH e U_EXEMP01.PRW (Este PRW eu compilei no RPO e depois salvei ele com essa extensão.

Todas as dicas serão muito bem vindas e desde já agradeço a colaboração.

Att.:
Sidelcino

Bom dia!

Se você quer consumir um webservice que vem de fora, não entendi porque você está configurando o webservice do protheus, isso é pra quando Você vai ser o server.

Esses erros que você postou não conheço.

Bom dia Sposito,

O meu server será interno, servidor local. O cliente que fará a solicitação poderá estar interno ou externo (outra rede). Essa é a ideia.

No ultimo post citei apenas os testes que estou fazendo aqui para compreender como funciona o esquema todo para depois partir para a aplicação em si que é a importação de dados via webservice.

Estou no caminho certo?

Grato.