O objetivo deste monitor é apresentar um gráfico de acompanhamento da porcentagem de disponibilidade da máquina. Sendo possível apresentar a Disponibilidade Real e a Disponibilidade Planejada.
A Disponibilidade Real mede a disponibilidade baseando-se nas paradas realizas, considerando-se as paradas efetivas que não alteram a eficiência.
A Disponibilidade Planejada mede a disponibilidade baseando-se nas paradas programadas. Para disponibilidade planejada leva-se em consideração a capacidade efetiva, sem considerar as paradas programadas. Então disponibilidade planejada é igual capacidade efetiva dividido pela capacidade do projeto.
Este monitor não realiza o cálculo das disponibilidades 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.
Quando selecionado o tipo Velocímetro é apresentado o percentual do indicador Disponibilidade Real.
Quando selecionado o tipo Barra ou Coluna são apresentados os percentuais dos indicadores Disponibilidade Real e Disponibilidade Planejada.
Os filtros para definição do escopo a ser monitorado são os seguintes:
*Filtro obrigatório
| 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. Desta forma, com o objetivo de mostrar o nível da utilização da máquina. Quando o número for:
Observação: O semáforo é um filtro obrigatório, porém, somente será utilizado se o tipo do Gráfico selecionado for Velocímetro. Caso for informado outro tipo do Gráfico (barra ou coluna), deve ser informado qualquer valor no Semáforo, conforme as regras, mas não será utilizada essa informação. |
| 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.
|
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. |
As Tags auxiliam na identificação do escopo de um monitor, sem necessidade de editá-los.
| Tag | Ícone | Descrição |
|---|---|---|
| Data de Referência |
| Data de Referência da geração do indicador pela opção Gerar Indicadores do SFCA008 - Metas de Produção. |
| Hora de Referência |
| Hora de Referência da geração do indicador pela opção Gerar Indicadores do SFCA008 - Metas de Produção. |
| Máquina |
| Código da Máquina que está sendo monitorada. |
| Meta Produzida |
| Código da Meta que está sendo monitorada. |
Apresenta as informações utilizadas para o cálculo da Disponibilidade Real e da Disponibilidade Planejada.
São exibidas as informações referentes à: Máquina. Capacidade Projetada, Capacidade Efetiva, Capacidade Real. % Eficiência e Paradas.
Os registros podem ser exportados para o formato .CSV através do botão Exportar Planilha.
Gráfico do tipo Velocímetro
Gráfico do tipo Colunas
Gráfico do tipo Barras
Segue abaixo o código fonte da classe responsável pelos dados deste monitor. Utilize este código como base para criar seus monitores exclusivos, alterando o nome da classe e adaptando à sua regra de negócio. |
#INCLUDE "PROTHEUS.CH"
#INCLUDE "PCPMONITOR.CH"
#INCLUDE "PCPMONITORDEF.CH"
/*/{Protheus.doc} DisponibilidadeSFC
Classe para mostrar o indicador de Disponibilidade do modulo do SFC
@type Class
@author breno.ferreira
@since 08/10/2025
@version P12.1.2410
@return Nil
/*/
Class DisponibilidadeSFC 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 08/10/2025
@version P12.1.2410
@return lRet, logico, Indica se conseguiu realizar a carga
/*/
Method CargaMonitor() Class DisponibilidadeSFC
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("DisponibilidadeSFC")
PCPMonitorUtils():AdicionaTagMonitor(aTags,@nIndTag,"po-icon-calendar","22/06/2025")
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(STR0352) //"% Disponibilidade"
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(STR0353) //"Disponibilidade SFC"
oCarga:setaObjetivo(STR0354) //"Apresenta a porcentagem de Disponibilidade 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("DisponibilidadeSFC")
oCarga:setaTiposPermitidos("chart")
oCarga:setaTiposGraficoPermitidos("gauge;column;bar")
oCarga:setaTipoPadrao("chart")
oCarga:setaTipoGraficoPadrao("gauge")
oCarga:setaTipoDetalhe("detalhe")
oCarga:setaExemploJsonGrafico(oSeries, aTags, aDetalhes,aCategr,"gauge",oGauge:GetJsonObject())
oCarga:setaPropriedadeFilial("DISP_FILIAL")
oCarga:setaPropriedade("DISP_SEMAFORO", STR0314, STR0315,1,10,0,"po-sm-12 po-md-6 po-lg-6 po-xl-6",/*oEstilos*/,/*cIcone*/,/*oPrmAdc*/)// "Urgente;Atenção" "Semáforo"
oCarga:setaPropriedadeLookupTabela("DISP_MAQUINA", STR0316, .F., "CYB", "CYB_CDMQ", "CYB_DSMQ") //"Máquina"
oCarga:setaPropriedadeLookupTabela("DISP_METAPROD", STR0317, .F., "CYU", "CYU_CDMEPO", "CYU_DSME") //"Meta Produzida"
oCarga:setaPropriedade("DISP_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("DISP_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["DISP_DATAATUAL"] := JsonObject():New()
oPrmAdc["DISP_DATAATUAL"]["opcoes"] := STR0321 + ":" + "S" + ";" + STR0322 + ":" + "N" // "Sim" "Não"
oCarga:setaPropriedade("DISP_DATAATUAL", "N", STR0323, 4,/*cTamanho*/,/*cDecimal*/, "po-sm-12 po-md-6 po-lg-6 po-xl-6",/*oEstilos*/,/*cIcone*/,oPrmAdc["DISP_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 08/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 DisponibilidadeSFC
Local aSemaforo := StrTokArr(Replace(oFiltros["DISP_SEMAFORO"],",","."),";")
Local cAliasDH := ""
Local cAliasInd := ""
Local cCodMaq := oFiltros["DISP_MAQUINA"]
Local cCodMeta := oFiltros["DISP_METAPROD"]
Local cJsonDados := ""
Local cLabel := ""
Local cQueryDH := ""
Local cQueryInd := ""
Local dDataRef := Replace(oFiltros["DISP_DATAREF"],"-","")
Local hHoraRef := oFiltros["DISP_HORAREF"]
Local nDataatual := oFiltros["DISP_DATAATUAL"]
Local nPos := 0
Local nValor1 := 0
Local nValor2 := 0
Local oExecDH := Nil
Local oExecInd := Nil
Local oJsonRet := JsonObject():New()
oFiltros["DISP_FILIAL"] := PadR(oFiltros["DISP_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["DISP_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_VLDIRY VLDIRY, "
cQueryInd += " CZ4.CZ4_VLDIPL VLDIPL "
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["DISP_FILIAL"]))
oExecInd:SetString(2, xFilial("CZ4",oFiltros["DISP_FILIAL"]))
oExecInd:SetString(3, cCodMaq)
oExecInd:SetDate(4, dDataRef)
oExecInd:SetString(5, hHoraRef)
oExecInd:SetString(6, cCodMeta)
cAliasInd := oExecInd:OpenAlias()
nValor1 := 0
nValor2 := 0
If (cAliasInd)->(!Eof())
nValor1 := Round((cAliasInd)->VLDIRY,2)
nValor2 := Round((cAliasInd)->VLDIPL,2)
cLabel := STR0352 //"% Disponibilidade"
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" ] := STR0355 //"% Disp. Real"
aAdd(oJsonRet["series"], JsonObject():New())
oJsonRet["series"][2]["color" ] := COR_AZUL
oJsonRet["series"][2]["data" ] := {nValor2}
oJsonRet["series"][2]["tooltip"] := ""
oJsonRet["series"][2]["label" ] := STR0356 //"% Disp. Planejada"
EndIf
//Adiciona tags ao 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 08/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 DisponibilidadeSFC
Local cAliasDH := ""
Local cAliasItem := ""
Local cCodMaq := oFiltros["DISP_MAQUINA"]
Local cCodMeta := oFiltros["DISP_METAPROD"]
Local cJsonDados := ""
Local cQueryDH := ""
Local cQueryItem := ""
Local dDataRef := Replace(oFiltros["DISP_DATAREF"],"-","")
Local hHoraRef := oFiltros["DISP_HORAREF"]
Local nDataatual := oFiltros["DISP_DATAATUAL"]
Local nIndTag := 0
Local nPos := 0
Local oDados := JsonObject():New()
Local oExecDH := Nil
Local oExecItem := Nil
Default nPagina := 1
oFiltros["DISP_FILIAL"] := PadR(oFiltros["DISP_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 (( 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["DISP_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
cQueryItem += " SELECT CZ4.CZ4_CDMQ, "
cQueryItem += " CZ4.CZ4_QTVMPL, "
cQueryItem += " CZ4.CZ4_QTVMRY, "
cQueryItem += " CZ4.CZ4_VLEF, "
cQueryItem += " CZ4.CZ4_QTTESP, "
cQueryItem += " CZ4.CZ4_QTVMEV "
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["DISP_FILIAL"]))
oExecItem:SetString(2, xFilial("CZ4",oFiltros["DISP_FILIAL"]))
oExecItem:SetString(3, cCodMaq)
oExecItem:SetDate(4, dDataRef)
oExecItem:SetString(5, hHoraRef)
oExecItem:SetString(6, cCodMeta)
cAliasItem := oExecItem:OpenAlias()
If (cAliasItem)->(!Eof())
aAdd(oDados["items"], JsonObject():New())
nPos++
oDados["items"][nPos]["CZ4_CDMQ" ] := (cAliasItem)->CZ4_CDMQ
oDados["items"][nPos]["CZ4_QTVMPL"] := Round((cAliasItem)->CZ4_QTVMPL, 2)
oDados["items"][nPos]["CZ4_QTVMEV"] := Round((cAliasItem)->CZ4_QTVMEV, 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_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 08/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 DisponibilidadeSFC
Local aRetorno := {.T., ""}
Local aSemaforo := {}
Local nX := 0
PCPMonitorUtils():ValidaPropriedadeFilial(oFiltros["DISP_FILIAL"],aRetorno)
If aRetorno[1] .And. Empty(oFiltros["DISP_MAQUINA"])
aRetorno[1] := .F.
aRetorno[2] := STR0325 //"A Máquina deve ser informada."
EndIf
If aRetorno[1] .And. Empty(oFiltros["DISP_METAPROD"])
aRetorno[1] := .F.
aRetorno[2] := STR0326 //"A meta deve ser informada."
EndIf
If aRetorno[1] .And. oFiltros["DISP_DATAATUAL"] == "N"
If Empty(oFiltros["DISP_DATAREF"]) .Or. Empty(oFiltros["DISP_HORAREF"])
aRetorno[1] := .F.
aRetorno[2] := STR0327 //"A Data e Hora deve ser informada."
EndIf
EndIf
If aRetorno[1]
If !oFiltros:HasProperty("DISP_SEMAFORO") .Or. oFiltros["DISP_SEMAFORO"] == Nil .Or. Empty(oFiltros["DISP_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 Urgência e Atenção, respectivamente"
Else
aSemaforo := STRTOKARR(Replace(oFiltros["DISP_SEMAFORO"],",","."),";")
If Len(aSemaforo) <> 2
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"
Else
For nX := 1 To 2
If Empty(aSemaforo[nX])
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 08/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_CDMQ" ,STR0335,"string" ,.T.) //"Máquina"
PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_QTVMPL",STR0361,"string" ,.T.) //"Capac. Projetada"
PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_QTVMEV",STR0341,"string" ,.T.) //"Capac. Efetiva"
PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_QTVMRY",STR0362,"string" ,.T.) //"Capac. Real"
PCPMonitorUtils():AdicionaColunaTabela(aColunas,@nIndCol,"CZ4_VLEF" ,STR0311,"string" ,.T.) //"% Eficiência"
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 08/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
|
