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 Progress.Lang.ParameterList                   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 oJsonData            AS JsonObject           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 cQueryString         AS CHARACTER            NO-UNDO.
    
    DEFINE VARIABLE lcJsonString         AS LONGCHAR             NO-UNDO.
    DEFINE VARIABLE lcString             AS LONGCHAR             NO-UNDO.    
    DEFINE VARIABLE cString              AS CHARACTER            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 cFormId              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 cFileName            AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cFieldName           AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cUsers               AS CHARACTER            NO-UNDO INIT 'user,admin'.
    DEFINE VARIABLE cMaxHeight           AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE iItemsPage           AS INTEGER              NO-UNDO.
    
    DEFINE VARIABLE cActiveSelection     AS CHARACTER            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 lSendChange          AS LOGICAL              NO-UNDO.
    
    DEFINE VARIABLE lcMessage            AS LONGCHAR             NO-UNDO.
    DEFINE VARIABLE cErrorNo             AS CHARACTER            NO-UNDO.
    DEFINE VARIABLE cLogFile             AS CHARACTER            NO-UNDO.
    
    DEFINE VARIABLE hError               AS HANDLE               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 oParam               AS ParameterList        NO-UNDO.
    
    DEFINE VARIABLE oJsonIdent           AS JsonObject           NO-UNDO.
    DEFINE VARIABLE oJsonActiveSelectBox AS JsonObject           NO-UNDO.
    DEFINE VARIABLE oJsonMessageBox      AS JsonObject           NO-UNDO.
    DEFINE VARIABLE oJsonResponse        AS JsonObject           NO-UNDO.
        
    DEFINE VARIABLE outilitiesHandler    AS utilitiesHandler     NO-UNDO.
    DEFINE VARIABLE oselectboxHandler    AS selectboxHandler     NO-UNDO.

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

    CONSTRUCTOR PUBLIC dynamicformImpl (  ):
        SUPER ().
        
        hError            = ERROR-STATUS:HANDLE.
                
        outilitiesHandler = NEW utilitiesHandler().
        oselectboxHandler = NEW selectboxHandler().
        
        CATCH e AS Progress.Lang.Error:

        END CATCH.

        FINALLY:

        END FINALLY.

    END CONSTRUCTOR.


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

    METHOD PUBLIC VOID createJsonIdent(
        INPUT poRequest AS IWebRequest
        ):
            
        DEFINE VARIABLE cUser     AS CHARACTER NO-UNDO.
        
        DEFINE VARIABLE httBuffer AS HANDLE    NO-UNDO.
        
        outilitiesHandler:getHeaderData(
            INPUT  poRequest    ,
            OUTPUT ccompany     ,
            OUTPUT cUser_Name   ,
            OUTPUT cAnzeigeName ,
            OUTPUT ilanguage_id ,
            OUTPUT cSessionToken,
            OUTPUT cFunction    ,
            OUTPUT oJsonIdent   
            ).
        cFormId   = oJsonIdent:GetCharacter('formId').
        cFileName = ENTRY(1, cFormId, '_').
        //
        //  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.
        oJsonIdent:ADD('cUsers', cUsers).
        //
        //  Wenn ein UI Multi-Tab hat, wird es hier erstellt
        //
        RETURN.

    END METHOD.

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

    METHOD PUBLIC VOID createMultiTab(
        OUTPUT oJsonTabs    AS JsonArray
        ):
            
        DEFINE VARIABLE cTabGroup            AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cHtmlUser            AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE ii                   AS INTEGER    NO-UNDO.
        
        DEFINE VARIABLE cTabProgram          AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cHtmlFileName        AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cKeyField            AS CHARACTER  NO-UNDO.
        
        DEFINE VARIABLE oJsonTab             AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonMasterKeyFields AS JsonArray  NO-UNDO.
MESSAGE 'START MULTITAB'.                
        oJsonTabs = NEW JsonArray().

        FIND programs NO-LOCK 
            WHERE programs.formId = cFormId NO-ERROR.
        cTabGroup = programs.tab_group.
        cProgram  = programs.program.
            
        DO ii = 1 TO NUM-ENTRIES(cUsers, ','):
            cHtmlUser = ENTRY(ii, cUsers, ',').
            FIND FIRST htmldokumente
                WHERE htmldokumente.company     = ccompany
                AND   htmldokumente.user_name   = cHtmlUser
                AND   htmldokumente.language_id = ilanguage_id
                AND   htmldokumente.program     = cProgram NO-ERROR.
            IF AVAILABLE htmldokumente THEN LEAVE.
        END.                
            
        oJsonTab = NEW JsonObject().
        oJsonTab:ADD('tabIndex'   , 1). 
        oJsonTab:ADD('formId'     , htmldokumente.formId). 
        oJsonTab:ADD('title'      , htmldokumente.formtitle). 
        oJsonTab:ADD('programName', cprogram). 
        oJsonTab:ADD('isMain'     , programs.isMain).
        oJsonTabs:ADD(oJsonTab).
             
        FOR EACH programs NO-LOCK 
            WHERE programs.tab_group = cTabGroup
            AND   programs.tab_index > 1
                
            BY programs.tab_index:

            cTabProgram = programs.program.
            MESSAGE 'Tab-Gruppe' cTabGroup '-' cTabProgram.
            DO ii = 1 TO NUM-ENTRIES(cUsers, ','):
                cHtmlUser = ENTRY(ii, cUsers, ',').
                FIND FIRST htmldokumente
                    WHERE htmldokumente.company     = ccompany
                    AND   htmldokumente.user_name   = cHtmlUser
                    AND   htmldokumente.language_id = ilanguage_id
                    AND   htmldokumente.program     = cTabProgram NO-ERROR.
                IF AVAILABLE htmldokumente THEN LEAVE.
            END.
                
            cHtmlFileName = ENTRY(1, htmldokumente.formId, '_').
                                 
            oJsonTab = NEW JsonObject().
            oJsonTab:ADD('tabIndex'   , programs.tab_index). 
            oJsonTab:ADD('formId'     , htmldokumente.formId). 
            oJsonTab:ADD('title'      , htmldokumente.formtitle). 
            oJsonTab:ADD('programName', htmldokumente.program). 
            oJsonTab:ADD('isMain'     , programs.isMain).
            oJsonTab:ADD('tabType'    , programs.tabtype).
            oJsonTab:ADD('allowCreate', programs.allowCreate).
            oJsonTab:ADD('allowEdit'  , programs.allowedit).
            oJsonTab:ADD('allowDelete', programs.allowDelete).
            oJsonTab:ADD('allowCopy'  , programs.allowCopy).

            cKeyField = SUBSTITUTE('&1_address_id', 'addresses' /*cHtmlFileName*/).            
            oJsonMasterKeyFields = NEW JsonArray().
            oJsonMasterKeyFields:ADD(cKeyField).
            oJsonTab:ADD('masterKeyFields', oJsonMasterKeyFields).
                
            oJsonTabs:ADD(oJsonTab).
        END.
            
        // oJsonTabs:WRITE(lcString).
        MESSAGE 'ENDE MULTITAB'.        
        RETURN.

    END METHOD.

    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/
    
    METHOD OVERRIDE PROTECTED INTEGER HandleDelete(INPUT poRequest AS IWebRequest):
        
        DEFINE VARIABLE oJsonResult AS JsonObject NO-UNDO.

        DEFINE VARIABLE lRetVal     AS LOGICAL    NO-UNDO.
        DEFINE VARIABLE iRetVal     AS INTEGER    NO-UNDO.
        DEFINE VARIABLE ii          AS INTEGER    NO-UNDO.
        
        WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR.

        DO WHILE TRUE:
            iRetVal = processingInitFunction(
                INPUT  poRequest    ,
                OUTPUT oJsonResponse
                ).
            IF iRetVal =  0 THEN RETURN 0.
            IF iRetVal = -1 THEN LEAVE.
                
            IF iRetVal = 1 THEN responseOK(
                    INPUT oJsonResponse
                    ).
            RETURN 0.
        END.

        REPEAT TRANSACTION WHILE cFunction = 'delete' ON ERROR UNDO, LEAVE:
            rClass = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
            oJsonIdent:Write(lcJsonString, FALSE).
            IF VALID-OBJECT(rClass) THEN 
            DO:
                oParam = NEW ParameterList(2).
                oParam:SetParameter(1, 'longchar' , 'INPUT', lcJsonString ) NO-ERROR.
                oParam:SetParameter(2, 'character', 'INPUT', cFunction    ) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).

                oHandler = rClass:New(oParam) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).
            END.
