A partir deste post, você vera como testar uma aplicação básica
Montagem da classe do Webservice
Este Webservice terá a finalidade retornar os dados do cliente no Protheus, a aplicação .NET ira enviar uma solicitação que poderia ser no formato de um XML ou por passagem simples por parâmetros.
Para não complicar muito, o primeiro exemplo de passagem de parâmetros é mais indicado.
O resultado final é o retorno do Nome do cliente, endereço, bairro, cidade, uf e CEP.
A passagem de parâmetros será o código do cliente e a loja.
No exemplo abaixo, não fiz nenhum tipo de validação e não estou preocupado com isso neste momento, fica a cargo de meus leitores corrigir o programa.
Em meus projetos consulto usuários, bloqueio senhas, envio estruturas complexas de XML, etc.
No exemplo abaixo, não fiz nenhum tipo de validação e não estou preocupado com isso neste momento, fica a cargo de meus leitores corrigir o programa.
Em meus projetos consulto usuários, bloqueio senhas, envio estruturas complexas de XML, etc.
Então, mão na massa.
Primeiro, crie um arquivo no seu projeto, no meu caso criei com o nome MeuPrimeiroWebService.PRW
#INCLUDE 'PROTHEUS.CH'
#INCLUDE "XMLXFUN.CH"
#INCLUDE "APWEBSRV.CH"
#include "topconn.ch"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
#INCLUDE "ERROR.CH"
//
Estrutura de dados. Montagem do Array de retorno
// Não
necessariamente retorna-se em um Array, pode ser possível retornar em uma
string simples,
// neste
caso não utilizaria uma Estrutura
WSSTRUCT AWSRTDados
WSDATA ClienteNome AS String
WSDATA ClienteEndereco AS String
WSDATA ClienteBairro AS String
WSDATA ClienteCidade AS String
WSDATA ClienteUF AS String
WSDATA ClienteCEP As String
ENDWSSTRUCT
// WebService
WSSERVICE MeuPrimeiroWebService DESCRIPTION "Descrição do meu primeiro
WebService"
// Passagem dos parâmetros de entrada
WSDATA ClienteCodigo AS string
WSDATA ClienteLoja AS string
// Retorno de um array que deve retornar a COLUNA 1, COLUNA 2
WSDATA aRetornoCliente AS ARRAY OF AWSRTDados
// Descrição dos métodos que o WEBSERVICE pode possuir
/*WSMETHOD ExcluiOrdem
DESCRIPTION "Efetua a exclusão de uma ordem de faturamento"
WSMETHOD DeletaNfSaida DESCRIPTION "Consulta ou exclui uma
nota fiscal de vendas"
WSMETHOD DeletaNfEntrada DESCRIPTION
"Consulta ou exclui uma nota fiscal de compras"
WSMETHOD AtualizaProduto DESCRIPTION
"Inclui / Altera um produto no Microsiga SB1"
WSMETHOD MeuXML DESCRIPTION "Meu XML"
WSMETHOD SenhaProtheus DESCRIPTION "Teste se a senha esta
Ok"*/
WSMETHOD ConsultarCliente DESCRIPTION "Retorna os dados do cliente"
ENDWSSERVICE
/************************************************************************************
**
Consulta os dados do cliente
**
Abaixo, separei o que se refere do webservice da aplicação que realmente ira
**
processar os dados. Lembrando que não é obrigatório
************************************************************************************/
WSMETHOD ConsultarCliente WSRECEIVE ClienteCodigo, ClienteLoja WSSEND aRetornoCliente WSSERVICE MeuPrimeiroWebService
Local aRetFuncao := {}
aRetFuncao := u_xxRtCliente(::ClienteCodigo,::ClienteLoja) // Passagem de parâmetros para
rotina
aAdd(::aRetornoCliente, WSClassNew("AWSRTDados") )
::aRetornoCliente[01]:ClienteNome := aRetFuncao[1][1]
::aRetornoCliente[01]:ClienteEndereco:= aRetFuncao[2][1]
::aRetornoCliente[01]:ClienteBairro := aRetFuncao[3][1]
::aRetornoCliente[01]:ClienteCidade := aRetFuncao[4][1]
::aRetornoCliente[01]:ClienteUF := aRetFuncao[5][1]
::aRetornoCliente[01]:ClienteCEP := aRetFuncao[6][1]
Return .T.
/*************************************************************
**
Retorna os dados do cliente
**************************************************************/
User Function xxRtCliente(pClienteCodigo, pClienteLoja)
Local aRetornoDados := {}
Local aTables := { "SA1","SM0" }
Conout(dtoc( Date() )+" "+Time()+ " == Abrindo ambiente TOP CONNECT
=======")
RPCSetType( 3 )
RpcSetEnv ( "01", "01", Nil, Nil, "FAT", Nil, aTables )
SA1->(DbSetOrder(1))
SA1->(DbGoTop())
If SA1->(DbSeek(xFilial("SA1") + pClienteCodigo+ pClienteLoja))
aAdd(aRetornoDados ,{SA1->A1_NOME })
// 1
aAdd(aRetornoDados ,{SA1->A1_END }) // 2
aAdd(aRetornoDados ,{SA1->A1_BAIRRO })
// 3
aAdd(aRetornoDados ,{SA1->A1_MUN }) // 4
aAdd(aRetornoDados ,{SA1->A1_EST }) // 5
aAdd(aRetornoDados ,{SA1->A1_CEP })
// 6
Else
aAdd(aRetornoDados ,{Nil}) // 1
aAdd(aRetornoDados ,{Nil}) // 2
aAdd(aRetornoDados ,{Nil}) // 3
aAdd(aRetornoDados ,{Nil}) // 4
aAdd(aRetornoDados ,{Nil}) // 5
aAdd(aRetornoDados ,{Nil}) // 6
Endif
Return aRetornoDados
Feito isto, vamos verificar se não existe nenhum erro na compilação pesquisando pelo o endereço ja configurado. A configuração expliquei na Parte 1
http://192.168.15.86:889/ws/WSINDEX.apw
Ao clicar no link, aparece a configuração que deve ser utizada no Visual Studio ou qualquer outra aplicação
Vamos agora no Visual Studio...
Em adicionar referência, colar o link MEUPRIMEIROWEBSERVICE.apw?WSDL conforme figura abaixo :
No visual Studio vamos montar uma telinha
No visual Studio vamos montar uma telinha
Agora, vamos montar um código simples, quero deixar claro que não sou especialista em c#, sou um mero fuçador.
private void button1_Click(object sender, EventArgs e)
{
//
Instanciamos a nossa referência com o WebService do Protheus
ClientWSProtheus.MEUPRIMEIROWEBSERVICESOAPClient aleksandro = new ClientWSProtheus.MEUPRIMEIROWEBSERVICESOAPClient();
//
Montamos uma ILIST, poderia ser uma string qualquer, existem diversas formas de
fazer
IList<AWSRTDADOS> aRetorno;
// Chamo
o método e retorno em um array
aRetorno =
aleksandro.CONSULTARCLIENTE(ParamCodigo.Text, ParamLoja.Text);
// Jogo
nos campos os dados da empresa
textBox3.Text =
aRetorno[0].CLIENTENOME.ToString();
textBox4.Text =
aRetorno[0].CLIENTEENDERECO.ToString();
textBox5.Text = aRetorno[0].CLIENTEBAIRRO.ToString();
textBox6.Text =
aRetorno[0].CLIENTECIDADE.ToString();
textBox7.Text =
aRetorno[0].CLIENTECEP.ToString();
textBox8.Text =
aRetorno[0].CLIENTEUF.ToString();
}
Executando o programa, vejamos o que o Protheus ira retornar
Pronto, a consulta foi feita unicamente pelo WEBSERVICE sem se conectar diretamente na base de dados.
Da mesma forma que podemos fazer uma consulta, também é possível fazer um programa EXECAUTO, ou rodar rotinas padrão do Protheus.
Esta foi uma forma de fazer, mas existem diversas maneiras. Queria somente ilustrar uma delas.
