Histórico da Página

Permite que o cliente realize o controle orçamentário de forma própria no processo de integração do Reserve com o SIGAPCO.

#Include 'Protheus.ch'
User Function PCOXRESPRCWSRGProc()
Local aDados oDadosRQ  := ParamIxb[1] //Objeto contendo os dados do Request enviados pelo ReserveGET
Local cEvento oDadosRS  := ParamIxb[2] //Objeto contendo os dados do Response que serão enviados para o ReserveGET
Local aRet := Array(2)
// aDados: Dados do webservice no formato [Campo,Conteudo]
// Retorno
aRet[1] := .F.
aRet[2] := "Bloquear Lançamento!"
Return aRet

cErro           := ""

//A estrutura de dados esta contida no manual ReserveGet, fornecido pela empresa Reserve.

//------------------------------------------------------------------------------------------------------
// Exemplo de obtenção de dados fornecidos pelo ReserveGET
//-------------------------------------------------------------------------------------------------------
oDadosRQ:Acao                     //Tipo de processamento a ser executado
oDadosRQ:Pedido:IDPedido  //Identificação do pedido de viagem
oDadosRQ:Pedido:CCusto     //Centro de Custo da viagem

//---------------------------------------------------------------------------------------------------------
//Exemplo de dados que devem ser retornados para o ReserveGET
//----------------------------------------------------------------------------------------------------------
oDadosRS:PedidoRS:Acao           := If(!Empty(cErro),"Nenhuma","ConfirmarOperacao")
oDadosRS:PedidoRS:IDPedido     := oDadosRQ:Pedido:IDPedido
oDadosRS:PedidoRS:Valor0          := ""
oDadosRS:PedidoRS:Mensagem  := ""
oDadosRS:Erro:CodErro                := If(!Empty(cErro),"WSRGProc","")
oDadosRS:Erro:Mensagem           := cErro

Return

Português(Brasil)

Microsiga_Protheus12

Todos

Todas

PARAMIXB[1] //Array Variável do tipo objeto com os dados do webservice no formato [Campo,Conteúdo] recebidos do ReserveGET (Request).
PARAMIXB[2] //Variável do tipo caractere que indica o evento que está ocorrendo no Reserve (1-PedidoIniciouNotificacao;2-PedidoNotificado;3-PedidoIniciouAutorizacao;4-PedidoAutorizado;5-PedidoNegado;6-PedidoEmitido;7-PedidoCancelado;8-PedidoIniciouEmissao)

Array com 2 posições:
- Na primeira posição retornar uma variável do tipo lógica, indicando se o processo no Reserve deve ou não continuar.
- Na segunda posição retornar uma variável do tipo caractere com o motivo do bloqueio, caso o faça.

objeto para informar os dados que serão enviados para o ReserveGET (Response).

O retorno é efetuado ao preencher o objeto recebido no PARAMIXB[2], não necessitando retornar uma variável na instrução "Return".

WSResGET

PCOXRES.PRW