Histórico da Página

BLOCK-LEVEL ON ERROR UNDO, THROW.
 
USING PROGRESS.json.*.
USING PROGRESS.json.ObjectModel.*.
USING cdp.services.gestaoavista.*.   //A classe ChartBuilder está definida aqui.
 
{method/dbotterr.i}
{cdp/services/gestaoavista/builder-utils.i}
{cdp/services/gestaoavista/monitor-utils.i}

FUNCTION fn-has-row-errors RETURNS LOGICAL ():
    FOR EACH RowErrors 
        WHERE UPPER(RowErrors.ErrorType) = 'INTERNAL':U:
        DELETE RowErrors. 
    END.

    RETURN CAN-FIND(FIRST RowErrors 
        WHERE UPPER(RowErrors.ErrorSubType) = 'ERROR':U).
    
END FUNCTION. 

PROCEDURE pi-get-monitor-data-info:
    DEFINE INPUT PARAMETER TABLE FOR ttVisaoMonitor.
    DEFINE OUTPUT PARAMETER  monitorJsonOutput AS JsonObject.
    DEFINE OUTPUT PARAMETER TABLE FOR RowErrors.
    DEFINE VARIABLE InfoBuilder  AS InfoBuilder NO-UNDO.
 
   InfoBuilder = NEW InfoBuilder(INPUT TABLE ttVisaoMonitor).
  
   // Setamos as tags, parâmetros e linhas que irão compor o monitor
   InfoBuilder:setTags(INPUT TABLE ttTags).
   InfoBuilder:setParameters(INPUT TABLE ttMonitorMetadados).
   InfoBuilder:setLines(INPUT TABLE ttMonitorInfoLinha).
    
   monitorJsonOutput = NEW JsonObject().
   monitorJsonOutput = InfoBuilder:createMonitor().  // Chama o método que cria e devolve o monitor pronto
 
   DELETE OBJECT InfoBuilder.
   
   CATCH eSysError AS Progress.Lang.Error:
        CREATE RowErrors.
        ASSIGN RowErrors.ErrorNumber = 17006
               RowErrors.ErrorDescription = eSysError:getMessage(1)
               RowErrors.ErrorSubType = "ERROR".
    END.
    FINALLY:
        IF fn-has-row-errors() THEN DO:
            UNDO, RETURN 'NOK':U.
        END.
    END FINALLY.
END PROCEDURE.

