PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
Função Pastas Protheus Servidor
Versão:
11.8
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário ZERO ZERO em 11/11/2017, 13:00 h
Local: RJ  Registro: 09/02/2015  Postagens: 235
Galera, uma questão relativamente simples creio eu (eu até acho q já usei mas não lembro) e não to achando..

Se não me engano existem umas funções advpl que retornam o caminho da pasta system e outras do Protheus, não é?

Eu achei algumas interessantes mas não a que preciso (quero gravar um arquivo de log dentro de alguma pasta do protheus - onde ninguém tem acesso rss)
http://tdn.totvs.com/display/tec/GetComputerName

Alguem conhece função p isso?

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário ZERO ZERO em 11/11/2017, 13:37 h
Local: RJ  Registro: 09/02/2015  Postagens: 235
Só para complementar, a rotina será executada pelo usuário na máquina dele, normalmente via smartclient mas salvarei um log no servidor, no rootpath

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário ZERO ZERO em 11/11/2017, 14:47 h
Local: RJ  Registro: 09/02/2015  Postagens: 235

Creio ter achado! retorna a System

CurDir()


Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário LABAMBAMOG LABAMBAMOG em 02/02/2021, 17:22 h
Local: SP  Registro: 29/08/2008  Postagens: 22
Talvez a GetPvProfString possa te ajudar.
Veja se esse link é o que você está procurando: https://tdn.totvs.com/display/tec/GetPvProfString

Tive uma necessidade parecida que era saber o caminho (pasta/path) do SmartClient e encontrei a solução aqui: https://tdn.totvs.com/display/tec/GetRemoteIniName

Aproveitei e mudei a rotina e ficou assim (t+):

user function RmtPath(lRetira)
Local cIniName := GetRemoteIniName()      // Resultado: "C:\totvs\bin\SmartClient\smartclient.ini"
Local lUnix := IsSrvUnix()
Local nPos := Rat( IIf( lUnix, "/", "\" ), cIniName )
Local cPathRmt := ""
Local nDig := 0

if lRetira = Nil
      lRetira := .F.
endif

if lRetira
     nDig := 1
endif

if !( nPos == 0 )
    cPathRmt := SubStr( cIniName, 1, nPos - nDig )
endif   
Return cPathRmt


Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal