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     = "https://www.empresaAcesso.com.br/logix/sup/cotacaoPreco.aph"

  CALL RFI_clearParameters()  
  CALL RFI_addParameter("item","A001X40")

  LET l_token = RFI_newToken(l_url)
  IF l_token <> " " THEN

	  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_urAccessTokenurlAccessToken CLIPPED)
	  END IF
  END IF
END FUNCTION