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
Has thanked: 1 time
Been thanked: 2 times

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 348 times

User avatar
serge_girard
Posts: 2511
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Has thanked: 804 times
Been thanked: 154 times
Contact:

Post by serge_girard »

Thanx for sharing Javier!


Serge

User avatar
Agil Abdullah
Posts: 204
Joined: Mon Aug 25, 2014 11:57 am
Location: Jakarta, Indonesia
Contact:

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: 2296
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 352 times
Been thanked: 65 times
Contact:

Post by danielmaximiliano »

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

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO

User avatar
mustafa
Posts: 972
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 190 times
Contact:

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 274 times

Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México
Has thanked: 1 time
Been thanked: 2 times

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
Has thanked: 1 time
Been thanked: 2 times

Post by Javier Tovar »

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

Saludos

User avatar
dragancesu
Posts: 788
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia
Has thanked: 29 times
Been thanked: 224 times

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 162 times

Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México
Has thanked: 1 time
Been thanked: 2 times

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
Has thanked: 1 time
Been thanked: 2 times

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 218 times


Espero te ayude.

Saludos

Post Reply