// oJsonData:WriteFile('C:\TEMP\dynamicform_delete_data.json', TRUE).                
            cMethode = 'deleteData'.
            lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                INPUT  oJsonData   ,
                OUTPUT oJsonResult
                ) NO-ERROR.
            outilitiesHandler:evaluateErrorStatus(INPUT hError).
// MESSAGE lRetVal.
            oJsonResult:WRITE(lcString, FALSE).
//MESSAGE STRING(lcString).
            responseOK(
                INPUT oJsonResult
                ).
                
            RETURN 0.
        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 oHandler     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 oJsonSelectBoxes AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonBox         AS JsonArray  NO-UNDO.
        DEFINE VARIABLE oJsonResult      AS JsonObject NO-UNDO.

        DEFINE VARIABLE cUser            AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE lRetVal          AS LOGICAL    NO-UNDO.
        DEFINE VARIABLE ii               AS INTEGER    NO-UNDO.
        DEFINE VARIABLE iRetVal          AS INTEGER    NO-UNDO.
        
        DEFINE VARIABLE httBuffer        AS HANDLE     NO-UNDO.

        DO WHILE TRUE:
            iRetVal = processingInitFunction(
                INPUT  poRequest    ,
                OUTPUT oJsonResponse
                ).
            IF iRetVal =  0 THEN RETURN 0.
            IF iRetVal = -1 THEN LEAVE.
                
            IF iRetVal = 1 THEN responseOK(
                    INPUT oJsonResponse
                    ).
            RETURN 0.
        END.

        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 = 'loaddata' AND cProgram <> '':
MESSAGE 'loaddata' cFileName.
            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.
            oJsonIdent:Write(lcJsonString, FALSE).
            IF VALID-OBJECT(rClass) THEN 
            DO:
                oParam = NEW ParameterList(2).
                oParam:SetParameter(1, 'longchar',  'INPUT', lcJsonString ) NO-ERROR.
                oParam:SetParameter(2, 'character', 'INPUT', cFunction    ) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).

                oHandler = rClass:New(oParam) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).
            END.
                
            cMethode = 'getData'.
            lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                OUTPUT oJsonResponse
                ) NO-ERROR.
            outilitiesHandler:evaluateErrorStatus(INPUT hError).
 
// oJsonResponse:WriteFile(SUBSTITUTE('C:\TEMP\Loaddata_response_&1.json', cProgram), TRUE).

            responseOK(
                INPUT oJsonResponse
                ).
                
            RETURN 0.
        END.

        DO WHILE cFunction = 'loaddataunique' AND cProgram <> '':
            MESSAGE 'START LOADDATAUNIQUE' cFileName.
            rClass   = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
            oJsonIdent:Write(lcJsonString, FALSE).
            IF VALID-OBJECT(rClass) THEN 
            DO:
                oParam = NEW ParameterList(2).
                oParam:SetParameter(1, 'longchar',  'INPUT', lcJsonString ) NO-ERROR.
                oParam:SetParameter(2, 'character', 'INPUT', cFunction    ) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).

                oHandler = rClass:New(oParam) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).
            END.
                
            cMethode = 'getDataUnique'.
                // oHandler = rClass:NEW().
            lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                OUTPUT oJsonResponse
                ) NO-ERROR.
// MESSAGE 'return from loaddataunique' lRetVal.
            outilitiesHandler:evaluateErrorStatus(INPUT hError).
 
// oJsonResponse:WriteFile('C:\TEMP\Loaddataunique_response.json', TRUE).
// oJsonResponse:ADD('selectOptionsFix', oJsonSelectBoxes).

            lRetVal = TRUE.
            LEAVE.
        END.

        DO WHILE cFunction = 'rebuild':
            rClass   = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
            oJsonIdent:Write(lcJsonString, FALSE).
            IF VALID-OBJECT(rClass) THEN 
            DO:
                oParam = NEW ParameterList(2).
                oParam:SetParameter(1, 'longchar' , 'INPUT', lcJsonString ) NO-ERROR.
                oParam:SetParameter(2, 'character', 'INPUT', cFunction    ) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).

                oHandler = rClass:New(oParam) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).
            END.
                
            cMethode = 'rebuildData'.
            lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                INPUT  oJsonData   ,
                OUTPUT oJsonResult
                ) NO-ERROR.
            outilitiesHandler:evaluateErrorStatus(INPUT hError).
MESSAGE 'Return bei rebuild' lRetVal.
            oJsonResult:write(lcString, FALSE).
MESSAGE STRING(lcString).
            responseOK(
                INPUT oJsonResult
                ).
                
            RETURN 0.

        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.
                
        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'.
// IF cFunction = 'multitab' THEN oJsonResponse:WriteFile(SUBSTITUTE('C:\TEMP\dynamicform_get_response_&1.json', ETIME), TRUE).
        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 oJsonResponse     NO-ERROR.
        END FINALLY.

    END METHOD.

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

    METHOD OVERRIDE PROTECTED INTEGER HandlePost(INPUT poRequest AS IWebRequest):
        
        DEFINE VARIABLE oJsonResult          AS JsonObject NO-UNDO.

        DEFINE VARIABLE lRetVal              AS LOGICAL    NO-UNDO.
        DEFINE VARIABLE iRetVal              AS INTEGER    NO-UNDO.
        DEFINE VARIABLE ii                   AS INTEGER    NO-UNDO.
        
        WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR.

        DO WHILE TRUE:
            iRetVal = processingInitFunction(
                INPUT  poRequest    ,
                OUTPUT oJsonResponse
                ).
            IF iRetVal =  0 THEN RETURN 0.
            IF iRetVal = -1 THEN LEAVE.
                
            IF iRetVal = 1 THEN responseOK(
                    INPUT oJsonResponse
                    ).
            RETURN 0.
        END.

        DO WHILE cFunction = 'change':
            rClass = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
            oJsonIdent:Write(lcJsonString, FALSE).
            IF VALID-OBJECT(rClass) THEN 
            DO:
                oParam = NEW ParameterList(2).
                oParam:SetParameter(1, 'longchar' , 'INPUT', lcJsonString ) NO-ERROR.
                oParam:SetParameter(2, 'character', 'INPUT', cFunction    ) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).

                oHandler = rClass:New(oParam) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).
            END.
                
            cMethode = oJsonData:GetCharacter('changeAction').
// MESSAGE 'changeAction =' cMethode.
            lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                INPUT  oJsonData    ,
                OUTPUT oJsonResponse
                ) NO-ERROR.
            outilitiesHandler:evaluateErrorStatus(INPUT hError).
            
            responseOK(
                INPUT oJsonResponse
                ).
                
            RETURN 0.
        END.

        REPEAT TRANSACTION WHILE cFunction = 'create' ON ERROR UNDO, LEAVE:
            rClass = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
            oJsonIdent:Write(lcJsonString, FALSE).
            IF VALID-OBJECT(rClass) THEN 
            DO:
                oParam = NEW ParameterList(2).
                oParam:SetParameter(1, 'longchar' , 'INPUT', lcJsonString ) NO-ERROR.
                oParam:SetParameter(2, 'character', 'INPUT', cFunction    ) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).

                oHandler = rClass:New(oParam) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).
            END.
                
            cMethode = 'createData'.
// MESSAGE 'changeAction =' cMethode.
            lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                INPUT  oJsonData    ,
                OUTPUT oJsonResponse
                ) NO-ERROR.
            outilitiesHandler:evaluateErrorStatus(INPUT hError).
            
            responseOK(
                INPUT oJsonResponse
                ).
                
            RETURN 0.

        END.
                    
        oResponse             = NEW OpenEdge.Web.WebResponse().
        oResponse:StatusCode  = INTEGER(StatusCodeEnum:OK).
        oResponse:ContentType = "application/json;charset=utf-8".
        
        oJsonResult:WRITE(lcJsonString, FALSE).
                            
        oWriter = NEW WebResponseWriter(oResponse).
        oWriter:Open().
        oWriter:Write(lcJsonString).
        oWriter:Close().
    
        RETURN 0.
    
        CATCH e AS Progress.Lang.Error:
                
        END CATCH.
                
        FINALLY:
            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 oJsonResult AS JsonObject NO-UNDO.

        DEFINE VARIABLE lRetVal     AS LOGICAL    NO-UNDO.
        DEFINE VARIABLE iRetVal     AS INTEGER    NO-UNDO.
        DEFINE VARIABLE ii          AS INTEGER    NO-UNDO.
        
        WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR.

        DO WHILE TRUE:
            iRetVal = processingInitFunction(
                INPUT  poRequest    ,
                OUTPUT oJsonResponse
                ).
            IF iRetVal =  0 THEN RETURN 0.
            IF iRetVal = -1 THEN LEAVE.
                
            IF iRetVal = 1 THEN responseOK(
                    INPUT oJsonResponse
                    ).
            RETURN 0.
        END.

        REPEAT TRANSACTION WHILE cFunction = 'update' ON ERROR UNDO, LEAVE:
            rClass   = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
            oJsonIdent:Write(lcJsonString, FALSE).
            IF VALID-OBJECT(rClass) THEN 
            DO:
                oParam = NEW ParameterList(2).
                oParam:SetParameter(1, 'longchar' , 'INPUT', lcJsonString ) NO-ERROR.
                oParam:SetParameter(2, 'character', 'INPUT', cFunction    ) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).

                oHandler = rClass:New(oParam) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).
            END.
                
            cMethode = 'updateData'.
            lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                INPUT  oJsonData   ,
                OUTPUT oJsonResult
                ) NO-ERROR.
            outilitiesHandler:evaluateErrorStatus(INPUT hError).
MESSAGE 'Return bri update' lRetVal.
oJsonResult:write(lcString, FALSE).
MESSAGE STRING(lcString).
            responseOK(
                INPUT oJsonResult
                ).
                
            RETURN 0.
        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:
            
        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.

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

    METHOD PUBLIC INTEGER processingInitFunction(
        INPUT  poRequest   AS IWebRequest, 
        OUTPUT oJsonReturn AS JsonObject
        ):
            
        DEFINE VARIABLE ii                   AS INTEGER    NO-UNDO.
        DEFINE VARIABLE cUser                AS CHARACTER  NO-UNDO.

        DEFINE VARIABLE oJsonBox             AS JsonArray  NO-UNDO.            
        DEFINE VARIABLE oJsonSelectBoxes     AS JsonObject NO-UNDO.            
        DEFINE VARIABLE oJsonTabs            AS JsonArray  NO-UNDO.
        DEFINE VARIABLE oJsonTab             AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonMasterKeyFields AS JsonArray  NO-UNDO.

            
        DEFINE VARIABLE httBuffer            AS HANDLE     NO-UNDO.
        
        outilitiesHandler:getHeaderData(
            INPUT  poRequest    ,
            OUTPUT ccompany     ,
            OUTPUT cUser_Name   ,
            OUTPUT cAnzeigeName ,
            OUTPUT ilanguage_id ,
            OUTPUT cSessionToken,
            OUTPUT cFunction    ,
            OUTPUT oJsonIdent   
            ).
        cFormId   = oJsonIdent:GetCharacter('formId') NO-ERROR.
        cFileName = ENTRY(1, cFormId, '_').
        IF NOT oJsonIdent:has('user_name') THEN oJsonIdent:add('user_name', cUser_Name).
        //
        //  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.
        oJsonIdent:ADD('cUsers', cUsers).
        //
        //  Wenn ein UI Multi-Tab hat, wird es hier erstellt
        //
        DO WHILE cFunction='multitab':
            createMultiTab(
                OUTPUT oJsonTabs
                ).
                
            oJsonResponse = NEW JsonObject().
            oJsonResponse:ADD('tabs', oJsonTabs).
            responseOK(oJsonResponse). 
            RETURN 0.
        END.
        //
        //  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.
        //
        //  wenn die Tabelle(File) das Feld wordindex enthält, muss am Ende der WordIndex aufgebaut werden
        //
        hField = hBuffer:BUFFER-FIELD('wordindex') NO-ERROR.
        IF  NOT ERROR-STATUS:ERROR AND 
            VALID-HANDLE(hField)   THEN lWordIndex = TRUE.
            
        DELETE OBJECT hBuffer.
        
        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
                ).
            oJsonResponse = NEW JsonObject().
            oJsonResponse:ADD('showMessage', oJsonMessageBox).
            responseNOTOK(oJsonResponse). 
            RETURN 0.
        END.

        oJsonIdent:ADD('program'       , cProgram  ).
        oJsonIdent:ADD('itemsPerPage'  , iItemsPage).
        oJsonIdent:ADD('tableMaxHeight', cMaxHeight).
        oJsonIdent:ADD('formUser'      , cFormUser ).
        
        cErrorNo   = ''.

        FIND programs NO-LOCK 
            WHERE programs.program = cProgram NO-ERROR.
        IF NOT AVAILABLE programs THEN LEAVE.
            
        cClass      = programs.program_class.
        lSendChange = programs.sendChangeRecord.
        //
        //  Nur bei Function "init" müssen fixe Selectboxen
        //  und UI - Parameter ermittelt werden
        //        
        IF cFunction <> 'init' THEN RETURN -1.
        //
        //  Es sollen alle Fixen Selctboxen erstellet werden
        //
        oJsonSelectBoxes  = NEW JsonObject().
        FOR EACH selectboxfields NO-LOCK
            WHERE selectboxfields.company       = ccompany
            AND   selectboxfields.program       = cFormId
            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
                    ).

                oJsonSelectBoxes:ADD(cFieldName, oJsonBox).
            END.
        END.

        oJsonReturn = NEW JsonObject().
        oJsonReturn:ADD('selectOptionsFix', oJsonSelectBoxes).
        oJsonReturn:ADD('tableMaxHeight'  , cMaxHeight      ).
        oJsonReturn:ADD('itemsPerPage'    , iItemsPage      ).
        oJsonReturn:ADD('formColumns'     , cFormColumns    ).
        oJsonReturn:ADD('lSearch'         , lWordIndex      ).
        oJsonReturn:ADD('hasRecordChange' , lSendChange     ).
        //
        //  Wenn die Tabelle das Feld active hat, wird die SelectBox für den activ-Filter gefüllt
        //
        IF lActive THEN 
        DO:
            outilitiesHandler:getActiveSelection(
                INPUT  oJsonIdent,
                INPUT  cFileName ,
                OUTPUT cActiveSelection
                ).
                
            oJsonReturn:ADD("activeFilter"    , cActiveSelection).
            oJsonReturn: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.
            oJsonReturn:ADD('activeFilterLabels', oJsonActiveSelectBox).
            
        END.
        //
        //  Sortfelder auf start (keine Felder) stellen.
        //
        outilitiesHandler:writeSortfields(
            INPUT  oJsonIdent   ,
            INPUT  cFileName    ,
            INPUT  ''           ,   //  cSortField
            INPUT  ''               //  cDirection
            ) NO-ERROR.
                
