PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV 25 → Como listar usuário groupware num combobox
Como listar usuário groupware num combobox
Started by ANDRE MARTINI / IS2, Apr., 08 2016 9:40 PM - 3 replies
#1
Registered member
208 messages
Popularité : +25 (25 votes)
Posted on April, 08 2016 - 9:40 PM
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
Registered member
208 messages
Popularité : +25 (25 votes)
Posted on April, 14 2016 - 4:03 PM
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
Registered member
208 messages
Popularité : +25 (25 votes)
Posted on April, 15 2016 - 4:24 PM
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
Registered member
3,659 messages
Popularité : +175 (223 votes)
Posted on April, 16 2016 - 9:36 PM
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/
→ Go back to WINDEV 25