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.
Abrir DBF com janela de navegação.
Moderador: Moderadores
-
Hasse
- 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.
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)
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)
- JoséQuintas
- Administrador

- Mensagens: 20415
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
- Curtiram: 1 vez
Abrir DBF com janela de navegação.
No Harbour 3.4, deve ser igual no 3.2
Uso pra Excel, mas é só ajustar.
Uso pra Excel, mas é só ajustar.
Código: Selecionar todos
cFileDbf := win_GetOpenFileName(, "Arquivo a importar", ".\", "XLS", "*.XLS", 1 )
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/
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

- Mensagens: 568
- Registrado em: 27 Ago 2012 12:31
- Localização: Uruguay
- Contato:
Abrir DBF com janela de navegação.
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
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
- Toledo
- Administrador

- Mensagens: 3133
- Registrado em: 22 Jul 2003 18:39
- Localização: Araçatuba - SP
- Contato:
Abrir DBF com janela de navegação.
Veja:Hasse escreveu:Uso a MiniGui 3.1.3 e 3.4.3
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
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

- Mensagens: 820
- Registrado em: 19 Out 2004 10:30
- Localização: Jaraguá do Sul - SC
Abrir DBF com janela de navegação.
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.
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)
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

- Mensagens: 820
- Registrado em: 19 Out 2004 10:30
- Localização: Jaraguá do Sul - SC
Abrir DBF com janela de navegação.
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.
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)
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)