Abrir DBF com janela de navegação.

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Abrir DBF com janela de navegação.

Mensagem por Hasse »

Boa tarde colegas.

Já fazem 2 dias que estou pesquisando no Fórum por uma solução de abertura de arquivo DBF x CDX, com uma janela que possibilite a navegação pelos diversos drives e pastas (semelhante ao Windows Explorer), encontrar o DBF desejado, clicar e incorporar o endereço para a abertura pelo aplicativo.

Uso a MiniGui 3.1.3 e 3.4.3 com Harbour x MingW.

É bem provável que isto já exista mas não encontrei.

Caso algum colega souber, por favor, poste o link ou o código básico para fazer este tipo de implemento.

Aproveito para desejar um FELIZ NATAL a todos os colegas, extensivo aos familiares.
Com Fraterno Abraço.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Abrir DBF com janela de navegação.

Mensagem por JoséQuintas »

No Harbour 3.4, deve ser igual no 3.2
Uso pra Excel, mas é só ajustar.

Código: Selecionar todos

      cFileDbf := win_GetOpenFileName(, "Arquivo a importar", ".\", "XLS", "*.XLS", 1 )
openfile.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Claudio Soto
Colaborador
Colaborador
Mensagens: 566
Registrado em: 27 Ago 2012 12:31
Localização: Uruguay
Contato:

Abrir DBF com janela de navegação.

Mensagem por Claudio Soto »

Dos opciones, una sencilla

GetFile ( acFilter ,
                  cTitle ,
                  cDefaultPath ,
                  lMultiSelect ,
                  lNoChangeDir, nFilterIndex ) --> SelectedFileName(s)
 
If <lMultiSelect> option is used, a character array containing selected
filenames is returned (maximun number of selected files returned is 1024).
 
Otra un poco más elaborada que puede servir como guía:

http://www.hmgforum.com/viewtopic.php?f ... easy+build
Saludos.
Dr. Claudio Soto
(Uruguay)
http://srvet.blogspot.com
Avatar do usuário
Toledo
Administrador
Administrador
Mensagens: 3133
Registrado em: 22 Jul 2003 18:39
Localização: Araçatuba - SP
Contato:

Abrir DBF com janela de navegação.

Mensagem por Toledo »

Hasse escreveu:Uso a MiniGui 3.1.3 e 3.4.3
Veja:
C:\hmg.3.4.3\SAMPLES\Functions\GETFILE\demo.prg

Abraços
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Abrir DBF com janela de navegação.

Mensagem por Hasse »

Bom dia.

Agradeço a atenção e tempo dispensados pelos caros colegas.

Ainda hoje vou testar as opções apresentadas.

FELIZ NATAL.
Com um Fraterno Abraço.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Abrir DBF com janela de navegação.

Mensagem por Hasse »

Bom dia colegas.

Usei a Função GetFile() que atendeu integralmente as minhas necessidades.

Mais uma vez agradeço o inestimável auxílio dos colegas, especialmente ao Toledo, Quintas e Dr. Soto.

Um próspero ano de 2018, com saúde e muito trabalho.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Responder