Clipper On Line • Ver Tópico - Abrir DBF com janela de navegação.

Abrir DBF com janela de navegação.

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Abrir DBF com janela de navegação.

Mensagempor Hasse » 24 Dez 2017 16:08

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 de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes

Abrir DBF com janela de navegação.

Mensagempor JoséQuintas » 24 Dez 2017 16:52

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

      cFileDbf := win_GetOpenFileName(, "Arquivo a importar", ".\", "XLS", "*.XLS", 1 )


openfile.png
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Abrir DBF com janela de navegação.

Mensagempor Claudio Soto » 24 Dez 2017 17:09

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 de usuário

Claudio Soto
Colaborador

Colaborador
 
Mensagens: 555
Data de registro: 27 Ago 2012 12:31
Cidade/Estado: Uruguay
Curtiu: 35 vezes
Mens.Curtidas: 166 vezes

Abrir DBF com janela de navegação.

Mensagempor Toledo » 24 Dez 2017 17:59

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
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Abrir DBF com janela de navegação.

Mensagempor Hasse » 25 Dez 2017 10:19

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)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes

Abrir DBF com janela de navegação.

Mensagempor Hasse » 29 Dez 2017 08:41

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)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro