Histórico da Página

IMPORTANTE: Todos os facilitadores estão disponíveis na classe Progress "com.totvs.framework.api.JsonAPIUtils".

    /*------------------------------------------------------------------------------
    Purpose: Converte o tipo de dado Progress em tipo HTML
    ------------------------------------------------------------------------------*/ 
    METHOD PUBLIC STATIC CHARACTER convertAblTypeToHtmlType (INPUT cType AS CHARACTER):
        DEFINE VARIABLE cRet AS CHARACTER NO-UNDO.
        ASSIGN cRet = "string".
        CASE cType:
            WHEN "character" THEN ASSIGN cRet = "string".
            WHEN "integer"   THEN ASSIGN cRet = "number".
            WHEN "decimal"   THEN ASSIGN cRet = "currency".
            WHEN "logical"   THEN ASSIGN cRet = "boolean".
            WHEN "datetime"  THEN ASSIGN cRet = "datetime".
            WHEN "date"      THEN ASSIGN cRet = "date".
        END CASE.
        RETURN cRet.
    END METHOD.

    /*------------------------------------------------------------------------------
     Purpose: Converte uma string "aaa.BBB.ccc" em "aaaBbbCcc"
    ------------------------------------------------------------------------------*/
    METHOD PUBLIC STATIC CHARACTER convertToCamelCase (INPUT cKey AS CHARACTER):
        DEFINE VARIABLE cNKey       AS CHARACTER NO-UNDO.
        DEFINE VARIABLE cTmp        AS CHARACTER NO-UNDO.
        DEFINE VARIABLE ix          AS INTEGER   NO-UNDO.
        /* se vier separador "-" ou "_", substitui para "." para tornar a rotina generica */
        ASSIGN cKey = REPLACE(cKey, "_", ".")
               cKey = REPLACE(cKey, "-", ".").
    
        DO  ix = 1 TO NUM-ENTRIES(cKey, "."):
            ASSIGN cTmp = ENTRY(ix, cKey, ".").
            IF  ix > 1 THEN
                ASSIGN cTmp = upper(substr(cTmp, 1, 1)) + lower(substr(cTmp, 2, LENGTH(cTmp))).
            ASSIGN cNKey = cNKey + cTmp.
        END.
        RETURN cNKey.
    END METHOD.