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}