Histórico da Página

...

Este monitor não realiza o cálculo da qualidade em tempo real, ele apenas apresenta os valores gerados pela opção Gerar Indicadores do SFCA008 - Metas de Produção.

É possível configurar a Geração dos Indicadores para que seja processado em modo Schedule - Gerar Indicadores em Schedule - SFCA008.

02.

...

TIPOS DISPONÍVEIS

Gráfico (velocímetro, barra, coluna)

03.

...

FILTROS

Os filtros para definição do escopo a ser monitorado são os seguintes:

...

Filtro	Descrição
Filial*	Seleção simples da filial a ser monitorada, a partir da lista das filiais disponíveis.
Máquina*	Seleção simples da máquina a ser monitorada, a partir da informação da máquina ou da pesquisa dentre as máquinas disponíveis para a filial.
Semáforo*	Dois valores numéricos, separados por ponto e vírgula (;), que indicam os níveis de Urgência e Atenção e Urgência . Desta forma, com o objetivo de mostrar o nível da utilização da máquina. Quando o número for: Inferior ao primeiro número informado, o monitor será exibido na cor verde Vermelha (AceitávelUrgência); Igual ou superior ao primeiro número informado, mas inferior ao segundo número informado, o monitor será exibido na cor amarela (Atenção); Igual ou superior ao segundo número informado, o monitor será exibido na cor vermelha Verde (UrgênciaAceitável); Adicionalmente, caso o tipo de monitor selecionado for Gráfico, o velocímetro/gauge apresentará os 3 níveis.
Meta Produzida*	Seleção simples da meta a ser monitorada, a partir da informação da meta ou da pesquisa dentre a metas disponíveis para a filial.
Data Atual	Indica se o monitor irá utilizar a data atual ou não. Caso for "Sim" irá ser utilizado a data e a hora real. Caso for "Não" deve ser inserida a data e a hora de referência a ser monitorada.
Data de referência	Indica qual data irá utilizar para o monitoramento da máquina.
Hora de referência	Indica qual hora irá utilizar para o monitoramento da máquina.

04. TAGS AUXILIARES

As Tags auxiliam na identificação

...

do escopo de um monitor, sem necessidade de editá-los.

Tag	Ícone	Descrição
Data de Referência	Image Modified	Data

do monitoramente no monitor.

de Referência da geração do indicador pela opção Gerar Indicadores do SFCA008 - Metas de Produção.
Hora de Referência	Image Added	Hora de Referência da geração do indicador pela opção Gerar Indicadores do SFCA008 - Metas de Produção.
Máquina	Image Added	Código da Máquina

Meta Produzida

Image Removed

Código da Meta

que está sendo monitorada.

Máquina

Meta Produzida

Image Modified

Código da

Máquina

Meta que está sendo monitorada.

05. DETALHES

A Eficiência OEE selecionada na data, meta e máquina proposta do monitor.

...

Apresenta as informações utilizadas para o cálculo da Eficiência OEE.

São exibidas as informações referentes à: Disponibilidade Real, Qualidade Real, % Eficiência, Capacidade Projetada, Capacidade Real e Paradas.

Os registros podem ser exportados para o formato .CSV através do botão Exportar Planilha.

06. TABELAS UTILIZADAS

CZ4 - Dados Indicadores
CY5 - Meta Máquina

07. EXEMPLOS

Visão geral do monitor:
Image RemovedImage Added

Tags auxiliares:
Image RemovedImage Added
Detalhes:
Image RemovedImage Added

08. CÓDIGO FONTE

...

Bloco de código

theme	Midnight
firstline	1
title	EficienciaOEESFC.prw
linenumbers	true
collapse	true

#INCLUDE "PROTHEUS.CH"
#INCLUDE "PCPMONITOR.CH"
#INCLUDE "PCPMONITORDEF.CH"

/*/{Protheus.doc} EficienciaOEESFC
Classe para mostrar o indicador de Eficiencia OEE do modulo do SFC
@type Class
@author breno.ferreira
@since 09/10/2025
@version P12.1.2410
@return Nil
/*/ 
Class EficienciaOEESFC FROM LongNameClass
	Static Method BuscaDados(oFiltros, cTipo, cSubTipo)
	Static Method BuscaDetalhes(oFiltros, nPagina)
    Static Method CargaMonitor()
	Static Method ValidaPropriedades(oFiltros)
EndClass

/*/{Protheus.doc} CargaMonitor
Realiza a carga do Monitor padrão na base de dados
@type Method
@author breno.ferreira
@since 09/10/2025
@version P12.1.2410
@return lRet, logico, Indica se conseguiu realizar a carga
/*/
Method CargaMonitor() Class EficienciaOEESFC
	Local aCategr   := {}
    Local aDetalhes := {}
    Local aTags     := {}
    Local lRet      := .T.
    Local nIndTag   := 0
    Local oCarga    := PCPMonitorCarga():New()
	Local oGauge    := PCPMonitorGauge():New()
    Local oPrmAdc   := JsonObject():New()
    Local oSeries   := JsonObject():New()
        
    If !PCPMonitorCarga():monitorAtualizado("EficienciaOEESFC")

		PCPMonitorUtils():AdicionaTagMonitor(aTags,@nIndTag,"po-icon-calendar","1622/0406/20232025")
    	PCPMonitorUtils():AdicionaTagMonitor(aTags,@nIndTag,"an an-clock","15:25:10")
	    PCPMonitorUtils():AdicionaTagMonitor(aTags,@nIndTag,"po-icon-bar-code","SFC-MAQ")
        PCPMonitorUtils():AdicionaTagMonitor(aTags,@nIndTag,"po-icon-bar-code","SFC-META")

		oGauge:SetValue(55)
        oGauge:SetValueStyle("color",COR_AMARELO_QUEIMADO)
        oGauge:SetValueStyle("font-weight","bold")
        oGauge:SetLabel(STR0358) //"% Efic. OEE"
        oGauge:SetLabelStyle("font-weight","bold")
        oGauge:SetThreshold("0",COR_VERMELHO_FORTE)
        oGauge:SetThreshold("40",COR_AMARELO_QUEIMADO)
        oGauge:SetThreshold("75",COR_VERDE_FORTE)
        oGauge:SetMarker("0")
        oGauge:SetMarker("40")
        oGauge:SetMarker("75")
        oGauge:SetMarker("100")

        oCarga:setaTitulo(STR0359) //"Eficiência OEE SFC"
        oCarga:setaObjetivo(STR0360) //"Apresenta a porcentagem de Eficiência Geral da máquina, utilizando o conceito de semáforo para indicar o nível de atenção ou urgência."
        oCarga:setaAgrupador("SFC")
        oCarga:setaFuncaoNegocio("EficienciaOEESFC")
        oCarga:setaTiposPermitidos("chart")
        oCarga:setaTiposGraficoPermitidos("gauge;bar;column")
        oCarga:setaTipoPadrao("chart")
        oCarga:setaTipoGraficoPadrao("gauge")
        oCarga:setaTipoDetalhe("detalhe")
		oCarga:setaExemploJsonGrafico(oSeries, aTags, aDetalhes,aCategr,"gauge",oGauge:GetJsonObject())
        oCarga:setaPropriedadeFilial("OEE_FILIAL")
		oCarga:setaPropriedade("OEE_SEMAFORO", STR0314, STR0315,1,10,0,"po-sm-12 po-md-6 po-lg-6 po-xl-6",/*oEstilos*/,/*cIcone*/,/*oPrmAdc*/)// "Urgente;Atenção;Urgente" "Semáforo"
		oCarga:setaPropriedadeLookupTabela("OEE_MAQUINA", STR0316, .F., "CY5CYB", "CY5CYB_CDMQ", "CYB_DSMQ") //"Máquina"
		oCarga:setaPropriedadeLookupTabela("OEE_METAPROD", STR0317, .F., "CY5CYU", "CY5CYU_CDMEPO", "CYU_DSME") //"Meta Produzida"
		oCarga:setaPropriedade("OEE_DATAREF", "", STR0318, 3,8,0, "po-sm-12 po-md-6 po-lg-6 po-xl-6",/*oEstilos*/,/*cIcone*/,/*oPrmAdc*/) //"Data de Referência"
		oCarga:setaPropriedade("OEE_HORAREF", STR0319, STR0320,1,8,0, "po-sm-12 po-md-6 po-lg-6 po-xl-6",/*oEstilos*/,/*cIcone*/,/*oPrmAdc*/) //"Hora de Referência"
		oPrmAdc["OEE_DATAATUAL"] := JsonObject():New()
       	oPrmAdc["OEE_DATAATUAL"]["opcoes"] := STR0321 + ":" + "S" + ";" + STR0322 + ":" + "N" // "Sim" "Não"
        oCarga:setaPropriedade("OEE_DATAATUAL", "N", STR0323, 4,/*cTamanho*/,/*cDecimal*/, "po-sm-12 po-md-6 po-lg-6 po-xl-6",/*oEstilos*/,/*cIcone*/,oPrmAdc["OEE_DATAATUAL"]) //"Data Atual"
		If !oCarga:gravaMonitorPropriedades()
            lRet := .F.
        EndIf
        oCarga:Destroy()
    EndIf
    FreeObj(oGauge)
    FreeObj(oSeries)
    FreeObj(oPrmAdc)
Return lRet

