IMPORTAR CON VALIDACIONES
Publicado por yomaira (9 intervenciones) el 28/01/2009 20:51:11
Alguien me puede colaborar yo estoy programando un boton para q me importe de excel a foxpro con este codigo
GCTABLA = " "
WFILEW = " "
GCTABLA =GETFILE('xls', 'Leer Archivo:', 'Abrir',0, 'Mostrar Archivos de excel')
DO CASE
CASE 'Informe' $GCTABLA
CREATE (GCTABLA)
CASE EMPTY(GCTABLA)
RETURN
OTHERWISE
WFILEW = GCTABLA
ENDCASE
use BAZAR excl in 0
select BAZAR
zap
wfileapp = "'" + alltrim(wfilew) + "'"
append from &wfileapp xls
MESSAGEBOX("importacion realizada con exito")
lo que quiero saber es q cod puedo colocar para que me valide algunos datos.
Gracias
GCTABLA = " "
WFILEW = " "
GCTABLA =GETFILE('xls', 'Leer Archivo:', 'Abrir',0, 'Mostrar Archivos de excel')
DO CASE
CASE 'Informe' $GCTABLA
CREATE (GCTABLA)
CASE EMPTY(GCTABLA)
RETURN
OTHERWISE
WFILEW = GCTABLA
ENDCASE
use BAZAR excl in 0
select BAZAR
zap
wfileapp = "'" + alltrim(wfilew) + "'"
append from &wfileapp xls
MESSAGEBOX("importacion realizada con exito")
lo que quiero saber es q cod puedo colocar para que me valide algunos datos.
Gracias
Valora esta pregunta


0