/*------------------------------------------------------------------------ File : dynamicformImplImpl Purpose : Syntax : Description : Author(s) : walter.riechsteiner Created : Wed Nov 19 13:23:38 CET 2025 Notes : ----------------------------------------------------------------------*/ BLOCK-LEVEL ON ERROR UNDO, THROW. USING OpenEdge.Core.String FROM PROPATH. USING OpenEdge.Net.HTTP.IHttpResponse FROM PROPATH. USING OpenEdge.Net.HTTP.StatusCodeEnum FROM PROPATH. USING OpenEdge.Web.IWebRequest FROM PROPATH. USING OpenEdge.Web.WebResponseWriter FROM PROPATH. USING OpenEdge.Web.WebHandler FROM PROPATH. USING Progress.Json.ObjectModel.ObjectModelParser FROM PROPATH. USING Progress.Json.ObjectModel.JsonObject FROM PROPATH. USING Progress.Json.ObjectModel.JsonArray FROM PROPATH. USING src.ch.adprime.gemis.WebHandlerUtilities FROM PROPATH. USING utilities.selectboxHandler FROM PROPATH. USING utilities.utilitiesHandler FROM PROPATH. CLASS admin.dynamicformImpl INHERITS WebHandler: DEFINE VARIABLE oResponse AS IHttpResponse NO-UNDO. DEFINE VARIABLE oWriter AS WebResponseWriter NO-UNDO. DEFINE VARIABLE oBody AS STRING NO-UNDO. DEFINE VARIABLE cDefautlCharSet AS CHARACTER NO-UNDO INIT 'UTF-8'. DEFINE VARIABLE oParser AS ObjectModelParser NO-UNDO. DEFINE VARIABLE cCorralationID AS CHARACTER NO-UNDO. DEFINE VARIABLE cContent-Type AS CHARACTER NO-UNDO. DEFINE VARIABLE lcJsonString AS LONGCHAR NO-UNDO. DEFINE VARIABLE oJsonActiveSelectBox AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonMessageBox AS JsonObject NO-UNDO. DEFINE VARIABLE cString AS CHARACTER NO-UNDO. DEFINE VARIABLE lcString AS LONGCHAR NO-UNDO. DEFINE VARIABLE hError AS HANDLE NO-UNDO. DEFINE VARIABLE ccompany AS CHARACTER NO-UNDO. DEFINE VARIABLE cuser_name AS CHARACTER NO-UNDO. DEFINE VARIABLE cAnzeigeName AS CHARACTER NO-UNDO. DEFINE VARIABLE ilanguage_id AS INTEGER NO-UNDO. DEFINE VARIABLE cSessionToken AS CHARACTER NO-UNDO. DEFINE VARIABLE cFunction AS CHARACTER NO-UNDO. DEFINE VARIABLE cForm_Id AS CHARACTER NO-UNDO. DEFINE VARIABLE cProgram AS CHARACTER NO-UNDO. DEFINE VARIABLE cFormUser AS CHARACTER NO-UNDO. DEFINE VARIABLE cFormColumns AS CHARACTER NO-UNDO. DEFINE VARIABLE cUsers AS CHARACTER NO-UNDO INIT 'user,admin'. DEFINE VARIABLE lcMessage AS LONGCHAR NO-UNDO. DEFINE VARIABLE cErrorNo AS CHARACTER NO-UNDO. DEFINE VARIABLE cMaxHeight AS CHARACTER NO-UNDO. DEFINE VARIABLE iItemsPage AS INTEGER NO-UNDO. DEFINE VARIABLE cLogFile AS CHARACTER NO-UNDO. DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO. DEFINE VARIABLE hField AS HANDLE NO-UNDO. DEFINE VARIABLE cMethode AS CHARACTER NO-UNDO. DEFINE VARIABLE cClass AS CHARACTER NO-UNDO. DEFINE VARIABLE rClass AS Progress.Lang.Class. DEFINE VARIABLE oHandler AS Progress.Lang.Object NO-UNDO. DEFINE VARIABLE lCompany AS LOGICAL NO-UNDO. DEFINE VARIABLE lActive AS LOGICAL NO-UNDO. DEFINE VARIABLE lWordindex AS LOGICAL NO-UNDO. DEFINE VARIABLE outilitiesHandler AS utilitiesHandler NO-UNDO. DEFINE VARIABLE oselectboxHandler AS selectboxHandler NO-UNDO. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD OVERRIDE PROTECTED INTEGER HandleDelete(INPUT poRequest AS IWebRequest): DEFINE VARIABLE oJsonResponse AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonIdent AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonBox AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonData AS JsonObject NO-UNDO. DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE ii AS INTEGER NO-UNDO. DEFINE VARIABLE i1 AS INTEGER NO-UNDO. DEFINE VARIABLE cQueryString AS CHARACTER NO-UNDO. DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO. DEFINE VARIABLE cClassName AS CHARACTER NO-UNDO. DEFINE VARIABLE cUser AS CHARACTER NO-UNDO. DEFINE VARIABLE oJsonResult AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonMessage AS JsonObject NO-UNDO. lRetVal = WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR. cQueryString = STRING(poRequest:GetContextValue("QUERY_STRING")) NO-ERROR. cQueryString = OpenEdge.Net.URI:Decode(cQueryString). outilitiesHandler = NEW utilitiesHandler(). hError = ERROR-STATUS:HANDLE. outilitiesHandler:getHeaderData( INPUT poRequest , INPUT cQueryString , OUTPUT ccompany , OUTPUT cuser_name , OUTPUT cAnzeigeName , OUTPUT ilanguage_id , OUTPUT cSessionToken, OUTPUT cFunction , OUTPUT oJsonIdent ). MESSAGE 'DELETE mit function ' oJsonIdent:GetCharacter('function'). // // mögliche Benutzer für das durchsuchen von HTML-Dokumenten und Labeltexten ... // cUser = oJsonIdent:GetCharacter('H_user_name') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers. cUser = oJsonIdent:GetCharacter('user_name') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers. // // Programmname aus den möglichen Benutzern ermitteln // lRetVal = FALSE. iItemsPage = 50. cMaxHeight = '250px'. cProgram = outilitiesHandler:getProgramName ( INPUT oJsonIdent , INPUT cUsers , OUTPUT cFormUser , OUTPUT cFormColumns, INPUT-OUTPUT iItemsPage , INPUT-OUTPUT cMaxHeight ). oJsonIdent:ADD('program', cProgram) NO-ERROR. IF oJsonIdent:HAS('limit') THEN oJsonIdent:SET('limit', iItemsPage). ELSE oJsonIdent:ADD('limit', iItemsPage). // cLogFile = SUBSTITUTE('C:\TEMP\oJsonIdentDELETE_&1.json', REPLACE(STRING(TIME,'HH:MM:SS'), ':', '')). // oJsonIdent:WriteFile(cLogFile, TRUE). cForm_Id = oJsonIdent:GetCharacter('formId' ). cClassName = oJsonIdent:GetCharacter('class_name'). cFileName = oJsonIdent:GetCharacter('file_name' ). FIND programs NO-LOCK WHERE programs.program_name = cProgram NO-ERROR. IF NOT AVAILABLE programs THEN LEAVE. cClass = programs.program_class. REPEAT TRANSACTION WHILE cFunction = 'delete' ON ERROR UNDO, LEAVE: rClass = Progress.Lang.Class:GetClass(cClass) NO-ERROR. cMethode = 'deleteData'. oHandler = rClass:NEW(). lRetVal = DYNAMIC-INVOKE ( oHandler, cMethode, INPUT oJsonIdent , INPUT oJsonData , OUTPUT oJsonResult ) NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). IF NOT lRetVal THEN LEAVE. oJsonResult:WRITE(LcJsonString, FALSE). // oJsonResult:WriteFile('C:\TEMP\DYNAMIC_DELETE_Respons.json', TRUE). LEAVE. END. oResponse = NEW OpenEdge.Web.WebResponse(). oResponse:StatusCode = INTEGER(StatusCodeEnum:OK). oResponse:ContentType = "application/json;charset=utf-8". oWriter = NEW WebResponseWriter(oResponse). IF NOT lRetVal THEN DO: oJsonMessage = NEW JsonObject(). oJsonMessage:ADD('success', FALSE). oJsonMessage:ADD('message', 'Fehler beim DELETE'). oJsonMessage:WRITE(lcJsonString, FALSE). END. oWriter:Open(). oWriter:Write(lcJsonString). oWriter:Close(). RETURN 0. CATCH e AS Progress.Lang.Error: END CATCH. FINALLY: DELETE OBJECT oHandler NO-ERROR. DELETE OBJECT oJsonMessage NO-ERROR. DELETE OBJECT oResponse NO-ERROR. DELETE OBJECT oWriter NO-ERROR. END FINALLY. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD OVERRIDE PROTECTED INTEGER HandleGet (INPUT poRequest AS IWebRequest ): DEFINE VARIABLE oJsonResponse AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonIdent AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonSelectBoxes AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonBox AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonData AS JsonObject NO-UNDO. DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE ii AS INTEGER NO-UNDO. DEFINE VARIABLE i1 AS INTEGER NO-UNDO. DEFINE VARIABLE cQueryString AS CHARACTER NO-UNDO. DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO. DEFINE VARIABLE cFieldName AS CHARACTER NO-UNDO. DEFINE VARIABLE cClassName AS CHARACTER NO-UNDO. DEFINE VARIABLE cActiveSelection AS CHARACTER NO-UNDO. DEFINE VARIABLE cUser AS CHARACTER NO-UNDO. DEFINE VARIABLE lcQueryString AS CHARACTER NO-UNDO. DEFINE VARIABLE lSendChange AS LOGICAL NO-UNDO. DEFINE VARIABLE oJsonResult AS JsonObject NO-UNDO. DEFINE VARIABLE httBuffer AS HANDLE NO-UNDO. cQueryString = STRING(poRequest:GetContextValue("QUERY_STRING")) NO-ERROR. cQueryString = OpenEdge.Net.URI:Decode(cQueryString). outilitiesHandler = NEW utilitiesHandler(). hError = ERROR-STATUS:HANDLE. outilitiesHandler:getHeaderData( INPUT poRequest , INPUT cQueryString , OUTPUT ccompany , OUTPUT cuser_name , OUTPUT cAnzeigeName , OUTPUT ilanguage_id , OUTPUT cSessionToken, OUTPUT cFunction , OUTPUT oJsonIdent ). oJsonIdent:WRITE(lcString, TRUE). cString = lcString. MESSAGE 'GET mit function ' oJsonIdent:GetCharacter('function'). // // mögliche Benutzer für das durchsuchen von HTML-Dokumenten und Labeltexten ... // cUser = oJsonIdent:GetCharacter('H_user_name') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers. cUser = oJsonIdent:GetCharacter('user_name') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers. lRetVal = FALSE. MASTERLOOP: DO WHILE TRUE: // // Programmname aus den möglichen Benutzern ermitteln // iItemsPage = 50. cMaxHeight = '250px'. cProgram = outilitiesHandler:getProgramName ( INPUT oJsonIdent , INPUT cUsers , OUTPUT cFormUser , OUTPUT cformColumns, INPUT-OUTPUT iItemsPage , INPUT-OUTPUT cMaxHeight ). IF cProgram = '' THEN DO: cString = oJsonIdent:GetCharacter('formId'). outilitiesHandler:createErrorBox( INPUT oJsonIdent , INPUT '2001' , INPUT cString, /* Parameters */ OUTPUT oJsonMessageBox ). LEAVE. END. oJsonIdent:ADD('program' , cProgram ). oJsonIdent:ADD('itemsPerPage' , iItemsPage). oJsonIdent:ADD('tableMaxHeight', cMaxHeight). oJsonIdent:ADD('formUser' , cFormUser ). cErrorNo = ''. cForm_Id = oJsonIdent:GetCharacter("formId" ) NO-ERROR. cFileName = oJsonIdent:GetCharacter("file_name" ) NO-ERROR. cClassName = oJsonIdent:GetCharacter("class_name") NO-ERROR. // MESSAGE 'cProgram =' cProgram. FIND programs NO-LOCK WHERE programs.program_name = cProgram NO-ERROR. IF NOT AVAILABLE programs THEN LEAVE. cClass = programs.program_class. lSendChange = programs.sendChangeRecord. // // active-Feld-Filter ermitten // IF cFunction <> 'saveActiveFilter' THEN DO: outilitiesHandler:getActiveSelection( INPUT oJsonIdent , INPUT cFileName , OUTPUT cActiveSelection ). IF cActiveSelection <> '' THEN DO: IF NOT oJsonIdent:HAS('activeFilter') THEN oJsonIdent:ADD('activeFilter', cActiveSelection ). ELSE oJsonIdent:SET('activeFilter', cActiveSelection ). END. END. DO WHILE cFunction = 'init' AND cProgram <> '': // // wenn die Tabelle(File) das Feld active enthält, soll der activeFilter activiert werden // CREATE BUFFER hBuffer FOR TABLE cFilename NO-ERROR. hField = hBuffer:BUFFER-FIELD('active') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND VALID-HANDLE(hField) THEN lActive = TRUE. hField = hBuffer:BUFFER-FIELD('wordindex') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND VALID-HANDLE(hField) THEN lWordIndex = TRUE. DELETE OBJECT hBuffer. // // Alle Felder, welche als Selectboxen definiert sind, füllen // oselectboxHandler = NEW selectboxHandler(). oJsonSelectBoxes = NEW JsonObject(). FOR EACH selectboxfields NO-LOCK WHERE selectboxfields.company = ccompany AND selectboxfields.program = cform_id AND selectboxfields.user_name = cFormUser AND selectboxfields.boxfieldsFix <> '': DO ii = 1 TO NUM-ENTRIES(selectboxfields.boxfieldsFix, ';'): cFieldName = ENTRY(ii, selectboxfields.boxfieldsFix, ';'). cFileName = ENTRY(1, cFieldName, '_'). IF cFieldName MATCHES('*company*') THEN DO: oJsonBox = NEW JsonArray(). httBuffer = oSelectboxHandler:getSelboxCompany(INPUT cFileName). httBuffer:WRITE-JSON ('JsonArray', oJsonBox). oJsonSelectBoxes:ADD(cFieldName, oJsonBox). NEXT. END. IF cFieldName MATCHES('*language_id*') THEN DO: oJsonBox = NEW JsonArray(). httBuffer = oSelectboxHandler:getSelboxLanguage(INPUT cFileName) NO-ERROR. httBuffer:WRITE-JSON ('JsonArray', oJsonBox) NO-ERROR. oJsonSelectBoxes:ADD(cFieldName, oJsonBox) NO-ERROR. NEXT. END. IF cFieldName MATCHES('*user_name*') THEN DO: oJsonBox = NEW JsonArray(). httBuffer = oSelectboxHandler:getSelboxUsers(INPUT cFileName). httBuffer:WRITE-JSON ('JsonArray', oJsonBox). oJsonSelectBoxes:ADD(cFieldName, oJsonBox). NEXT. END. IF cFieldName MATCHES('*table_name*') THEN DO: oJsonBox = NEW JsonArray(). httBuffer = oSelectboxHandler:getSelboxTables(INPUT cFileName). httBuffer:WRITE-JSON ('JsonArray', oJsonBox). oJsonSelectBoxes:ADD(cFieldName, oJsonBox). NEXT. END. oselectboxHandler:getSelectBoxData( INPUT oJsonIdent, INPUT cFieldName, OUTPUT oJsonBox ). // oJsonBox:WriteFile('C:\TEMP\JsonBox.json', TRUE). oJsonSelectBoxes:ADD(cFieldName, oJsonBox). // oJsonSelectBoxes:WriteFile(SUBSTITUTE('C:\TEMP\&1_JsonSelectBoxes.json', cFilename), TRUE). END. END. oJsonResponse = NEW JsonObject(). oJsonResponse:ADD('selectOptionsFix', oJsonSelectBoxes). oJsonResponse:ADD('tableMaxHeight' , cMaxHeight ). oJsonResponse:ADD('itemsPerPage' , iItemsPage ). oJsonResponse:ADD('formColumns' , cFormColumns ). oJsonResponse:ADD('lSearch' , lWordIndex ). oJsonResponse:ADD('hasRecordChange' , lSendChange ). // // Wenn die Tabelle das Feld active hat, wird die SelectBox für den activ-Filter gefüllt // IF lActive THEN DO: oJsonResponse:ADD("activeFilter" , cActiveSelection). oJsonResponse:ADD("hasActiveField" , lActive ). oJsonActiveSelectBox = NEW JsonObject(). FOR EACH labeltexte NO-LOCK WHERE labeltexte.company = ccompany AND labeltexte.user_name = cFormUser AND labeltexte.program = 'Labels' AND labeltexte.table_name = 'table' AND labeltexte.field_name BEGINS 'LBL_FILTER' AND labeltexte.language_id = ilanguage_id : oJsonActiveSelectBox:ADD(CAPS(labeltexte.field_name), labeltexte.headlabel). END. oJsonResponse:ADD('activeFilterLabels', oJsonActiveSelectBox). END. // // Sortfelder auf start (keine Felder) stellen. // outilitiesHandler:writeSortfields( INPUT oJsonIdent , INPUT cFileName , INPUT '' , // cSortField INPUT '' // cDirection ) NO-ERROR. lRetVal = TRUE. // oJsonResponse:WriteFile('C:\Temp\dynamicform_init_response.json', TRUE). LEAVE. END. DO WHILE cFunction = 'loaddata' AND cProgram <> '': MESSAGE 'loaddata start'. oJsonIdent:WriteFile('C:\Temp\loaddat_jsonident.json', TRUE). IF oJsonIdent:HAS('sortField') THEN DO: DEFINE VARIABLE cSortField AS CHARACTER NO-UNDO. DEFINE VARIABLE cDirection AS CHARACTER NO-UNDO. cSortField = oJsonIdent:GetCharacter('sortField'). cDirection = oJsonIdent:GetCharacter('sortDirection'). outilitiesHandler:writeSortfields( INPUT oJsonIdent , INPUT cFileName , INPUT cSortField , INPUT cDirection ). END. rClass = Progress.Lang.Class:GetClass(cClass) NO-ERROR. cMethode = 'getData'. oHandler = rClass:NEW(). lRetVal = DYNAMIC-INVOKE ( oHandler, cMethode, INPUT oJsonIdent , OUTPUT oJsonResponse ) NO-ERROR. outilitiesHandler:evaluateErrorStatus(INPUT hError). // oJsonResponse:WriteFile(SUBSTITUTE('C:\TEMP\Loaddata_response_&1.json', oJsonIdent:GetCharacter('page')), TRUE). // oJsonResponse:ADD('selectOptionsFix', oJsonSelectBoxes). lRetVal = TRUE. LEAVE. END. DO WHILE cFunction = 'rebuild': rClass = Progress.Lang.Class:GetClass(cClass). cMethode = 'rebuildData'. oHandler = rClass:NEW(). lRetVal = DYNAMIC-INVOKE ( oHandler, cMethode, INPUT oJsonIdent , OUTPUT oJsonResult ) NO-ERROR. IF outilitiesHandler:evaluateErrorStatus(hError) THEN lRetVal = FALSE. IF NOT lRetVal THEN DO: outilitiesHandler:getErrorMessage( INPUT '2009' , INPUT ilanguage_id , INPUT '', OUTPUT lcMessage). oJsonResponse = NEW JsonObject(). oJsonResponse:ADD('success', FALSE). oJsonResponse:ADD('message', lcMessage). oJsonResponse:WRITE(lcJsonString, FALSE). END. // oJsonResponse = NEW JsonObject(). // oJsonResponse:ADD('selectOptionsFix', oJsonSelectBoxes). oJsonResponse = oJsonResult. oJsonResponse:WriteFile(SUBSTITUTE('C:\TEMP\rebuild_&1.json', cFileName), TRUE). lRetVal = TRUE. LEAVE. END. DO WHILE cFunction = 'saveActiveFilter': cActiveSelection = oJsonIdent:GetCharacter('activeFilter'). MESSAGE cFunction '-' cActiveSelection. outilitiesHandler:setActiveSelection( INPUT oJsonIdent , INPUT cFileName , INPUT cActiveSelection ). oJsonResponse = NEW JsonObject(). oJsonResponse:ADD('success', TRUE). // oJsonResponse:WRITE(lcJsonString, FALSE). lRetVal = TRUE. LEAVE. END. DO WHILE cFunction = 'lookup' AND cProgram <> '': cMethode = oJsonIdent:GetCharacter('lookupField') NO-ERROR. cMethode = REPLACE(cMethode, cFileName + '_', ''). cClass = 'utilities.lookupHandler'. ASSIGN rClass = Progress.Lang.Class:GetClass(cClass) NO-ERROR. oHandler = rClass:NEW() NO-ERROR. lRetVal = DYNAMIC-INVOKE ( oHandler, cMethode, INPUT oJsonIdent , OUTPUT oJsonResult ) NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). oJsonResponse = oJsonResult. LEAVE. END. LEAVE. END. IF NOT lRetVal THEN DO: lcString = oJsonMessageBox:GetLongchar('text'). oJsonResponse = NEW JsonObject(). oJsonResponse:ADD('success', FALSE). oJsonResponse:ADD('message', lcString). oJsonResponse:ADD('showMessage', oJsonMessageBox). END. oJsonResponse:WRITE(lcJsonString, FALSE). cContent-Type = "application/json". cDefautlCharSet = 'utf-8'. oBody = NEW STRING(lcJsonString) NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). WebHandlerUtilities:createHttpResponse(INPUT INTEGER(StatusCodeEnum:OK), INPUT oBody, INPUT cContent-Type, INPUT cDefautlCharSet, INPUT cCorralationID, OUTPUT oResponse) NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). // oResponse:SetHeader(HttpHeaderBuilder:Build(cHeaderCorralationID):Value(cCorralationID):Header). oWriter = NEW WebResponseWriter(oResponse) NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). oWriter:Open() NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). oWriter:Close(). RETURN 0. CATCH e AS Progress.Lang.Error: END CATCH. FINALLY: DELETE OBJECT oHandler NO-ERROR. DELETE OBJECT oSelectBoxHandler NO-ERROR. DELETE OBJECT oResponse NO-ERROR. DELETE OBJECT oWriter NO-ERROR. DELETE OBJECT oJsonSelectBoxes NO-ERROR. DELETE OBJECT oJsonBox NO-ERROR. DELETE OBJECT oParser NO-ERROR. DELETE OBJECT oJsonData NO-ERROR. DELETE OBJECT oJsonResponse NO-ERROR. END FINALLY. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD OVERRIDE PROTECTED INTEGER HandlePost(INPUT poRequest AS IWebRequest): DEFINE VARIABLE oJsonResponse AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonIdent AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonBox AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonData AS JsonObject NO-UNDO. DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE ii AS INTEGER NO-UNDO. DEFINE VARIABLE i1 AS INTEGER NO-UNDO. DEFINE VARIABLE cQueryString AS CHARACTER NO-UNDO. DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO. DEFINE VARIABLE cClassName AS CHARACTER NO-UNDO. DEFINE VARIABLE cUser AS CHARACTER NO-UNDO. DEFINE VARIABLE cString AS CHARACTER NO-UNDO. DEFINE VARIABLE lSendChange AS LOGICAL NO-UNDO. DEFINE VARIABLE oJsonResult AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonMessage AS JsonObject NO-UNDO. lRetVal = WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR. // oJsonData:WriteFile('C:\Temp\oJsonData_Post_Data.json', TRUE). cQueryString = STRING(poRequest:GetContextValue("QUERY_STRING")) NO-ERROR. cQueryString = OpenEdge.Net.URI:Decode(cQueryString). outilitiesHandler = NEW utilitiesHandler(). hError = ERROR-STATUS:HANDLE. outilitiesHandler:getHeaderData( INPUT poRequest , INPUT cQueryString , OUTPUT ccompany , OUTPUT cuser_name , OUTPUT cAnzeigeName , OUTPUT ilanguage_id , OUTPUT cSessionToken, OUTPUT cFunction , OUTPUT oJsonIdent ). MESSAGE 'POST mit function ' oJsonIdent:GetCharacter('function'). oJsonIdent:WRITE(lcJsonString, TRUE). // // mögliche Benutzer für das durchsuchen von HTML-DOkumenten und Labeltexten ... // cUser = oJsonIdent:GetCharacter('H_user_name') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers. cUser = oJsonIdent:GetCharacter('user_name') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers. // // Programmname aus den möglichen Benutzern ermitteln // lRetVal = FALSE. iItemsPage = 50. cMaxHeight = '250px'. cProgram = outilitiesHandler:getProgramName ( INPUT oJsonIdent , INPUT cUsers , OUTPUT cFormUser , OUTPUT cformColumns, INPUT-OUTPUT iItemsPage , INPUT-OUTPUT cMaxHeight ). IF cProgram = '' THEN DO: cString = oJsonIdent:GetCharacter('formId'). outilitiesHandler:createErrorBox( INPUT oJsonIdent , INPUT '2001' , INPUT cString, /* Parameters */ OUTPUT oJsonMessageBox ). LEAVE. END. oJsonIdent:ADD('program' , cProgram ). oJsonIdent:ADD('itemsPerPage' , iItemsPage). oJsonIdent:ADD('tableMaxHeight', cMaxHeight). oJsonIdent:ADD('formUser' , cFormUser ). IF oJsonIdent:HAS('limit') THEN oJsonIdent:SET('limit', iItemsPage). ELSE oJsonIdent:ADD('limit', iItemsPage). cForm_Id = oJsonIdent:GetCharacter('formId' ). cClassName = oJsonIdent:GetCharacter('class_name'). cFileName = oJsonIdent:GetCharacter('file_name' ). FIND programs NO-LOCK WHERE programs.program_name = cProgram NO-ERROR. IF NOT AVAILABLE programs THEN LEAVE. cClass = programs.program_class. lSendChange = programs.sendChangeRecord. DO WHILE cFunction = 'change': cMethode = oJsonData:GetCharacter('changeAction'). oJsonIdent:ADD('changeAction', cMethode). MESSAGE 'cFunction =' cFunction ' - Methode =' cMethode. rClass = Progress.Lang.Class:GetClass(cClass) NO-ERROR. oHandler = rClass:NEW(). lRetVal = DYNAMIC-INVOKE (oHandler, cMethode, INPUT oJsonIdent , INPUT oJsonData , OUTPUT oJsonResult ) NO-ERROR. lRetVal = (IF outilitiesHandler:evaluateErrorStatus(hError) THEN FALSE ELSE TRUE). // oJsonResult:WriteFile('C:\TEMP\DYNAMIC_CHANGE_Respons.json', TRUE). LEAVE. END. REPEAT TRANSACTION WHILE cFunction = 'create' ON ERROR UNDO, LEAVE: rClass = Progress.Lang.Class:GetClass(cClass) NO-ERROR. cMethode = 'createData'. oHandler = rClass:NEW(). lRetVal = DYNAMIC-INVOKE (oHandler, cMethode, INPUT oJsonIdent , INPUT oJsonData , OUTPUT oJsonResult ) NO-ERROR. lRetVal = (IF outilitiesHandler:evaluateErrorStatus(hError) THEN FALSE ELSE TRUE). // oJsonResult:WriteFile('C:\TEMP\DYNAMIC_CREATE_Respons.json', TRUE). LEAVE. END. oResponse = NEW OpenEdge.Web.WebResponse(). oResponse:StatusCode = INTEGER(StatusCodeEnum:OK). oResponse:ContentType = "application/json;charset=utf-8". IF NOT lRetVal THEN DO: oJsonMessage = NEW JsonObject(). oJsonMessage:ADD('success', FALSE). oJsonMessage:ADD('message', oJsonResult:GetLongchar('message')). oJsonMessage:WRITE(lcJsonString, FALSE). END. ELSE DO: oJsonResult:WRITE(lcJsonString, FALSE). // oJsonResult:WriteFile(SUBSTITUTE('C:\TEMP\DYNAMIC_&1_Respons.json', cFunction), TRUE). END. // MESSAGE 'Rueckmeldung beim POST ' cFunction STRING(lcJsonString). oWriter = NEW WebResponseWriter(oResponse). oWriter:Open(). oWriter:Write(lcJsonString). oWriter:Close(). RETURN 0. CATCH e AS Progress.Lang.Error: END CATCH. FINALLY: DELETE OBJECT oJsonMessage NO-ERROR. DELETE OBJECT oResponse NO-ERROR. DELETE OBJECT oWriter NO-ERROR. DELETE OBJECT oJsonResult NO-ERROR. END FINALLY. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD OVERRIDE PROTECTED INTEGER HandlePatch(INPUT poRequest AS IWebRequest): DEFINE VARIABLE oJsonResponse AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonIdent AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonBox AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonData AS JsonObject NO-UNDO. DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE ii AS INTEGER NO-UNDO. DEFINE VARIABLE i1 AS INTEGER NO-UNDO. DEFINE VARIABLE cQueryString AS CHARACTER NO-UNDO. DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO. DEFINE VARIABLE cClassName AS CHARACTER NO-UNDO. DEFINE VARIABLE cUser AS CHARACTER NO-UNDO. DEFINE VARIABLE oJsonResult AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonMessage AS JsonObject NO-UNDO. lRetVal = WebHandlerUtilities:getJsonFromRequest(INPUT poRequest, OUTPUT oJsonData) NO-ERROR. cQueryString = STRING(poRequest:GetContextValue("QUERY_STRING")) NO-ERROR. cQueryString = OpenEdge.Net.URI:Decode(cQueryString). outilitiesHandler = NEW utilitiesHandler(). hError = ERROR-STATUS:HANDLE. outilitiesHandler:getHeaderData( INPUT poRequest , INPUT cQueryString , OUTPUT ccompany , OUTPUT cuser_name , OUTPUT cAnzeigeName , OUTPUT ilanguage_id , OUTPUT cSessionToken, OUTPUT cFunction , OUTPUT oJsonIdent ). MESSAGE 'PATCH mit function ' oJsonIdent:GetCharacter('function'). // // mögliche Benutzer für das durchsuchen von HTML-Dokumenten und Labeltexten ... // cUser = oJsonIdent:GetCharacter('H_user_name') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers. cUser = oJsonIdent:GetCharacter('user_name') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND LOOKUP(cUser, cUsers, ',') = 0 THEN cUsers = cUser + ',' + cUsers. // // Programmname aus den möglichen Benutzern ermitteln // lRetVal = FALSE. iItemsPage = 50. cMaxHeight = '250px'. cProgram = outilitiesHandler:getProgramName ( INPUT oJsonIdent , INPUT cUsers , OUTPUT cFormUser , OUTPUT cFormColumns, INPUT-OUTPUT iItemsPage , INPUT-OUTPUT cMaxHeight ). oJsonIdent:ADD('program', cProgram) NO-ERROR. cForm_Id = oJsonIdent:GetCharacter('formId' ). cClassName = oJsonIdent:GetCharacter('class_name'). cFileName = oJsonIdent:GetCharacter('file_name' ). FIND programs NO-LOCK WHERE programs.program_name = cProgram NO-ERROR. IF NOT AVAILABLE programs THEN LEAVE. cClass = programs.program_class. REPEAT TRANSACTION WHILE cFunction = 'update' ON ERROR UNDO, LEAVE: rClass = Progress.Lang.Class:GetClass(cClass) NO-ERROR. cMethode = 'updateData'. oHandler = rClass:NEW(). lRetVal = DYNAMIC-INVOKE ( oHandler, cMethode, INPUT oJsonIdent , INPUT oJsonData , OUTPUT oJsonResult ) NO-ERROR. IF lRetVal THEN LEAVE. outilitiesHandler:evaluateErrorStatus(hError). LEAVE. END. oResponse = NEW OpenEdge.Web.WebResponse(). oResponse:StatusCode = INTEGER(StatusCodeEnum:OK). oResponse:ContentType = "application/json;charset=utf-8". oJsonResult:WRITE(lcJsonString, FALSE). // oJsonResult:WriteFile(SUBSTITUTE('C:\TEMP\DYNAMIC_&1_Respons.json', cFunction), TRUE). oWriter = NEW WebResponseWriter(oResponse). oWriter:Open(). oWriter:Write(lcJsonString). oWriter:Close(). RETURN 0. CATCH e AS Progress.Lang.Error: END CATCH. FINALLY: DELETE OBJECT oJsonMessage NO-ERROR. DELETE OBJECT oWriter NO-ERROR. DELETE OBJECT oResponse NO-ERROR. DELETE OBJECT oHandler NO-ERROR. END FINALLY. END METHOD. METHOD OVERRIDE PROTECTED INTEGER HandleNotAllowedMethod(INPUT poRequest AS IWebRequest): DEFINE VARIABLE result AS INTEGER NO-UNDO. MESSAGE "HandleNotAllowedMethod called" VIEW-AS ALERT-BOX. RETURN result. END METHOD. METHOD OVERRIDE PROTECTED INTEGER HandleNotImplemented(INPUT poRequest AS IWebRequest): DEFINE VARIABLE result AS INTEGER NO-UNDO. MESSAGE "HandleNotImplemented called" VIEW-AS ALERT-BOX. RETURN result. END METHOD. DESTRUCTOR PUBLIC dynamicformImpl ( ): END DESTRUCTOR. END CLASS.