PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → Como listar usuário groupware num combobox
Como listar usuário groupware num combobox
Débuté par ANDRE MARTINI / IS2, 08 avr. 2016 21:40 - 3 réponses
#1
Membre enregistré
203 messages
Popularité : +25 (25 votes)
Posté le 08 avril 2016 - 21:40
Olá pessoal,

como faço para listar todos os usuários do groupware num combobox no windev 20?

testei o código abaixo mas não funcionou! tentei GPWUser.Login e GPWUser..Login e não funcionou
Error:. operator forbidden. -> GPWUser.Login

ListDeleteAll(COMBO_Nome_do_usuario)
HListUser(IS2AutomotiveHFSQL)
HReadFirst(gpwUser,"LOGIN")
WHILE NOT HOut(gpwUser)
ListAdd(COMBO_Nome_do_usuario,gpwUser.Login)
HReadNext(gpwUser,"LOGIN")
END


--
André Martini
IS2 Automotive http://www.is2.inf.br/is2automotive/index.html
IS2 Construtive http://www.is2.inf.br/is2construtive/index.html
IS2 Store http://www.is2.inf.br/is2store/index.html
IS2 Gerent http://www.is2.inf.br/is2gerent/index.html
#2
Membre enregistré
203 messages
Popularité : +25 (25 votes)
Posté le 14 avril 2016 - 16:03
Ninguém sabe como listar os usuários do grouware num combobox?

--
André Martini
IS2 Automotive http://www.is2.inf.br/is2automotive/index.html
IS2 Construtive http://www.is2.inf.br/is2construtive/index.html
IS2 Store http://www.is2.inf.br/is2store/index.html
IS2 Gerent http://www.is2.inf.br/is2gerent/index.html
#3
Membre enregistré
203 messages
Popularité : +25 (25 votes)
Posté le 15 avril 2016 - 16:24
RESOLVIDO! Segue código abaixo:

sDBRootPath is string //diretorio dos arquivos no HFSQL
sDBRootPath = HSetServer(IS2AutomotiveHFSQL,hDatabasePath)
sDBRGPWootPath is string //diretorio dos arquivos do GroupWare no HFSQL
sDBRGPWootPath = sDBRootPath + "\" + IS2AutomotiveHFSQL..Database + "\Gpw_IS2Automotive\"
sNomeArquivoUsuarios is string = "GPU_User.FIC"
dsUsuarios is Data Source

ListDeleteAll(COMBO_Nome_do_usuario)
HDeclareExternal(sDBRGPWootPath + sNomeArquivoUsuarios,dsUsuarios,"PCSGPW2001")
HReadFirst(dsUsuarios)
WHILE NOT HOut(dsUsuarios)
ListAdd(COMBO_Nome_do_usuario,dsUsuarios.Login)
HReadNext(dsUsuarios)
END
HCancelDeclaration(dsUsuarios)


--
André Martini
IS2 Automotive http://www.is2.inf.br/is2automotive/index.html
IS2 Construtive http://www.is2.inf.br/is2construtive/index.html
IS2 Store http://www.is2.inf.br/is2store/index.html
IS2 Gerent http://www.is2.inf.br/is2gerent/index.html
#4
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 16 avril 2016 - 21:36
Obrigado pela contribuição André

Parabéns!

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.blogspot.com.br/
→ Revenir à WINDEV 25