PEGETPRES - Substitui definição no MV_PORTAL1

Este ponto de entrada substitui o conteúdo do html ou arquivo txt informado no parâmetro "MV_PORTAL1". Neste parâmetro é possivel informar, a partir do RootPath do Protheus, a localizacäo do arquivo com o texto institucional da Empresa para os portais. 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.

PEGETPRES.PRW

PEGETPRES - Substitui definição no MV_PORTAL1 ( ) --> cHtml

cHtml()
• O ponto de entrada deve retornar uma string que substituirá o conteúdo do html ou arquivo txt informado no parâmetro "MV_PORTAL1".

User Function PEGETPRES() 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() Do 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"EndCasecHtml := "Você esta no "cHtml += cPortal cHtml += "<br>"// conout("Usuario atual")// conout(cCodeUser)If cCodeUser == "000006"        cHtml += "<br><b>Mensagem exclusiva para 000006<b>"ElseIf cCodeUser == "000073"        cHtml += "<br><b>Mensagem exclusiva para 000073<b>"EndIfreturn cHtml