Oracle - WIN_API_DIALOG.OPEN_FILE

   
Vista:

WIN_API_DIALOG.OPEN_FILE

Publicado por VIVI (1 intervención) el 26/06/2010 19:22:15
Buenas, quisiera hacerles una consulta.
Tengo el siguiente codigo, antes me funcionaba pero ahora no me funciona, y no entiendo por qué, me da un error que dice: E1 User-defined exception
osea no entra aqui: Win_Api_Dialog.Open_File
no abre el archivo, y no se que es ese error, y no se como corregirlo, muchas gracias

-- Ya tiene la libreria agregada y todo D2KWUTIL
PROCEDURE Attach IS
varchivo VARCHAR2(3000);
vdetsolact VARCHAR2(3000);
vdetsolant VARCHAR2(3000);
vdet VARCHAR2(3000);
verror VARCHAR2(100);
BEGIN
verror := 'E1 ';
:BLK0.archivo := Win_Api_Dialog.Open_File('Cargar Archivo','C:\','All files(*.*)|*.*|',TRUE,WIN_API.OFN_FLAG_DEFAULT,FALSE);
verror := 'E2 ';
varchivo := SUBSTR(:BLK0.archivo,INSTR(:BLK0.archivo,'\',-1)+1);
verror := 'E3 ';
:BLK0.codigo := :BLK1.det_vers||' '||:BLK1.cod_doc||:BLK1.cod_depto||'-'||:BLK1.cod_norma||'-'||:BLK1.num_vers||'-'||:BLK2.num_revis;
verror := 'E4 ';
vdet := :BLK0.codigo||SUBSTR(varchivo,-4,5);
verror := 'E5 ';
Win_Api_Utility.Copy_File(:BLK0.archivo,:BLK0.det_directorio||'\ARCH\EP\'||vdet, FALSE, FALSE);
verror := 'E6 ';
Dsp_Mensaje('Carga Realizada con Éxito');
vdetsolact := vdetsolant||CHR(10)||'Archivo Adjunto: '||varchivo;
EXCEPTION
WHEN OTHERS THEN
Mensaje(verror||SQLERRM);
RAISE FORM_TRIGGER_FAILURE;
END;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:WIN_API_DIALOG.OPEN_FILE

Publicado por juan (1 intervención) el 28/10/2010 00:01:16
Has revisado si el dll d2kwutildll, esta en una carpeta registrada, y el path del mismo esta en tu regedit..?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar