Árvore de páginas

Versões comparadas

Chave

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

Adiciona uma coluna na tabela de detalhes do monitor.

Parâmetros

NomeTipoDescriçãoReferência
aColunasArrayArray
de colunas passado como referência para receber uma nova linha.
que receberá o conteúdo das colunas.X
nIndiceNuméricoIndice para a posição ser adicionada no array.X
cPropCaracterCódigo da coluna.
cTextoCaracterNome da coluna.
cTipoCaracterTipo da coluna.
lVisivelLógicoIndica se a coluna será visível por padrão.
lTipoLabelLógicoIndica se a coluna é do tipo 'label'.
aLabelsArrayArray com as legendas da coluna tipo 'label'.


Exemplo de Uso

Bloco de código
Method BuscaDetalhes(oFiltros, nPagina) Class StatusOrdemProducao
    Local aColunas   := {}
    Local aLabels    := {}
    Local cJsonDados := ""
    Local lExpResult := .F.
    Local nIndCols   := 0
    Local nIndLabels := 0    
	Local oDados     := JsonObject():New()

    oDados["items"]        := {}
    oDados["columns"]      := {}
    oDados["headers"]      := {}
    oDados["tags"]         := {}
    oDados["canExportCSV"] := .T.
	oDados["hasNext"]      := .F.

    If nPagina == 0
        lExpResult := .T.
    EndIf    

    PCPMonitorUtils():AdicionaLabelsColunaTabela(aLabels,@nIndLabels,"1","rgba(255,255,0,1)","Prevista","rgba(0,0,0,1)")
    PCPMonitorUtils():AdicionaLabelsColunaTabela(aLabels,@nIndLabels,"2","rgba(126,226,148,1)","Em aberto","rgba(255,255,255,1)")
    PCPMonitorUtils():AdicionaLabelsColunaTabela(aLabels,@nIndLabels,"3","rgba(255,128,0,1)","Iniciada","rgba(255,255,255,1)")
    PCPMonitorUtils():AdicionaLabelsColunaTabela(aLabels,@nIndLabels,"4","rgba(128,128,128,1)","Ociosa","rgba(255,255,255,1)")
    PCPMonitorUtils():AdicionaLabelsColunaTabela(aLabels,@nIndLabels,"5","rgba(0,0,165,1)","Enc.Parcialmente","rgba(255,255,255,1)")
    PCPMonitorUtils():AdicionaLabelsColunaTabela(aLabels,@nIndLabels,"6","rgba(241,143,136,1)","Enc.Totalmente","rgba(255,255,255,1)")
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCols,"STATUS","Status","cellTemplate",.T.,.T.,aLabels) 
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCols,"C2_FILIAL","Filial","string",lExpResult)
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCols,"C2_OP","OP","string",.T.)
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCols,"C2_PRODUTO","Produto","string",.T.)
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCols,"B1_DESC","Desc. Produto","string",lExpResult)
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCols,"C2_LOCAL","Armazém","string",.T.)
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCols,"C2_DATPRI","Previsão Início","string",.T.)
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCols,"C2_DATPRF","Previsão Entrega","string",.T.)
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCols,"C2_QUANT","Quantidade","string",.T.)
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCols,"C2_QUJE","Qtd. Prod","string",.T.)
    oDados["columns"] := aClone(aColunas)

    cJsonDados := oDados:toJson()
    FreeObj(oDados)
    FwFreeArray(aColunas)
    FwFreeArray(aLabels)
Return cJsonDados