PortalTitulo.apl 1.7 KB

1234567891011121314151617181920212223242526272829303132333435363738
  1. #include "PROTHEUS.CH"
  2. #include "RWMAKE.CH"
  3. #include "RWMAKE.CH"
  4. #include "APWEBEX.CH"
  5. #INCLUDE "TOPCONN.CH"
  6. /*
  7. +----------------------------------------------------------------------------+
  8. ! FICHA TECNICA DO PROGRAMA !
  9. +----------------------------------------------------------------------------+
  10. ! DADOS DO PROGRAMA !
  11. +------------------+---------------------------------------------------------+
  12. !Tipo ! Atualização !
  13. +------------------+---------------------------------------------------------+
  14. !Modulo ! WEB !
  15. +------------------+---------------------------------------------------------+
  16. !Nome ! Portal !
  17. +------------------+---------------------------------------------------------+
  18. !Descricao ! Portal Web para Aprovação de Workflow !
  19. +------------------+---------------------------------------------------------+
  20. !Autor ! Anderson José Zelenski !
  21. +------------------+---------------------------------------------------------+
  22. !Data de Criacao ! 08/12/2010 !
  23. /****************************************************************************
  24. Fun��o chamada diretamente pelo browser
  25. ****************************************************************************/
  26. User Function PortalTitulo()
  27. Local cHtml
  28. Private cFulano := HttpSession->NomeFull
  29. Web Extended Init cHtml // Start U_inSite()
  30. cHtml := H_PortalTitulo()
  31. Web Extended end
  32. return (cHTML)