/*/{Protheus.doc} BuscaDados
Responsável por realizar a busca dos dados que serão exibidos no monitor
@type Method
@author breno.ferreira
@since 09/10/2025
@version P12.1.2410
@param  oFiltros  , objeto Json, Contém as propriedades do monitor usadas para filtrar a query de busca
@param  cTipo     , caracter   , Tipo chart
@param  cSubTipo  , caracter   , Tipo de grafico gauge, column, bar
@return cJsonDados, caracter   , Retorna um novo Json em formato texto, pronto para conversão e exibição no front
/*/
Method BuscaDados(oFiltros, cTipo, cSubTipo) Class EficienciaOEESFC
	Local aSemaforo  := StrTokArr(Replace(oFiltros["OEE_SEMAFORO"],",","."),";")
	Local cAliasDH   := ""
	Local cAliasInd  := ""
	Local cCodMaq    := oFiltros["OEE_MAQUINA"]
	Local cCodMeta   := oFiltros["OEE_METAPROD"]
	Local cJsonDados := ""
	Local cLabel     := ""
	Local cQueryDH   := ""
	Local cQueryInd  := ""
	Local dDataRef   := Replace(oFiltros["OEE_DATAREF"],"-","")
	Local hHoraRef   := oFiltros["OEE_HORAREF"]
	Local nDataatual := oFiltros["OEE_DATAATUAL"]
	Local nPos       := 0
	Local nValor1    := 0
    Local nValor2    := 0
	Local oExecDH    := Nil
	Local oExecInd   := Nil
	Local oJsonRet   := JsonObject():New()

	oFiltros["OEE_FILIAL"] := PadR(oFiltros["OEE_FILIAL"], FWSizeFilial())

    //Propriedades que devem ser retornadas para monitores do tipo gráfico
	oJsonRet["corTitulo"         ] := "black"
	oJsonRet["alturaMinimaWidget"] := "350px"
	oJsonRet["alturaMaximaWidget"] := "550px"
	oJsonRet["series"            ] := {}
	oJsonRet["categorias"        ] := {}
    oJsonRet["tags"              ] := {}

	If nDataatual == "S"
		dDataRef := DATE()
		hHoraRef := Time()
	Else
		dDataRef := SToD(dDataRef)
	EndIf

	// Obtendo a data e hora de referência mais próximas da indicada durante a seleção
	cQueryDH := " SELECT CZ4.CZ4_DTRE, "
	cQueryDH +=        " CZ4.CZ4_HRRE "
	cQueryDH +=   " FROM " + RetSQLName('CZ4') + " CZ4 "
	cQueryDH += "  WHERE CZ4.CZ4_FILIAL = ? "
	cQueryDH += "    AND CZ4.CZ4_IDMEPO IN (SELECT CY5.CY5_IDMEPO "
	cQueryDH +=                             " FROM " + RetSQLName('CY5') + " CY5 "
	cQueryDH += "                            WHERE CY5.CY5_FILIAL = CZ4.CZ4_FILIAL "
	cQueryDH += "                              AND CY5.CY5_CDMEPO = ? "
	cQueryDH += "                              AND CY5.CY5_CDMQ   = ? "
	cQueryDH += "                              AND CY5.D_E_L_E_T_ = ' ') "
	cQueryDH += "    AND (( CZ4.CZ4_DTRE = ? "
	cQueryDH += "       	 AND CZ4.CZ4_HRRE <= ?) "
	cQueryDH += "     OR CZ4.CZ4_DTRE  <= ?) "
	cQueryDH += "    AND CZ4.D_E_L_E_T_ = ' ' "
	cQueryDH +=  " ORDER BY CZ4.CZ4_DTRE DESC, "
	cQueryDH +=           " CZ4.CZ4_HRRE DESC "

	oExecDH := FwExecStatement():New(cQueryDH)

	oExecDH:SetString(1, xFilial("CZ4",oFiltros["OEE_FILIAL"]))
	oExecDH:SetString(2, cCodMeta)
	oExecDH:SetString(3, cCodMaq)
	oExecDH:SetDate(4, dDataRef)
	oExecDH:SetString(5, hHoraRef)
	oExecDH:SetDate(6, dDataRef)

    cAliasDH := oExecDH:OpenAlias()

	If (cAliasDH)->(!EOF())
		dDataRef := SToD((cAliasDH)->CZ4_DTRE)
		hHoraRef := (cAliasDH)->CZ4_HRRE
	EndIf

	//Query com os filtros para buscar as informações e apresentar no monitor
	cQueryInd += " SELECT CZ4.CZ4_VLOEE VLOEE, "
    cQueryInd +=        " CZ4.CZ4_VLDIRY VLDIRY "
	cQueryInd +=   " FROM " + RetSqlName("CZ4") + " CZ4 "
	cQueryInd +=  " INNER JOIN " + RetSqlName("CY5") + " CY5 "
	cQueryInd +=     " ON CY5.CY5_FILIAL = ? "
	cQueryInd +=    " AND CY5.CY5_IDMEPO = CZ4.CZ4_IDMEPO "
	cQueryInd +=    " AND CY5.D_E_L_E_T_ = ' ' "
	cQueryInd +=  " WHERE CZ4.CZ4_FILIAL = ? "
	cQueryInd +=    " AND CZ4.CZ4_CDMQ   = ? "
	cQueryInd +=    " AND CZ4.CZ4_DTRE   = ? "
	cQueryInd +=    " AND CZ4.CZ4_HRRE   = ? "
	cQueryInd +=    " AND CY5.CY5_CDMEPO = ? " 
	cQueryInd +=    " AND CZ4.D_E_L_E_T_ = ' ' "

	oExecInd := FwExecStatement():New(cQueryInd)

	oExecInd:SetString(1, xFilial("CY5",oFiltros["OEE_FILIAL"]))
	oExecInd:SetString(2, xFilial("CZ4",oFiltros["OEE_FILIAL"]))
	oExecInd:SetString(3, cCodMaq)
	oExecInd:SetDate(4, dDataRef)
	oExecInd:SetString(5, hHoraRef)
	oExecInd:SetString(6, cCodMeta)

    cAliasInd := oExecInd:OpenAlias()

	nValor1 := 0
	If (cAliasInd)->(!Eof())
		nValor1 := Round((cAliasInd)->VLOEE,2)
	EndIf

	montaGraf(oJsonRet, cLabel, nValor1, aSemaforo)

	//Adiciona tags    nValor2 := Round((cAliasInd)->VLDIRY,2)
		cLabel := STR0358 //"% Efic. OEE"
	Else
		nValor1 := 0
        nValor2 := 0
	EndIf

	If cSubTipo == "gauge"
		montaGraf(oJsonRet, cLabel, nValor1, aSemaforo)
    Else
        aAdd(oJsonRet["series"], JsonObject():New())
        oJsonRet["series"][1]["color"  ] := COR_VERDE
        oJsonRet["series"][1]["data"   ] := {nValor1}
        oJsonRet["series"][1]["tooltip"] := ""
        oJsonRet["series"][1]["label"  ] := STR0358 //"% Efic. OEE"

        aAdd(oJsonRet["series"], JsonObject():New())
        oJsonRet["series"][2]["color"  ] := COR_AZUL
        oJsonRet["series"][2]["data"   ] := {nValor2}
        oJsonRet["series"][2]["tooltip"] := ""
        oJsonRet["series"][2]["label"  ] := STR0355 //"% Disp. Real"
	EndIf

	//Adiciona tags ao monitor
	PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPos,"po-icon-calendar",cValToChar(dDataRef))
	PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPos,"po-icon-bar-code",cCodMaq)
	PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPos,"po-icon-bar-code",cCodMeta)

	cJsonDados :=  oJsonRet:toJson()

	FwFreeArray(aSemaforo)
	FreeObj(oJsonRet)
	FreeObj(oExecDH)
	FreeObj(oExecInd)

Return cJsonDados


/*/{Protheus.doc} BuscaDetalhes
Responsável por realizar a busca dos dados que serão exibidos no detalhamento do monitor
@type Method
@author
@since
@version
@param  oFiltros  , objeto Json , Contém as propriedades do monitor usadas para filtrar a query de busca
@param  nPagina   , numerico    , Número da página desejada para busca
@return cJsonDados, caracter    , Retorna um novo Json em formato texto, pronto para conversão e exibição no front
/*/
Method BuscaDetalhes(oFiltros, nPagina) Class EficienciaOEESFC
	Local cAliasDH   := ""
	Local cAliasItem := ""
	Local cCodMaq    := oFiltros["OEE_MAQUINA"]
	Local cCodMeta   := oFiltros["OEE_METAPROD"]
	Local cJsonDados := ""
	Local cQueryDH   := ""
	Local cQueryItem := ""
	Local dDataRef   := Replace(oFiltros["OEE_DATAREF"],"-","")
	Local hHoraRef   := oFiltros["OEE_HORAREF"]
	Local nDataatual := oFiltros["OEE_DATAATUAL"]
	Local nIndTag    := 0
	Local nPos       := 0
	Local oDados     := JsonObject():New()
	Local oExecDH    := Nil
	Local oExecItem  := Nil

	oFiltros["OEE_FILIAL"] := PadR(oFiltros["OEE_FILIAL"], FWSizeFilial())

	oDados["items"       ] := {}
	oDados["columns"     ] := montaColun()
	oDados["canExportCSV"] := .T.
	oDados["tags"        ] := {}

	If nDataatual == "S"
		dDataRef = DATE()
		hHoraRef = Time()
	Else
		dDataRef := SToD(dDataRef)
	EndIf

	cQueryDH := " SELECT CZ4.CZ4_DTRE, "
	cQueryDH +=        " CZ4.CZ4_HRRE "
	cQueryDH +=   " FROM " + RetSQLName("CZ4") + " CZ4ao monitor
	PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPos,"po-icon-calendar",PCPConvDat(DToS(dDataRef), 4))
	PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPos,"an an-clock",hHoraRef)
	PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPos,"po-icon-bar-code",cCodMaq)
	PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPos,"po-icon-bar-code",cCodMeta)

	cJsonDados :=  oJsonRet:toJson()

	FwFreeArray(aSemaforo)
	FreeObj(oJsonRet)
	FreeObj(oExecDH)
	FreeObj(oExecInd)

Return cJsonDados


/*/{Protheus.doc} BuscaDetalhes
Responsável por realizar a busca dos dados que serão exibidos no detalhamento do monitor
@type Method
@author breno.ferreira
@since 09/10/2025
@version P12.1.2410
@param  oFiltros  , objeto Json , Contém as propriedades do monitor usadas para filtrar a query de busca
@param  nPagina   , numerico    , Número da página desejada para busca
@return cJsonDados, caracter    , Retorna um novo Json em formato texto, pronto para conversão e exibição no front
/*/
Method BuscaDetalhes(oFiltros, nPagina) Class EficienciaOEESFC
	Local cAliasDH   := ""
	Local cAliasItem := ""
	Local cCodMaq    := oFiltros["OEE_MAQUINA"]
	Local cCodMeta   := oFiltros["OEE_METAPROD"]
	Local cJsonDados := ""
	Local cQueryDH   := ""
	Local cQueryItem := ""
	Local dDataRef   := Replace(oFiltros["OEE_DATAREF"],"-","")
	Local hHoraRef   := oFiltros["OEE_HORAREF"]
	Local nDataatual := oFiltros["OEE_DATAATUAL"]
	Local nIndTag    := 0
	Local nPos       := 0
	Local oDados     := JsonObject():New()
	Local oExecDH    := Nil
	Local oExecItem  := Nil

	oFiltros["OEE_FILIAL"] := PadR(oFiltros["OEE_FILIAL"], FWSizeFilial())

	oDados["items"       ] := {}
	oDados["columns"     ] := montaColun()
	oDados["canExportCSV"] := .T.
	oDados["tags"        ] := {}

	If nDataatual == "S"
		dDataRef = DATE()
		hHoraRef = Time()
	Else
		dDataRef := SToD(dDataRef)
	EndIf

	cQueryDH := " SELECT CZ4.CZ4_DTRE, "
	cQueryDH +=        " CZ4.CZ4_HRRE "
	cQueryDH +=   " FROM " + RetSQLName("CZ4") + " CZ4 "
	cQueryDH += "  WHERE CZ4.CZ4_FILIAL = ? "
	cQueryDH += "    AND CZ4.CZ4_IDMEPO IN (SELECT CY5.CY5_IDMEPO 
	cQueryDH +=                             " FROM " + RetSQLName("CY5") + " CY5 "
	cQueryDH += "                            WHERE CY5.CY5_FILIAL = CZ4.CZ4_FILIAL "
	cQueryDH += "                              AND CY5.CY5_CDMEPO = ? "
	cQueryDH += "                              AND CY5.CY5_CDMQ   = ? " 
	cQueryDH += "                              AND CY5.D_E_L_E_T_ = ' ') "
	cQueryDH += "    AND WHERE(( CZ4.CZ4_FILIALDTRE = ? "
	cQueryDH += "      AND CZ4     AND CZ4.CZ4_IDMEPOHRRE IN<= (SELECT CY5.CY5_IDMEPO ? ) "
	cQueryDH += "     OR CZ4.CZ4_DTRE <= ? ) "
	cQueryDH += "    AND CZ4.D_E_L_E_T_ = ' '        " FROM"
	cQueryDH += " + RetSQLName("CY5") + " CY5ORDER BY CZ4.CZ4_DTRE DESC, "
	cQueryDH += "         " CZ4.CZ4_HRRE DESC "

	oExecDH := FwExecStatement():New(cQueryDH)

	oExecDH:SetString(1, xFilial("CZ4",oFiltros["OEE_FILIAL"]))
	oExecDH:SetString(2, cCodMeta)
	oExecDH:SetString(3, cCodMaq)
	oExecDH:SetDate(4, dDataRef)
	oExecDH:SetString(5, hHoraRef)
	oExecDH:SetDate(6, dDataRef)

    cAliasDH    WHERE CY5.CY5_FILIAL = CZ4.CZ4_FILIAL "
	cQueryDH:= oExecDH:OpenAlias()

	If (cAliasDH)->(!EOF())
		dDataRef := SToD((cAliasDH)->CZ4_DTRE)
		hHoraRef := (cAliasDH)->CZ4_HRRE
	EndIf

	cQueryItem += " SELECT CZ4.CZ4_QTVMPL, "
	cQueryItem +=        " CZ4.CZ4_QTVMRY, "
	cQueryItem +=        " CZ4.CZ4_VLDIRY, "
	cQueryItem +=    AND CY5.CY5_CDMEPO = ? "
	cQueryDH    " CZ4.CZ4_VLQLRY, "	
	cQueryItem += "       " CZ4.CZ4_VLEF, "
	cQueryItem +=        " CZ4.CZ4_QTTESP "
	cQueryItem +=   " FROM " + RetSqlName("CZ4") + AND CY5.CY5_CDMQ   = ? " 
	cQueryDH" CZ4 "
	cQueryItem += "  INNER JOIN " + RetSqlName("CY5") + " CY5 "
	cQueryItem +=     " ON CY5.CY5_FILIAL = ? "
	cQueryItem +=    " AND CY5.CY5_IDMEPO = CZ4.CZ4_IDMEPO "
	cQueryItem +=    " AND CY5.D_E_L_E_T_ = ' ') "
	cQueryDHcQueryItem +=  "    AND ((WHERE CZ4.CZ4_DTREFILIAL = ? "
	cQueryDHcQueryItem +=  "           AND CZ4.CZ4_HRRECDMQ   <= ? ) "
	cQueryDHcQueryItem +=  "     ORAND CZ4.CZ4_DTRE  < = ? ) "
	cQueryDHcQueryItem +=  "    AND CZ4.D_E_L_E_T_ = ' 'CZ4_HRRE   = ? "
	cQueryDHcQueryItem +=  " ORDER  BYAND CZ4CY5.CZ4CY5_DTRE DESC,CDMEPO = ? "
	cQueryDHcQueryItem +=  "        "AND CZ4.CZ4_HRRE DESCD_E_L_E_T_ = ' ' "

	oExecDHoExecItem := FwExecStatement():New(cQueryDHcQueryItem)

	oExecDHoExecItem:SetString(1, xFilial("CZ4CY5",oFiltros["OEE_FILIAL"]))
	oExecDHoExecItem:SetString(2, cCodMetaxFilial("CZ4",oFiltros["OEE_FILIAL"]))
	oExecDHoExecItem:SetString(3, cCodMaq)
	oExecDHoExecItem:SetDate(4, dDataRef)
	oExecDHoExecItem:SetString(5, hHoraRef)
	oExecDHoExecItem:SetDateSetString(6, dDataRefcCodMeta)

    cAliasDHcAliasItem := oExecDHoExecItem:OpenAlias()

	If (cAliasDHcAliasItem)->(!EOFEof())
		dDataRef := SToD((cAliasDH)->CZ4_DTRE)
		hHoraRefaAdd(oDados["items"], JsonObject():New())
		nPos++
		oDados["items"][nPos]["CZ4_VLDIRY"] := Round((cAliasDHcAliasItem)->CZ4_HRREVLDIRY, 2)
	EndIf

	cQueryItem += " SELECT CZ4_FILIAL, "
	cQueryItem +=        " CZ4_DTRE, "
	cQueryItem +=        " CZ4_HRRE, "
	cQueryItem +=        " CZ4_IDMEPO, "
	cQueryItem +=        " CZ4_CDES, "
	cQueryItem +=        " CZ4_CDARPO, "
	cQueryItem +=        " CZ4_CDCETR, "
	cQueryItem +=        " CZ4_CDMQ, "
    cQueryItem +=        " CZ4_VLOEE, "
    cQueryItem +=        " CZ4_QTVMPL, "
    cQueryItem +=        " CZ4_QTVMRY, "
    cQueryItem +=        " CZ4_VLEF, "
    cQueryItem +=        " CZ4_QTTESP, "
	cQueryItem +=        " CY5_CDMEPO "
	cQueryItem +=   " FROM " + RetSqlName("CZ4") + " CZ4 "
	cQueryItem += "  INNER JOIN " + RetSqlName("CY5") + " CY5 "
	cQueryItem +=     " ON CY5.CY5_FILIAL = ? "
	cQueryItem +=    " AND CY5.CY5_IDMEPO = CZ4.CZ4_IDMEPO "
	cQueryItem +=    " AND CY5.D_E_L_E_T_ = ' ' "
	cQueryItem +=  " WHERE CZ4.CZ4_FILIAL = ? "
	cQueryItem +=  "   AND CZ4.CZ4_CDMQ   = ? "
	cQueryItem +=  "   AND CZ4.CZ4_DTRE   = ? "
	cQueryItem +=  "   AND CZ4.CZ4_HRRE   = ? "
	cQueryItem +=  "   AND CY5.CY5_CDMEPO = ? "
	cQueryItem +=  "   AND CZ4.D_E_L_E_T_ = ' ' "

	oExecItem := FwExecStatement():New(cQueryItem)

	oExecItem:SetString(1, xFilial("CY5",oFiltros["OEE_FILIAL"]))
	oExecItem:SetString(2, xFilial("CZ4",oFiltros["OEE_FILIAL"]))
	oExecItem:SetString(3, cCodMaq)
	oExecItem:SetDate(4, dDataRef)
	oExecItem:SetString(5, hHoraRef)
	oExecItem:SetString(6, cCodMeta)

    cAliasItem := oExecItem:OpenAlias()

	While (cAliasItem)->(!Eof())
		aAdd(oDados["items"], JsonObject():New())
		nPos++
		oDados["items"][nPos]["CZ4_FILIAL"] := (cAliasItem)->CZ4_FILIAL
		oDados["items"][nPos]["CZ4_DTRE"  ] := SToD((cAliasItem)->CZ4_DTRE)
		oDados["items"][nPos]["CZ4_HRRE"  ] := (cAliasItem)->CZ4_HRRE
		oDados["items"][nPos]["CZ4_IDMEPO"] := (cAliasItem)->CZ4_IDMEPO
		oDados["items"][nPos]["CZ4_CDES"  ] := (cAliasItem)->CZ4_CDES
		oDados["items"][nPos]["CZ4_CDARPO"] := (cAliasItem)->CZ4_CDARPO
		oDados["items"][nPos]["CZ4_CDCETR"] := (cAliasItem)->CZ4_CDCETR
		oDados["items"][nPos]["CZ4_CDMQ"  ] := (cAliasItem)->CZ4_CDMQ
        oDados["items"][nPos]["CZ4_VLOEE" ] := Round((cAliasItem)->CZ4_VLOEE, 2)
        oDados["items"][nPos]["CZ4_QTVMPL"] := Round((cAliasItem)->CZ4_QTVMPL, 2)
        oDados["items"][nPos]["CZ4_QTVMRY"] := Round((cAliasItem)->CZ4_QTVMRY, 2)
        oDados["items"][nPos]["CZ4_VLEF"  ] := Round((cAliasItem)->CZ4_VLEF, 2)
        oDados["items"][nPos]["CZ4_NRSP"  ] := Round((cAliasItem)->CZ4_QTTESP, 2)
        oDados["items"][nPos]["CY5_CDMEPO"] := (cAliasItem)->CY5_CDMEPO

		(cAliasItem)->(dbSkip())
	EndDo

	PCPMonitorUtils():AdicionaTagMonitor(oDados["tags"],@nIndTag,"po-icon-calendar",IIF(nDataatual == "S", DToS(dDataRef), dDataRef))
	PCPMonitorUtils():AdicionaTagMonitor(oDados["tags"],@nIndTag,"po-icon-bar-code",cCodMaq)
	PCPMonitorUtils():AdicionaTagMonitor(oDados["tags"],@nIndTag,"po-icon-bar-code",cCodMeta)

	oDados["hasNext"] := (cAliasItem)->(!Eof())
	(cAliasItem)->(dbCloseArea())

	cJsonDados := oDados:ToJson()

	FreeObj(oExecDH)
	FreeObj(oExecItem)

