Histórico da Página

FUNCTION RFI_newToken_test()
  DEFINE l_token          CHAR(36)
  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_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 com BASE URL fixada no link de geração do Token: "||l_urAccessToken CLIPPED)
      END IF
  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.rfi.baseURL" no momento da recuperacao da URL.
  LET l_url     = "/ecotacao/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 com BASE URL setado no profile: "||l_urAccessToken CLIPPED)
      END IF
  END IF

END FUNCTION