GeMIS_WEB/GUI/incl/brwinternproc.i

/* **********************  Internal Procedures  *********************** */


    PROCEDURE EXPORT_EXCEL:
        { incl/brwexportexcel.i }
    END PROCEDURE.

    PROCEDURE FILTER_SETZEN:
        { incl/brwfilter.i }
    END PROCEDURE.

    PROCEDURE ZURUECKSETZEN:
        { incl/brwresetbreitespalte.i }
    END PROCEDURE.

    PROCEDURE SORTIERBAR:
        DEF INPUT PARAMETER ipSort  AS HANDLE   NO-UNDO.
        DEF INPUT PARAMETER ipMove  AS HANDLE   NO-UNDO.

        DEF VAR hBrowser    AS HANDLE           NO-UNDO.

        ipMove:CHECKED = FALSE.
        ipSort:CHECKED = TRUE .
        hBrowser  = {&BROWSE-NAME}:HANDLE IN FRAME {&FRAME-NAME}.
        hBrowser:COLUMN-MOVABLE         = FALSE.
        hBrowser:ALLOW-COLUMN-SEARCHING = TRUE.
    END PROCEDURE.

    PROCEDURE VERSCHIEBBAR:
        DEF INPUT PARAMETER ipMove  AS HANDLE   NO-UNDO.
        DEF INPUT PARAMETER ipSort  AS HANDLE   NO-UNDO.

        DEF VAR hBrowser    AS HANDLE           NO-UNDO.

        ipSort:CHECKED = FALSE.
        ipMove:CHECKED = TRUE .
        hBrowser  = {&BROWSE-NAME}:HANDLE IN FRAME {&FRAME-NAME}.
        hBrowser:ALLOW-COLUMN-SEARCHING = FALSE.
        hBrowser:COLUMN-MOVABLE         = TRUE.
    END PROCEDURE.
    
    PROCEDURE ShellExecuteA EXTERNAL "shell32.dll":
        DEF INPUT  PARAMETER hwnd           AS LONG.   /* Handle to parent window */
        DEF INPUT  PARAMETER lpOperation    AS CHAR.   /* Operation to perform: open, print */
        DEF INPUT  PARAMETER lpFile         AS CHAR.   /* Document or executable name */
        DEF INPUT  PARAMETER lpParameters   AS CHAR.   /* Command line parameters to executable in lpFile */
        DEF INPUT  PARAMETER lpDirectory    AS CHAR.   /* Default directory */
        DEF INPUT  PARAMETER nShowCmd       AS LONG.   /* whether shown when opened: 
                                                          0 hidden, 1 normal, minimized 2, maximized 3, 
                                                          0 if lpFile is a document */
        DEF RETURN PARAMETER hInstance      AS LONG.   /* Less than or equal to 32 */
    END PROCEDURE.