Histórico da Página

#INCLUDE "Protheus.ch"
 
User Function PBDataPBDetail()
 
    Local oJsoncReturn := PARAMIXB

    //Alterando uma categoria do monitor""
    Local cCodMon := PARAMIXB[1] //Código do monitor
    Local oJson   := JsonObject():New()

    oJson["series"][1]["label"]   := "Prevista"
:FromJson(PARAMIXB[2]) //Converte o parâmetro texto para Json

    If cCodMon == "000000000008"
        //Altera o título da coluna "Produto"
        oJson["seriescolumns"][13]["colorlabel"]   := "rgb(0,0,255)" //As cores podem ser definidas por código RGB ou textoProd."

        //Altera a visibilidade da coluna Un. Medida ( pode ser alterado manualmente durante a execução pelo gerenciador de colunas)
        oJson["seriescolumns"][110]["tooltipvisible"] := "Ordens Previstas" //Caso o tooltip esteja vazio o texto é a concatenação do label com o resultado do item .F.

        //Adiciona uma tag customizada
        aAdd(oJson["tags"], JsonObject():New())
    
    //Altera a cor das categorias
oJson["tags"][4]["icone"] := "po-icon-bar-code"
        oJson["seriestags"][24]["colortexto"] := "greenTag customizada"
        oJson["seriestags"][3]["color4]["colorTexto"] := "blue"

        //Altera a possibilidade de exportação para CSV.
        oJson["canExportCSV"] := "yellow"
.F.
    EndIf

    If cCodMon == "000000000010"
        //Altera o título da coluna ordem de produção
        oJson["seriescolumns"][43]["colorlabel"] := "red"Ordem"

        //Altera a visibilidade da coluna descrição do Armazém ( pode ser alterado manualmente durante a execução pelo gerenciador de colunas)
        oJson["seriescolumns"][56]["colorvisible"] := "black".F.

        //Adiciona uma tag customizada
        aAdd(oJson["tags"], JsonObject():New())
 //adiciona um novo registro do array do objeto
    oJson["tags"][43]["icone"] := "po-icon-bar-code"
 //Define um ícone para tag
    oJson["tags"][43]["texto"] := "Tag customizada"
 //Conteúdo  da tag
    oJson["tags"][43]["colorTexto"] := "greenred"

  //Cor da tag
 
Return Nil

      //Altera a possibilidade de exportação para CSV.
        oJson["canExportCSV"] := .F.
    EndIf
    cReturn := oJson:ToJson() //Converte o objeto Json em texto 
Return cReturn