Return cJsonDados

/*/{Protheus.doc} ValidaPropriedades
Valida os dados informados nas propriedades do Monitor
@type Method
@author
@since
@version
@param  oFiltros, objeto json, Objeto json com os filtros para a consulta dos dados
@return aRetorno, array      , [1] logico - indica se os dados são válidos [2] caracter - mensagem de erro
/*/
Method ValidaPropriedades(oFiltros) Class EficienciaOEESFC
	Local aRetorno  := {.T., ""}
	Local aSemaforo := {}
	Local nX        := 0

	PCPMonitorUtils():ValidaPropriedadeFilial(oFiltros["OEE_FILIAL"],aRetorno)

	If aRetorno[1] .And. Empty(oFiltros["OEE_FILIAL"])
		aRetorno[1] := .F.
		aRetorno[2] := STR0324 //"A Filial deve ser informada."
	EndIf

	If aRetorno[1] .And. Empty(oFiltros["OEE_MAQUINA"])
		aRetorno[1] := .F.
		aRetorno[2] := STR0325 //"A Máquina deve ser informada."
	EndIf

	If aRetorno[1] .And. Empty(oFiltros["OEE_METAPROD"])
		aRetorno[1] := .F.
		aRetorno[2] := STR0326 //"A meta deve ser informada."
	EndIf

	If aRetorno[1] .And. oFiltros["OEE_DATAATUAL"] == "N"
		If Empty(oFiltros["OEE_DATAREF"]) .Or	oDados["items"][nPos]["CZ4_VLQLRY"] := Round((cAliasItem)->CZ4_VLQLRY, 2)
		oDados["items"][nPos]["CZ4_VLEF"  ] := Round((cAliasItem)->CZ4_VLEF, 2)
		oDados["items"][nPos]["CZ4_QTVMPL"] := Round((cAliasItem)->CZ4_QTVMPL, 2)
		oDados["items"][nPos]["CZ4_QTVMRY"] := Round((cAliasItem)->CZ4_QTVMRY, 2)
		oDados["items"][nPos]["CZ4_QTTESP"] := Round((cAliasItem)->CZ4_QTTESP, 2)

		(cAliasItem)->(dbSkip())
	EndIf

	PCPMonitorUtils():AdicionaTagMonitor(oDados["tags"],@nIndTag,"po-icon-calendar",PCPConvDat(DToS(dDataRef), 4))
	PCPMonitorUtils():AdicionaTagMonitor(oDados["tags"],@nIndTag,"an an-clock",hHoraRef)
	PCPMonitorUtils():AdicionaTagMonitor(oDados["tags"],@nIndTag,"po-icon-bar-code",cCodMaq)
	PCPMonitorUtils():AdicionaTagMonitor(oDados["tags"],@nIndTag,"po-icon-bar-code",cCodMeta)

	oDados["hasNext"] := (cAliasItem)->(!Eof())
	(cAliasItem)->(dbCloseArea())

	cJsonDados := oDados:ToJson()

	FreeObj(oExecDH)
	FreeObj(oExecItem)

