Excel a DBF / Excel To DBF

Topic Specific Tutorials and Tips.

Moderator: Rathinagiri

Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México

Excel a DBF / Excel To DBF

Post by Javier Tovar »

Hola a todos,

Hice esta pequeña rutina que me ayuda a hacer este cambio: de Excel a DBF, Solo hay que verificar bien los campos antes de generar el DBF con lo que respecta a Longitud y Decimales.

Gracias
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Hi all,

I made this little routine that helps me to make this change: Excel to DBF, just have to check the fields well before generating the DBF with regard to length and Decimal.

greetings
EXCELaDBF.rar
(16.57 KiB) Downloaded 490 times
User avatar
serge_girard
Posts: 3161
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Contact:

Re: Excel a DBF / Excel To DBF

Post by serge_girard »

Thanx for sharing Javier!


Serge
There's nothing you can do that can't be done...
User avatar
Agil Abdullah
Posts: 204
Joined: Mon Aug 25, 2014 11:57 am
Location: Jakarta, Indonesia
Contact:

Re: Excel a DBF / Excel To DBF

Post by Agil Abdullah »

Thanks Javier,

It helps me a lot.

Cheers.
Agil Abdullah Albatati (just call me Agil)
Programmer Never Surrender
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Excel a DBF / Excel To DBF

Post by danielmaximiliano »

Gracias por compartir Javier...
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: Excel a DBF / Excel To DBF

Post by mustafa »

Hola Javier
Felicidades por la aplicación, solo tendrias que cambiar en todos los TEXTBOX
despues de los INPUTMASK "!" añadir
ON LOSTFOCUS If (.NOT.(This.Value $ "CNDLM") , EVAL({|| This.SetFocus, This.Value:= 'C'}), NIL)
esto es para que no se pueda poner nada más que las letras "CNDLM" para que no de Error al crear
el fichero Dbf si el usuario intenta entrar alguna letra distinta a "CNDLM" , haciendo imposible poner
otras letras que las autorizadas. (esta solución me la mandó el Dr. Soto que equivale a un VALID del
antiguo Clipper.

Sample quedaria asi:
@ 168,313 TEXTBOX TextBox_02 ;
VALUE "" ;
BACKCOLOR {183,214,255} ;
WIDTH 15 HEIGHT 18 ;
INPUTMASK "!" ON LOSTFOCUS If (.NOT.(This.Value $ "CNDLM") , EVAL({|| This.SetFocus, This.Value:= 'C'}), NIL)
ya está arreglado en el nuevo Prg. que te mando.

Saludos
Mustafa
Attachments
Leer_xls_dbf.zip
(5.34 KiB) Downloaded 399 times
Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México

Re: Excel a DBF / Excel To DBF

Post by Javier Tovar »

Hola Mustafa,

Si, es cierto se me olvido restringir la entrada al tipo de dato que va a manejar el campo! :)
y si te fijas es parte de tu programa de generación de Ventanas!!!

Saludos y un abrazo
Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México

Re: Excel a DBF / Excel To DBF

Post by Javier Tovar »

Gracias a todos que de alguna manera vieron útil el programa!

Saludos
User avatar
dragancesu
Posts: 920
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia

Re: Excel a DBF / Excel To DBF

Post by dragancesu »

Program how long we should but when I tried it with the simple data does not work

When I have time I'll find what the problem is, now you just send an example that does not work
Attachments
problem.zip
(7.6 KiB) Downloaded 281 times
Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México

Re: Excel a DBF / Excel To DBF

Post by Javier Tovar »

Si dragancesu,

No trabaja, mañana lo reviso el por qué?

Saludos
Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México

Re: Excel a DBF / Excel To DBF

Post by Javier Tovar »

Hola dragancesu,

Lo que encontré es lo siguiente:

- La única diferencia es que tu archivo tiene la versión de Excel la "Microsoft Excel 97-2003 Worksheet (.xls)" y lo resolví haciendo lo siguiente.

- Copie la hoja de los datos a un libro nuevo y lo guarde con Excel 2010 y listo!
JavierTovar.rar
(10.04 KiB) Downloaded 343 times


Espero te ayude.

Saludos
Post Reply