GeMIS_WEB/admin/dynamicformImpl.cls

/*------------------------------------------------------------------------
   File        : dynamicformImplImpl
   Purpose     : 
   Syntax      : 
   Description : 
   Author(s)   : walter.riechsteiner
   Created     : Wed Nov 19 13:23:38 CET 2025
   Notes       : 
 ----------------------------------------------------------------------*/


BLOCK-LEVEL ON ERROR UNDO, THROW.

USING OpenEdge.Core.String FROM PROPATH.
USING OpenEdge.Net.HTTP.IHttpResponse FROM PROPATH.
USING OpenEdge.Net.HTTP.StatusCodeEnum FROM PROPATH.
USING OpenEdge.Web.IWebRequest FROM PROPATH.
USING OpenEdge.Web.WebResponseWriter FROM PROPATH.
USING OpenEdge.Web.WebHandler FROM PROPATH.
USING Progress.Json.ObjectModel.ObjectModelParser FROM PROPATH.
USING Progress.Json.ObjectModel.JsonObject FROM PROPATH.
USING Progress.Json.ObjectModel.JsonArray FROM PROPATH.
USING src.ch.adprime.gemis.WebHandlerUtilities FROM PROPATH.
USING utilities.selectboxHandler FROM PROPATH.
USING utilities.utilitiesHandler FROM PROPATH.


CLASS admin.dynamicformImpl INHERITS WebHandler: 

    DEFINE VARIABLE oResponse            AS IHttpResponse        NO-UNDO.         
    DEFINE VARIABLE oWriter              AS WebResponseWriter    NO-UNDO.
    DEFINE VARIABLE oBody                AS STRING               NO-UNDO.
    DEFINE VARIABLE cDefautlCharSet      AS CHARACTER            NO-UNDO INIT 'UTF-8'.
    DEFINE VARIABLE oParser              AS ObjectModelParser    NO-UNDO.           
    DEFINE VARIABLE cCorralationID       AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cContent-Type        AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE lcJsonString         AS LONGCHAR             NO-UNDO.
    DEFINE VARIABLE oJsonActiveSelectBox AS JsonObject           NO-UNDO.
    DEFINE VARIABLE oJsonMessageBox      AS JsonObject           NO-UNDO.
    DEFINE VARIABLE cString              AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE lcString             AS LONGCHAR             NO-UNDO.    
    
    DEFINE VARIABLE hError               AS HANDLE               NO-UNDO.
    DEFINE VARIABLE ccompany             AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cuser_name           AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cAnzeigeName         AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE ilanguage_id         AS INTEGER              NO-UNDO.
    DEFINE VARIABLE cSessionToken        AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cFunction            AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cForm_Id             AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cProgram             AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cFormUser            AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cFormColumns         AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cUsers               AS CHARACTER            NO-UNDO INIT 'user,admin'.
    DEFINE VARIABLE lcMessage            AS LONGCHAR             NO-UNDO.
    DEFINE VARIABLE cErrorNo             AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cMaxHeight           AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE iItemsPage           AS INTEGER              NO-UNDO.
    DEFINE VARIABLE cLogFile             AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE hBuffer              AS HANDLE               NO-UNDO.
    DEFINE VARIABLE hField               AS HANDLE               NO-UNDO.
    
    DEFINE VARIABLE cMethode             AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cClass               AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE rClass               AS Progress.Lang.Class.
    DEFINE VARIABLE oHandler             AS Progress.Lang.Object NO-UNDO.
    
    DEFINE VARIABLE lCompany             AS LOGICAL              NO-UNDO.
    DEFINE VARIABLE lActive              AS LOGICAL              NO-UNDO.
    DEFINE VARIABLE lWordindex           AS LOGICAL              NO-UNDO.
    
    DEFINE VARIABLE outilitiesHandler    AS utilitiesHandler     NO-UNDO.
    DEFINE VARIABLE oselectboxHandler    AS selectboxHandler     NO-UNDO.


    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    METHOD OVERRIDE PROTECTED INTEGER HandleDelete(INPUT poRequest AS IWebRequest):
        
        DEFINE VARIABLE oJsonResponse AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonIdent    AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonBox      AS JsonArray  NO-UNDO.
        DEFINE VARIABLE oJsonData     AS JsonObject NO-UNDO.
        
        DEFINE VARIABLE lRetVal       AS LOGICAL    NO-UNDO.
        DEFINE VARIABLE ii            AS INTEGER    NO-UNDO.
        DEFINE VARIABLE i1            AS INTEGER    NO-UNDO.
        DEFINE VARIABLE cQueryString  AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cFileName     AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cClassName    AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cUser         AS CHARACTER  NO-UNDO.
        
        DEFINE VARIABLE oJsonResult   AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonMessage  AS JsonObject NO-UNDO.
        
        lRetVal = WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR.

        cQueryString      = STRING(poRequest:GetContextValue("QUERY_STRING")) NO-ERROR.
        cQueryString      = OpenEdge.Net.URI:Decode(cQueryString).
        
        outilitiesHandler = NEW utilitiesHandler().
        hError            = ERROR-STATUS:HANDLE.        
        
        outilitiesHandler:getHeaderData(
            INPUT  poRequest    ,
            INPUT  cQueryString ,
            OUTPUT ccompany     ,
            OUTPUT cuser_name   ,
            OUTPUT cAnzeigeName ,
            OUTPUT ilanguage_id ,
            OUTPUT cSessionToken,
            OUTPUT cFunction    ,
            OUTPUT oJsonIdent   
            ).
MESSAGE 'DELETE mit function ' oJsonIdent:GetCharacter('function').
        //
        //  mögliche Benutzer für das durchsuchen von HTML-Dokumenten und Labeltexten ...
        //
        cUser = oJsonIdent:GetCharacter('H_user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers.
        cUser = oJsonIdent:GetCharacter('user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers.
        //
        //  Programmname aus den möglichen Benutzern ermitteln
        //
        lRetVal    = FALSE.
        iItemsPage = 50.
        cMaxHeight = '250px'.
        cProgram = outilitiesHandler:getProgramName (
            INPUT        oJsonIdent  ,
            INPUT        cUsers      ,
            OUTPUT       cFormUser   ,
            OUTPUT       cFormColumns,
            INPUT-OUTPUT iItemsPage  ,
            INPUT-OUTPUT cMaxHeight
            ).
        oJsonIdent:ADD('program', cProgram) NO-ERROR.
        IF oJsonIdent:HAS('limit') THEN oJsonIdent:SET('limit', iItemsPage).
        ELSE                            oJsonIdent:ADD('limit', iItemsPage).

// cLogFile = SUBSTITUTE('C:\TEMP\oJsonIdentDELETE_&1.json', REPLACE(STRING(TIME,'HH:MM:SS'), ':', '')).
// oJsonIdent:WriteFile(cLogFile, TRUE).
        
        cForm_Id   = oJsonIdent:GetCharacter('formId'    ).
        cClassName = oJsonIdent:GetCharacter('class_name').
        cFileName  = oJsonIdent:GetCharacter('file_name' ).
        
        FIND programs NO-LOCK 
            WHERE programs.program_name = cProgram NO-ERROR.
        IF NOT AVAILABLE programs THEN LEAVE.
        cClass = programs.program_class.

        REPEAT TRANSACTION WHILE cFunction = 'delete' ON ERROR UNDO, LEAVE:
            rClass   = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
            cMethode = 'deleteData'.
            oHandler = rClass:NEW().
            lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                INPUT  oJsonIdent ,
                INPUT  oJsonData  ,
                OUTPUT oJsonResult
                ) NO-ERROR.
            outilitiesHandler:evaluateErrorStatus(hError).
            IF NOT lRetVal THEN LEAVE.
            
            oJsonResult:WRITE(LcJsonString, FALSE).
// oJsonResult:WriteFile('C:\TEMP\DYNAMIC_DELETE_Respons.json', TRUE).
            LEAVE.
        END.
                    
        oResponse             = NEW OpenEdge.Web.WebResponse().
        oResponse:StatusCode  = INTEGER(StatusCodeEnum:OK).
        oResponse:ContentType = "application/json;charset=utf-8".
        oWriter               = NEW WebResponseWriter(oResponse).
                        
        IF NOT lRetVal THEN 
        DO:
            oJsonMessage = NEW JsonObject().
            oJsonMessage:ADD('success', FALSE).
            oJsonMessage:ADD('message', 'Fehler beim DELETE').
            oJsonMessage:WRITE(lcJsonString, FALSE).
        END.
                            
        oWriter:Open().
        oWriter:Write(lcJsonString).
        oWriter:Close().
    
        RETURN 0.
    
        CATCH e AS Progress.Lang.Error:
                
        END CATCH.
                
        FINALLY:
            DELETE OBJECT oHandler     NO-ERROR.
            DELETE OBJECT oJsonMessage NO-ERROR.
            DELETE OBJECT oResponse    NO-ERROR.
            DELETE OBJECT oWriter      NO-ERROR.
        END FINALLY.

    END METHOD.
    
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    METHOD OVERRIDE PROTECTED INTEGER HandleGet (INPUT poRequest AS IWebRequest ):
        
        DEFINE VARIABLE oJsonResponse    AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonIdent       AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonSelectBoxes AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonBox         AS JsonArray  NO-UNDO.
        DEFINE VARIABLE oJsonData        AS JsonObject NO-UNDO.
        
        DEFINE VARIABLE lRetVal          AS LOGICAL    NO-UNDO.
        DEFINE VARIABLE ii               AS INTEGER    NO-UNDO.
        DEFINE VARIABLE i1               AS INTEGER    NO-UNDO.
        DEFINE VARIABLE cQueryString     AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cFileName        AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cFieldName       AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cClassName       AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cActiveSelection AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cUser            AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE lcQueryString    AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE lSendChange      AS LOGICAL    NO-UNDO.
        
        DEFINE VARIABLE oJsonResult      AS JsonObject NO-UNDO.
        DEFINE VARIABLE httBuffer        AS HANDLE     NO-UNDO.

        cQueryString      = STRING(poRequest:GetContextValue("QUERY_STRING")) NO-ERROR.
        cQueryString      = OpenEdge.Net.URI:Decode(cQueryString).
        
        outilitiesHandler = NEW utilitiesHandler().
        hError            = ERROR-STATUS:HANDLE.        
        
        outilitiesHandler:getHeaderData(
            INPUT  poRequest    ,
            INPUT  cQueryString ,
            OUTPUT ccompany     ,
            OUTPUT cuser_name   ,
            OUTPUT cAnzeigeName ,
            OUTPUT ilanguage_id ,
            OUTPUT cSessionToken,
            OUTPUT cFunction    ,
            OUTPUT oJsonIdent   
            ).
        oJsonIdent:WRITE(lcString, TRUE).
        cString = lcString.
MESSAGE 'GET mit function ' oJsonIdent:GetCharacter('function').        
        //
        //  mögliche Benutzer für das durchsuchen von HTML-Dokumenten und Labeltexten ...
        //
        cUser = oJsonIdent:GetCharacter('H_user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers.
        cUser = oJsonIdent:GetCharacter('user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers.

        lRetVal = FALSE.

        MASTERLOOP:
        DO WHILE TRUE:
            //
            //  Programmname aus den möglichen Benutzern ermitteln
            //
            iItemsPage = 50.
            cMaxHeight = '250px'.
            cProgram = outilitiesHandler:getProgramName (
                INPUT        oJsonIdent  ,
                INPUT        cUsers      ,
                OUTPUT       cFormUser   ,
                OUTPUT       cformColumns,
                INPUT-OUTPUT iItemsPage  ,
                INPUT-OUTPUT cMaxHeight
                ).

            IF cProgram = '' THEN 
            DO:
                cString = oJsonIdent:GetCharacter('formId').
                outilitiesHandler:createErrorBox(
                    INPUT  oJsonIdent   ,
                    INPUT  '2001'       ,
                    INPUT  cString,  /* Parameters */
                    OUTPUT oJsonMessageBox
                    ).
                LEAVE.
            END.

            oJsonIdent:ADD('program'       , cProgram  ).
            oJsonIdent:ADD('itemsPerPage'  , iItemsPage).
            oJsonIdent:ADD('tableMaxHeight', cMaxHeight).
            oJsonIdent:ADD('formUser'      , cFormUser ).
            
            cErrorNo   = ''.
            cForm_Id   = oJsonIdent:GetCharacter("formId"    ) NO-ERROR.
            cFileName  = oJsonIdent:GetCharacter("file_name" ) NO-ERROR.
            cClassName = oJsonIdent:GetCharacter("class_name") NO-ERROR.
// MESSAGE 'cProgram =' cProgram.
            FIND programs NO-LOCK 
                WHERE programs.program_name = cProgram NO-ERROR.
            IF NOT AVAILABLE programs THEN LEAVE.
            cClass      = programs.program_class.
            lSendChange = programs.sendChangeRecord.
            //            
            //  active-Feld-Filter ermitten
            //
            IF cFunction <> 'saveActiveFilter' THEN 
            DO:
                outilitiesHandler:getActiveSelection(
                    INPUT  oJsonIdent      ,
                    INPUT  cFileName       ,
                    OUTPUT cActiveSelection
                    ).
                IF cActiveSelection <> '' THEN 
                DO:
                    IF NOT oJsonIdent:HAS('activeFilter') THEN oJsonIdent:ADD('activeFilter', cActiveSelection ).
                    ELSE                                       oJsonIdent:SET('activeFilter', cActiveSelection ).
                END.
            END.

            DO WHILE cFunction = 'init' AND cProgram <> '':
                //
                //  wenn die Tabelle(File) das Feld active enthält, soll der activeFilter activiert werden
                //
                CREATE BUFFER hBuffer FOR TABLE cFilename NO-ERROR.
                hField = hBuffer:BUFFER-FIELD('active') NO-ERROR.
                IF  NOT ERROR-STATUS:ERROR AND 
                    VALID-HANDLE(hField)   THEN lActive = TRUE.
                hField = hBuffer:BUFFER-FIELD('wordindex') NO-ERROR.
                IF  NOT ERROR-STATUS:ERROR AND 
                    VALID-HANDLE(hField)   THEN lWordIndex = TRUE.
                DELETE OBJECT hBuffer.
                //
                //  Alle Felder, welche als Selectboxen definiert sind, füllen
                //                
                oselectboxHandler = NEW selectboxHandler().
                oJsonSelectBoxes  = NEW JsonObject().
                FOR EACH selectboxfields NO-LOCK
                    WHERE selectboxfields.company       = ccompany
                    AND   selectboxfields.program       = cform_id
                    AND   selectboxfields.user_name     = cFormUser
                    AND   selectboxfields.boxfieldsFix <> '':

                    DO ii = 1 TO NUM-ENTRIES(selectboxfields.boxfieldsFix, ';'):
                        cFieldName = ENTRY(ii, selectboxfields.boxfieldsFix, ';').
                        cFileName  = ENTRY(1, cFieldName, '_').

                        IF cFieldName MATCHES('*company*') THEN 
                        DO:
                            oJsonBox  = NEW JsonArray().
                            httBuffer = oSelectboxHandler:getSelboxCompany(INPUT cFileName).
                            httBuffer:WRITE-JSON ('JsonArray', oJsonBox).
                            oJsonSelectBoxes:ADD(cFieldName, oJsonBox).
                            NEXT.
                        END.
            
                        IF cFieldName MATCHES('*language_id*') THEN 
                        DO:
                            oJsonBox  = NEW JsonArray().
                            httBuffer = oSelectboxHandler:getSelboxLanguage(INPUT cFileName) NO-ERROR.
                            httBuffer:WRITE-JSON ('JsonArray', oJsonBox) NO-ERROR.
                            oJsonSelectBoxes:ADD(cFieldName, oJsonBox) NO-ERROR.
                            NEXT.
                        END.
                    
                        IF cFieldName MATCHES('*user_name*') THEN 
                        DO:
                            oJsonBox  = NEW JsonArray().
                            httBuffer = oSelectboxHandler:getSelboxUsers(INPUT cFileName).
                            httBuffer:WRITE-JSON ('JsonArray', oJsonBox).
                            oJsonSelectBoxes:ADD(cFieldName, oJsonBox).
                            NEXT.
                        END.
                    
                        IF cFieldName MATCHES('*table_name*') THEN 
                        DO:
                            oJsonBox  = NEW JsonArray().
                            httBuffer = oSelectboxHandler:getSelboxTables(INPUT cFileName).
                            httBuffer:WRITE-JSON ('JsonArray', oJsonBox).
                            oJsonSelectBoxes:ADD(cFieldName, oJsonBox).
                            NEXT.
                        END.
                        
                        oselectboxHandler:getSelectBoxData(
                            INPUT  oJsonIdent,
                            INPUT  cFieldName,
                            OUTPUT oJsonBox
                            ).
// oJsonBox:WriteFile('C:\TEMP\JsonBox.json', TRUE).
                        oJsonSelectBoxes:ADD(cFieldName, oJsonBox).
// oJsonSelectBoxes:WriteFile(SUBSTITUTE('C:\TEMP\&1_JsonSelectBoxes.json', cFilename), TRUE).
                    
                    END.
                END.

                oJsonResponse = NEW JsonObject().
                oJsonResponse:ADD('selectOptionsFix', oJsonSelectBoxes).
                oJsonResponse:ADD('tableMaxHeight'  , cMaxHeight      ).
                oJsonResponse:ADD('itemsPerPage'    , iItemsPage      ).
                oJsonResponse:ADD('formColumns'     , cFormColumns    ).
                oJsonResponse:ADD('lSearch'         , lWordIndex      ).
                oJsonResponse:ADD('hasRecordChange' , lSendChange     ).
                //
                //  Wenn die Tabelle das Feld active hat, wird die SelectBox für den activ-Filter gefüllt
                //
                IF lActive THEN 
                DO:
                    oJsonResponse:ADD("activeFilter"    , cActiveSelection).
                    oJsonResponse:ADD("hasActiveField"  , lActive         ).
                    
                    oJsonActiveSelectBox = NEW JsonObject().
                    FOR EACH labeltexte NO-LOCK 
                        WHERE labeltexte.company     = ccompany
                        AND   labeltexte.user_name   = cFormUser
                        AND   labeltexte.program     = 'Labels'
                        AND   labeltexte.table_name  = 'table'
                        AND   labeltexte.field_name BEGINS 'LBL_FILTER'
                        AND   labeltexte.language_id = ilanguage_id :
                        oJsonActiveSelectBox:ADD(CAPS(labeltexte.field_name), labeltexte.headlabel).
                    END.
                    oJsonResponse:ADD('activeFilterLabels', oJsonActiveSelectBox).
                END.
                //
                //  Sortfelder auf start (keine Felder) stellen.
                //
                outilitiesHandler:writeSortfields(
                    INPUT  oJsonIdent   ,
                    INPUT  cFileName    ,
                    INPUT  ''           ,   //  cSortField
                    INPUT  ''               //  cDirection
                    ) NO-ERROR.
                
                lRetVal = TRUE.                
// oJsonResponse:WriteFile('C:\Temp\dynamicform_init_response.json', TRUE).
                LEAVE. 
            END.
            
            DO WHILE cFunction = 'loaddata' AND cProgram <> '':
MESSAGE 'loaddata start'.
oJsonIdent:WriteFile('C:\Temp\loaddat_jsonident.json', TRUE).
                IF oJsonIdent:HAS('sortField') THEN 
                DO:
                    DEFINE VARIABLE cSortField AS CHARACTER NO-UNDO.
                    DEFINE VARIABLE cDirection AS CHARACTER NO-UNDO.
                    
                    cSortField = oJsonIdent:GetCharacter('sortField').
                    cDirection = oJsonIdent:GetCharacter('sortDirection').

                    outilitiesHandler:writeSortfields(
                        INPUT  oJsonIdent   ,
                        INPUT  cFileName    ,
                        INPUT  cSortField   ,
                        INPUT  cDirection
                        ).
                END.

                rClass   = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
                cMethode = 'getData'.
                oHandler = rClass:NEW().
                lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                    INPUT  oJsonIdent  ,
                    OUTPUT oJsonResponse
                    ) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(INPUT hError).
 
// oJsonResponse:WriteFile(SUBSTITUTE('C:\TEMP\Loaddata_response_&1.json', oJsonIdent:GetCharacter('page')), TRUE).
// oJsonResponse:ADD('selectOptionsFix', oJsonSelectBoxes).

                lRetVal = TRUE.
                LEAVE.
            END.

            DO WHILE cFunction = 'rebuild':
                rClass   = Progress.Lang.Class:GetClass(cClass).
                cMethode = 'rebuildData'.
                oHandler = rClass:NEW().
                
                lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                    INPUT  oJsonIdent  ,
                    OUTPUT oJsonResult
                    ) NO-ERROR.
                IF outilitiesHandler:evaluateErrorStatus(hError) THEN lRetVal = FALSE.

                IF NOT lRetVal THEN 
                DO:
                    outilitiesHandler:getErrorMessage(
                        INPUT  '2009'        ,
                        INPUT  ilanguage_id ,
                        INPUT   '',
                        OUTPUT lcMessage).                    
                    oJsonResponse = NEW JsonObject().
                    oJsonResponse:ADD('success', FALSE).
                    oJsonResponse:ADD('message', lcMessage).
                    oJsonResponse:WRITE(lcJsonString, FALSE).
                END.
            
// oJsonResponse = NEW JsonObject().
// oJsonResponse:ADD('selectOptionsFix', oJsonSelectBoxes).
            
                oJsonResponse = oJsonResult.
                oJsonResponse:WriteFile(SUBSTITUTE('C:\TEMP\rebuild_&1.json', cFileName), TRUE).

                lRetVal = TRUE.
                LEAVE.
            END.
        
            DO WHILE cFunction = 'saveActiveFilter':
                cActiveSelection = oJsonIdent:GetCharacter('activeFilter').
MESSAGE cFunction '-' cActiveSelection.
                outilitiesHandler:setActiveSelection(
                    INPUT  oJsonIdent      ,
                    INPUT  cFileName       ,
                    INPUT  cActiveSelection
                    ).
            
                oJsonResponse = NEW JsonObject().
                oJsonResponse:ADD('success', TRUE).
//                oJsonResponse:WRITE(lcJsonString, FALSE).
            
                lRetVal = TRUE.
                LEAVE.
            END.
        
            DO WHILE cFunction = 'lookup' AND cProgram <> '':
                cMethode = oJsonIdent:GetCharacter('lookupField') NO-ERROR.
                cMethode = REPLACE(cMethode, cFileName + '_', '').
                cClass   = 'utilities.lookupHandler'.
            
                ASSIGN
                    rClass = Progress.Lang.Class:GetClass(cClass) NO-ERROR.

                oHandler = rClass:NEW() NO-ERROR.

                lRetVal = DYNAMIC-INVOKE ( oHandler, cMethode,
                    INPUT  oJsonIdent  ,
                    OUTPUT oJsonResult
                    ) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).
                oJsonResponse = oJsonResult.
                LEAVE.
            END.
                
            LEAVE.
        END.

        IF NOT lRetVal THEN 
        DO:
            lcString = oJsonMessageBox:GetLongchar('text').
            oJsonResponse = NEW JsonObject().
            oJsonResponse:ADD('success', FALSE).
            oJsonResponse:ADD('message', lcString).
            oJsonResponse:ADD('showMessage', oJsonMessageBox).
        END.

        oJsonResponse:WRITE(lcJsonString, FALSE).
        cContent-Type   = "application/json".
        cDefautlCharSet = 'utf-8'.

        oBody = NEW STRING(lcJsonString) NO-ERROR.
        outilitiesHandler:evaluateErrorStatus(hError).
        WebHandlerUtilities:createHttpResponse(INPUT INTEGER(StatusCodeEnum:OK), INPUT oBody, INPUT cContent-Type, INPUT cDefautlCharSet, INPUT cCorralationID, OUTPUT oResponse) NO-ERROR.
        outilitiesHandler:evaluateErrorStatus(hError).
// oResponse:SetHeader(HttpHeaderBuilder:Build(cHeaderCorralationID):Value(cCorralationID):Header).

        
        oWriter = NEW WebResponseWriter(oResponse) NO-ERROR.
        outilitiesHandler:evaluateErrorStatus(hError).
        oWriter:Open() NO-ERROR. 
        outilitiesHandler:evaluateErrorStatus(hError).
        oWriter:Close(). 

        RETURN 0.
        
        CATCH e AS Progress.Lang.Error:

        END CATCH.

        FINALLY:
            DELETE OBJECT oHandler          NO-ERROR.
            DELETE OBJECT oSelectBoxHandler NO-ERROR.
            DELETE OBJECT oResponse         NO-ERROR.
            DELETE OBJECT oWriter           NO-ERROR.
            DELETE OBJECT oJsonSelectBoxes  NO-ERROR.
            DELETE OBJECT oJsonBox          NO-ERROR.
            DELETE OBJECT oParser           NO-ERROR.
            DELETE OBJECT oJsonData         NO-ERROR.
            DELETE OBJECT oJsonResponse     NO-ERROR.
        END FINALLY.

    END METHOD.

    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    METHOD OVERRIDE PROTECTED INTEGER HandlePost(INPUT poRequest AS IWebRequest):
        
        DEFINE VARIABLE oJsonResponse AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonIdent    AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonBox      AS JsonArray  NO-UNDO.
        DEFINE VARIABLE oJsonData     AS JsonObject NO-UNDO.
        
        DEFINE VARIABLE lRetVal       AS LOGICAL    NO-UNDO.
        DEFINE VARIABLE ii            AS INTEGER    NO-UNDO.
        DEFINE VARIABLE i1            AS INTEGER    NO-UNDO.
        DEFINE VARIABLE cQueryString  AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cFileName     AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cClassName    AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cUser         AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cString       AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE lSendChange   AS LOGICAL    NO-UNDO.
        
        DEFINE VARIABLE oJsonResult   AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonMessage  AS JsonObject NO-UNDO.

        lRetVal = WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR.
