Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
{utp/ut-api.i} {utp/ut-api-action.i pGetData GET /~* } {utp/ut-api-notfound.i} /** Procedure que retorna os valores **/ PROCEDURE pGetData: DEFINE INPUT PARAMETER oJsonInput AS JsonObject NO-UNDO. DEFINE OUTPUT PARAMETER oJsonOutput AS JsonObject NO-UNDO. DEFINE VARIABLE oRequest AS JsonAPIRequestParser NO-UNDO. DEFINE VARIABLE oResponse AS JsonAPIResponse NO-UNDO. DEFINE VARIABLE oObj AS JsonObject NO-UNDO. DEFINE VARIABLE cProg AS CHARACTER NO-UNDO. DEFINE VARIABLE cId AS CHARACTER NO-UNDO. oObj = NEW JsonObject(). // Le os parametros enviados pela interface HTML oRequest = NEW JsonAPIRequestParser(oJsonInput). // Obtem o programa e o codigo do registro corrente cProg = oRequest:getPathParams():getCharacter(1) NO-ERROR. cId = oRequest:getPathParams():getCharacter(2) NO-ERROR. LOG-MANAGER:WRITE-MESSAGE("getData - cProg = " + cProg, ">>>>>"). LOG-MANAGER:WRITE-MESSAGE("getData - cId = " + cId, ">>>>>"). FIND FIRST prog_dtsul WHERE prog_dtsul.cod_prog_dtsul = cProg NO-LOCK NO-ERROR. LOG-MANAGER:WRITE-MESSAGE("getData - prog found = " + string(AVAILABLE prog_dtsul), ">>>>>"). IF AVAILABLE prog_dtsul THEN LOG-MANAGER:WRITE-MESSAGE("getData - permite personalizacao = " + string(prog_dtsul.log_permite_perzdo), ">>>>>"). IF AVAILABLE prog_dtsul AND prog_dtsul.log_permite_perzdo = TRUE THEN DO: FIND FIRST idioma WHERE idioma.cod_idioma = cId NO-LOCK NO-ERROR. LOG-MANAGER:WRITE-MESSAGE("getData - idioma found = " + string(AVAILABLE idioma), ">>>>>"). IF AVAILABLE idioma THEN DO: oObj:add("codIdioma", idioma.cod_idioma). oObj:add("desIdioma", idioma.des_idioma). oObj:add("codIdiomPadr", idioma.cod_idiom_padr). END. LOG-MANAGER:WRITE-MESSAGE("getData - oObj = " + String(oObj:getJsonText()), ">>>>>"). END. oResponse = NEW JsonAPIResponse(oObj). oJsonOutput = oResponse:createJsonResponse(). END PROCEDURE. /* fim */ |
Aviso | ||
---|---|---|
| ||
Caso seja enviado valores da área de negócio que não estejam cadastrados como personalizados, o PO-UI por padrão adicionará essa informação extra na tela, onde será apresentado como String sem um label válido. |
Tela do componente HTML com o resultado da personalização
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas