GeMIS_WEB/admin/formdesignerImpl.cls

 
/*------------------------------------------------------------------------
   File        : adresse_dict
   Purpose     : 
   Syntax      : 
   Description : 
   Author(s)   : walter.riechsteiner
   Created     : Thu Jun 26 13:56:20 CEST 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.WebHandler FROM PROPATH.
USING OpenEdge.Web.WebResponseWriter FROM PROPATH.
USING Progress.Json.ObjectModel.JsonObject FROM PROPATH.
USING Progress.Json.ObjectModel.JsonArray FROM PROPATH.
USING Progress.Json.ObjectModel.ObjectModelParser FROM PROPATH.
USING src.ch.adprime.gemis.WebHandlerUtilities FROM PROPATH.
USING utilities.utilitiesHandler FROM PROPATH.
USING Progress.Json.ObjectModel.JsonDataType FROM PROPATH.
USING System.Windows.Forms.HtmlDocument FROM ASSEMBLY.

CLASS admin.formdesignerImpl 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 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 outilitiesHandler AS utilitiesHandler  NO-UNDO.
    
    DEFINE TEMP-TABLE tcompanies
        SERIALIZE-NAME 'companies'
        FIELD company      AS CHARACTER SERIALIZE-NAME 'company'
        FIELD company_Name AS CHARACTER SERIALIZE-NAME 'company_name'
        FIELD lselected    AS LOGICAL   SERIALIZE-NAME 'selected'
        .
    DEFINE VARIABLE htcompanies AS HANDLE NO-UNDO.
        
    DEFINE TEMP-TABLE tusers
        FIELD user_name    AS CHARACTER 
        FIELD display_name AS CHARACTER
        .
    DEFINE VARIABLE htusers AS HANDLE NO-UNDO.
    
    DEFINE TEMP-TABLE tlanguages
        FIELD language_id   AS INTEGER 
        FIELD language_name AS CHAR
        .
    DEFINE VARIABLE htlanguages AS HANDLE NO-UNDO.
        
    DEFINE TEMP-TABLE tFileDict
        SERIALIZE-NAME 'fields'
        FIELD cId          AS CHARACTER SERIALIZE-NAME 'id'
        FIELD cName        AS CHARACTER SERIALIZE-NAME 'fieldName'
        FIELD cLabel       AS CHARACTER SERIALIZE-NAME 'label' 
        FIELD cType        AS CHARACTER SERIALIZE-NAME 'type'
        FIELD cDisplayType AS CHARACTER SERIALIZE-NAME 'displayType'
        FIELD cInputMode   AS CHARACTER SERIALIZE-NAME 'inputMode'
        FIELD lshowSpinner AS LOGICAL   SERIALIZE-NAME 'showSpinner'
        FIELD cFormat      AS CHARACTER SERIALIZE-NAME 'format'
        FIELD iMaxLength   AS INTEGER   SERIALIZE-NAME 'maxLength'
        FIELD iDecimals    AS INTEGER   SERIALIZE-NAME 'decimalPlaces'
        FIELD leditable    AS LOGICAL   SERIALIZE-NAME 'editable'
        FIELD lhidden      AS LOGICAL   SERIALIZE-NAME 'hidden'
        FIELD cAusrichtung AS CHARACTER SERIALIZE-NAME 'align'
        .
        
    DEFINE TEMP-TABLE tConfig
        SERIALIZE-NAME 'existingConfigs'
        FIELD cId        AS CHARACTER SERIALIZE-NAME 'id'
        FIELD cFormTitle AS CHARACTER SERIALIZE-NAME 'formTitle'
        FIELD cFormId    AS CHARACTER SERIALIZE-NAME 'formId' 
        FIELD cCreated   AS CHARACTER SERIALIZE-NAME 'created'
        . 

    DEFINE DATASET dsResponse
        SERIALIZE-NAME 'dsResponse'
        FOR tFileDict, tConfig.
    DEFINE VARIABLE hdsResponse AS HANDLE NO-UNDO.
        
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    METHOD PUBLIC LOGICAL createTemptable(
        INPUT ipoJsonFields AS JsonArray,
        OUTPUT ophtTable    AS HANDLE   ,
        OUTPUT ophBuffer    AS HANDLE 
        ):
        
        DEFINE VARIABLE lRetVal     AS LOGICAL    NO-UNDO.
        DEFINE VARIABLE iType       AS INTEGER    NO-UNDO.
        DEFINE VARIABLE cType       AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cField      AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE ii          AS INTEGER    NO-UNDO.
        DEFINE VARIABLE i1          AS INTEGER    NO-UNDO.
        DEFINE VARIABLE cFieldNames AS CHARACTER  NO-UNDO EXTENT.
        DEFINE VARIABLE oJsonField  AS JsonObject NO-UNDO.

        CREATE TEMP-TABLE ophtTable.
        DO i1 = 1 TO ipoJsonFields:LENGTH:
            oJsonField  = NEW JsonObject().
            oJsonField  = ipoJsonFields:GetJsonObject(i1).
            IF i1 = 1 THEN 
            DO:
                cFieldNames = oJsonField:getNames() NO-ERROR.
                DO ii = 1 TO EXTENT(cFieldNames):
                    cField = cFieldNames[ii].
                    iType  = oJsonField:GetType(cField).
                    cType  = ''.
                    CASE iType:
                        WHEN JsonDataType:STRING THEN 
                            cType = 'character'.
                        WHEN JsonDataType:NUMBER THEN 
                            cType = 'integer'.
                        WHEN JsonDataType:BOOLEAN THEN 
                            cType = 'logical'.
                        WHEN JsonDataType:OBJECT THEN 
                            MESSAGE 'Json-Feldtype  OBJECT' cField.
                        WHEN JsonDataType:ARRAY THEN 
                            MESSAGE 'Json-Feldtype  ARRAY' cField.
                        WHEN JsonDataType:NULL THEN 
                            cType = 'character'.
                    END CASE.
                    IF cType = '' THEN cType = 'character'.
                    ophtTable:ADD-NEW-FIELD(cField, cType) NO-ERROR.
                END.
                ophtTable:TEMP-TABLE-PREPARE('ttTemp').
                ophBuffer = ophtTable:DEFAULT-BUFFER-HANDLE.
            END.
            ophBuffer:BUFFER-CREATE().
            
            DO ii = 1 TO EXTENT(cFieldNames):
                cField = cFieldNames[ii].
                CASE ophBuffer:BUFFER-FIELD(cField):DATA-TYPE:
                    WHEN 'character' THEN 
                        ophBuffer:BUFFER-FIELD(cField):BUFFER-VALUE = oJsonField:GetCharacter(cField) NO-ERROR. 
                    WHEN 'integer' THEN 
                        ophBuffer:BUFFER-FIELD(cField):BUFFER-VALUE = oJsonField:GetInteger(cField) NO-ERROR. 
                    WHEN 'logical' THEN 
                        ophBuffer:BUFFER-FIELD(cField):BUFFER-VALUE = STRING(oJsonField:GetLogical(cField)) NO-ERROR.
                END CASE.
                IF ophBuffer:BUFFER-FIELD(cField):BUFFER-VALUE = ? THEN ophBuffer:BUFFER-FIELD(cField):BUFFER-VALUE = ''.
            END.
            DELETE OBJECT oJsonField NO-ERROR.
        END.

        lRetVal = TRUE.
        RETURN lRetVal.

    END METHOD.

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

    METHOD PUBLIC LOGICAL fillFileDict(
        INPUT oJsonIdent AS JsonObject
        ):

        DEFINE VARIABLE lresult      AS LOGICAL   NO-UNDO INIT FALSE.
        DEFINE VARIABLE ii           AS INTEGER   NO-UNDO.
        DEFINE VARIABLE i1           AS INTEGER   NO-UNDO.
        DEFINE VARIABLE j1           AS INTEGER   NO-UNDO.
        DEFINE VARIABLE j2           AS INTEGER   NO-UNDO.
        DEFINE VARIABLE lRetVal      AS LOG       NO-UNDO INIT FALSE.
        DEFINE VARIABLE hBuffer      AS HANDLE    NO-UNDO.
        DEFINE VARIABLE hField       AS HANDLE    NO-UNDO.
        DEFINE VARIABLE hQuery       AS HANDLE    NO-UNDO.
        DEFINE VARIABLE rFile        AS RECID     NO-UNDO.
        DEFINE VARIABLE cViewas      AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cSidelabel   AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cHeadlabel   AS CHARACTER NO-UNDO.
        DEFINE VARIABLE rLabelTexte  AS RECID     NO-UNDO.
        
        DEFINE VARIABLE cFileNames   AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cFileName    AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cFieldName   AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cLDBName     AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cDBName      AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cTestName    AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cDBFileName  AS CHARACTER NO-UNDO.
        
        DEFINE VARIABLE ccompany     AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cuser_name   AS CHARACTER NO-UNDO.
        DEFINE VARIABLE iLanguage_id AS INTEGER   NO-UNDO.
        
        DEFINE BUFFER blabeltexte FOR labeltexte.
        
        ccompany     = oJsonIdent:GetCharacter('company').
        cuser_name   = oJsonIdent:GetCharacter('user_name').
        iLanguage_id = oJsonIdent:GetInteger('language_id').

        EMPTY TEMP-TABLE tFileDict.
        lRetVal = FALSE.
        cFileNames = REPLACE(oJsonIdent:GetCharacter('tables'), ',', ';').
        DO ii = 1 TO NUM-ENTRIES(cFileNames, ';'):
            cFileName = ENTRY(ii,cFileNames, ';').
            CREATE BUFFER hBuffer FOR TABLE cFileName NO-ERROR.
            IF  ERROR-STATUS:ERROR        OR 
                NOT VALID-HANDLE(hBuffer) THEN NEXT.

            DO i1 = 1 TO hBuffer:NUM-FIELDS:
                hField     = hBuffer:BUFFER-FIELD(i1).
                cFieldName = hField:NAME.
                IF cFieldName  = 'wordindex' THEN NEXT.
                CREATE  tFileDict.
                ASSIGN
                    tFileDict.cId          = cFileName + '_' + cFieldName
                    tFileDict.cName        = cFilename + '_' + cFieldName
                    tFileDict.cFormat      = hBuffer:BUFFER-FIELD(ii):FORMAT
                    tFileDict.cType        = hBuffer:BUFFER-FIELD(ii):DATA-TYPE
                    tFileDict.iDecimals    = 0
                    tFileDict.lhidden      = FALSE
                    tFileDict.leditable    = TRUE
                    tFileDict.iMaxLength   = 12
                    tFileDict.cAusrichtung = 'left'
                    tFileDict.cDisplayType = ?
                    tFileDict.lShowSpinner = ?
                    tFileDict.cInputMode   = ?
                    .

                DO WHILE TRUE TRANSACTION:
                    FIND FIRST labeltexte NO-LOCK 
                        WHERE labeltexte.company     = ccompany
                        AND   labeltexte.user_name   = 'admin'
                        AND   labeltexte.table_name  = cFileName
                        AND   labeltexte.field_name  = cFieldName
                        AND   labeltexte.language_id = iLanguage_id
                        AND   labeltexte.program     = '' NO-ERROR.
                    IF AVAILABLE labeltexte THEN 
                    DO:
                        rLabelTexte = RECID(labeltexte).
                        LEAVE.
                    END.
                    
                    FIND FIRST blabeltexte NO-LOCK 
                        WHERE blabeltexte.company     = ccompany
                        AND   blabeltexte.user_name   = 'admin'
                        AND   blabeltexte.field_name  = cFieldName
                        AND   blabeltexte.language_id = iLanguage_id
                        AND   blabeltexte.program     = '' NO-ERROR.
                    IF AVAILABLE blabeltexte THEN
                        ASSIGN 
                            cSidelabel = blabeltexte.sidelabel
                            cHeadlabel = blabeltexte.headlabel.
                    ELSE
                        IF hField:LABEL <> ? THEN 
                            ASSIGN 
                                cSidelabel = hField:LABEL 
                                cHeadlabel = hField:LABEL.
                        ELSE
                            ASSIGN 
                                cSidelabel = hField:NAME 
                                cHeadlabel = hField:NAME.
                        
                    CREATE  labeltexte.
                    ASSIGN  
                        labeltexte.company     = ccompany
                        labeltexte.user_name   = 'admin'
                        labeltexte.table_name  = cFileName
                        labeltexte.field_name  = cFieldName
                        labeltexte.language_id = iLanguage_id
                        labeltexte.program     = ''
                        labeltexte.created_at  = NOW NO-ERROR.
                    
                    ASSIGN 
                        labeltexte.sidelabel = cSidelabel
                        labeltexte.headlabel = cHeadlabel.
                        
                    rLabelTexte = RECID(labeltexte).
                    RELEASE labeltexte.
                    RELEASE blabeltexte.
                    LEAVE.
                END.
                
                DO WHILE TRUE TRANSACTION:
                    IF cuser_name = 'admin' THEN LEAVE.
                    
                    FIND FIRST labeltexte NO-LOCK 
                        WHERE labeltexte.company     = ccompany
                        AND   labeltexte.user_name   = cuser_name
                        AND   labeltexte.table_name  = cFileName
                        AND   labeltexte.field_name  = cFieldName
                        AND   labeltexte.language_id = iLanguage_id
                        AND   labeltexte.program     = '' NO-ERROR.
                    IF AVAILABLE labeltexte THEN 
                    DO:
                        rLabelTexte = RECID(labeltexte).
                        LEAVE.
                    END.
                    
                    FIND FIRST blabeltexte NO-LOCK 
                        WHERE blabeltexte.company     = ccompany
                        AND   blabeltexte.user_name   = cuser_name
                        AND   blabeltexte.field_name  = cFieldName
                        AND   blabeltexte.language_id = iLanguage_id
                        AND   blabeltexte.program     = '' NO-ERROR.
                    IF AVAILABLE blabeltexte THEN 
                    DO:
                        rLabelTexte = RECID(blabeltexte).
                        LEAVE.
                    END.
                    LEAVE.
                END.
                
                FIND labeltexte NO-LOCK 
                    WHERE RECID(labeltexte) = rLabelTexte.
                tFileDict.cLabel = labeltexte.headlabel.

                IF INDEX(hField:FORMAT, '(') = 0 THEN tFileDict.iMaxLength = LENGTH(hField:FORMAT).
                ELSE 
                DO:
                    j1 = INDEX(hField:FORMAT, '(') + 1.
                    j2 = INDEX(hField:FORMAT, ')').
                    tFileDict.iMaxLength = INTEGER(SUBSTRING(hField:FORMAT, j1, j2 - j1)).
                END.
                
                CASE tFileDict.cType:
                    WHEN 'character' THEN 
                        DO: 
                            ASSIGN 
                                tFileDict.cType     = 'text'
                                tFileDict.iDecimals = 0.
                            IF hField:EXTENT > 0 THEN tFileDict.cType = 'textarea'. 
                        END.
                    WHEN 'Date' THEN 
                        DO: 
                            ASSIGN 
                                tFileDict.cType        = 'date'
                                tFileDict.cFormat      = '99.99.9999'
                                tFileDict.iDecimals    = 0
                                tFileDict.iMaxLength   = tFileDict.iMaxLength + 2
                                tFileDict.cAusrichtung = 'center'.
                        END.
                    WHEN 'Decimal' THEN 
                        DO: 
                            ASSIGN 
                                tFileDict.cType        = 'decimal'
                                tFileDict.iDecimals    = hField:DECIMALS
                                tFileDict.cDisplayType = 'text'
                                tFileDict.cInputMode   = 'decimal'
                                tFileDict.lShowSpinner = FALSE
                                tFileDict.iMaxLength   = tFileDict.iMaxLength
                                tFileDict.cAusrichtung = 'right'.
                        END.
                    WHEN 'Integer' OR
                    WHEN 'Int64'   THEN 
                        DO: 
                            ASSIGN 
                                tFileDict.cType        = 'integer'
                                tFileDict.iDecimals    = 0
                                tFileDict.cDisplayType = 'text'
                                tFileDict.cInputMode   = 'numeric'
                                tFileDict.lShowSpinner = FALSE
                                tFileDict.iMaxLength   = tFileDict.iMaxLength
                                tFileDict.cAusrichtung = 'right'.
                        END.
                    WHEN 'Recid' THEN 
                        DO: 
                            ASSIGN 
                                tFileDict.cType        = 'integer'
                                tFileDict.iDecimals    = 0
                                tFileDict.cDisplayType = 'text'
                                tFileDict.cInputMode   = 'text'
                                tFileDict.lShowSpinner = FALSE
                                tFileDict.lHidden      = TRUE
                                tFileDict.leditable    = FALSE.
                        END.
                    WHEN 'logical' THEN 
                        DO:
                            ASSIGN  
                                tFileDict.cType        = 'checkbox'
                                tFileDict.cAusrichtung = 'center'.
                        END.
                END CASE.
                
                cViewas = hField:VIEW-AS.
                CASE cViewas:
                    WHEN 'combo-box' THEN 
                        tFileDict.cType = 'select'.
                    WHEN 'editor' THEN
                        ASSIGN  
                            tFileDict.cType = 'textarea'.
                END CASE.
                
            END.
            DELETE OBJECT hBuffer NO-ERROR.
        END.
        
        lResult = TRUE.

        RETURN lresult.

    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 oJsonCompanies  AS JsonArray  NO-UNDO.
        DEFINE VARIABLE oJsonUsers      AS JsonArray  NO-UNDO.
        DEFINE VARIABLE oJsonLanguages  AS JsonArray  NO-UNDO.
        DEFINE VARIABLE oBody           AS String     NO-UNDO.
        
        DEFINE VARIABLE cDefautlCharSet AS CHARACTER  NO-UNDO INIT 'UTF-8'.
        DEFINE VARIABLE cCorralationID  AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cContent-Type   AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE htFileDict      AS HANDLE     NO-UNDO.
        DEFINE VARIABLE htConfig        AS HANDLE     NO-UNDO.
        DEFINE VARIABLE lcJsonInhalt    AS LONGCHAR   NO-UNDO.
        DEFINE VARIABLE cFileNames      AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE cFileName       AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE ii              AS INTEGER    NO-UNDO.
        DEFINE VARIABLE dDateTime       AS DATETIME   NO-UNDO.
        DEFINE VARIABLE cDateTime       AS CHARACTER  NO-UNDO.
        
        DEFINE VARIABLE cConfig_id      AS CHARACTER  NO-UNDO.
        DEFINE VARIABLE lRetVal         AS LOGICAL    NO-UNDO INIT FALSE.
        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.
        
        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\formdesigner_GET.json', TRUE).
        
        DO WHILE cFunction = 'init':
            EMPTY TEMP-TABLE tcompanies.
            FOR EACH companies NO-LOCK WHERE companies.active:
                CREATE  tcompanies.
                BUFFER-COPY companies TO tcompanies.
                ASSIGN 
                    tcompanies.lselected = (IF companies.company = ccompany THEN TRUE ELSE FALSE).
            END.
            
            EMPTY TEMP-TABLE tusers.
            FOR EACH users NO-LOCK WHERE users.active:
                CREATE  tusers.
                BUFFER-COPY users TO tusers.
            END.
            
            EMPTY TEMP-TABLE tlanguages.
            FOR EACH languages NO-LOCK:
                CREATE  tlanguages.
                BUFFER-COPY languages TO tlanguages.
            END.
            
            oJsonResponse   = NEW JsonObject().
            oJsonCompanies  = NEW JsonArray().
            oJsonUsers      = NEW JsonArray().
            oJsonLanguages  = NEW JsonArray().
            
            htcompanies = TEMP-TABLE tcompanies:DEFAULT-BUFFER-HANDLE.
            htusers     = TEMP-TABLE tusers    :DEFAULT-BUFFER-HANDLE.
            htlanguages = TEMP-TABLE tlanguages:DEFAULT-BUFFER-HANDLE.
            
            htcompanies:WRITE-JSON('JsonArray', oJsonCompanies ).
            htusers    :WRITE-JSON('JsonArray', oJsonUsers     ).
            htlanguages:WRITE-JSON('JsonArray', oJsonLanguages ).
            
            oJsonResponse:ADD('companies', oJsonCompanies).
            oJsonResponse:ADD('users'    , oJsonUsers    ).
            oJsonResponse:ADD('languages', oJsonLanguages).
            
            oJsonResponse:WRITE(lcJsonInhalt, FALSE).
            
            lRetVal = TRUE.
            LEAVE.
        END.

        DO WHILE cFunction = 'load': 
            lRetVal = fillFileDict(
                INPUT oJsonIdent
                ).

            cFileNames = oJsonIdent:GetCharacter('tables').

            EMPTY TEMP-TABLE tConfig.
            FOR EACH htmldokumente NO-LOCK 
                WHERE htmldokumente.company     = ccompany
                AND   htmldokumente.user_name   = cuser_name
                AND   htmldokumente.language_id = ilanguage_id:

                DO ii = 1 TO NUM-ENTRIES(cFileNames, ';'):
                    cFileName = ENTRY(ii, cFileNames, ';').

                    IF INDEX(htmldokumente.Form_Id, cFileName) = 0 THEN NEXT.
                    
                    IF htmldokumente.updated_at = ? THEN 
                    DO:
                        dDateTime = htmldokumente.created_at. 
                        cDateTime = STRING(htmldokumente.created_at,'99-99-9999THH:MM:SS').
                    END.
                    ELSE 
                    DO:
                        dDateTime = htmldokumente.updated_at. 
                        cDateTime = STRING(htmldokumente.updated_at,'99-99-9999THH:MM:SS').
                    END.

                    CREATE  tConfig.
                    ASSIGN  
                        tConfig.cId        = htmldokumente.form_id
                        tConfig.cFormTitle = htmldokumente.formtitle
                        tConfig.cCreated   = STRING(YEAR(dDateTime),'9999')
                                       + '-'
                                       + STRING(MONTH(dDateTime),'99')
                                       + '-'
                                       + STRING(DAY(dDateTime),'99')
                                       + SUBSTRING(cDateTime,11).

                    LEAVE.
                END.
            END.
        
            htFileDict  = TEMP-TABLE tFileDict :DEFAULT-BUFFER-HANDLE.
            htConfig    = TEMP-TABLE tConfig   :DEFAULT-BUFFER-HANDLE.
            hdsResponse = DATASET dsResponse:HANDLE.
                 
            oJsonResponse = NEW JsonObject().
            oJsonResponse:READ(hdsResponse).
            oJsonResponse:WRITE(lcJsonInhalt, FALSE).

            lRetVal = TRUE.
            LEAVE.
        END.
        
        DO WHILE cFunction = 'loaddetail':
            cConfig_id = oJsonIdent:GetCharacter('config_id').
            FIND FIRST htmldokumente NO-LOCK 
                WHERE htmldokumente.company     = ccompany
                AND   htmldokumente.user_name   = cuser_name
                AND   htmldokumente.language_id = ilanguage_id
                AND   htmldokumente.form_id     = cConfig_id NO-ERROR.
                
            lcJsonInhalt    = htmldokumente.htmltext.
            lRetVal         = TRUE.
            LEAVE.
        END.
        
        DO WHILE cFunction = 'delete':
            lRetVal = FALSE.
            cConfig_id = oJsonIdent:GetCharacter('config_id').
            REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
                FIND FIRST htmldokumente 
                    WHERE htmldokumente.company     = ccompany
                    AND   htmldokumente.user_name   = cuser_name
                    AND   htmldokumente.language_id = ilanguage_id
                    AND   htmldokumente.form_id     = cConfig_id NO-ERROR.
                IF NOT AVAILABLE htmldokumente THEN LEAVE.
                DELETE  htmldokumente.
                lRetVal = TRUE.
                LEAVE.
            END.
            
            oJsonResponse   = NEW JsonObject().
            oJsonResponse:ADD("success", lRetVal).
            IF lRetVal THEN oJsonResponse:ADD('message', 'Konfiguration erfolreich gelöscht').
            ELSE            oJsonResponse:ADD('error'  , 'Konfiguration nicht gefunden'     ).
            oJsonResponse:write(lcJsonInhalt, FALSE).
                            
            LEAVE.
        END.
        
        IF NOT lRetVal THEN 
        DO:
            oJsonResponse = NEW JsonObject().
            oJsonResponse:ADD('success', FALSE).
            oJsonResponse:WRITE(lcJsonInhalt, FALSE).
        END.
                
        cContent-Type   = "application/json".
        cDefautlCharSet = 'utf-8'.
        oBody           = NEW STRING(lcJsonInhalt).
        WebHandlerUtilities:createHttpResponse(INPUT INTEGER(StatusCodeEnum:OK), INPUT oBody, INPUT cContent-Type, INPUT cDefautlCharSet, INPUT cCorralationID, OUTPUT oResponse).
           
        oWriter = NEW WebResponseWriter(oResponse).
        oWriter:Open(). 
        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 OVERRIDE PROTECTED INTEGER HandlePost(INPUT poRequest AS IWebRequest):
        
        DEFINE VARIABLE oResponse       AS IHttpResponse     NO-UNDO.
        DEFINE VARIABLE oWriter         AS WebResponseWriter NO-UNDO.
        DEFINE VARIABLE oJsonData       AS JsonObject        NO-UNDO.
        DEFINE VARIABLE oJsonMessage    AS JsonObject        NO-UNDO.
        DEFINE VARIABLE oFelder         AS JsonArray         NO-UNDO.
        DEFINE VARIABLE oFeld           AS JsonObject        NO-UNDO.
        
        DEFINE VARIABLE lRetVal         AS LOGICAL           NO-UNDO.
        DEFINE VARIABLE lcJsonString    AS LONGCHAR          NO-UNDO.
        DEFINE VARIABLE cJSON           AS LONGCHAR          NO-UNDO.
        DEFINE VARIABLE i1              AS INTEGER           NO-UNDO.
        DEFINE VARIABLE ii              AS INTEGER           NO-UNDO.
        DEFINE VARIABLE oJsonConfig     AS JsonObject        NO-UNDO.
        DEFINE VARIABLE oJsonFields     AS JsonArray         NO-UNDO.
        
        DEFINE VARIABLE ctables         AS CHARACTER         NO-UNDO.
        DEFINE VARIABLE ccompany        AS CHARACTER         NO-UNDO.
        DEFINE VARIABLE cuser_name      AS CHARACTER         NO-UNDO.
        DEFINE VARIABLE ilanguage_id    AS INTEGER           NO-UNDO.
        DEFINE VARIABLE cformtitle      AS CHARACTER         NO-UNDO.
        DEFINE VARIABLE cformid         AS CHARACTER         NO-UNDO.
        DEFINE VARIABLE lcJsonConfig    AS LONGCHAR          NO-UNDO.
        DEFINE VARIABLE iItemsPerPage   AS INTEGER           NO-UNDO.
        DEFINE VARIABLE ctableMaxHeight AS CHARACTER         NO-UNDO.
        DEFINE VARIABLE htTable         AS HANDLE            NO-UNDO.
        DEFINE VARIABLE hBuffer         AS HANDLE            NO-UNDO.
        DEFINE VARIABLE hQuery          AS HANDLE            NO-UNDO.
        DEFINE VARIABLE cFieldNames     AS CHARACTER         NO-UNDO.
        DEFINE VARIABLE cFieldName      AS CHARACTER         NO-UNDO.
        DEFINE VARIABLE cFileName       AS CHARACTER         NO-UNDO.
        DEFINE VARIABLE cField          AS CHARACTER         NO-UNDO.
        DEFINE VARIABLE cBoxfields      AS CHARACTER         NO-UNDO.
        DEFINE VARIABLE lBoxField       AS LOGICAL           NO-UNDO.
        
        lRetVal = WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR.
        // MESSAGE 'getJsonFromRequest    = ' lRetVal.
        
        cFunction = poRequest:URI:GetQueryValue("function").
        // MESSAGE 'Funktion = ' cFunction.
        
        oJsonData:WRITE(lcJsonString, FALSE).
        // MESSAGE 'ganzer Eingangsstring = ' STRING(lcJsonString).
        
        ccompany     =         oJsonData:GetCharacter('company' ).
        cuser_name   =         oJsonData:GetCharacter('user_name' ).
        ilanguage_id = INTEGER(oJsonData:GetCharacter('language_id')).
        ctables      =         oJsonData:GetCharacter('tables').
        // MESSAGE ccompany '-' cuser_name '-' ilanguage_id '-' ctables.
        
        oJsonConfig     = NEW JsonObject().
        oJsonConfig     = oJsonData:GetJsonObject ('config').
        cformtitle      = oJsonConfig:GetCharacter('formTitle').
        cformid         = oJsonConfig:GetCharacter('formId').
        iItemsPerPage   = oJsonConfig:Getinteger  ('itemsPerPage').
        ctableMaxHeight = oJsonConfig:GetCharacter('tableMaxHeight').
        oJsonFields     = NEW JsonArray().
        oJsonFields     = oJsonConfig:GetJsonArray('selectedFields').
        oJsonConfig:WRITE(lcJsonConfig, FALSE).
        
        // oJsonConfig:WriteFile('C:\TEMP\FormDesignerConfig.json', TRUE).
        
        createTemptable (
            INPUT  oJsonFields,
            OUTPUT htTable    ,
            OUTPUT hBuffer    ).
        
        // hBuffer:WRITE-JSON ('file', 'C:\TEMP\FeldAttributeAusFormdesigner.csv', TRUE).

        REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
            FIND htmldokumente
                WHERE htmldokumente.company     = ccompany
                AND   htmldokumente.user_name   = cuser_name
                AND   htmldokumente.form_id     = cformid
                AND   htmldokumente.language_id = ilanguage_id NO-ERROR.
            IF NOT AVAILABLE htmldokumente THEN 
            DO:
                CREATE  htmldokumente.
                ASSIGN 
                    htmldokumente.company     = ccompany
                    htmldokumente.user_name   = cuser_name
                    htmldokumente.form_id     = cformid
                    htmldokumente.language_id = ilanguage_id
                    htmldokumente.created_at  = NOW.
            END.
            ASSIGN 
                htmldokumente.tables         = ctables
                htmldokumente.formtitle      = cformtitle
                htmldokumente.itemsPerPage   = iItemsPerPage
                htmldokumente.tableMaxHeight = ctableMaxHeight.
            htmltext = STRING(lcJsonConfig).
            // MESSAGE 'htmldokument gschrieben mit config ' STRING(lcJsonConfig).
            RELEASE htmldokumente.
            LEAVE.
        END.
        
        cBoxfields = ''.
        CREATE QUERY hQuery.
        hQuery:SET-BUFFERS(hBuffer).
        hQuery:QUERY-PREPARE ('FOR EACH ttTemp NO-LOCK').
        hQuery:QUERY-OPEN ().
        hQuery:GET-FIRST ().
        DO WHILE NOT hQuery:QUERY-OFF-END TRANSACTION:
            cFieldName = hBuffer:BUFFER-FIELD('fieldName'):BUFFER-VALUE.
            cFileName  = ENTRY(1, cFieldName, '_').
            cField     = REPLACE(cFieldName, cFileName + '_', '').
            FIND FIRST labeltexte
                WHERE labeltexte.company     = ccompany
                AND   labeltexte.user_name   = cuser_name
                AND   labeltexte.program     = ''
                AND   labeltexte.table_name  = cFileName
                AND   labeltexte.field_name  = cField
                AND   labeltexte.language_id = ilanguage_id NO-ERROR.
            IF NOT AVAILABLE labeltexte THEN 
            DO:
                CREATE  labeltexte.
                ASSIGN
                    labeltexte.company     = ccompany
                    labeltexte.user_name   = cuser_name
                    labeltexte.program     = ''
                    labeltexte.table_name  = cFileName
                    labeltexte.field_name  = cField
                    labeltexte.language_id = ilanguage_id
                    labeltexte.created_at  = NOW.
            END.
            ELSE 
            DO:
                ASSIGN                             
                    labeltexte.updated_at = NOW.
            END.
            ASSIGN 
                labeltexte.sidelabel = hBuffer:BUFFER-FIELD('label'):BUFFER-VALUE
                labeltexte.headlabel = hBuffer:BUFFER-FIELD('label'):BUFFER-VALUE
                labeltexte.alignment = hBuffer:BUFFER-FIELD('align'):BUFFER-VALUE.
                
            RELEASE labeltexte.
            
            lBoxField = (IF hBuffer:BUFFER-FIELD('type'):BUFFER-VALUE = 'select' THEN TRUE ELSE FALSE).
            IF lBoxField THEN 
            DO:
                cBoxFields = cBoxfields
                    + (IF cBoxfields = '' THEN '' ELSE ';')
                    + hBuffer:BUFFER-FIELD('fieldName'):BUFFER-VALUE.
            END.
            
            hQuery:GET-NEXT ().
        END. 
        
        IF cBoxfields <> '' THEN 
        DO:
            REPEAT TRANSACTION ON ERROR UNDO, LEAVE:
                FIND FIRST selectboxfields
                    WHERE selectboxfields.company   = ccompany
                    AND   selectboxfields.program   = cFormId
                    AND   selectboxfields.user_name = cuser_name
                    AND   selectboxfield.table_Name = '' NO-ERROR.
                IF NOT AVAILABLE selectboxfields THEN 
                DO:
                    CREATE  selectboxfields.
                    ASSIGN
                        selectboxfields.company   = ccompany
                        selectboxfields.program   = cFormId
                        selectboxfields.user_name = cuser_name
                        selectboxfield.table_Name = ''.
                END.
                ASSIGN 
                    selectboxfield.boxfields = cBoxFields.
                RELEASE selectboxfields.
                LEAVE.
            END.
        END. 
        
        // MESSAGE 'geschrieben ' ccompany '-' cuser_name '-' cformid '-' ilanguage_id.
            
        oResponse             = NEW OpenEdge.Web.WebResponse().
        oResponse:StatusCode  = INTEGER(StatusCodeEnum:OK).
        oResponse:ContentType = "application/json;charset=utf-8".
        oWriter               = NEW WebResponseWriter(oResponse).
        
        oJsonMessage = NEW JsonObject().
        oJsonMessage:ADD('id', cformid).
        oJsonMessage:ADD('message', 'erfolgreich gespeichert').
        oJsonMessage:WRITE(lcJsonString, TRUE).
        // MESSAGE 'Rueckmeldung ' STRING(lcJsonString).
            
        oWriter:Open().
        oWriter:Write(lcJsonString).
        oWriter:Close().

        CATCH e AS Progress.Lang.Error:

        END CATCH.

        FINALLY:
        /*            DELETE OBJECT oJsonConfig  NO-ERROR.*/
        /*            DELETE OBJECT oJsonMessage NO-ERROR.*/
        /*            DELETE OBJECT oJsonFields  NO-ERROR.*/
        END FINALLY.

    END METHOD.

END CLASS.