// oJsonData:WriteFile('C:\Temp\oJsonData_Post_Data.json', TRUE).
        cQueryString      = STRING(poRequest:GetContextValue("QUERY_STRING")) NO-ERROR.
        cQueryString      = OpenEdge.Net.URI:Decode(cQueryString).
       
        outilitiesHandler = NEW utilitiesHandler().
        hError            = ERROR-STATUS:HANDLE.        
        
        outilitiesHandler:getHeaderData(
            INPUT  poRequest    ,
            INPUT  cQueryString ,
            OUTPUT ccompany     ,
            OUTPUT cuser_name   ,
            OUTPUT cAnzeigeName ,
            OUTPUT ilanguage_id ,
            OUTPUT cSessionToken,
            OUTPUT cFunction    ,
            OUTPUT oJsonIdent   
            ).
MESSAGE 'POST mit function ' oJsonIdent:GetCharacter('function').
        oJsonIdent:WRITE(lcJsonString, TRUE).
        //
        //  mögliche Benutzer für das durchsuchen von HTML-DOkumenten und Labeltexten ...
        //
        cUser = oJsonIdent:GetCharacter('H_user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers.
        cUser = oJsonIdent:GetCharacter('user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers.
        //
        //  Programmname aus den möglichen Benutzern ermitteln
        //
        lRetVal    = FALSE.
        iItemsPage = 50.
        cMaxHeight = '250px'.
        cProgram = outilitiesHandler:getProgramName (
            INPUT        oJsonIdent  ,
            INPUT        cUsers      ,
            OUTPUT       cFormUser   ,
            OUTPUT       cformColumns,
            INPUT-OUTPUT iItemsPage  ,
            INPUT-OUTPUT cMaxHeight
            ).

        IF cProgram = '' THEN 
        DO:
            cString = oJsonIdent:GetCharacter('formId').
            outilitiesHandler:createErrorBox(
                INPUT  oJsonIdent   ,
                INPUT  '2001'       ,
                INPUT  cString,  /* Parameters */
                OUTPUT oJsonMessageBox
                ).
            LEAVE.
        END.

        oJsonIdent:ADD('program'       , cProgram  ).
        oJsonIdent:ADD('itemsPerPage'  , iItemsPage).
        oJsonIdent:ADD('tableMaxHeight', cMaxHeight).
        oJsonIdent:ADD('formUser'      , cFormUser ).
        IF oJsonIdent:HAS('limit') THEN oJsonIdent:SET('limit', iItemsPage).
        ELSE                            oJsonIdent:ADD('limit', iItemsPage).
        
        cForm_Id   = oJsonIdent:GetCharacter('formId'    ).
        cClassName = oJsonIdent:GetCharacter('class_name').
        cFileName  = oJsonIdent:GetCharacter('file_name' ).
        
        FIND programs NO-LOCK 
            WHERE programs.program_name = cProgram NO-ERROR.
        IF NOT AVAILABLE programs THEN LEAVE.
        cClass      = programs.program_class.
        lSendChange = programs.sendChangeRecord.
        
        DO WHILE cFunction = 'change':
            cMethode = oJsonData:GetCharacter('changeAction').
            oJsonIdent:ADD('changeAction', cMethode). 
MESSAGE 'cFunction =' cFunction ' - Methode =' cMethode.
            rClass   = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
            oHandler = rClass:NEW().
            lRetVal  = DYNAMIC-INVOKE (oHandler, cMethode,
                INPUT  oJsonIdent ,
                INPUT  oJsonData  ,
                OUTPUT oJsonResult
                ) NO-ERROR.
            lRetVal = (IF outilitiesHandler:evaluateErrorStatus(hError) THEN FALSE ELSE TRUE).
// oJsonResult:WriteFile('C:\TEMP\DYNAMIC_CHANGE_Respons.json', TRUE).
            LEAVE.
        END.

        REPEAT TRANSACTION WHILE cFunction = 'create' ON ERROR UNDO, LEAVE:
            rClass   = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
            cMethode = 'createData'.
            oHandler = rClass:NEW().
            lRetVal  = DYNAMIC-INVOKE (oHandler, cMethode,
                INPUT  oJsonIdent ,
                INPUT  oJsonData  ,
                OUTPUT oJsonResult
                ) NO-ERROR.
            lRetVal = (IF outilitiesHandler:evaluateErrorStatus(hError) THEN FALSE ELSE TRUE).
// oJsonResult:WriteFile('C:\TEMP\DYNAMIC_CREATE_Respons.json', TRUE).
            LEAVE.
        END.
                    
        oResponse             = NEW OpenEdge.Web.WebResponse().
        oResponse:StatusCode  = INTEGER(StatusCodeEnum:OK).
        oResponse:ContentType = "application/json;charset=utf-8".
        
        IF NOT lRetVal THEN 
        DO:
            oJsonMessage = NEW JsonObject().
            oJsonMessage:ADD('success', FALSE).
            oJsonMessage:ADD('message', oJsonResult:GetLongchar('message')).
            oJsonMessage:WRITE(lcJsonString, FALSE).
        END.
        ELSE 
        DO:
            oJsonResult:WRITE(lcJsonString, FALSE).
// oJsonResult:WriteFile(SUBSTITUTE('C:\TEMP\DYNAMIC_&1_Respons.json', cFunction), TRUE).
        END.
// MESSAGE 'Rueckmeldung beim POST ' cFunction  STRING(lcJsonString).
                            
        oWriter = NEW WebResponseWriter(oResponse).
        oWriter:Open().
        oWriter:Write(lcJsonString).
        oWriter:Close().
    
        RETURN 0.
    
        CATCH e AS Progress.Lang.Error:
                
        END CATCH.
                
        FINALLY:
            DELETE OBJECT oJsonMessage  NO-ERROR.
            DELETE OBJECT oResponse     NO-ERROR.
            DELETE OBJECT oWriter       NO-ERROR.
            DELETE OBJECT oJsonResult   NO-ERROR.
        END FINALLY.

    END METHOD.
    
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    METHOD OVERRIDE PROTECTED INTEGER HandlePatch(INPUT poRequest AS IWebRequest):
        
        DEFINE VARIABLE oJsonResponse AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonIdent    AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonBox      AS JsonArray  NO-UNDO.
        DEFINE VARIABLE oJsonData     AS JsonObject NO-UNDO.
        
        DEFINE VARIABLE lRetVal       AS LOGICAL    NO-UNDO.
        DEFINE VARIABLE ii            AS INTEGER    NO-UNDO.
        DEFINE VARIABLE i1            AS INTEGER    NO-UNDO.
        DEFINE VARIABLE cQueryString  AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cFileName     AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cClassName    AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cUser         AS CHARACTER  NO-UNDO.
        
        DEFINE VARIABLE oJsonResult   AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonMessage  AS JsonObject NO-UNDO.
        
        lRetVal = WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR.

        cQueryString      = STRING(poRequest:GetContextValue("QUERY_STRING")) NO-ERROR.
        cQueryString      = OpenEdge.Net.URI:Decode(cQueryString).
        
        outilitiesHandler = NEW utilitiesHandler().
        hError            = ERROR-STATUS:HANDLE.        
        
        outilitiesHandler:getHeaderData(
            INPUT  poRequest    ,
            INPUT  cQueryString ,
            OUTPUT ccompany     ,
            OUTPUT cuser_name   ,
            OUTPUT cAnzeigeName ,
            OUTPUT ilanguage_id ,
            OUTPUT cSessionToken,
            OUTPUT cFunction    ,
            OUTPUT oJsonIdent   
            ).
MESSAGE 'PATCH mit function ' oJsonIdent:GetCharacter('function').
        //
        //  mögliche Benutzer für das durchsuchen von HTML-Dokumenten und Labeltexten ...
        //
        cUser = oJsonIdent:GetCharacter('H_user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers.
        cUser = oJsonIdent:GetCharacter('user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers.
        //
        //  Programmname aus den möglichen Benutzern ermitteln
        //
        lRetVal    = FALSE.
        iItemsPage = 50.
        cMaxHeight = '250px'.
        cProgram = outilitiesHandler:getProgramName (
            INPUT        oJsonIdent  ,
            INPUT        cUsers      ,
            OUTPUT       cFormUser   ,
            OUTPUT       cFormColumns,
            INPUT-OUTPUT iItemsPage  ,
            INPUT-OUTPUT cMaxHeight
            ).
        oJsonIdent:ADD('program', cProgram) NO-ERROR.

        cForm_Id   = oJsonIdent:GetCharacter('formId'    ).
        cClassName = oJsonIdent:GetCharacter('class_name').
        cFileName  = oJsonIdent:GetCharacter('file_name' ).
        
        FIND programs NO-LOCK 
            WHERE programs.program_name = cProgram NO-ERROR.
        IF NOT AVAILABLE programs THEN LEAVE.
        cClass = programs.program_class.

        REPEAT TRANSACTION WHILE cFunction = 'update' ON ERROR UNDO, LEAVE:
            rClass   = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
            cMethode = 'updateData'.
            oHandler = rClass:NEW().
            lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                INPUT  oJsonIdent ,
                INPUT  oJsonData  ,
                OUTPUT oJsonResult
                ) NO-ERROR.
            IF lRetVal THEN LEAVE.
            
            outilitiesHandler:evaluateErrorStatus(hError).
            LEAVE.
        END.
                    
        oResponse             = NEW OpenEdge.Web.WebResponse().
        oResponse:StatusCode  = INTEGER(StatusCodeEnum:OK).
        oResponse:ContentType = "application/json;charset=utf-8".
                        
        oJsonResult:WRITE(lcJsonString, FALSE).
// oJsonResult:WriteFile(SUBSTITUTE('C:\TEMP\DYNAMIC_&1_Respons.json', cFunction), TRUE).
        
        oWriter = NEW WebResponseWriter(oResponse).
        oWriter:Open().
        oWriter:Write(lcJsonString).
        oWriter:Close().
    
        RETURN 0.
    
        CATCH e AS Progress.Lang.Error:
                
        END CATCH.
                
        FINALLY:
            DELETE OBJECT oJsonMessage  NO-ERROR.
            DELETE OBJECT oWriter       NO-ERROR.
            DELETE OBJECT oResponse     NO-ERROR.
            DELETE OBJECT oHandler      NO-ERROR.
        END FINALLY.

    END METHOD.
    
    
    METHOD OVERRIDE PROTECTED INTEGER HandleNotAllowedMethod(INPUT poRequest AS IWebRequest):
        DEFINE VARIABLE result AS INTEGER NO-UNDO.
        MESSAGE "HandleNotAllowedMethod called" VIEW-AS ALERT-BOX.
        RETURN result.
    END METHOD.

    METHOD OVERRIDE PROTECTED INTEGER HandleNotImplemented(INPUT poRequest AS IWebRequest):
        DEFINE VARIABLE result AS INTEGER NO-UNDO.
        MESSAGE "HandleNotImplemented called" VIEW-AS ALERT-BOX.
        RETURN result.
    END METHOD.

    DESTRUCTOR PUBLIC dynamicformImpl ( ):

    END DESTRUCTOR.

END CLASS.