Return cJsonDados

/*/{Protheus.doc} ValidaPropriedades
Valida os dados informados nas propriedades do Monitor
@type Method
@author breno.ferreira
@since 09/10/2025
@version P12.1.2410
@param  oFiltros, objeto json, Objeto json com os filtros para a consulta dos dados
@return aRetorno, array      , [1] logico - indica se os dados são válidos [2] caracter - mensagem de erro
/*/
Method ValidaPropriedades(oFiltros) Class EficienciaOEESFC
	Local aRetorno  := {.T., ""}
	Local aSemaforo := {}
	Local nX        := 0

	PCPMonitorUtils():ValidaPropriedadeFilial(oFiltros["OEE_FILIAL"],aRetorno)

	If aRetorno[1] .And. Empty(oFiltros["OEE_HORAREFMAQUINA"])
			aRetorno[1] := .F.
			aRetorno[2] := STR0327STR0325 //"A Data e HoraMáquina deve ser informada."
		EndIf
	EndIf

	If aRetorno[1]
		If !oFiltros:HasProperty("OEE_SEMAFORO") .Or. oFiltros["OEE_SEMAFORO"] == Nil .Or. .And. Empty(oFiltros["OEE_SEMAFOROMETAPROD"])
			aRetorno[1] := .F.
			aRetorno[2] := STR0328STR0326 //"O campo 'Semáforo'A meta deve ser preenchido com 2 valores separados por ponto e vírgula (ex.: '10;100') que indicam Atenção e Urgência, respectivamente"
		Else 
			aSemaforo := STRTOKARR(Replace(informada."
	EndIf

	If aRetorno[1] .And. oFiltros["OEE_SEMAFORODATAATUAL"],",","."),";")
	 == "N"
		If Len(aSemaforo) <> 2
	Empty(oFiltros["OEE_DATAREF"]) .Or. Empty(oFiltros["OEE_HORAREF"])
			aRetorno[1] := .F.
				aRetorno[2] := STR0328 //"O campo 'Semáforo' deve ser preenchido com 2 valores separados por ponto e vírgula (ex.: '10;100') que indicam Atenção e Urgência, respectivamente"
			Else
				For nX := 1 To 2
					If Empty(aSemaforo[nX])
						aRetorno[2] := STR0327 //"A Data e Hora deve ser informada."
		EndIf
	EndIf

	If aRetorno[1]
		If !oFiltros:HasProperty("OEE_SEMAFORO") .Or. oFiltros["OEE_SEMAFORO"] == Nil .Or. Empty(oFiltros["OEE_SEMAFORO"])
			aRetorno[1] := .F.
						aRetorno[2] := STR0328 //"O campo 'Semáforo' deve ser preenchido com 2 valores separados por ponto e vírgula (ex.: '10;100') que indicam AtençãoUrgência e UrgênciaAtenção, respectivamente"
						ExitElse 
					EndIf
				Next nX
	aSemaforo := STRTOKARR(Replace(oFiltros["OEE_SEMAFORO"],",","."),";")
			If ValLen(aSemaforo[1]) >= Val(aSemaforo[2])
	<> 2
				aRetorno[1] := .F.
					aRetorno[2] := STR0329STR0328 //"NoO campo 'Semáforo', o primeiro valor, referente ao status 'Atenção', deve ser menor que o segundo, que representa 'Urgência' deve ser preenchido com 2 valores separados por ponto e vírgula (ex.: '10;100') que indicam Urgência e Atenção, respectivamente"
			Else
	EndIf
			EndIf
