Histórico da Página
PBData - Alterações da apresentação de dados do
...
Gestão à Vista
Linha de Produto: | Protheus | ||||||||||||
Segmento: | Manufatura | ||||||||||||
Módulo: | SIGAPCP - Planejamento e Controle da Produção | ||||||||||||
Parâmetro(s): |
| ||||||||||||
Idiomas: | Todos | ||||||||||||
País(es): | Todos | ||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | O ponto de entrada PBData permite o ao usuário alterar resultados, alterar cores e adicionar tags adicionais nos monitores da rotina gestão Gestão à vistaVista. |
Localização: | Função BuscaDados da rotina PCPMONITORAPI.prw |
Eventos: | A cada atualização de cada um dos monitores da rotina gestão Gestão à vistaVista. |
Programa Fonte: | PCPMONITOR.prw |
Sintaxe: | PBData() → oJsonRet |
Retorno: | oJsonRet- Objeto com as informações à serem apresentadas no monitor, a alteração desse objeto é feito por referência, não sendo retornado explicitamente pelo ponto de entrada. |
Observações: |
Exemplo:
O exemplo abaixo realiza alterações em dois monitores de uma visão. A partir deste ponto de entrada é possível realizar alterações em n monitores de n visões diferentes, para isso são passados o código da visão, do monitor e a sequência do monitor na visão como parâmetros, permitindo identificar em qual monitor específico serão feitas as alterações desejadas.
No exemplo são adicionadas tags adicionais, alteradas cores e textos dos monitores, também é possível complementar os dados retornados.
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch" User Function PBDetailPBData() Local cReturnnCodVisao := "" PARAMIXB[1] //Código da visão Local cCodMon := PARAMIXB[12] //Código do monitor Local oJson := JsonObject():New() nSeqVisao := PARAMIXB[3] //Sequencia do monitor na visão Local oJson:FromJson( := PARAMIXB[24]) //Converte o parâmetro texto para Json Estrutura do monitor If cCodMonnCodVisao == "000000000008" 5 //AlteraVerifica ose títuloestá dana colunavisão "Produto"correta oJson["columns"][3]["label"] :If cCodMon == "Prod.000000000008" .And. nSeqVisao == 1 //Verifica se é //Alterao amonitor visibilidadecorreto da coluna Un. Medida ( pode ser alterado manualmente durante a execução//Altera pelouma gerenciadorcategoria dedo colunas)monitor oJson["columnsseries"][101]["visiblecolor"] := .F. "red" //Adiciona uma tag customizada aAdd(oJson["tags"], JsonObject():New()) oJson["tags"][46]["icone"] := "po-icon-bar-code" oJson["tags"][46]["texto"] := "Tag customizada" oJson["tags"][46]["colorTexto"] := "bluegreen" EndIf If cCodMon == "000000000010" .And. nSeqVisao == 2 //Verifica se é o monitor correto //Altera a possibilidade de exportação para CSV. uma categoria do monitor oJson["series"][1]["label"] := "Prevista" oJson["canExportCSVseries"][1]["color"] := .F."rgb(0,0,255)" EndIf If cCodMon == "000000000010" oJson["series"][1]["tooltip"] := "Ordens Previstas" //Altera oa cor títulodas dacategorias coluna ordem de produção oJson["columnsseries"][32]["labelcolor"] := "Ordemgreen" //Altera a visibilidade da coluna descrição do Armazém ( pode ser alterado manualmente durante a execução pelo gerenciador de colunas) oJson["series"][3]["color"] := "yellow" oJson["series"][4]["color"] := "red" oJson["columnsseries"][65]["visiblecolor"] := .F. "black" //Adiciona uma tag customizada aAdd(oJson["tags"], JsonObject():New()) oJson["tags"][34]["icone"] := "po-icon-bar-code" oJson["tags"][34]["texto"] := "Tag customizada" oJson["tags"][34]["colorTexto"] := "redgreen" //AlteraEndIf a possibilidade de exportação para CSV. EndIf oJson["canExportCSV"] := .F. EndIf cReturn := oJson:ToJson() //Converte o objeto Json em texto Return cReturn Return Nil |
Visão "Ordens" sem alterações. |
---|
Visão "Ordens" com as alterações realizadas no exemplo PBData. |