/*------------------------------------------------------------------------ File : adminprogsHandler Purpose : Syntax : Description : Author(s) : walter.riechsteiner Created : Fri Nov 21 11:31:01 CET 2025 Notes : ----------------------------------------------------------------------*/ BLOCK-LEVEL ON ERROR UNDO, THROW. USING OpenEdge.DataAdmin.IIndex FROM PROPATH. USING Progress.Json.ObjectModel.JsonObject FROM PROPATH. USING Progress.Json.ObjectModel.JsonArray FROM PROPATH. USING Progress.Json.ObjectModel.ObjectModelParser FROM PROPATH. USING Progress.Json.ObjectModel.JsonConstruct FROM PROPATH. USING utilities.selectboxHandler FROM PROPATH. USING utilities.utilitiesHandler FROM PROPATH. USING src.ch.adprime.api.yourbarmate.beans.Response FROM PROPATH. CLASS admin.adminprogsHandler FINAL: DEFINE VARIABLE oJsonData AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonArray AS JsonArray NO-UNDO. DEFINE VARIABLE oParser AS ObjectModelParser NO-UNDO. DEFINE VARIABLE oRecords AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonPosition AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonIdent AS JsonObject NO-UNDO. DEFINE VARIABLE cUser_Name AS CHARACTER NO-UNDO. DEFINE VARIABLE cCompany AS CHARACTER NO-UNDO. DEFINE VARIABLE iLanguage_id AS INTEGER NO-UNDO. DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO. DEFINE VARIABLE cFunction AS CHARACTER NO-UNDO. DEFINE VARIABLE cProgram AS CHARACTER NO-UNDO. DEFINE VARIABLE cFormId AS CHARACTER NO-UNDO. DEFINE VARIABLE lCompany AS LOGICAL NO-UNDO. DEFINE VARIABLE lActive AS LOGICAL NO-UNDO. DEFINE VARIABLE lWordIndex AS LOGICAL NO-UNDO. DEFINE VARIABLE lBoxFields AS LOGICAL NO-UNDO. DEFINE VARIABLE iFormTabIndex AS INTEGER NO-UNDO. DEFINE VARIABLE lcJsonString AS LONGCHAR NO-UNDO. DEFINE VARIABLE cActiveSelection AS CHARACTER NO-UNDO. DEFINE VARIABLE cSortField AS CHARACTER NO-UNDO INIT ''. DEFINE VARIABLE cDirection AS CHARACTER NO-UNDO. DEFINE VARIABLE cFieldReplace AS CHARACTER NO-UNDO. DEFINE VARIABLE cKeyFieldReplace AS CHARACTER NO-UNDO. DEFINE VARIABLE cFilterReplace AS CHARACTER NO-UNDO. DEFINE VARIABLE cFileReplace AS CHARACTER NO-UNDO. DEFINE VARIABLE cKeyFields AS CHARACTER NO-UNDO. DEFINE VARIABLE cKeyValues AS CHARACTER NO-UNDO. DEFINE VARIABLE cString AS CHARACTER NO-UNDO. DEFINE VARIABLE cMessage AS CHARACTER NO-UNDO. DEFINE VARIABLE lcMessage AS LONGCHAR NO-UNDO. DEFINE VARIABLE lcString AS LONGCHAR NO-UNDO. DEFINE VARIABLE hError AS HANDLE NO-UNDO. DEFINE VARIABLE cWhere AS CHARACTER NO-UNDO. DEFINE VARIABLE cUniqueWhere AS CHARACTER NO-UNDO. DEFINE VARIABLE iAnzahlRecords AS INTEGER NO-UNDO. DEFINE VARIABLE iActualPage AS INTEGER NO-UNDO. DEFINE VARIABLE iMaxRecords AS INTEGER NO-UNDO INIT 20. DEFINE VARIABLE iStartPage AS INTEGER NO-UNDO. DEFINE VARIABLE iStartRecord AS INTEGER NO-UNDO. DEFINE VARIABLE iPageCounter AS INTEGER NO-UNDO. DEFINE VARIABLE iCurrentPosition AS INTEGER NO-UNDO. DEFINE VARIABLE cPrimaryKey AS CHARACTER NO-UNDO. DEFINE VARIABLE iIndex AS INTEGER NO-UNDO. DEFINE VARIABLE iStartIndex AS INTEGER NO-UNDO. DEFINE VARIABLE httTable AS HANDLE NO-UNDO. DEFINE VARIABLE ttTable AS HANDLE NO-UNDO. DEFINE VARIABLE hQuery AS HANDLE NO-UNDO. DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO. DEFINE TEMP-TABLE ttKeyFields FIELD iIndex AS INTEGER FIELD cLongName AS CHARACTER FIELD cFieldName AS CHARACTER FIELD cFileName AS CHARACTER FIELD cValue AS CHARACTER FIELD cDataType AS CHARACTER FIELD lKeyfield AS LOGICAL INDEX ttKeyFields-k1 IS PRIMARY iIndex cFieldName . DEFINE VARIABLE httKeyFields AS HANDLE NO-UNDO. DEFINE TEMP-TABLE ttPrimaryIndex FIELD iIndex AS INTEGER FIELD cFieldName AS CHARACTER FIELD cFileName AS CHARACTER FIELD cValue AS CHARACTER FIELD cDataType AS CHARACTER INDEX ttPrimaryIndex-k1 IS PRIMARY iIndex cFieldName . DEFINE VARIABLE httPrimaryIndex AS HANDLE NO-UNDO. DEFINE TEMP-TABLE ttWordIndexTable FIELD cFileName AS CHARACTER FIELD cFieldName AS CHARACTER FIELD cDataType AS CHARACTER FIELD cValue AS CHARACTER . DEFINE VARIABLE ttJsonIdent AS HANDLE NO-UNDO. DEFINE VARIABLE htt AS HANDLE NO-UNDO. DEFINE VARIABLE outilitiesHandler AS utilitiesHandler NO-UNDO. DEFINE VARIABLE oselectboxHandler AS selectboxHandler NO-UNDO. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ CONSTRUCTOR PUBLIC adminprogsHandler ( ): SUPER (). hError = ERROR-STATUS:HANDLE. END CONSTRUCTOR. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ CONSTRUCTOR PUBLIC adminprogsHandler ( INPUT lcInput AS LONGCHAR, INPUT ipcFunction AS CHARACTER ): SUPER (). DEFINE VARIABLE oParser AS ObjectModelParser NO-UNDO. DEFINE VARIABLE oJsonCon AS JsonConstruct NO-UNDO. DEFINE VARIABLE cUsers AS CHARACTER NO-UNDO. DEFINE VARIABLE iItemsPage AS INTEGER NO-UNDO. DEFINE VARIABLE cMaxHeight AS CHARACTER NO-UNDO. hError = ERROR-STATUS:HANDLE. outilitiesHandler = NEW utilitiesHandler(). oselectboxHandler = NEW selectboxHandler(). oParser = NEW ObjectModelParser(). oJsonCon = oParser:Parse(lcInput). oJsonIdent = CAST(oJsonCon, JsonObject). cProgram = oJsonIdent:GetCharacter('program'). cUsers = oJsonIdent:GetCharacter('cUsers'). iItemsPage = oJsonIdent:GetInteger ('itemsPerPage'). cMaxHeight = oJsonIdent:GetCharacter('tableMaxHeight'). httKeyFields = TEMP-TABLE ttKeyFields :DEFAULT-BUFFER-HANDLE. httPrimaryIndex = TEMP-TABLE ttPrimaryIndex:DEFAULT-BUFFER-HANDLE. IF oJsonIdent:HAS('limit') THEN oJsonIdent:SET('limit', iItemsPage). ELSE oJsonIdent:ADD('limit', iItemsPage). // // Ermitteln des Tabellennamens, ob die Tabelle das Feld "company" und/oder das Feld "active" enthält // outilitiesHandler:evaluateFile( INPUT-OUTPUT oJsonIdent , OUTPUT cFileName , OUTPUT lCompany , OUTPUT lActive , OUTPUT lWordIndex , INPUT-OUTPUT httKeyFields , INPUT-OUTPUT httPrimaryIndex ). oJsonIdent:write(lcString). // // erstellen TEMP-TABLE aus oJsonObject mit dem HADLE htt // oJsonIdent:WRITE(lcInput, FALSE). // MESSAGE STRING(lcInput). CREATE TEMP-TABLE ttJsonIdent. ttJsonIdent:READ-JSON('longchar', lcInput, 'EMPTY'). ttJsonIdent:SERIALIZE-NAME = 'oJsonData'. htt = ttJsonIdent:DEFAULT-BUFFER-HANDLE. htt:FIND-FIRST ('', NO-LOCK). ASSIGN cCompany = htt::company cUser_Name = htt::user_name iLanguage_id = htt::language_id cFileName = htt::file_name cFormId = htt::formId . CATCH e AS Progress.Lang.Error: END CATCH. FINALLY: END FINALLY. END CONSTRUCTOR. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC VOID buildWhere( ): DEFINE VARIABLE ii AS INTEGER NO-UNDO. DEFINE VARIABLE i1 AS INTEGER NO-UNDO. DEFINE VARIABLE lOK AS LOGICAL NO-UNDO. DEFINE VARIABLE cValue AS CHARACTER NO-UNDO. DEFINE VARIABLE cString AS CHARACTER NO-UNDO. DEFINE VARIABLE iNumerisch AS INTEGER NO-UNDO. DEFINE VARIABLE cSearchChars AS CHARACTER NO-UNDO INIT ''. DEFINE VARIABLE lSearch AS LOGICAL NO-UNDO. DEFINE VARIABLE cFields AS CHARACTER NO-UNDO EXTENT. DEFINE VARIABLE cField AS CHARACTER NO-UNDO. DEFINE VARIABLE cFieldValue AS CHARACTER NO-UNDO. DEFINE VARIABLE cFilter AS CHARACTER NO-UNDO. DEFINE VARIABLE cDBField AS CHARACTER NO-UNDO. DEFINE VARIABLE cType AS CHARACTER NO-UNDO. CREATE BUFFER hBuffer FOR TABLE cFileName. cSortField = ''. cDirection = ''. cWhere = ''. iStartPage = 1. iMaxRecords = 25. IF oJsonIdent:HAS('page') THEN iStartPage = INTEGER(oJsonIdent:GetCharacter('page')) NO-ERROR. IF oJsonIdent:HAS('limit') THEN iMaxRecords = INTEGER(oJsonIdent:GetCharacter('limit')) NO-ERROR. IF oJsonIdent:HAS('search') THEN DO: cSearchChars = oJsonIdent:GetCharacter('search'). cSearchChars = REPLACE(cSearchChars, '+', ' '). lSearch = TRUE. iMaxRecords = 100. END. iStartRecord = ((iStartPage - 1) * iMaxRecords) + 1. cString = 'WHERE'. FOR EACH ttKeyFields NO-LOCK: IF lSearch THEN DO: IF ttKeyFields.iIndex > 1 AND ttKeyFields.iIndex < 99 THEN NEXT. END. IF ttKeyFields.cDataType = 'logical' AND ttKeyFields.cValue = '' THEN NEXT. CASE ttKeyFields.cDataType: WHEN 'integer' THEN cValue = ttKeyFields.cValue. WHEN 'int64' THEN cValue = ttKeyFields.cValue. WHEN 'decimal' THEN cValue = ttKeyFields.cValue. WHEN 'date' THEN cValue = STRING(DATE(ttKeyFields.cValue),'99.99.9999'). WHEN 'logical' THEN cValue = STRING(LOGICAL(ttKeyFields.cValue),'true/false'). WHEN 'character' THEN cValue = QUOTER(ttKeyFields.cValue). END CASE. IF ttKeyFields.lKeyfield OR ttKeyFields.cDataType = 'logical' THEN cWhere = cWhere + SUBSTITUTE('&1 &2.&3 = &4 ', cString, ttKeyFields.cFileName, ttKeyFields.cFieldName, cValue). ELSE DO: cWhere = cWhere + SUBSTITUTE('&1 INDEX(STRING(&2.&3), &4) > 0 ', cString, ttKeyFields.cFileName, ttKeyFields.cFieldName, QUOTER(STRING(cValue))). END. cString = 'AND'. END. // // Suche aus dem Suchfeld --> geht dann über Wordindex // IF lSearch THEN DO: DO ii = 1 TO NUM-ENTRIES(cSearchChars, ' '): cValue = ENTRY(ii, cSearchChars, ' '). iNumerisch = INTEGER(cValue) NO-ERROR. IF NOT ERROR-STATUS:ERROR THEN cValue = SUBSTITUTE('&1&2&1', CHR(01), TRIM(STRING(iNumerisch,'>>>>>>>>9-'))). cWhere = cWhere + (IF cWhere = '' THEN ' WHERE ' ELSE 'AND '). cWhere = cWhere + 'LOOKUP(' + QUOTER(cValue) + ', ' + cFileName + '.wordindex, " ") > 0 '. END. END. // // hat es Sortierfelder ? // outilitiesHandler:readSortFields( INPUT oJsonIdent , INPUT cFileName , OUTPUT cSortField , OUTPUT cDirection ). IF cSortField <> '' THEN DO: IF cDirection BEGINS 'asc' THEN cDirection = ''. cWhere = cWhere + SUBSTITUTE(' BY &1 &2', cSortField, cDirection). END. // MESSAGE 'cWhere am Ende von BuildWhere =' cWhere. outilitiesHandler:writeLastcWhere( INPUT oJsonIdent , INPUT cFileName , INPUT cWhere ). createTempTable(). RETURN. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC LOGICAL createBegin( INPUT oJsonData AS JsonObject , OUTPUT oJsonReturn AS JsonObject ): MESSAGE "create begin". DEFINE VARIABLE oJsonMessage AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonMessageBox AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonRecord AS JsonObject NO-UNDO. DEFINE VARIABLE oMasterKeyFields AS JsonObject NO-UNDO. DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE lOK AS LOGICAL NO-UNDO. DEFINE VARIABLE hField AS HANDLE NO-UNDO. DEFINE VARIABLE cField AS CHARACTER NO-UNDO. DEFINE VARIABLE cBufferField AS CHARACTER NO-UNDO. DEFINE VARIABLE cType AS CHARACTER NO-UNDO. DEFINE VARIABLE ii AS INTEGER NO-UNDO. DEFINE VARIABLE iType AS INTEGER NO-UNDO. DEFINE VARIABLE iValue AS INTEGER NO-UNDO. DEFINE VARIABLE cValue AS CHARACTER NO-UNDO. DEFINE VARIABLE lValue AS LOGICAL NO-UNDO. DEFINE VARIABLE cFieldNames AS CHARACTER NO-UNDO EXTENT. DEFINE VARIABLE lcttTable AS LONGCHAR NO-UNDO. oJsonRecord = NEW JsonObject(). oJsonRecord = oJsonData:GetJsonObject('record'). oMasterKeyFields = NEW JsonObject(). oMasterKeyFields = oJsonData:GetJsonObject('masterKeyfields') NO-ERROR. CREATE BUFFER hBuffer FOR TABLE cFileName. createTempTable(). oJsonRecord:Write(lcttTable, FALSE). MESSAGE STRING(lcttTable). lOK = ttTable:READ-JSON('longchar', lcttTable, 'EMPTY') NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). httTable:FIND-FIRST('', NO-LOCK). IF lCompany THEN DO: httTable::company = cCompany. oJsonRecord:SET(SUBSTITUTE('&1_&2', cFileName, 'company'), oJsonIdent:GetCharacter('company')). END. hField = httTable:BUFFER-FIELD('created_at') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND VALID-HANDLE(hField) THEN DO: hField:BUFFER-VALUE = NOW. IF INDEX(lcttTable, 'created_at') > 0 THEN oJsonRecord:SET(SUBSTITUTE('&1_&2', cFileName, 'created_at'), outilitiesHandler:date2iso(TODAY)). END. hField = httTable:BUFFER-FIELD('created_by') NO-ERROR. IF NOT ERROR-STATUS:ERROR AND VALID-HANDLE(hField) THEN DO: hField:BUFFER-VALUE = oJsonIdent:GetCharacter('H_display_name'). IF INDEX(lcttTable, 'created_by') > 0 THEN oJsonRecord:SET(SUBSTITUTE('&1_&2', cFileName, 'created_by'), oJsonIdent:GetCharacter('H_display_name')). END. EXTENT(cFieldNames) = ?. cFieldNames = oMasterKeyFields:GetNames() NO-ERROR. DO ii = 1 TO EXTENT(cFieldNames): cField = cFieldNames[ii]. cBufferField = cField. ENTRY(1, cBufferField, '_') = ''. cBufferField = SUBSTRING(cBufferField,02). hField = httTable:BUFFER-FIELD(cBufferField):HANDLE NO-ERROR. cType = hField:DATA-TYPE. lcString = oMasterKeyFields:GetJsonText(cField). CASE cType: WHEN 'integer' THEN hField:BUFFER-VALUE = INTEGER(lcString). WHEN 'int64' THEN hField:BUFFER-VALUE = INT64(lcString). WHEN 'logical' THEN hField:BUFFER-VALUE = LOGICAL(lcString). OTHERWISE hField:BUFFER-VALUE = lcString. END CASE. END. DELETE OBJECT oJsonRecord. oJsonRecord = NEW JsonObject(). oJsonArray = NEW JsonArray(). httTable:WRITE-JSON ('JsonObject', oJsonRecord). oJsonArray = oJsonRecord:GetJsonArray('record'). oJsonRecord = oJsonArray:GetJsonObject(1). oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success', TRUE). oJsonReturn:add('record', oJsonRecord). // oJsonReturn:WriteFile('C:\TEMP\createBegin_jsonreturn_response.json', TRUE). lRetVal = TRUE. RETURN lRetVal. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC LOGICAL createData( INPUT oJsonData AS jsonObject, OUTPUT oJsonReturn AS JsonObject ): DEFINE VARIABLE oJsonMessage AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonMessageBox AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonFieldErrors AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonRecord AS JsonObject NO-UNDO. DEFINE VARIABLE oMasterKeyFields AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonSelectBoxes AS JsonObject NO-UNDO. DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE lOK AS LOGICAL NO-UNDO. DEFINE VARIABLE iAnzRec AS INTEGER NO-UNDO. DEFINE VARIABLE hField AS HANDLE NO-UNDO. DEFINE VARIABLE htField AS HANDLE NO-UNDO. DEFINE VARIABLE hUniqueBuffer AS HANDLE NO-UNDO. DEFINE VARIABLE cField AS CHARACTER NO-UNDO. DEFINE VARIABLE cValue AS CHARACTER NO-UNDO. DEFINE VARIABLE rBuffer AS RECID NO-UNDO. DEFINE VARIABLE iContact_Id AS INTEGER NO-UNDO. DEFINE VARIABLE cFieldValue AS CHARACTER NO-UNDO. DEFINE VARIABLE lcttTable AS LONGCHAR NO-UNDO. oJsonRecord = NEW JsonObject(). oJsonRecord = oJsonData:GetJsonObject('record') NO-ERROR. // oJsonRecord:WriteFile('C:\TEMP\createData_record.json', TRUE). oMasterKeyFields = NEW JsonObject(). oMasterKeyFields = oJsonData:GetJsonObject('masterKeyFields') NO-ERROR. CREATE BUFFER hBuffer FOR TABLE cFileName. createTempTable(). oJsonRecord:Write(lcttTable, FALSE). // MESSAGE STRING(lcttTable). lOK = ttTable:READ-JSON('longchar', lcttTable, 'EMPTY') NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). httTable:FIND-FIRST('', NO-LOCK). createUniqueWhere( INPUT httTable, OUTPUT cUniqueWhere ). lRetVal = FALSE. REPEAT TRANSACTION ON ERROR UNDO, LEAVE: lOK = hBuffer:FIND-UNIQUE(cUniqueWhere, NO-LOCK) NO-ERROR. // // Wenn gefunden, dann Fehler weil doppelte ID // IF lOK THEN DO: outilitiesHandler:createErrorBox( INPUT oJsonIdent , INPUT '2007' , INPUT '' , OUTPUT oJsonMessageBox ). oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success' , FALSE ). oJsonReturn:ADD('showMessage' , oJsonMessageBox). oJsonFieldErrors = NEW JsonObject(). FOR EACH ttPrimaryIndex NO-LOCK: cField = SUBSTITUTE('&1_&2', ttPrimaryIndex.cFileName, ttPrimaryIndex.cFieldName). oJsonFieldErrors:ADD(cField, 'Doppelt'). END. oJsonReturn:ADD('fieldErrors', oJsonFieldErrors). RETURN TRUE. END. // // Datensatz erstellen / active setzen // hBuffer:BUFFER-CREATE(). hBuffer:BUFFER-COPY(httTable) NO-ERROR. htField = hBuffer:BUFFER-FIELD('active'):HANDLE NO-ERROR. IF NOT ERROR-STATUS:ERROR AND VALID-HANDLE(htField) THEN htField:BUFFER-VALUE = TRUE. htField = hBuffer:BUFFER-FIELD('created_at'):HANDLE NO-ERROR. IF NOT ERROR-STATUS:ERROR AND VALID-HANDLE(htField) THEN htField:BUFFER-VALUE = NOW. htField = hBuffer:BUFFER-FIELD('created_by'):HANDLE NO-ERROR. IF NOT ERROR-STATUS:ERROR AND VALID-HANDLE(htField) THEN htField:BUFFER-VALUE = oJsonIdent:GetCharacter('H_display_name'). rBuffer = hBuffer:RECID. oJsonIdent:ADD('rBuffer', INT64(rBuffer)) NO-ERROR. hBuffer:BUFFER-RELEASE (). outilitiesHandler:writeLastRecord( INPUT oJsonIdent , INPUT cUniqueWhere ). lRetVal = TRUE. LEAVE. END. IF lRetVal THEN DO: IF lWordIndex THEN fillWordIndexTable(). END. // // Datensatz anhand der RECID und den letzten Kriterien in der Tabelle finden und Pagination ermitteln // DO WHILE lRetVal: outilitiesHandler:readLastcWhere( INPUT oJsonIdent, INPUT cFileName , OUTPUT cWhere ). // MESSAGE 'cWhere nach add von Datensatz' cWhere. outilitiesHandler:evaluatePageNumber( INPUT-OUTPUT oJsonIdent , INPUT cWhere , INPUT rBuffer , INPUT 'current' ). createTempTable(). iAnzRec = fillTemptableFromTable( OUTPUT oJsonReturn ). CREATE BUFFER hUniqueBuffer FOR TABLE cFileName. hUniqueBuffer:FIND-UNIQUE (cUniqueWhere, NO-LOCK) NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). hField = hUniqueBuffer:BUFFER-FIELD('language_id'):HANDLE NO-ERROR. IF VALID-HANDLE(hField) AND NOT ERROR-STATUS:ERROR THEN oJsonIdent:SET('language_id', hField:BUFFER-VALUE). oselectboxHandler:getVariableSelectBoxes( INPUT oJsonIdent , OUTPUT oJsonSelectBoxes ). IF VALID-OBJECT(oJsonSelectBoxes) THEN oJsonReturn:ADD('selectOptions', oJsonSelectBoxes). lRetVal = TRUE. LEAVE. END. DELETE OBJECT hBuffer NO-ERROR. DELETE OBJECT hUniqueBuffer NO-ERROR. IF lRetVal THEN DO: oJsonReturn:ADD('success', TRUE ). outilitiesHandler:createInfoBox( INPUT oJsonIdent , INPUT '2008' , INPUT '' , OUTPUT oJsonMessageBox ) NO-ERROR. oJsonReturn:ADD('showMessage', oJsonMessageBox). RETURN TRUE. END. IF NOT lRetVal THEN DO: oJsonMessage = NEW JsonObject(). oJsonMessage:ADD('success', FALSE). oJsonMessage:ADD('message', lcMessage). oJsonMessage:WRITE(lcJsonString, FALSE). oJsonReturn = oJsonMessage. RETURN TRUE. END. CATCH e AS Progress.Lang.Error: END CATCH. FINALLY: END FINALLY. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC VOID createTempTable( ): DEFINE VARIABLE ii AS INTEGER NO-UNDO. DEFINE VARIABLE i1 AS INTEGER NO-UNDO. DEFINE VARIABLE cSerializeName AS CHARACTER NO-UNDO. DEFINE VARIABLE cttName AS CHARACTER NO-UNDO. DEFINE VARIABLE cBoxfields AS CHARACTER NO-UNDO. DEFINE VARIABLE cAddField AS CHARACTER NO-UNDO. DEFINE VARIABLE cField AS CHARACTER NO-UNDO. // MESSAGE cCompany '-' cFormId '-' htt::FormId. FIND FIRST selectboxfields NO-LOCK WHERE selectboxfields.company = cCompany AND selectboxfields.user_name = 'admin' AND selectboxfields.program = cFormId AND selectboxfields.table_name = 'table' NO-ERROR. cBoxfields = ''. lBoxFields = FALSE. IF AVAILABLE selectboxfields THEN DO: cBoxfields = selectboxfields.boxfields. cBoxfields = cBoxfields + (IF cBoxfields = '' THEN '' ELSE ',') + selectboxfields.boxfieldsFix. cBoxFields = REPLACE(cBoxfields, ',', ';'). lBoxFields = TRUE. // MESSAGE 'Alle Boxfields für' cFormId '->' cBoxfields. END. IF VALID-HANDLE(ttTable) THEN DELETE OBJECT ttTable NO-ERROR. httTable = ?. CREATE TEMP-TABLE ttTable. ttTable:ADD-FIELDS-FROM (cFileName, 'wordindex'). /* Alle Felder aus dem Buffer, ausser wordindex */ ttTable:ADD-NEW-FIELD ('color', 'character', 0, 'x(20)'). ttTable:ADD-NEW-FIELD ('fieldColors', 'character', 5, 'x(20)'). IF lBoxFields THEN DO: DO ii = 1 TO NUM-ENTRIES(cBoxFields, ';'): cField = ENTRY(ii, cBoxFields, ';'). i1 = INDEX(cField, '_') + 1. cField = SUBSTRING(cField,i1) + '_BoxField'. ttTable:ADD-NEW-FIELD (cField, 'character', 0, 'x(100)'). END. END. IF cSortField <> '' THEN DO: ttTable:ADD-NEW-INDEX ('ttTable-k1', FALSE, TRUE). /* UNIQUE, PRIMARY */ IF cDirection BEGINS 'des' THEN ttTable:ADD-INDEX-FIELD ('ttTable-k1', cSortField, 'desc'). ELSE ttTable:ADD-INDEX-FIELD ('ttTable-k1', cSortField). END. cFunction = htt::FUNCTION NO-ERROR. CASE cFunction: WHEN 'delete' THEN cttName = 'record'. WHEN 'update' THEN cttName = 'record'. WHEN 'change' THEN cttName = 'record'. WHEN 'create' THEN cttName = 'record'. WHEN 'loaddataunique' THEN cttName = 'record'. OTHERWISE cttName = 'records'. END CASE. ttTable:TEMP-TABLE-PREPARE (cttName). httTable = ttTable:DEFAULT-BUFFER-HANDLE. // // Den Feldnamen wird für das Front-End der Tabellenname vorangestellt (Serialize-Name) // DO ii = 1 TO httTable:NUM-FIELDS: CASE httTable:BUFFER-FIELD(ii):NAME: WHEN 'active' THEN cSerializeName = 'active'. WHEN 'color' THEN cSerializeName = 'color'. WHEN 'fieldColors' THEN cSerializeName = 'fieldColors'. OTHERWISE cSerializeName = cFileName + '_' + httTable:BUFFER-FIELD(ii):NAME. END CASE. httTable:BUFFER-FIELD(ii):SERIALIZE-NAME = cSerializeName NO-ERROR. // MESSAGE 'NEU ' httTable:BUFFER-FIELD(ii):NAME httTable:BUFFER-FIELD(ii):EXTENT. END. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC VOID createUniqueWhere( INPUT hBuffer AS HANDLE, OUTPUT cUniqueWhere AS CHARACTER ): DEFINE VARIABLE hField AS HANDLE NO-UNDO. DEFINE VARIABLE cIndexFields AS CHARACTER NO-UNDO. cUniqueWhere = ''. cString = 'WHERE'. FOR EACH ttPrimaryIndex NO-LOCK: hField = hBuffer:BUFFER-FIELD(ttPrimaryIndex.cFieldName):HANDLE. CASE ttPrimaryIndex.cDataType: WHEN 'character' THEN cValue = QUOTER(hField:BUFFER-VALUE). WHEN 'logical' THEN cValue = STRING(hField:BUFFER-VALUE,"true/false"). WHEN 'date' THEN cValue = STRING(DATE(hField:BUFFER-VALUE)). OTHERWISE cValue = hField:BUFFER-VALUE. END CASE. cUniqueWhere = cUniqueWhere + cString + SUBSTITUTE(' &1.&2 = &3 ', ttPrimaryIndex.cFileName, ttPrimaryIndex.cFieldName, cValue). cString = 'AND'. END. RETURN. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC LOGICAL deleteData( INPUT oJsonData AS jsonObject, OUTPUT oJsonReturn AS JsonObject ): DEFINE VARIABLE oJsonMessage AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonMessageBox AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonRecord AS JsonObject NO-UNDO. DEFINE VARIABLE oMasterKeyFields AS JsonObject NO-UNDO. DEFINE VARIABLE oRecords AS JsonArray NO-UNDO. DEFINE VARIABLE oRecord AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonSelectBoxes AS JsonObject NO-UNDO. DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE lOK AS LOGICAL NO-UNDO. DEFINE VARIABLE hField AS HANDLE NO-UNDO. DEFINE VARIABLE htField AS HANDLE NO-UNDO. DEFINE VARIABLE rBuffer AS RECID NO-UNDO. DEFINE VARIABLE iContact_Id AS INTEGER NO-UNDO. DEFINE VARIABLE lcttTable AS LONGCHAR NO-UNDO. // oJsonData:writefile(SUBSTITUTE('C:\TEMP\delete_jsondata_&1.json', cFileName), TRUE). oJsonRecord = NEW JsonObject(). oJsonRecord = oJsonData:GetJsonObject('record') NO-ERROR. oMasterKeyFields = NEW JsonObject(). oMasterKeyFields = oJsonData:GetJsonObject('masterKeyFields') NO-ERROR. CREATE BUFFER hBuffer FOR TABLE cFileName. createTempTable(). oJsonRecord:Write(lcttTable, FALSE). lOK = ttTable:READ-JSON('longchar', lcttTable, 'EMPTY') NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). httTable:FIND-FIRST('', NO-LOCK). // // Erzeugen von Where-Statement für UNIQUE-Find // createUniqueWhere( INPUT httTable, OUTPUT cUniqueWhere ). lRetVal = FALSE. REPEAT TRANSACTION ON ERROR UNDO, LEAVE: lOK = hBuffer:FIND-UNIQUE(cUniqueWhere, NO-LOCK) NO-ERROR. IF NOT lOK THEN DO: outilitiesHandler:createErrorBox( INPUT oJsonIdent , INPUT '2000' , INPUT '' , OUTPUT oJsonMessageBox ). oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success' , FALSE ). oJsonReturn:ADD('showMessage' , oJsonMessageBox). RETURN TRUE. END. rBuffer = hBuffer:RECID. hBuffer:BUFFER-RELEASE (). cActiveSelection = (IF oJsonIdent:HAS('activeFilter') THEN oJsonIdent:GetCharacter('activeFilter') ELSE ''). IF cActiveSelection = 'LBL_FILTER_ACTIVE' THEN DO: outilitiesHandler:evaluatePageNumber( INPUT-OUTPUT oJsonIdent , INPUT cWhere , INPUT rBuffer , INPUT 'before' ). END. iStartPage = INTEGER(oJsonIdent:GetCharacter('page')) NO-ERROR. iIndex = INTEGER(oJsonIdent:GetCharacter('index')) NO-ERROR. lOK = hBuffer:FIND-UNIQUE(cUniqueWhere, EXCLUSIVE-LOCK, NO-WAIT) NO-ERROR. IF hBuffer:LOCKED THEN DO: hBuffer:FIND-UNIQUE(cUniqueWhere, NO-LOCK) NO-ERROR. rBuffer = hBuffer:RECID. outilitiesHandler:createLockMessage( INPUT oJsonIdent, INPUT rBuffer , OUTPUT oJsonMessageBox ). oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success' , FALSE ). oJsonReturn:ADD('showMessage', oJsonMessageBox). RETURN TRUE. END. DO WHILE lActive : hField = hBuffer:BUFFER-FIELD('active'):HANDLE NO-ERROR. IF ERROR-STATUS:ERROR OR NOT VALID-HANDLE(hField) THEN LEAVE. hField:BUFFER-VALUE = FALSE NO-ERROR. hField = hBuffer:BUFFER-FIELD('updated_at'):HANDLE NO-ERROR. IF NOT ERROR-STATUS:ERROR AND VALID-HANDLE(hField) THEN hField:BUFFER-VALUE = NOW. hField = hBuffer:BUFFER-FIELD('updated_by'):HANDLE NO-ERROR. IF NOT ERROR-STATUS:ERROR AND VALID-HANDLE(hField) THEN hField:BUFFER-VALUE = oJsonIdent:GetCharacter('H_display_name'). httTable:BUFFER-COPY(hBuffer). hBuffer:BUFFER-RELEASE (). lRetVal = TRUE. LEAVE. END. DO WHILE NOT lRetVal: lRetVal = hBuffer:BUFFER-DELETE (). hBuffer:BUFFER-RELEASE (). LEAVE. END. IF lActive THEN fillWordIndexTable(). // // Letzte Abfrage wiederholen und Temp-Tabelle füllen // outilitiesHandler:readLastcWhere( INPUT oJsonIdent, INPUT cFileName, OUTPUT cWhere ) NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). // MESSAGE 'cWhere nach Löschung ' cWhere. createTempTable(). fillTemptableFromTable( OUTPUT oJsonReturn ). oRecords = NEW JsonArray(). oRecords = oJsonReturn:GetJsonArray('records'). oRecord = NEW JsonObject(). oRecord = (IF iIndex = oRecords:LENGTH THEN oRecords:GetJsonObject(iIndex) ELSE oRecords:GetJsonObject(iIndex + 1) ). oselectboxHandler:getVariableSelectBoxes( INPUT oJsonIdent, OUTPUT oJsonSelectBoxes ). IF VALID-OBJECT(oJsonSelectBoxes) THEN oJsonReturn:ADD('selectOptions', oJsonSelectBoxes). LEAVE. END. IF lRetVal THEN DO: oJsonReturn:ADD('success', TRUE). RETURN lRetVal. END. IF NOT lRetVal THEN DO: oJsonMessage = NEW JsonObject(). oJsonMessage:ADD('success', FALSE). oJsonMessage:ADD('message', lcMessage). oJsonMessage:WRITE(lcJsonString, FALSE). oJsonReturn = oJsonMessage. END. RETURN lRetVal. CATCH e AS Progress.Lang.Error: END CATCH. FINALLY: DELETE OBJECT oJsonArray NO-ERROR. DELETE OBJECT oJsonData NO-ERROR. END FINALLY. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC INTEGER fillTemptableFromTable( OUTPUT oJsonReturn AS JsonObject ): DEFINE VARIABLE iRetVal AS INTEGER NO-UNDO INIT -1. DEFINE VARIABLE i1 AS INTEGER NO-UNDO. DEFINE VARIABLE hQuery AS HANDLE NO-UNDO. DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO. DEFINE VARIABLE iTotalRecords AS INTEGER NO-UNDO. DEFINE VARIABLE cAddress AS CHARACTER NO-UNDO. DEFINE VARIABLE hField AS HANDLE NO-UNDO. DEFINE VARIABLE rBuffer AS RECID NO-UNDO. DEFINE VARIABLE lFound AS LOGICAL NO-UNDO. DEFINE VARIABLE cField AS CHARACTER NO-UNDO. DEFINE VARIABLE cFieldValue AS CHARACTER NO-UNDO. DEFINE VARIABLE cPreWhere AS CHARACTER NO-UNDO. DEFINE VARIABLE rBefore AS RECID NO-UNDO. DEFINE VARIABLE oRecords AS JsonArray NO-UNDO. DEFINE VARIABLE oInfoRecord AS JsonObject NO-UNDO. iStartPage = 1. iMaxRecords = 25. iIndex = 0. rBuffer = (IF oJsonIdent:HAS('rBuffer') THEN oJsonIdent:GetInt64('rBuffer') ELSE ?). // // Manchmal kommen die Werte als Integer, manchmal als character // IF oJsonIdent:HAS('limit') THEN DO: iMaxRecords = (IF oJsonIdent:getType('limit') = 1 THEN INTEGER(oJsonIdent:GetCharacter('limit')) ELSE oJsonIdent:GetInteger('limit')). END. IF oJsonIdent:HAS('page') THEN DO: iStartPage = (IF oJsonIdent:getType('page') = 1 THEN INTEGER(oJsonIdent:GetCharacter('page')) ELSE oJsonIdent:GetInteger('page')). END. IF oJsonIdent:HAS('index') THEN DO: iIndex = (IF oJsonIdent:getType('index') = 1 THEN INTEGER(oJsonIdent:GetCharacter('index')) ELSE oJsonIdent:GetInteger('index')). END. iStartRecord = ((iStartPage - 1) * iMaxRecords) + 1. // // Für das Dynamische Query wird PRESELECT verwendet für die Pagination // // MESSAGE '-> MaxRecords =' iMaxRecords SKIP 'Startpage =' iStartPage SKIP 'Index =' iIndex SKIP 'Startrecord =' iStartRecord. // MESSAGE 'cWhere in fillTempTable =' cFileName '->' cWhere. cPreWhere = SUBSTITUTE(' PRESELECT EACH &1 &2 NO-LOCK ', cFileName, cWhere) NO-ERROR. // MESSAGE 'cPreWhere in fillTempTable =' cPreWhere. CREATE QUERY hQuery. CREATE BUFFER hBuffer FOR TABLE cFileName. hQuery:SET-BUFFERS (hBuffer) NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). hQuery:QUERY-PREPARE (cPreWhere) NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). hQuery:QUERY-OPEN (). iTotalRecords = hQuery:NUM-RESULTS. hQuery:REPOSITION-FORWARD(iStartRecord - 1) NO-ERROR. hQuery:GET-NEXT (). iCurrentPosition = 0. iAnzahlRecords = 0. // MESSAGE 'Start query mit StartRecord ' iStartRecord 'und cWhere ' cPreWhere. ttTable:EMPTY-TEMP-TABLE (). DO WHILE NOT hQuery:QUERY-OFF-END: IF iCurrentPosition = 0 THEN iCurrentPosition = iStartRecord. iAnzahlRecords = iAnzahlRecords + 1. httTable:BUFFER-CREATE(). httTable:BUFFER-COPY(hBuffer). /* IF cFileName = 'users' AND hBuffer::ROLE BEGINS 'admin' THEN */ /* ASSIGN */ /* */ /* httTable:BUFFER-FIELD ('color'):BUFFER-VALUE() = 'green' */ /* httTable:BUFFER-FIELD ('fieldColors'):BUFFER-VALUE(1) = "'users_firstname':'blue'".*/ rBefore = hBuffer:RECID. IF rBuffer <> ? AND hBuffer:RECID = rBuffer THEN iIndex = iAnzahlRecords - 1. IF iAnzahlRecords >= iMaxRecords THEN LEAVE. hQuery:GET-NEXT (). END. hQuery:QUERY-CLOSE (). DELETE OBJECT hQuery NO-ERROR. DELETE OBJECT hBuffer NO-ERROR. IF lBoxFields THEN DO: lFound = FALSE. CREATE QUERY hQuery. hQuery:SET-BUFFERS(httTable). hQuery:QUERY-PREPARE (SUBSTITUTE('FOR EACH &1', httTable:NAME )). hQuery:QUERY-OPEN (). hQuery:GET-FIRST () NO-ERROR. DO WHILE NOT hQuery:QUERY-OFF-END: DO i1 = 1 TO httTable:NUM-FIELDS: IF INDEX(httTable:BUFFER-FIELD(i1):NAME, 'BoxField') = 0 THEN NEXT. lFound = TRUE. cField = httTable:BUFFER-FIELD(i1):NAME. cField = REPLACE(cField, '_BoxField', ''). hField = httTable:BUFFER-FIELD(cField):HANDLE NO-ERROR. IF ERROR-STATUS:ERROR THEN NEXT. IF NOT VALID-HANDLE(hField) THEN NEXT. cFieldValue = hField:BUFFER-VALUE. httTable:BUFFER-FIELD(i1):BUFFER-VALUE = outilitiesHandler:getBoxFieldText( INPUT oJsonIdent , INPUT cField , INPUT cFieldValue ) NO-ERROR. END. IF lFound = FALSE THEN LEAVE. hQuery:GET-NEXT () NO-ERROR. END. hQuery:QUERY-CLOSE (). DELETE OBJECT hQuery NO-ERROR. END. oRecords = NEW JsonArray(). httTable:WRITE-JSON('JsonArray', oRecords). // MESSAGE 'ttTable gefüllt ' iANzahlRecords. // oRecords:WriteFile(SUBSTITUTE('C:\TEMP\fillTempTable_&1_records.json', htt::FormId), TRUE). iPageCounter = iTotalRecords / iMaxRecords. IF (iPageCounter * iMaxRecords) < iTotalRecords THEN iPageCounter = iPageCounter + 1. oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('records' , oRecords ). oJsonReturn:ADD('currentPage' , iStartPage ). oJsonReturn:ADD('maxRecords' , iTotalRecords ). oJsonReturn:ADD('pageCount' , iPageCounter ). oJsonReturn:ADD('recordCount' , iAnzahlRecords). oJsonReturn:ADD('currentIndex', iIndex ). IF iAnzahlRecords > 0 AND rBuffer = ? THEN DO: httTable:FIND-FIRST('', NO-LOCK) NO-ERROR. createUniqueWhere( INPUT httTable , OUTPUT cUniqueWhere ). // MESSAGE 'writeLastRecord ' cUniqueWhere. outilitiesHandler:writeLastRecord( INPUT oJsonIdent, INPUT cUniqueWhere ). END. iRetVal = iAnzahlRecords. // oJsonReturn:WriteFile(SUBSTITUTE('C:\TEMP\fillTempTable_return_&1.json', cFormId), TRUE). // MESSAGE 'ende filltable'. RETURN iRetVal. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC VOID fillWordIndexTable( ): DEFINE VARIABLE i1 AS INTEGER NO-UNDO. DEFINE VARIABLE hwibuffer AS HANDLE NO-UNDO. DEFINE VARIABLE hField AS HANDLE NO-UNDO. DEFINE VARIABLE cValue AS CHARACTER NO-UNDO. EMPTY TEMP-TABLE ttWordIndexTable. MESSAGE 'Filename =' cFileName. CREATE BUFFER hwibuffer FOR TABLE cFileName. hwibuffer:FIND-UNIQUE (cUniqueWhere, NO-LOCK). DO i1 = 1 TO hwibuffer:NUM-FIELDS: hField = hwibuffer:BUFFER-FIELD(i1):HANDLE NO-ERROR. IF INDEX(hField:NAME, 'SHA') > 0 THEN NEXT. IF INDEX(hField:NAME, 'word') > 0 THEN NEXT. IF INDEX(hField:NAME, 'updated_') > 0 THEN NEXT. IF INDEX(hField:NAME, 'created_') > 0 THEN NEXT. IF INDEX(hField:NAME, '_display') > 0 THEN NEXT. IF hField:EXTENT > 0 THEN NEXT. IF hField:DATA-TYPE = 'logical' THEN NEXT. cValue = hField:BUFFER-VALUE NO-ERROR. IF cValue = ? THEN NEXT. IF hField:NAME BEGINS 'phone' OR hField:NAME BEGINS 'mobile' OR hField:NAME BEGINS 'Fax' THEN DO: cValue = hField:BUFFER-VALUE. cValue = REPLACE(cValue, ' ', ''). cValue = REPLACE(cValue, '.', ''). cValue = REPLACE(cValue, "'", ''). cValue = REPLACE(cValue, '-', ''). END. CREATE ttWordIndexTable. ASSIGN ttWordIndexTable.cFileName = hwibuffer:NAME ttWordIndexTable.cFieldName = hField:NAME ttWordIndexTable.cDataType = hField:DATA-TYPE ttWordIndexTable.cValue = cValue . END. DELETE OBJECT hwibuffer NO-ERROR. hwibuffer = ?. hwibuffer = TEMP-TABLE ttWordIndexTable:DEFAULT-BUFFER-HANDLE. cValue = outilitiesHandler:createWordindexFromTable( INPUT hwibuffer ). MESSAGE cFileName '-' cUniqueWhere '- wordIndex ' cValue. REPEAT TRANSACTION ON ERROR UNDO, LEAVE: CREATE BUFFER hwiBuffer FOR TABLE cFileName. hwiBuffer:FIND-UNIQUE (cUniqueWhere, EXCLUSIVE-LOCK). hwibuffer::wordIndex = cValue. hwibuffer:BUFFER-RELEASE (). LEAVE. END. RETURN. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC LOGICAL getChanges( INPUT oJsonIdent AS JsonObject, OUTPUT oJsonResult AS JsonObject ): DEFINE VARIABLE oJsonMessage AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonMessageBox AS JsonObject NO-UNDO. DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE lOK AS LOGICAL NO-UNDO. DEFINE VARIABLE ii AS INTEGER NO-UNDO. DEFINE VARIABLE hField AS HANDLE NO-UNDO. DEFINE VARIABLE htField AS HANDLE NO-UNDO. DEFINE VARIABLE cField AS CHARACTER NO-UNDO. DEFINE VARIABLE cBufferField AS CHARACTER NO-UNDO. DEFINE VARIABLE cValue AS CHARACTER NO-UNDO. DEFINE VARIABLE iValue AS INTEGER NO-UNDO. DEFINE VARIABLE lValue AS LOGICAL NO-UNDO. DEFINE VARIABLE cWordIndex AS CHARACTER NO-UNDO. DEFINE VARIABLE rBuffer AS RECID NO-UNDO. DEFINE VARIABLE cFieldNames AS CHARACTER NO-UNDO EXTENT. DEFINE VARIABLE cReplace AS CHARACTER NO-UNDO. DEFINE VARIABLE lNew AS LOGICAL NO-UNDO. DEFINE VARIABLE iType AS INTEGER NO-UNDO. DEFINE VARIABLE cFunction AS CHARACTER NO-UNDO. DEFINE VARIABLE cChangeAction AS CHARACTER NO-UNDO. DEFINE VARIABLE cUniqueWhere AS CHARACTER NO-UNDO. DEFINE VARIABLE oJsonReturn AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonRecord AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonArray AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonAction AS JsonArray NO-UNDO. outilitiesHandler = NEW utilitiesHandler(). httKeyFields = TEMP-TABLE ttKeyFields :DEFAULT-BUFFER-HANDLE. httPrimaryIndex = TEMP-TABLE ttPrimaryIndex:DEFAULT-BUFFER-HANDLE. // // Ermitteln des Tabellennamens, ob die Tabelle das Feld "company" und/oder das Feld "active" enthält // MESSAGE 'getChanges'. outilitiesHandler:evaluateFile( INPUT-OUTPUT oJsonIdent , OUTPUT cFileName , OUTPUT lCompany , OUTPUT lActive , OUTPUT lWordIndex , INPUT-OUTPUT httKeyFields , INPUT-OUTPUT httPrimaryIndex ). cFunction = oJsonIdent:GetCharacter('function'). CREATE BUFFER hBuffer FOR TABLE cFileName. createTempTable(). httTable:BUFFER-CREATE(). cReplace = SUBSTITUTE('&1_', cFileName). cFieldNames = oJsonIdent:GetNames(). DO ii = 1 TO EXTENT(cFieldNames): cField = cFieldNames[ii]. IF NOT cField BEGINS cFileName THEN NEXT. cBufferField = REPLACE(cField, cReplace, ''). cValue = oJsonIdent:GetCharacter(cField). hField = httTable:BUFFER-FIELD(cBufferField):HANDLE NO-ERROR. IF ERROR-STATUS:ERROR THEN NEXT. IF NOT VALID-HANDLE (hField) THEN NEXT. IF hField:DATA-TYPE = 'date' THEN cValue = outilitiesHandler:iso2date(INPUT cValue). iType = oJsonRecord:getType(cField). CASE iType: WHEN 2 THEN DO: iValue = oJsonRecord:GetInteger(cField). hField:BUFFER-VALUE = iValue NO-ERROR. END. WHEN 3 THEN DO: lValue = oJsonRecord:GetLogical(cField). hField:BUFFER-VALUE = lValue NO-ERROR. END. OTHERWISE DO: cValue = oJsonRecord:GetCharacter(cField). IF hField:DATA-TYPE = 'character' THEN hField:BUFFER-VALUE = cValue NO-ERROR. IF hField:DATA-TYPE = 'date' THEN hField:BUFFER-VALUE = DATE(outilitiesHandler:iso2date(cValue)). END. END CASE. lOk = outilitiesHandler:evaluateErrorStatus(hError). IF lOk THEN NEXT. END. // httTable:WRITE-JSON ('FILE', 'C:\TEMP\ttTable_Inhalt.json', TRUE). // // Erzeugen von Where-Statement für UNIQUE-Find // httTable:FIND-FIRST('', NO-LOCK) NO-ERROR. createUniqueWhere( INPUT httTable, OUTPUT cWhere ). cUniqueWhere = cWhere. lOK = hBuffer:FIND-UNIQUE(cWhere, NO-LOCK) NO-ERROR. IF NOT lOK THEN lNew = TRUE. oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success', TRUE). cChangeAction = oJsonIdent:GetCharacter('changeAction'). // MESSAGE 'ChangeAction =' cChangeAction. CASE cChangeAction: /* WHEN 'changeFixedAddress' THEN */ /* DO: */ /* lAddressFix = LOGICAL(oJsonIdent:GetCharacter('changedValue')). */ /*// MESSAGE httTable::ADDress_fix '-' oJsonIdent:GetCharacter('changedValue'). */ /* oJsonAction = NEW JsonArray(). */ /* oJsonAction:ADD('addresses_address'). */ /* IF lAddressFix THEN oJsonReturn:ADD('editableFields', oJsonAction).*/ /* ELSE oJsonReturn:ADD('disabledFields', oJsonAction).*/ /* httTable::Address_fix = oJsonIdent:GetCharacter('changedValue'). */ /* END. */ END CASE. oJsonRecord = NEW JsonObject(). oJsonArray = NEW JsonArray (). httTable:WRITE-JSON('JsonObject', oJsonRecord). oJsonArray = oJsonRecord:GetJsonArray('record'). oJsonRecord = oJsonArray:GetJsonObject(1). oJsonReturn:ADD('record', oJsonRecord). oJsonResult = oJsonReturn. lRetVal = TRUE. RETURN lRetVal. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC LOGICAL getData( OUTPUT oJsonReturn AS JsonObject ): DEFINE VARIABLE ii AS INTEGER NO-UNDO. DEFINE VARIABLE i1 AS INTEGER NO-UNDO. DEFINE VARIABLE iAnzRec AS INTEGER NO-UNDO. DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE iRetVal AS INTEGER NO-UNDO. DEFINE VARIABLE lOK AS LOGICAL NO-UNDO. DEFINE VARIABLE cAddress AS CHARACTER NO-UNDO. DEFINE VARIABLE hFeld AS HANDLE NO-UNDO. DEFINE VARIABLE cFormUser AS CHARACTER NO-UNDO. DEFINE VARIABLE oRecords AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonEditable AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonBox AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonSelectBoxes AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonMessageBox AS JsonObject NO-UNDO. DEFINE VARIABLE oInfoRecord AS JsonObject NO-UNDO. iIndex = 0. buildWhere(). MESSAGE 'cWhere nach buildwhere in getdata' cWhere. ii = 0. iAnzRec = 0. ttTable:EMPTY-TEMP-TABLE (). CREATE QUERY hQuery. // cWhere = SUBSTITUTE('FOR EACH &1 NO-LOCK &2 ', cFileName, cWhere) NO-ERROR. // MESSAGE 'cWhere loaddate for ' cFileName '->' cWhere. oJsonIdent:WriteFile('C:\TEMP\getData_oJsonIdent.json', TRUE ). /* IF NOT oJsonIdent:HAS('search') THEN */ /* DO: */ /* outilitiesHandler:writeLastcWhere(*/ /* INPUT oJsonIdent , */ /* INPUT cFileName , */ /* INPUT cWhere */ /* ). */ /* END. */ // // Für das Dynamische Query wird PRESELECT verwendet für die Pagination // iRetVal = fillTemptableFromTable( OUTPUT oJsonReturn ). IF iRetVal <= 0 THEN DO: outilitiesHandler:createInfoBox( INPUT oJsonIdent , INPUT '2009' , INPUT '' , OUTPUT oJsonMessageBox ). oJsonReturn:ADD('success', (IF iRetVal < 0 THEN FALSE ELSE TRUE)). oJsonReturn:ADD('showMessage', oJsonMessageBox). // oJsonReturn:WriteFile('C:\TEMP\getData_nullRecords_return.json', TRUE). RETURN lRetVal. END. lRetVal = httTable:FIND-FIRST('', NO-LOCK). hFeld = httTable:BUFFER-FIELD('language_id'):HANDLE NO-ERROR. IF VALID-HANDLE(hFeld) AND NOT ERROR-STATUS:ERROR THEN oJsonIdent:SET('language_id', hFeld:BUFFER-VALUE). oselectboxHandler:getVariableSelectBoxes( INPUT oJsonIdent , OUTPUT oJsonSelectBoxes ). IF VALID-OBJECT(oJsonSelectBoxes) THEN oJsonReturn:ADD('selectOptions', oJsonSelectBoxes). outilitiesHandler:writePosition( INPUT oJsonIdent , INPUT cFileName , INPUT iCurrentPosition , INPUT iStartPage , INPUT iMaxRecords ). // oJsonReturn:WriteFile('C:\TEMP\addresses_getData_messages.json', TRUE). lRetVal = TRUE. RETURN lRetVal. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC LOGICAL getDataUnique( OUTPUT oJsonReturn AS JsonObject ): DEFINE VARIABLE lOK AS LOGICAL NO-UNDO. DEFINE VARIABLE cUniqueWhere AS CHARACTER NO-UNDO. DEFINE VARIABLE hField AS HANDLE NO-UNDO. DEFINE VARIABLE oJsonRecord AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonSelectBoxes AS JsonObject NO-UNDO. DEFINE VARIABLE oInfoRecord AS JsonObject NO-UNDO. CREATE BUFFER hBuffer FOR TABLE cFileName. createTempTable(). MESSAGE cFileName. outilitiesHandler:readLastRecord( INPUT oJsonIdent , OUTPUT cUniqueWhere ). lOk = hBuffer:FIND-UNIQUE (cUniqueWhere, NO-LOCK) NO-ERROR. httTable:BUFFER-CREATE (). httTable:BUFFER-COPY(hBuffer). httTable:FIND-FIRST('', NO-LOCK) NO-ERROR. oJsonReturn = NEW JsonObject(). oJsonData = NEW JsonObject(). oJsonRecord = NEW JsonObject(). oJsonArray = NEW JsonArray (). // // den ersten Datensatz in der TEMP-TABLE lesen // hField = httTable:BUFFER-FIELD('language_id'):HANDLE NO-ERROR. IF VALID-HANDLE(hField) AND NOT ERROR-STATUS:ERROR THEN oJsonIdent:SET('language_id', httTable::language_id). httTable:WRITE-JSON('JsonObject', oJsonData). oJsonArray = oJsonData:GetJsonArray('record'). oJsonRecord = oJsonArray:GetJsonObject(1). oselectboxHandler:getVariableSelectBoxes( INPUT oJsonIdent , OUTPUT oJsonSelectBoxes ). lOk = TRUE. oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success', lOK ). oJsonReturn:ADD('record' , oJsonRecord). IF VALID-OBJECT(oInfoRecord) THEN oJsonReturn:ADD('infoRecord' , oInfoRecord ). IF VALID-OBJECT(oJsonSelectBoxes) THEN oJsonReturn:ADD('selectOptions', oJsonSelectBoxes). DELETE OBJECT oJsonArray NO-ERROR. DELETE OBJECT hBuffer NO-ERROR. DELETE OBJECT ttTable NO-ERROR. RETURN lOK. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC LOGICAL rebuildData( OUTPUT oJsonReturn AS JsonObject ): DEFINE VARIABLE iAnzRec AS INTEGER NO-UNDO. DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE iRetVal AS INTEGER NO-UNDO. DEFINE VARIABLE lOK AS LOGICAL NO-UNDO. DEFINE VARIABLE cAddress AS CHARACTER NO-UNDO. DEFINE VARIABLE hFeld AS HANDLE NO-UNDO. DEFINE VARIABLE cFormUser AS CHARACTER NO-UNDO. DEFINE VARIABLE hUniqueBuffer AS HANDLE NO-UNDO. DEFINE VARIABLE rBuffer AS RECID NO-UNDO. DEFINE VARIABLE oRecords AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonEditable AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonBox AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonSelectBoxes AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonMessageBox AS JsonObject NO-UNDO. DEFINE VARIABLE oInfoRecord AS JsonObject NO-UNDO. outilitiesHandler:readLastRecord( INPUT oJsonIdent , OUTPUT cUniqueWhere ). CREATE BUFFER hUniqueBuffer FOR TABLE cFileName. hUniqueBuffer:FIND-UNIQUE (cUniqueWhere, NO-LOCK). rBuffer = hUniqueBuffer:RECID. oJsonIdent:ADD('rBuffer', INT64(rBuffer)). IF oJsonIdent:HAS('search') THEN DO: oJsonIdent:Remove('search') NO-ERROR. oJsonIdent:SET('lSearch', FALSE) NO-ERROR. END. buildWhere(). MESSAGE 'cWhere nach buildwhere in rebuilddate' cWhere. outilitiesHandler:evaluatePageNumber( INPUT-OUTPUT oJsonIdent , INPUT cWhere , INPUT rBuffer , INPUT 'current' ). MESSAGE 'cWhere bei Rebuild' cWhere. // createTempTable(). iAnzRec = fillTemptableFromTable( OUTPUT oJsonReturn ). /* hUniqueBuffer:FIND-UNIQUE (cUniqueWhere, NO-LOCK) NO-ERROR.*/ /* outilitiesHandler:evaluateErrorStatus(hError).*/ oJsonIdent:SET('language_id', hUniqueBuffer::language_id). oselectboxHandler:getVariableSelectBoxes( INPUT oJsonIdent , OUTPUT oJsonSelectBoxes ). IF VALID-OBJECT(oJsonSelectBoxes) THEN oJsonReturn:ADD('selectOptions', oJsonSelectBoxes). lRetVal = TRUE. RETURN lRetVal. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC LOGICAL recordChange( INPUT oJsonData AS JsonObject , OUTPUT oJsonReturn AS JsonObject ): DEFINE VARIABLE cReplace AS CHARACTER NO-UNDO. DEFINE VARIABLE cField AS CHARACTER NO-UNDO. DEFINE VARIABLE cBufferField AS CHARACTER NO-UNDO. DEFINE VARIABLE cValue AS CHARACTER NO-UNDO. DEFINE VARIABLE ii AS INTEGER NO-UNDO. DEFINE VARIABLE lOK AS LOGICAL NO-UNDO. DEFINE VARIABLE hField AS HANDLE NO-UNDO. // DEFINE VARIABLE hUniqueBuffer AS HANDLE NO-UNDO. DEFINE VARIABLE oJsonRecord AS JsonObject NO-UNDO. DEFINE VARIABLE oInfoRecord AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonBox AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonSelectBoxes AS JsonObject NO-UNDO. CREATE BUFFER hBuffer FOR TABLE cFileName. createTempTable(). oJsonRecord = NEW JsonObject(). oJsonRecord = oJsonData:GetJsonObject('record'). // oJsonRecord:WriteFile('C:\Temp\RecordChange_record.json', TRUE). httTable:READ-JSON('JsonObject', oJsonRecord) NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). // // den ersten Datensatz in der TEMP-TABLE lesen // httTable:FIND-FIRST('', NO-LOCK) NO-ERROR. hField = httTable:BUFFER-FIELD('language_id'):HANDLE NO-ERROR. IF VALID-HANDLE(hField) AND NOT ERROR-STATUS:ERROR THEN oJsonIdent:SET('language_id', httTable::language_id). // // Erzeugen von Where-Statement für UNIQUE-Find // createUniqueWhere( INPUT httTable, OUTPUT cUniqueWhere ). outilitiesHandler:writeLastRecord( INPUT oJsonIdent , INPUT cUniqueWhere ). hBuffer:FIND-UNIQUE (cUniqueWhere, NO-LOCK). httTable:EMPTY-TEMP-TABLE (). httTable:BUFFER-CREATE (). httTable:BUFFER-COPY (hBuffer). DELETE OBJECT oJsonRecord. oJsonRecord = NEW JsonObject(). oJsonArray = NEW JsonArray(). httTable:WRITE-JSON('JsonObject', oJsonRecord). oJsonArray = oJsonRecord:GetJsonArray('record'). oJsonRecord = oJsonArray:GetJsonObject(1). oselectboxHandler:getVariableSelectBoxes( INPUT oJsonIdent , OUTPUT oJsonSelectBoxes ). lOk = TRUE. oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success', lOK ). oJsonReturn:ADD('record' , oJsonRecord). IF VALID-OBJECT(oInfoRecord) THEN oJsonReturn:ADD('infoRecord', oInfoRecord ). IF VALID-OBJECT(oJsonSelectBoxes) THEN oJsonReturn:ADD('selectOptions', oJsonSelectBoxes). // oJsonReturn:WriteFile(SUBSTITUTE('C:\Temp\RecordChange_&1_return.json', cFileName), TRUE). DELETE OBJECT ttTable NO-ERROR. DELETE OBJECT hBuffer NO-ERROR. DELETE OBJECT oJsonArray NO-ERROR. RETURN lOK. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC LOGICAL updateBegin( INPUT oJsonData AS JsonObject , OUTPUT oJsonReturn AS JsonObject ): DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE lAddressFix AS LOGICAL NO-UNDO. DEFINE VARIABLE oJsonAction AS JsonArray NO-UNDO. DEFINE VARIABLE oJsonRecord AS JsonObject NO-UNDO. iFormTabIndex = (IF oJsonIdent:HAS('formTabIndex') THEN INTEGER(oJsonIdent:GetCharacter('formTabIndex')) ELSE 1). cFileName = oJsonIdent:GetCharacter('file_name'). oJsonRecord = NEW JsonObject(). oJsonRecord = oJsonData:GetJsonObject('record'). oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success', TRUE). oJsonReturn:ADD('record', oJsonRecord). oJsonAction = NEW JsonArray(). FOR EACH ttPrimaryIndex NO-LOCK: oJsonAction:ADD(SUBSTITUTE('&1_&2', cFileName, ttPrimaryIndex.cFieldName)). END. oJsonReturn:ADD('disabledFields', oJsonAction). lRetVal = TRUE. RETURN lRetVal. END METHOD. /*------------------------------------------------------------------------------ Purpose: Notes: ------------------------------------------------------------------------------*/ METHOD PUBLIC LOGICAL updateData( INPUT oJsonData AS jsonObject, OUTPUT oJsonReturn AS JsonObject ): DEFINE VARIABLE oJsonMessage AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonMessageBox AS JsonObject NO-UNDO. DEFINE VARIABLE oJsonRecord AS JsonObject NO-UNDO. DEFINE VARIABLE oMasterKeyFields AS JsonObject NO-UNDO. DEFINE VARIABLE lRetVal AS LOGICAL NO-UNDO. DEFINE VARIABLE lOK AS LOGICAL NO-UNDO. DEFINE VARIABLE hField AS HANDLE NO-UNDO. DEFINE VARIABLE htField AS HANDLE NO-UNDO. DEFINE VARIABLE rBuffer AS RECID NO-UNDO. DEFINE VARIABLE iContact_Id AS INTEGER NO-UNDO. DEFINE VARIABLE lcttTable AS LONGCHAR NO-UNDO. oJsonRecord = NEW JsonObject(). oJsonRecord = oJsonData:GetJsonObject('record') NO-ERROR. // oJsonRecord:WriteFile('C:\TEMP\createAnschrift_record.json', TRUE). oMasterKeyFields = NEW JsonObject(). oMasterKeyFields = oJsonData:GetJsonObject('masterKeyFields') NO-ERROR. CREATE BUFFER hBuffer FOR TABLE cFileName. createTempTable(). oJsonRecord:Write(lcttTable, FALSE). // MESSAGE STRING(lcttTable). lOK = ttTable:READ-JSON('longchar', lcttTable, 'EMPTY') NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). httTable:FIND-FIRST('', NO-LOCK). // MESSAGE 'e'. // // Erzeugen von Where-Statement für UNIQUE-Find // createUniqueWhere( INPUT httTable, OUTPUT cUniqueWhere ). // MESSAGE cUniqueWhere. lRetVal = FALSE. REPEAT TRANSACTION ON ERROR UNDO, LEAVE: lOK = hBuffer:FIND-UNIQUE(cUniqueWhere, EXCLUSIVE-LOCK, NO-WAIT) NO-ERROR. IF hBuffer:LOCKED THEN DO: hBuffer:FIND-UNIQUE(cUniqueWhere, NO-LOCK) NO-ERROR. rBuffer = hBuffer:RECID. outilitiesHandler:createLockMessage( INPUT oJsonIdent, INPUT rBuffer , OUTPUT oJsonMessageBox ). oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success' , TRUE ). oJsonReturn:ADD('showMessage', oJsonMessageBox). RETURN TRUE. END. IF NOT lOK THEN DO: outilitiesHandler:createErrorBox( INPUT oJsonIdent , INPUT '2000' , INPUT '' , OUTPUT oJsonMessageBox ). oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success' , TRUE ). oJsonReturn:ADD('showMessage' , oJsonMessageBox). RETURN TRUE. END. rBuffer = hBuffer:RECID. DO WHILE lActive : hField = hBuffer:BUFFER-FIELD('active') NO-ERROR. IF NOT VALID-HANDLE(hField) THEN LEAVE. IF hField:BUFFER-VALUE = TRUE THEN LEAVE. htField = httTable:BUFFER-FIELD('active') NO-ERROR. IF NOT VALID-HANDLE(htField) THEN LEAVE. IF hField:BUFFER-VALUE = FALSE AND htField:BUFFER-VALUE = TRUE THEN LEAVE. outilitiesHandler:createQuestionBox( INPUT oJsonIdent , INPUT '2000' , INPUT '' , INPUT 'active' , INPUT 'true' , INPUT hBuffer , OUTPUT oJsonMessageBox ) NO-ERROR. oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success' , TRUE ). oJsonReturn:ADD('record' , oJsonRecord ). oJsonReturn:ADD('askQuestion' , oJsonMessageBox ). RETURN TRUE. END. lOK = hBuffer:BUFFER-COMPARE(httTable, 'case-sensitive') NO-ERROR. hBuffer:BUFFER-COPY(httTable) NO-ERROR. outilitiesHandler:evaluateErrorStatus(hError). // MESSAGE 'compare ergab' lOK. hField = hBuffer:BUFFER-FIELD('updated_at'):HANDLE NO-ERROR. IF NOT ERROR-STATUS:ERROR AND VALID-HANDLE(hField) THEN hField:BUFFER-VALUE = NOW. hField = hBuffer:BUFFER-FIELD('updated_by'):HANDLE NO-ERROR. IF NOT ERROR-STATUS:ERROR AND VALID-HANDLE(hField) THEN hField:BUFFER-VALUE = oJsonIdent:GetCharacter('H_display_name'). oJsonData = NEW JsonObject(). oJsonArray = NEW JsonArray (). httTable:BUFFER-COPY(hBuffer). httTable:WRITE-JSON('JsonObject', oJsonData). oJsonArray = oJsonData:GetJsonArray('record'). oJsonData = oJsonArray:GetJsonObject(1). hBuffer:BUFFER-RELEASE (). lRetVal = TRUE. LEAVE. END. IF lWordIndex THEN fillWordIndexTable(). IF lRetVal THEN DO: oJsonReturn = NEW JsonObject(). oJsonReturn:ADD('success', TRUE ). oJsonReturn:ADD('record' , oJsonData). outilitiesHandler:createInfoBox( INPUT oJsonIdent , INPUT '2003' , INPUT '' , OUTPUT oJsonMessageBox ) NO-ERROR. oJsonReturn:ADD('showMessage' , oJsonMessageBox). RETURN TRUE. END. IF NOT lRetVal THEN DO: oJsonMessage = NEW JsonObject(). oJsonMessage:ADD('success', FALSE). oJsonMessage:ADD('message', lcMessage). oJsonMessage:WRITE(lcJsonString, FALSE). oJsonReturn = oJsonMessage. RETURN TRUE. END. CATCH e AS Progress.Lang.Error: END CATCH. FINALLY: END FINALLY. END METHOD. DESTRUCTOR PUBLIC adminprogsHandler ( ): END DESTRUCTOR. END CLASS.