Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 11

changes.mady.by.user Douglas Joao Heydt

Gravado em

comparado com

Nova versão 12

changes.mady.by.user Douglas Joao Heydt

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):
NomeTipoDescriçãoDefaultObrigatórioReferencia
PARAMIXBArray

PARAMIXB[1] - código da visão (numérico ), pode ser consultado na tabela HZC, campo HZC_VISAO

PARAMIXB[2] - sequencia da visão (numérico ), pode ser consultado na tabela HZC, campo HZC_SEQUEN

PARAMIXB[3] - código do monitor ( texto ), pode ser consultado na tabela HZC, campo HZC_MONIT

PARAMIXB[34] -Json em formato texto com a estrutura utilizada para renderização dos monitores.


X

Idiomas:

Todos

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

...

Descrição:O ponto de entrada PBDetail permite o usuário alterar os dados e modo de exibição dos detalhes dos monitores.
Localização:

Função BuscaDetal da rotina PCPMONITORAPI.prw

Eventos:

Sempre que o usuário selecionar a opção "Detalhes" em qualquer monitor do gestão à vista.

Programa Fonte:PCPMONITOR.prw

Sintaxe:

PBDetail( ) → cReturn 

Retorno:

cReturn - Json em formato texto com as informações à serem apresentadas no monitor.

Observações:


Exemplo:

O exemplo abaixo realiza alterações nos detalhes de dois monitores de uma visão, é possível alterar a visibilidade de colunas, alterar títulos das colunas, adicionar novas tags e/ou revisar os dados resultantes.

Bloco de código
languagec#
firstline1
titleExemplo
linenumberstrue
#INCLUDE "Protheus.ch"
  
User Function PBDetail()
    Local nCodVisao := PARAMIXB[1] //Código da visão
    Local nSeqVisao := PARAMIXB[2] //Sequencia da visão
    Local cCodMon   := PARAMIXB[23] //Código do monitor
    Local cReturn   := ""
    Local oJson     := JsonObject():New()
 
    oJson:FromJson(PARAMIXB[34]) //Converte o parâmetro texto para objeto Json
 
    If nCodVisao == 5 .And. nSeqVisao == 1
        If cCodMon == "000000000008"
 //Monitor "Acomp. Lotes a vencer"
            //Altera o título da coluna "Produto"
            oJson["columns"][4]["label"] := "Prod."

            //Altera a visibilidade da coluna Un. Medida ( pode ser alterado manualmente durante a execução pelo gerenciador de colunas)
            oJson["columns"][10]["visible"] := .F.

            //Adiciona uma tag customizada
            aAdd(oJson["tags"], JsonObject():New())
            oJson["tags"][4]["icone"] := "po-icon-bar-code"
            oJson["tags"][4]["texto"] := "Tag customizada"
            oJson["tags"][4]["colorTexto"] := "blue"

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

        If cCodMon == "000000000010"
 //Monitor "Situação de ordens de produção"
            //Altera o título da coluna ordem de produção
            oJson["columns"][3]["label"] := "Ordem"

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

            //Adiciona uma tag customizada
            aAdd(oJson["tags"], JsonObject():New())
            oJson["tags"][3]["icone"] := "po-icon-bar-code"
            oJson["tags"][3]["texto"] := "Tag customizada"
            oJson["tags"][3]["colorTexto"] := "red"

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

Antes das alterações


Depois das alterações

...