PEGETNEWS - Substitui definição no MV_PORTAL3

Este ponto de entrada substitui o conteúdo do html ou arquivo txt informado no parâmetro "MV_PORTAL3". Neste parâmetro é possivel informar, a partir do Root Path do Protheus, a localização do arquivo com as noticias diárias dos portais do sistema. Obs: O ponto de entrada substitui o conteúdo do html ou arquivo txt e não o conteúdo do parâmetro. Caso haja necessidade de informar um arquivo externo como informado no parâmetro, será necessario utilizar as funções de manipulação de arquivos do Protheus, exemplo (FOPEN, FCLOSE, FREAD), maiores informações em TDN > Central do desenvolvedor > A Linguagem AdvPL > Guia de referência das funções AdvPL > Manipulação de arquivos, discos e I/O.

PEGETNEWS.PRW

PEGETNEWS - Substitui definição no MV_PORTAL3 ( ) --> aHtml

aHtml()
• O ponto de entrada deve retornar um array que substituirá o conteúdo do html ou arquivo txt informado no parâmetro "MV_PORTAL3".

#INCLUDE "PROTHEUS.CH"User Function PEGETNEWS()     Local cTipoPor  := ParamIxb[1] // indica o tipo de Portal (1 - Cliente, 2 - Fornecedor, 3 - Vendedor, 4 - Tecnico) Local cCodeUser := ParamIxb[2] // codigo do usuario logado no portal GetUsrCode() Local aHtmlDo Case     Case cTipoPor == 1           cPortal := "Portal do Cliente"     Case cTipoPor == 2           cPortal := "Portal do Fornecedor"     Case cTipoPor == 3           cPortal := "Portal do Vendedor"      Case cTipoPor == 4           cPortal := "Portal do Tecnico"EndCase// conout("Usuario atual")// conout(cCodeUser)If cCodeUser == "000001"     aHtml := {{"titulo 000001.1", cPortal + " conteudo para 000001.1"},;     {"titulo 000001.2", cPortal + " conteudo para 000001.2"}}ElseIf cCodeUser == "000002"     aHtml := {{"titulo 000002", cPortal + " conteudo para 000002"}}EndIfreturn aHtml