Change default (default) default query directory in ADVPL

Question

Change default (default) default query directory in ADVPL

Navigation

#1 by (1 votes)

0

I'm trying to create a specific default query where when the user opens the query the path is already populated with a specific directory defined by me. Today when it opens the directory is always "SERVER \" , as can be seen in the figure below

Iwouldliketobeabletoselectaspecificdirectorytoopenforexample:"SERVER \ PASTA1 \ PASTA2"

The default query name I'm using now is "DIR". In it the values look like this:

Table : SX5 = Tables
Expression : AdmPath ()
Return : AdmArq ()

Would anyone know how to help? Thank you very much.

advpl

asked by anonymous 11.07.2017 / 18:51

1 answer

store values and display them in another field Block PHP page access by URL | Doubts about their safety

score 1 · Answer 1

You will need to create a custom font:

#include "Protheus.ch"
Static _REResult

User function REFileAdm()
Local cDirInicial := "\PASTA1\PASTA"
Local cMascara := "*.doc"
_REResult :=  cGetFile(cMascara,"Escolha um Arquivo,,cDirInicial)
Return !Empty(_REResult)

User function REFileRet()
Return _REResult

Compiled this RdMake, Create a Specific Pad Query (RE Query).