49 lines
1.2 KiB
Plaintext
49 lines
1.2 KiB
Plaintext
IMPORT os
|
|
|
|
DEFINE d_tipos, mensaje, f_tipos, filepath STRING
|
|
DEFINE dir_file CHAR(60)
|
|
|
|
FUNCTION UploadDoc()
|
|
|
|
LET d_tipos = "XML"
|
|
LET f_tipos = "*.xml"
|
|
LET mensaje = %"Elige Documento"
|
|
|
|
CALL ui.Interface.frontCall(
|
|
"standard",
|
|
"openfile",
|
|
[dir_file, d_tipos, f_tipos, mensaje],
|
|
[filepath])
|
|
|
|
IF filepath IS NOT NULL THEN
|
|
IF downshift(os.Path.extension(filepath)) = "xml" THEN
|
|
RETURN filepath
|
|
ELSE
|
|
CALL fgl_winmessage(
|
|
"ERROR", "EL FILE DEBE SER XML", "INFO")
|
|
END IF
|
|
|
|
END IF
|
|
|
|
END FUNCTION
|
|
|
|
{FUNCTION OpenDoc(num_docc INT)
|
|
|
|
TRY
|
|
|
|
SELECT ruta_fisica INTO tmpdir_file FROM vetb00113 WHERE num_doc = num_docc
|
|
AND nombreFile = documentos[arr_curr()].nombreFile
|
|
|
|
CALL ui.Interface.frontCall("standard", "getenv", ["TEMP"], [l_file])
|
|
|
|
LET l_file = l_file CLIPPED, "\\", documentos[arr_curr()].nombreFile
|
|
CALL fgl_putfile(tmpdir_file, l_file)
|
|
|
|
CALL ui.Interface.frontCall("standard", "shellexec", [l_file], [p_res])
|
|
|
|
CATCH
|
|
CALL fgl_winmessage("ERROR", err_get(STATUS), "INFO")
|
|
END TRY
|
|
|
|
END FUNCTION}
|