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;
