desesperaadoooo!!!
Hola Internautas!! me gustar铆a saber si existe alguna manera de guardar en un cuadro de texto dentro de un formulario la ruta completa de una expotacion a txt que he realizado, de forma que despu茅s de pulsar un bot贸n este almacene en el cuadro de texto la ruta anteriormente seleccionada, bien por un cuadro de di谩logo, bien por un 谩rbol jer谩rquico. GRACIAS
1.-Create un item visible tipo "Area de Bean" en vez de tipo texto.
2.- Al lado pon un boton con el siguiente c贸digo que debes adaptar un poco a tu form
-- ENTORNO WEB
DECLARE
vva_filename VARCHAR2(256);
vva_load_dir varchar2(255);
BEGINIF GET_APPLICATION_PROPERTY (USER_INTERFACE)= 'WEB' THEN
-- Inicializa el c贸digo Bean.
fileUploader.init('bloque..item_tipo_bean,'FILEUPLOADER_CALLBACK');
FileUploader.setDebug(false);
FileUploader.setCompressed(false);
-- Definimos el nombre del fichero y el camino a utilizar
tool_env.GETVAR('CARGAS', :GLOBAL.PATH_FICHERO);
FileUploader.UploadFile(:GLOBAL.PATH_FICHERO);
ELSE
-- ENTORNO LOCAL
vva_load_dir := 'S:\';
vva_filename := GET_FILE_NAME
(vva_load_dir||'FICHEROS B50',
NULL, 'Fichero de texto (*.txt)|*.txt|',
'Elija el fichero de texto a procesar',
OPEN_FILE, TRUE);
vva_filename := RTRIM(vva_filename);
:CARGA.VI_NOMBRE := vva_filename;
END IF ;
EXCEPTION
WHEN FileUploader.FileUploaderEx THEN
message('Error FileUploader :' || FileUploader.getError);
END;
2.- Al lado pon un boton con el siguiente c贸digo que debes adaptar un poco a tu form
-- ENTORNO WEB
DECLARE
vva_filename VARCHAR2(256);
vva_load_dir varchar2(255);
BEGINIF GET_APPLICATION_PROPERTY (USER_INTERFACE)= 'WEB' THEN
-- Inicializa el c贸digo Bean.
fileUploader.init('bloque..item_tipo_bean,'FILEUPLOADER_CALLBACK');
FileUploader.setDebug(false);
FileUploader.setCompressed(false);
-- Definimos el nombre del fichero y el camino a utilizar
tool_env.GETVAR('CARGAS', :GLOBAL.PATH_FICHERO);
FileUploader.UploadFile(:GLOBAL.PATH_FICHERO);
ELSE
-- ENTORNO LOCAL
vva_load_dir := 'S:\';
vva_filename := GET_FILE_NAME
(vva_load_dir||'FICHEROS B50',
NULL, 'Fichero de texto (*.txt)|*.txt|',
'Elija el fichero de texto a procesar',
OPEN_FILE, TRUE);
vva_filename := RTRIM(vva_filename);
:CARGA.VI_NOMBRE := vva_filename;
END IF ;
EXCEPTION
WHEN FileUploader.FileUploaderEx THEN
message('Error FileUploader :' || FileUploader.getError);
END;
