Histórico da Página

FUNCTION RFI_newURLAccessToken_test()
  DEFINE l_url            CHAR(250)
  DEFINE l_urlAccessToken CHAR(300)

  #Caminho completo para acessar o recurso em portal WEB
  #Neste caso a BASE URL está incluida e ficará fixa na base de dados.
  LET l_url     = "https://www.empresaAcesso.com.br/logix/ecotacao/cotacaoPreco.aph"
  
  CALL RFI_clearParameters()
  CALL RFI_addParameter("item","A001X40")
  
  LET l_urlAccessToken = RFI_newURLAccessToken(l_url)
  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 com BASE URL fixada no link de geração do Token: "||l_urAccessToken CLIPPED)
  END IF
 

  #Caminho relativo para acessar o recurso em portal WEB
  #Neste caso a BASE URL não é armazenada na base e irá ser acrescida automaticamente pela URL BASE configurada na chave de profile "logix/sup.rfi.baseURL" no momento da recuperacao da URL.
  LET l_url     = "/ecotacao/cotacaoPreco.aph"
  
  CALL RFI_clearParameters()
  CALL RFI_addParameter("item","A001X40")
  
  LET l_urlAccessToken = RFI_newURLAccessToken(l_url)

  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 com BASE URL setado no profile: "||l_urAccessToken CLIPPED)
  END IF


  ##Neste caso deseja fixar um base URL diferente do que pode estar setado no arquivo de profile do appserver
  CALL RFI_setBaseURL("https://www.empresaAcesso.com.br/logix")

  #Caminho relativo para acessar o recurso em portal WEB
  #Neste caso a BASE URL não é armazenada na base e irá ser acrescida automaticamente pela URL BASE configurada na chave de profile "logix.rfi.baseURL" no momento da recuperacao da URL.
  LET l_url     = "/ecotacao/cotacaoPreco.aph"
  
  CALL RFI_clearParameters()
  CALL RFI_addParameter("item","A001X40")
  
  LET l_urlAccessToken = RFI_newURLAccessToken(l_url)

  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 com BASE URL fixada no programa: "||l_urAccessToken CLIPPED)
  END IF
END FUNCTION