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.*                               FROM PROPATH.

USING src.ch.adprime.gemis.WebHandlerUtilities      FROM PROPATH.
USING utilities.selectboxHandler                    FROM PROPATH.
USING utilities.utilitiesHandler                    FROM PROPATH.
USING admin.adminprogsHandler                       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 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 cProgramUser         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 cFieldName    AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cClassName    AS CHARACTER  NO-UNDO.
        
        DEFINE VARIABLE oJsonResult   AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonMessage  AS JsonObject NO-UNDO.
        DEFINE VARIABLE httBuffer     AS HANDLE     NO-UNDO.

        lRetVal = WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR.
        cLogFile = SUBSTITUTE('C:\TEMP\handleDELETE_&1.json', REPLACE(STRING(TIME,'HH:MM:SS'), ':', '')).
        oJsonData:WriteFile(cLogFile, TRUE).

        hError            = ERROR-STATUS:HANDLE.
        outilitiesHandler = NEW utilitiesHandler().
        cQueryString      = STRING(poRequest:GetContextValue("QUERY_STRING"))    NO-ERROR.
        
        outilitiesHandler:getHeaderData(
            INPUT  poRequest    ,
            INPUT  cQueryString ,
            OUTPUT ccompany     ,
            OUTPUT cuser_name   ,
            OUTPUT cAnzeigeName ,
            OUTPUT ilanguage_id ,
            OUTPUT cSessionToken,
            OUTPUT cFunction    ,
            OUTPUT oJsonIdent   
            ).

        // oJsonIdent:WriteFile('C:\TEMP\dynamicform_DELETE_ident.json', TRUE).
                
        cForm_Id   = oJsonIdent:GetCharacter('formId').
        cClassName = ENTRY(1, cForm_Id, '_').
        cFileName  = ENTRY(1, cForm_Id, '_').
        //
        //  mögliche Benutzer für das durchsuchen von HTML-DOkumenten und Labeltexten ...
        //
        cuser_name = oJsonIdent:GetCharacter('H_user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cuser_name, cUsers, ',') = 0 THEN cUsers = cuser_name + ',' + cUsers.
        cuser_name = oJsonIdent:GetCharacter('user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cuser_name, cUsers, ',') = 0 THEN cUsers = cuser_name + ',' + cUsers.
        
        lRetVal    = FALSE.
      
        cProgram = outilitiesHandler:getProgramName (
            INPUT  oJsonIdent,
            INPUT  cUsers
            ).
            
        REPEAT TRANSACTION WHILE cFunction = 'delete' ON ERROR UNDO, LEAVE:
            CASE cClassName:
                WHEN 'users' THEN 
                    cClass = 'admin.adminprogsHandler'.
                WHEN 'messages' THEN 
                    cClass = 'admin.adminprogsHandler'.
                WHEN 'labeltexte' THEN 
                    cClass = 'admin.adminprogsHandler'.
            END CASE.

            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 cFormUser        AS CHARACTER  NO-UNDO.
        
        DEFINE VARIABLE oJsonResult      AS JsonObject NO-UNDO.
        DEFINE VARIABLE httBuffer        AS HANDLE     NO-UNDO.
        
        hError            = ERROR-STATUS:HANDLE.
        outilitiesHandler = NEW utilitiesHandler().
        cQueryString      = STRING(poRequest:GetContextValue("QUERY_STRING"))    NO-ERROR.
        
        outilitiesHandler:getHeaderData(
            INPUT  poRequest    ,
            INPUT  cQueryString ,
            OUTPUT ccompany     ,
            OUTPUT cuser_name   ,
            OUTPUT cAnzeigeName ,
            OUTPUT ilanguage_id ,
            OUTPUT cSessionToken,
            OUTPUT cFunction    ,
            OUTPUT oJsonIdent   
            ).
        //
        //  mögliche Benutzer für das durchsuchen von HTML-DOkumenten und Labeltexten ...
        //
        cuser_name = oJsonIdent:GetCharacter('H_user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cuser_name, cUsers, ',') = 0 THEN cUsers = cuser_name + ',' + cUsers.
        cuser_name = oJsonIdent:GetCharacter('user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cuser_name, cUsers, ',') = 0 THEN cUsers = cuser_name + ',' + cUsers.
        
        cLogFile = SUBSTITUTE('C:\TEMP\handleGET_&1.json', REPLACE(STRING(TIME,'HH:MM:SS'), ':', '')).
        oJsonIdent:WriteFile(cLogFile, TRUE) NO-ERROR.
        outilitiesHandler:evaluateErrorStatus(INPUT hError).
        
        lRetVal = FALSE.

        MASTERLOOP:
        DO WHILE TRUE:
            //
            //  Programmname aus den möglichen Benutzern ermitteln
            //
            cMaxHeight = '250px'.
            iItemsPage = 50.
            cProgram = outilitiesHandler:getProgramName (
                INPUT        oJsonIdent,
                INPUT        cUsers    ,
                OUTPUT       cFormUser ,
                INPUT-OUTPUT iItemsPage,
                INPUT-OUTPUT cMaxHeight
                ).
            IF cProgram = '' THEN 
            DO:
                outilitiesHandler:getErrorMessage(
                    INPUT  '2001',
                    INPUT  iLanguage_id,
                    INPUT  oJsonIdent:GetCharacter('frameId'),  /* Parameters */
                    OUTPUT lcMessage
                    ).
                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.
            
            //            
            //  active-Feld-Filter ermitten
            //
            outilitiesHandler:getActiveSelection(
                INPUT  oJsonIdent      ,
                INPUT  cFileName       ,
                OUTPUT cActiveSelection
                ).
            IF cActiveSelection <> '' THEN 
            DO:
                IF NOT oJsonIdent:HAS('activeFilter') THEN oJsonIdent:ADD('activeFilter', cActiveSelection ).
            END.

            DO WHILE cFunction = 'saveActiveFilter' AND cProgram <> '':
                outilitiesHandler:setActiveSelection(
                    INPUT  oJsonIdent,
                    INPUT  cFileName,
                    INPUT  oJsonIdent:GetCharacter('activeFilter')
                    ).
                lRetVal = TRUE.
                LEAVE.
            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.
                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:

                    DO ii = 1 TO NUM-ENTRIES(selectboxfields.boxfields, ';'):
                        cFieldName = ENTRY(ii, selectboxfields.boxfields, ';').
                        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.
                    
                    END.
                END.
                
                oJsonResponse = NEW JsonObject().
                oJsonResponse:ADD('selectOptionsFix', oJsonSelectBoxes).
                oJsonResponse:ADD("tableMaxHeight"  , cMaxHeight      ).
                oJsonResponse:ADD("itemsPerPage"    , iItemsPage      ).
                //
                //  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   = cuser_name
                        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.
                END.
                oJsonResponse:ADD('activeFilterLabels', oJsonActiveSelectBox).
                
                lRetVal = TRUE.                
                LEAVE. 
            END.
            
            DO WHILE cFunction = 'loaddata' AND cProgram <> '':
                CASE cClassName:
                    WHEN 'users' THEN 
                        cClass = 'admin.adminprogsHandler'.
                    WHEN 'messages' THEN 
                        cClass = 'admin.adminprogsHandler'.
                    WHEN 'labeltexte' THEN 
                        cClass = 'admin.adminprogsHandler'.
                END CASE.

                rClass   = Progress.Lang.Class:GetClass(cClass) NO-ERROR.
                cMethode = 'getData'.
                oHandler = rClass:NEW().
                lRetVal  = DYNAMIC-INVOKE ( oHandler, cMethode,
                    INPUT  oJsonIdent  ,
                    OUTPUT oJsonResult
                    ) NO-ERROR.
                outilitiesHandler:evaluateErrorStatus(hError).
                IF NOT lRetVal THEN LEAVE.
 
                oJsonResponse = NEW JsonObject().
                oJsonResponse:ADD('selectOptionsFix', oJsonSelectBoxes).
            
                oJsonResponse = oJsonResult.

                lRetVal = TRUE.
                LEAVE.
            END.
        
            DO WHILE cFunction = 'change' AND cProgram <> '':
                CASE cClassName:
                    WHEN 'users' THEN 
                        cClass = 'adminprogsHandler'.
                    WHEN 'messages' THEN 
                        cClass = 'adminprogsHandler'.
                    WHEN 'labeltexte' THEN 
                        cClass = 'adminprogsHandler'.
                END CASE.
            
                ASSIGN
                    rClass = Progress.Lang.Class:GetClass(cClass).
                
                cMethode = 'change'.

                oHandler = rClass:NEW().
                lRetVal = DYNAMIC-INVOKE ( oHandler, cMethode,
                    INPUT  oJsonIdent  ,
                    INPUT  oJsonData   ,
                    OUTPUT oJsonResult
                    ).
                IF NOT lRetVal THEN LEAVE.
                
                oJsonResponse = NEW JsonObject().
                oJsonResponse:ADD('selectOptionsFix', oJsonSelectBoxes).
            
                oJsonResponse = oJsonResult.

                lRetVal = TRUE.
                LEAVE.
            END.
        
            DO WHILE cFunction = 'rebuild':
                CASE cClassName:
                    WHEN 'users' THEN 
                        cClass = 'adminprogsHandler'.
                    WHEN 'messages' THEN 
                        cClass = 'adminprogsHandler'.
                    WHEN 'labeltexte' THEN 
                        cClass = 'adminprogsHandler'.
                END CASE.
            
                ASSIGN
                    rClass = Progress.Lang.Class:GetClass(cClass).
                
                cMethode = 'rebuildData'.

                oHandler = rClass:NEW().
                lRetVal = DYNAMIC-INVOKE ( oHandler, cMethode,
                    INPUT  oJsonIdent  ,
                    INPUT  oJsonData   ,
                    OUTPUT oJsonResult
                    ).
                IF NOT lRetVal THEN 
                DO:
                    outilitiesHandler:getErrorMessage(
                        INPUT  '900'        ,
                        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.

                lRetVal = TRUE.
                LEAVE.
            END.
        
            DO WHILE cFunction = 'saveActiveFilter':
                cActiveSelection = oJsonIdent:GetCharacter('activeFilter').
                outilitiesHandler:setActiveSelection(
                    INPUT  oJsonIdent      ,
                    INPUT  cFileName       ,
                    INPUT  cActiveSelection
                    ).
            
                oJsonResponse = NEW JsonObject().
                oJsonResponse:ADD('success', TRUE).
                oJsonResponse:WRITE(lcJsonString, FALSE).
            
                lRetVal = TRUE.
                LEAVE.
            END.
        
        // oJsonResponse:WriteFile('C:\Temp\dynamicform_response.json').
            oJsonResponse:WRITE(lcJsonString, FALSE).
        
            LEAVE.
        END.

        IF NOT lRetVal THEN 
        DO:
            oJsonResponse = NEW JsonObject().
            oJsonResponse:ADD('success', FALSE).
            oJsonResponse:WRITE(lcJsonString, FALSE).
        END.
                
        cContent-Type   = "application/json".
        cDefautlCharSet = 'utf-8'.
// MESSAGE 'Get-Respond ' STRING(lcJsonString).
        oBody = NEW STRING(lcJsonString).
        WebHandlerUtilities:createHttpResponse(INPUT INTEGER(StatusCodeEnum:OK), INPUT oBody, INPUT cContent-Type, INPUT cDefautlCharSet, INPUT cCorralationID, OUTPUT oResponse).
//        oResponse:SetHeader(HttpHeaderBuilder:Build(cHeaderCorralationID):Value(cCorralationID):Header).

        
        oWriter = NEW WebResponseWriter(oResponse).
        oWriter:Open(). 
        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 cQueryPairs   AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cQueryKey     AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cQueryValue   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 oJsonResult   AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonMessage  AS JsonObject NO-UNDO.
        DEFINE VARIABLE httBuffer     AS HANDLE     NO-UNDO.
        
        lRetVal = WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR.

        cLogFile = SUBSTITUTE('C:\TEMP\handlePOST_&1.json', REPLACE(STRING(TIME,'HH:MM:SS'), ':', '')).
        oJsonData:WriteFile(cLogFile, TRUE).

        outilitiesHandler = NEW utilitiesHandler().
        hError            = ERROR-STATUS:HANDLE.        
        cQueryString      = STRING(poRequest:GetContextValue("QUERY_STRING")) NO-ERROR.
        
        outilitiesHandler:getHeaderData(
            INPUT  poRequest    ,
            INPUT  cQueryString ,
            OUTPUT ccompany     ,
            OUTPUT cuser_name   ,
            OUTPUT cAnzeigeName ,
            OUTPUT ilanguage_id ,
            OUTPUT cSessionToken,
            OUTPUT cFunction    ,
            OUTPUT oJsonIdent   
            ).

        oJsonIdent:WriteFile('C:\TEMP\dynamicform_POST.json', TRUE).
        //
        //  mögliche Benutzer für das durchsuchen von HTML-DOkumenten und Labeltexten ...
        //
        cuser_name = oJsonIdent:GetCharacter('H_user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cuser_name, cUsers, ',') = 0 THEN cUsers = cuser_name + ',' + cUsers.
        cuser_name = oJsonIdent:GetCharacter('user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cuser_name, cUsers, ',') = 0 THEN cUsers = cuser_name + ',' + cUsers.
        
        cForm_Id   = poRequest:URI:GetQueryValue("formId") NO-ERROR.
        cClassName = ENTRY(1, cForm_Id, '_').
        cFileName  = ENTRY(1, cForm_Id, '_').
        //
        //  mögliche Benutzer für das durchsuchen von HTML-DOkumenten und Labeltexten ...
        //
        cuser_name = oJsonIdent:GetCharacter('H_user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cuser_name, cUsers, ',') = 0 THEN cUsers = cuser_name + ',' + cUsers.
        cuser_name = oJsonIdent:GetCharacter('user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cuser_name, cUsers, ',') = 0 THEN cUsers = cuser_name + ',' + cUsers.
        
        lRetVal  = FALSE.
        
        cProgram = outilitiesHandler:getProgramName (
            INPUT  oJsonIdent,
            INPUT  cUsers
            ).
            
        cForm_Id   = oJsonIdent:GetCharacter('formId').
        cClassName = ENTRY(1, cForm_Id, '_').
        cFileName  = ENTRY(1, cForm_Id, '_').

        REPEAT TRANSACTION WHILE cFunction = 'create' ON ERROR UNDO, LEAVE:
            CASE cClassName:
                WHEN 'users' THEN 
                    cClass = 'admin.adminprogsHandler'.
                WHEN 'messages' THEN 
                    cClass = 'admin.adminprogsHandler'.
                WHEN 'labeltexte' THEN 
                    cClass = 'admin.adminprogsHandler'.
            END CASE.

            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.
            outilitiesHandler:evaluateErrorStatus(hError).
            IF NOT lRetVal THEN LEAVE.
            
            oJsonResult:WRITE(lcJsonString, FALSE).
            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".
        oWriter               = NEW WebResponseWriter(oResponse).
                        
        IF NOT lRetVal THEN 
        DO:
            oJsonMessage = NEW JsonObject().
            oJsonMessage:ADD('success', FALSE).
            oJsonMessage:ADD('message', oJsonResult:GetLongchar('message')).
            oJsonMessage:WRITE(lcJsonString, FALSE).
        END.
        MESSAGE 'Rueckmeldung beim POST (CREATE) ' STRING(lcJsonString).
                            
        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 cFieldName    AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cClassName    AS CHARACTER  NO-UNDO.
        
        DEFINE VARIABLE oJsonResult   AS JsonObject NO-UNDO.
        DEFINE VARIABLE oJsonMessage  AS JsonObject NO-UNDO.
        DEFINE VARIABLE httBuffer     AS HANDLE     NO-UNDO.
        
        lRetVal = WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR.
        
        cLogFile = SUBSTITUTE('C:\TEMP\handlePATCH_&1.json', REPLACE(STRING(TIME,'HH:MM:SS'), ':', '')).
        oJsonData:WriteFile(cLogFile, TRUE).
        
        outilitiesHandler = NEW utilitiesHandler().
        hError            = ERROR-STATUS:HANDLE.        
        cQueryString      = STRING(poRequest:GetContextValue("QUERY_STRING")) NO-ERROR.
        
        outilitiesHandler:getHeaderData(
            INPUT  poRequest    ,
            INPUT  cQueryString ,
            OUTPUT ccompany     ,
            OUTPUT cuser_name   ,
            OUTPUT cAnzeigeName ,
            OUTPUT ilanguage_id ,
            OUTPUT cSessionToken,
            OUTPUT cFunction    ,
            OUTPUT oJsonIdent   
            ).

        cForm_Id   = poRequest:URI:GetQueryValue("formId") NO-ERROR.
        cClassName = ENTRY(1, cForm_Id, '_').
        cFileName  = ENTRY(1, cForm_Id, '_').
        //
        //  mögliche Benutzer für das durchsuchen von HTML-DOkumenten und Labeltexten ...
        //
        cuser_name = oJsonIdent:GetCharacter('H_user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cuser_name, cUsers, ',') = 0 THEN cUsers = cuser_name + ',' + cUsers.
        cuser_name = oJsonIdent:GetCharacter('user_name') NO-ERROR.
        IF NOT ERROR-STATUS:ERROR AND LOOKUP(cuser_name, cUsers, ',') = 0 THEN cUsers = cuser_name + ',' + cUsers.
        
        lRetVal  = FALSE.
        
        cProgram = outilitiesHandler:getProgramName (
            INPUT  oJsonIdent,
            INPUT  cUsers
            ).
            
        REPEAT TRANSACTION WHILE cFunction = 'update' ON ERROR UNDO, LEAVE:
            CASE cClassName:
                WHEN 'users' THEN 
                    cClass = 'admin.adminprogsHandler'.
                WHEN 'messages' THEN 
                    cClass = 'admin.adminprogsHandler'.
                WHEN 'labeltexte' THEN 
                    cClass = 'admin.adminprogsHandler'.
            END CASE.

            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.
            outilitiesHandler:evaluateErrorStatus(hError).
            IF NOT lRetVal THEN LEAVE.
            
            oJsonResult:WRITE(LcJsonString, FALSE).
            // oJsonResult:WriteFile('C:\TEMP\DYNAMIC_UPDATE_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 Update/PATCH des Users').
            oJsonMessage:WRITE(lcJsonString, FALSE).
        END.
        // MESSAGE 'Rueckmeldung ' STRING(lcJsonString).
                            
        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.