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.

User Function WSRGProc()
Local oDadosRQ oDadosRQ  := ParamIxb[1] //Objeto contendo os dados do Request enviados pelo ReserveGET
Local oDadosRS oDadosRS  := ParamIxb[2]   //Objeto contendo os dados do Response que serão enviados para o ReserveGET
Local cErro cErro           := ""

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

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

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

Return

Português(Brasil)

Microsiga_Protheus12

Todos

Todas

PARAMIXB[1] //Variável do tipo objeto com os dados recebidos do ReserveGET (Request).
PARAMIXB[2] //Variável do tipo 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.PRW