Histórico da Página

    /*------------------------------------------------------------------------------
     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.