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: 20416
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

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, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (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: 568
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