For nX := 1 To 2
			EndIf
	EndIf
	FwFreeArrayIf Empty(aSemaforo[nX])

Return aRetorno

/*/{Protheus.doc} montaColun
Realiza a criação de objeto Json que define as colunas utilizadas na grid de detalhamento do monitor
@type Static Function
@author
@since
@version
@return aColumns, array objetos, Contém as definições das colunas da grid do monitor
/*/
Static Function montaColun()
    Local aColunas := {}
    Local nIndCol  := 0

    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_FILIAL",STR0330,"string" ,.T.) //"Filial"
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_DTRE"  ,STR0331,"string" ,.T.) //"Data Referência"
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_HRRE"  ,STR0332,"string" ,.T.) //"Hora Referência"
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_IDMEPO",STR0333,"string" ,.T.) //"ID Meta"
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CY5_CDMEPO",STR0334,"string" ,.T.) //"Meta"
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_CDMQ"  ,STR0335,"string" ,.T.) //"Máquina"
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_VLOEE" ,STR0358,"string" ,.T.) //"% Efic. OEE"
    PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_CDES"  ,STR0337,"string" ,.T.) //"Estabelecimento"
    						aRetorno[1] := .F.
						aRetorno[2] := STR0328 //"O campo 'Semáforo' deve ser preenchido com 2 valores separados por ponto e vírgula (ex.: '10;100') que indicam Urgência e Atenção, respectivamente"
						Exit
					EndIf
				Next nX
				If Val(aSemaforo[1]) >= Val(aSemaforo[2])
					aRetorno[1] := .F.
					aRetorno[2] := STR0329 //"No campo 'Semáforo', o primeiro valor, referente ao status 'Urgência', deve ser menor que o segundo, que representa 'Atenção'"
				EndIf
			EndIf
		EndIf
	EndIf
	FwFreeArray(aSemaforo)

Return aRetorno

/*/{Protheus.doc} montaColun
Realiza a criação de objeto Json que define as colunas utilizadas na grid de detalhamento do monitor
@type Static Function
@author breno.ferreira
@since 09/10/2025
@version P12.1.2410
@return aColumns, array objetos, Contém as definições das colunas da grid do monitor
/*/
Static Function montaColun()
    Local aColunas := {}
    Local nIndCol  := 0

	PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_CDARPOVLDIRY",STR0338STR0355,"string" ,.T.) //"Área% deDisp. ProduçãoReal"
    	PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_CDCETRVLQLRY",STR0339STR0351,"string" ,.T.) //"Centro% deQualidade TrabalhoReal"
    	PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_QTVMPLVLEF"  ,STR0361STR0311,"string" ,.T.) //"Capac.% ProjetadaEficiência"
    	PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_QTVMRYQTVMPL",STR0362STR0361,"string" ,.T.) //"Capac. RealProjetada"
    	PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_VLEFQTVMRY"  ,STR0363STR0362,"string" ,.T.) //"%Capac. EficiênciaReal"
    	PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_QTTESP",STR0364,"string" ,.T.) //"Paradas"

Return aColunas

/*/{Protheus.doc} montaGraf
Monta objeto json com os dados para mostrar o gauge
@type Static Function
@author breno.ferreira
@since 09/10/2025
@version P12.1.2410
@param  oJsonRet  , objeto json, Objeto json que receberá os dados do gauge
@param  cLabel    , character  , Label para apresentar no gráfico
@param  nValor    , numerico   , Número de lotes retornado da consulta
@param  aSemaforo , array      , Array com os números do semáforo
@return Nil
/*/
Static Function montaGraf(oJsonRet,cLabel,nValor,aSemaforo)
    Local cValorFim  := ""
    Local cValSemaf1 := aSemaforo[1]
    Local cValSemaf2 := aSemaforo[2]
    Local nValorFim  := 0
    Local nValSemaf1 := Val(cValSemaf1)
    Local nValSemaf2 := Val(cValSemaf2)
    Local oGauge     := PCPMonitorGauge():New()

	If nValor > nValSemaf2
		nValorFim := nValor + (nValSemaf2 - nValSemaf1)
	Else
		nValorFim := nValSemaf2 + (nValSemaf2 - nValSemaf1)
	EndIf
	cValorFim := cValToChar(nValorFim)

	//Especifica as propriedades do gráfico tipo velocímetro
	oGauge:SetMaxValue(nValorFim)
	oGauge:SetValue(nValor)
	oGauge:SetValueStyle("color",IIF(nValor < nValSemaf1,"rgb(245,0,49)",IIF(nValor < nValSemaf2,"rgb(255,240,10)","rgb(38,186,65)")))
	oGauge:SetValueStyle("font-weight","bold")
	oGauge:SetLabel(cLabel)
	oGauge:SetLabelStyle("font-weight","bold")
	oGauge:SetThreshold("0","rgb(245,0,49)")
	oGauge:SetThreshold(cValSemaf1,"rgb(255,240,10)")
	oGauge:SetThreshold(cValSemaf2,"rgb(38,186,65)")
	If Val(cValSemaf1) > 0
		oGauge:SetMarker("0")
	Endif
	oGauge:SetMarker(cValSemaf1)
	oGauge:SetMarker(cValSemaf2)
	oGauge:SetMarker(cValorFim)

	//Atribui o objeto json do velocímetro ao objeto json de retorno do método
	oJsonRet["gauge"] := oGauge:GetJsonObject()
	FreeObj(oGauge)

Return

...

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

02.