// oJsonReturn:WriteFile(SUBSTITUTE('C:\Temp\dynamicform_init_&1_return.json', cProgram), TRUE).
        RETURN 1.

    END METHOD.

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

    METHOD PUBLIC VOID responseNOTOK(
        INPUT oJsonResponse AS JsonObject
        ):

        DEFINE VARIABLE oMessage AS JsonObject.
            
        oJsonResponse:ADD('success', FALSE).
        
        IF oJsonResponse:HAS('showMessage') THEN 
        DO:
            oMessage = oJsonResponse:GetJsonObject('showMesage').
            lcString = oMessage:GetLongchar('text').
            oJsonResponse:ADD('message', lcString).
        END.
        
        oResponse             = NEW OpenEdge.Web.WebResponse().
        oResponse:StatusCode  = INTEGER(StatusCodeEnum:OK).
        oResponse:ContentType = "application/json;charset=utf-8".
        oWriter               = NEW WebResponseWriter(oResponse).
        
        oJsonResponse:WRITE(lcJsonString, FALSE). 
        MESSAGE 'responsOK oResponse ->' STRING(lcJsonString).
        oWriter:Open().
        oWriter:Write(lcJsonString).
        oWriter:Close().
        
        RETURN.

    END METHOD.

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

    METHOD PUBLIC VOID responseOK(
        INPUT oJsonReturn AS JsonObject
        ):

        oResponse             = NEW OpenEdge.Web.WebResponse()   NO-ERROR.
        oResponse:StatusCode  = INTEGER(StatusCodeEnum:OK)       NO-ERROR.
        oResponse:ContentType = "application/json;charset=utf-8" NO-ERROR.
        oWriter               = NEW WebResponseWriter(oResponse) NO-ERROR.
        
        oJsonReturn:WRITE(lcJsonString, FALSE).

        oWriter:Open() NO-ERROR.
        outilitiesHandler:evaluateErrorStatus(hError).
        oWriter:Write(lcJsonString) NO-ERROR.
        outilitiesHandler:evaluateErrorStatus(hError).
        oWriter:Close().
        
        RETURN.

    END METHOD.

    DESTRUCTOR PUBLIC dynamicformImpl ( ):

        DELETE OBJECT oWriter       NO-ERROR.
        DELETE OBJECT oResponse     NO-ERROR.
        DELETE OBJECT oHandler      NO-ERROR.
            
    END DESTRUCTOR.

END CLASS.