Importar un Archivo DBF
Publicado por Hellen (2 intervenciones) el 18/08/2005 16:33:28
Buenos Días
Tengo un problema al abrir un archivo DBF agradecere muchísimo me puedan apoyar. Muchas Gracias.
ll_num_archivo = fileopen(ls_archivo_cab, linemode!, read!)
do
ll_estado = fileread(ll_num_archivo, ls_datos)
if ll_estado = -100 then exit
if isnull(ls_datos) or trim(ls_datos) = '' then
rollback;
fileclose(ll_num_archivo)
messagebox('Mensaje del Sistema','Se ha encontrado un dato nulo en el archivo',stopsign!)
return
end if
messagebox('OK',ls_datos)
ls_datos = trim(ls_datos)
ls_empresa = trim(mid(ls_datos,1,6))
Tengo un problema al abrir un archivo DBF agradecere muchísimo me puedan apoyar. Muchas Gracias.
ll_num_archivo = fileopen(ls_archivo_cab, linemode!, read!)
do
ll_estado = fileread(ll_num_archivo, ls_datos)
if ll_estado = -100 then exit
if isnull(ls_datos) or trim(ls_datos) = '' then
rollback;
fileclose(ll_num_archivo)
messagebox('Mensaje del Sistema','Se ha encontrado un dato nulo en el archivo',stopsign!)
return
end if
messagebox('OK',ls_datos)
ls_datos = trim(ls_datos)
ls_empresa = trim(mid(ls_datos,1,6))
Valora esta pregunta
0