User Function WSRGProc() Local oDadosRQ := ParamIxb[1] //Objeto contendo os dados do Request enviados pelo ReserveGET Local oDadosRS := ParamIxb[2] //Objeto contendo os dados do Response que serão enviados para o ReserveGET Local 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 |