Histórico da Página

#---------------------------------------#
 FUNCTION RFI_getURLAccessByToken_test()
#---------------------------------------#
  DEFINE l_token          CHAR(36)
  DEFINE l_url            CHAR(250)
  DEFINE l_urlAccessToken CHAR(300)

  LET l_url     = "/supecotacao/cotacaoPreco.aph"

  #Definir lista de parâmetros para o próximo link de acesso RFI a ser gerado
  CALL RFI_clearParameters()  
  CALL RFI_addParameter("item","A001X40")

  #Criando novo Token de acesso para o a URL
  LET l_token = RFI_newToken(l_url)
  IF l_token <> " " THEN

      #Recuperando o link completo com token de acesso (URL Base + Recurso + token)
	  LET l_urlAccessToken = RFI_getURLAccessByToken(l_token)
	  IF l_urlAccessToken IS NULL THEN
	     CALL conout("RFI - Falha ao gerar link de acesso. Motivo: "||RFI_getErrorMessage())
	  ELSE
	     CALL conout("RFI - Link de acesso gerado: "||l_urlAccessToken CLIPPED)
	  END IF
  END IF
END FUNCTION