{
    "alturaMaximaWidget": null,
    "alturaMinimaWidget": null,
    "corFundo": "#26BA41",
    "corFundoPreenchidoProgresso": "#004e17",
    "corFundoProgresso": "#FFFFFF",
    "corTextoProgresso": "#FFFFFF",
    "corTitulo": "#FFFFFF",
    "linhas": [
        {
            "classeTexto": "po-font-title po-text-center po-sm-12 po-p-1 bold-text",
            "icone": "po-icon-manufacture",
        WHERE UPPER(RowErrors.ErrorType) =  "parametrosDetalhe": null,
    'INTERNAL':U:
        DELETE RowErrors. 
    END.

    "styleTexto": "{\"color\":\"white\"}",RETURN CAN-FIND(FIRST RowErrors 
        WHERE UPPER(RowErrors.ErrorSubType) = 'ERROR':U).
   "texto": "Produzindo",
            "tipo": null,
END FUNCTION.   

PROCEDURE pi-get-monitor-data-detail: // O nome da procedure de detalhe sempre precisa ser esse
    DEFINE INPUT  PARAM TABLE    "tipoDetalhe": null,FOR ttVisaoMonitor.
    DEFINE INPUT  PARAM iPage    "tituloProgresso": null,
        AS INTEGER   "urlDetalhe": null,
 NO-UNDO.
    DEFINE INPUT  PARAM cSerie     "valorProgresso": null
     AS CHARACTER  },NO-UNDO.
    DEFINE INPUT  PARAM {
cCategory        AS CHARACTER   "classeTexto": "po-font-text-large po-sm-12 po-p-0 po-pt-1 po-clickable",NO-UNDO.
    DEFINE OUTPUT PARAM detailJsonOutput AS JsonObject NO-UNDO.
    DEFINE OUTPUT PARAM TABLE FOR RowErrors.
   "icone": null,
    DEFINE VARIABLE DetailBuilder  AS DetailBuilder  NO-UNDO.   
   "parametrosDetalhe": "detalhaOrdem:1003",
    DetailBuilder = NEW DetailBuilder(). // Classe utilitária  "styleTexto": "{\"color\":\"white\"}",
   que ajudará na montagem do objeto de detalhe
    
    FIND FIRST ttVisaoMonitor.

    "texto": "Ordem <b>1.003</b> <span class=\"po-icon po-icon-export\"></span>",
            "tipo": null,DetailBuilder:setHeaders(INPUT TABLE ttHeadersDetalhe). /* Opcionalmente, também podemos montar cabeçalhos (headers) para a janela de detalhe */
    DetailBuilder:setTags(INPUT TABLE ttTags). /* Opcionalmente, também podemos  "tipoDetalhe": "externo",
            "tituloProgresso": null,
            "urlDetalhe": "html.productionOrder",
            "valorProgresso": null
        },
        {
            "classeTexto": "po-font-text-large po-sm-12 po-p-0 no-overflow",
            "icone": null,
            "parametrosDetalhe": null,
            "styleTexto": "{\"color\":\"white\"}",
            "texto": "Item <b>sp-item-a</b>",
            "tipo": null,
            "tipoDetalhe": null,
            "tituloProgresso": null,
            "urlDetalhe": null,
            "valorProgresso": null
        },
        {
            "classeTexto": "po-font-text-large po-sm-12 po-p-0",
            "icone": null,
            "parametrosDetalhe": null,
            "styleTexto": "{\"color\":\"white\"}",incluir tags para adicionar informações complementares na janela de detalhe */  
    DetailBuilder:setColumns(INPUT TABLE ttColunaDetalhe). /* Setando as colunas que serão exibidas na janela de detalhe */
    DetailBuilder:setItems(JsonAPIUtils:convertTempTableToJsonArray(TEMP-TABLE ttDados:HANDLE, FALSE)). /* Setando os dados que serão apresentados nas colunas definidas na tabela do detalhe */ 
    /*
       Dica: O método convertTempTableToJsonArray transforma uma temp-table em um JsonArray. É necessário realizar essa conversão pois o DetailBuilder recebe os dados de negócio em formato de JsonArray.
    */
    
    /* Se a consulta for paginada e tiver mais resultados além dos que estão sendo retornados, deverá setar a variável 'hasNext' como TRUE. Desse modo o botão
    'Carregar mais resultados' ficará habilitado na janela de detalhe para que o usuário possa requisitar a próxima página. Recomendamos utilizar paginação
    caso exista a possibilidade da consulta demorar mais que um minuto para ser realizada */
    DetailBuilder:setHasNext(FALSE).      
    DetailBuilder:setCanExportXLS(TRUE). // Determina se o botão de exportação para planilha (formato CSV) ficará habilitado (TRUE) ou não (FALSE)
    DetailBuilder:setModalMaxWidth("1440px"). // Tamanho máximo de largura que a janela de detalhe poderá possuir
    
    ASSIGN detailJsonOutput = DetailBuilder:createDetail(). //Gera o objeto de detalhe
    
    /* A temp-table RowErrors pode ser utilizada para retornar mensagens de erro, caso necessário:
        
        CREATE RowErrors.
    "texto": "Operação <b>10 - montar</b>",
    ASSIGN RowErrors.ErrorNumber = 17006
               RowErrors.ErrorDescription "tipo": null,
= "ERRO DE EXEMPLO"
               RowErrors.ErrorSubType = "tipoDetalhe": null,ERROR".
    */


    CATCH eSysError   "tituloProgresso": null,AS Progress.Lang.Error:
            "urlDetalhe": null,CREATE RowErrors.
        ASSIGN RowErrors.ErrorNumber   "valorProgresso": null
= 17006
         },
      RowErrors.ErrorDescription  {= eSysError:getMessage(1)
            "classeTexto": "po-font-text-large po-sm-12 po-p-0",   RowErrors.ErrorSubType = "ERROR".
    END.
        "icone"FINALLY: null,
        IF fn-has-row-errors() THEN  "parametrosDetalhe"DO:
 null,
            "styleTexto": "{\"color\":\"white\"}",
UNDO, RETURN 'NOK':U.
        END.
    END FINALLY.

END PROCEDURE.