IsSrvUnix

IsSrvUnix ( ) --> lRet

lRet(logico)
• Retorna verdadeiro (.T.), se o Application Server estiver sendo executado em ambiente Unix® ou Linux®; caso contrário, retornará falso (.F.), se estiver sendo executado em ambiente Microsoft Windows®.

// Exemplo 1IsSrvUnix() // Resultado: .F./////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// Exemplo 2//Através do exemplo abaixo, podemos obter o path de execução do Remote.#include "totvs.ch"Function TstRmtPath()Local cIniName:= GetRemoteIniName() Local lUnix:= IsSrvUnix()Local nPos:= Rat( IIf(lUnix,"/","\"),cIniName )Local cPathRmt                                if nPos!=0	cPathRmt:= Substr( cIniName,1,nPos-1 )else	cPathRmt:=""endifQOut( cPathRmt )Return