Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
Method BuscaDados(oFiltros, cTipo, cSubTipo) Class StatusPlayStopPCP
Local aPausa := {}
Local aProd := {}
Local aUsuarios := {}
Local cAlias := GetNextAlias()
Local cJsonDados := ""
Local cProdutos := ""
Local cUsuarios := ""
Local cUsrAtual := ""
Local cQuery := ""
Local dDataIni := dDatabase
Local dDataFin := dDatabase
Local lFilUsuar := .F.
Local nIndice := 0
Local nIndSerie := 0
Local nPosTag := 0
Local oDados := JsonObject():New()
Local oJsonRet := JsonObject():New()
oJsonRet["alturaMinimaWidget"] := "350px"
oJsonRet["alturaMaximaWidget"] := "500px"
oJsonRet["categorias"] := {}
oJsonRet["series"] := {}
oJsonRet["tags"] := {}
oFiltros["01_HZA_FILIAL"] := PadR(oFiltros["01_HZA_FILIAL"], FWSizeFilial())
dDataIni := PCPMonitorUtils():RetornaPeriodoInicial(oFiltros["06_TIPOPERIODO"],dDataFin,cValtoChar(oFiltros["07_PERIODO"]))
cQuery +=" SELECT "
cQuery += " HZA.HZA_FILIAL,
cQuery += " HZA.HZA_OP,
cQuery += " HZA.HZA_OPERAD,
cQuery += " HZA.HZA_DTINI,
cQuery += " HZA.HZA_HRINI,
cQuery += " HZA.HZA_DTFIM,
cQuery += " HZA.HZA_HRFIM,
cQuery += " HZA.HZA_TPTRNS
cQuery += " FROM "+RetSqlName("HZA")+" HZA "
cQuery += " LEFT JOIN "+RetSqlName("SC2")+" SC2 ON SC2.C2_FILIAL = '"+xFilial("SC2",oFiltros["01_HZA_FILIAL"])+"' AND SC2.C2_NUM+C2_ITEM+C2_SEQUEN+C2_ITEMGRD = HZA.HZA_OP AND SC2.D_E_L_E_T_ = ' ' "
cQuery += " WHERE HZA.HZA_FILIAL = '" + xFilial("HZA",oFiltros["01_HZA_FILIAL"]) + "' "
cQuery += " AND HZA.HZA_DTINI BETWEEN '" + dToS(dDataIni) + "' AND '" + dToS(dDataFin) + "' "
cQuery += " AND HZA.HZA_STATUS = '"+IIF(oFiltros["04_HZA_STATUS"] == "A","1","2")+"' "
If oFiltros:HasProperty("02_C2_PRODUTO") .And. ValType(oFiltros["02_C2_PRODUTO"]) == "A"
For nIndice := 1 To Len(oFiltros["02_C2_PRODUTO"])
If Empty(cProdutos)
cProdutos := "'" + oFiltros["02_C2_PRODUTO"][nIndice] + "'"
Else
cProdutos += ",'" + oFiltros["02_C2_PRODUTO"][nIndice] + "'"
EndIf
Next nIndice
EndIf
If !Empty(cProdutos)
cQuery += " AND SC2.C2_PRODUTO IN ("+cProdutos+") "
EndIf
If oFiltros:HasProperty("03_HZA_OPERAD") .And. ValType(oFiltros["03_HZA_OPERAD"]) == "A"
For nIndice := 1 To Len(oFiltros["03_HZA_OPERAD"])
If Empty(cUsuarios)
cUsuarios := "'" + oFiltros["03_HZA_OPERAD"][nIndice] + "'"
Else
cUsuarios += ",'" + oFiltros["03_HZA_OPERAD"][nIndice] + "'"
EndIf
Next nIndice
EndIf
If !Empty(cUsuarios)
lFilUsuar := .T.
cQuery += " AND HZA.HZA_OPERAD IN ("+cUsuarios+") "
EndIf
cQuery += " AND HZA.D_E_L_E_T_ = ' ' "
cQuery += " ORDER BY HZA.HZA_FILIAL, HZA.HZA_OPERAD "
dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cAlias,.F.,.F.)
While (cAlias)->(!Eof())
cUsrAtual := IIF(lFilUsuar,(cAlias)->HZA_OPERAD,"Todos")
If !oDados:HasProperty(cUsrAtual)
oDados[cUsrAtual] := JsonObject():New()
oDados[cUsrAtual]["1"] := 0
oDados[cUsrAtual]["2"] := 0
EndIf
If oFiltros["05_APONTAMENTOHORA"] == "H"
If oFiltros["04_HZA_STATUS"] == "A"
If (cAlias)->HZA_DTINI != dToS(dDatabase)
nDifDias := DateDiffDay(sToD((cAlias)->HZA_DTINI),dDatabase) - 1
nMinutos := nDifDias * 24 * 60
nMinutos += Hrs2Min(ElapTime(SubStr((cAlias)->HZA_HRINI,1,5)+":00","24:00:00"))
nMinutos += Hrs2Min(ElapTime("00:00:00",SubStr(Time(),1,5)+":00"))
Else
nMinutos += Hrs2Min(ElapTime(SubStr((cAlias)->HZA_HRINI,1,5)+":00",SubStr(Time(),1,5)+":00"))
EndIf
Else
If (cAlias)->HZA_DTINI != (cAlias)->HZA_DTFIM
nDifDias := DateDiffDay(sToD((cAlias)->HZA_DTINI),sToD((cAlias)->HZA_DTFIM)) - 1
nMinutos := nDifDias * 24 * 60
nMinutos += Hrs2Min(ElapTime(SubStr((cAlias)->HZA_HRINI,1,5)+":00","24:00:00"))
nMinutos += Hrs2Min(ElapTime("00:00:00",SubStr((cAlias)->HZA_HRFIM,1,5)+":00"))
Else
nMinutos := Hrs2Min(ElapTime(SubStr((cAlias)->HZA_HRINI,1,5)+":00",SubStr((cAlias)->HZA_HRFIM,1,5)+":00"))
EndIf
EndIf
oDados[cUsrAtual][(cAlias)->HZA_TPTRNS] += nMinutos
Else
oDados[cUsrAtual][(cAlias)->HZA_TPTRNS]++
EndIf
(cAlias)->(dbSkip())
End
(cAlias)->(dbCloseArea())
aUsuarios := oDados:GetNames()
For nIndice := 1 To Len(aUsuarios)
aAdd(aProd,IIF(oFiltros["05_APONTAMENTOHORA"] == "H",NOROUND(((oDados[aUsuarios[nIndice]]["1"] / 0.6) / 100),2),oDados[aUsuarios[nIndice]]["1"]))
aAdd(aPausa,IIF(oFiltros["05_APONTAMENTOHORA"] == "H",NOROUND(((oDados[aUsuarios[nIndice]]["2"] / 0.6) / 100),2),oDados[aUsuarios[nIndice]]["2"]))
aUsuarios[nIndice] := IIF(lFilUsuar,UsrRetName(aUsuarios[nIndice]),aUsuarios[nIndice])
Next nIndice
PCPMonitorUtils():AdicionaSerieGraficoMonitor(oJsonRet["series"],@nIndSerie,COR_VERDE,aProd,"Produção")
PCPMonitorUtils():AdicionaSerieGraficoMonitor(oJsonRet["series"],@nIndSerie,COR_VERMELHO,aPausa,"Pausa")
PCPMonitorUtils():AdicionaCategoriasGraficoMonitor(oJsonRet["categorias"], aUsuarios)
PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPosTag,"po-icon-calendar",dToC(dDataIni) + " - " + dToC(dDataFin))
PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPosTag,"po-icon-parameters",IIF(oFiltros["04_HZA_STATUS"] == "A","Em Andamento","Concluído"))
PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPosTag,"po-icon-parameters",IIF(oFiltros["05_APONTAMENTOHORA"] == "H","Horas","Apontamentos"))
If oFiltros:HasProperty("02_C2_PRODUTO") .And. ValType(oFiltros["02_C2_PRODUTO"]) == "A"
For nIndice := 1 To Len(oFiltros["02_C2_PRODUTO"])
PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPosTag,"po-icon-bar-code",oFiltros["02_C2_PRODUTO"][nIndice])
Next nIndice
EndIf
cJsonDados := oJsonRet:ToJson()
FreeObj(oDados)
FreeObj(oJsonRet)
FwFreeArray(aPausa)
FwFreeArray(aProd)
FwFreeArray(aUsuarios)
Return cJsonDados |
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
Method BuscaDados(oFiltros, cTipo, cSubTipo) Class StatusLotesAVencer Local aSemaforo := StrTokArr(Replace(oFiltros["03_SEMAFORO"],",","."),";") Local cAliasQry := GetNextAlias() Local cCodProd := oFiltros["02_B8_PRODUTO"] Local cJsonDados := "" Local cQuery := "" Local cTxtPrc := "" Local cTxtSec := "" Local cUnMedida := "" Local dFilterDat := PCPMonitorUtils():RetornaPeriodoFinal(oFiltros["05_TIPOPERIODO"],ddatabase,cValtoChar(oFiltros["06_PERIODO"])) Local nIndLinha := 0 Local nQuant := 0 Local nValSemaf1 := Val(aSemaforo[1]) Local nValSemaf2 := Val(aSemaforo[2]) Local nLotes := 0 Local nPos := 0 Local nSaldo := 0 Local oJsonRet := JsonObject():New() Local oStylePrc := JsonObject():New() Local oStyleSec := JsonObject():New() //Propriedades que devem ser retornadas para monitores do tipo texto oJsonRet["corTitulo"] := "white" //Cor do título do monitor. Se não for informada, assumirá o valor #2590aa oJsonRet["alturaMinimaWidget"] := "350px" //Altura mínima do monitor. Se não for informada, assumirá o valor 350px oJsonRet["alturaMaximaWidget"] := "500px" //Altura máxima do monitor. Se não for informada, assumirá o valor 350px oJsonRet["linhas"] := {} //Array de objetos json com cada linha de informação do monitor oJsonRet["tags"] := {} //Array de objetos json com as tags que serão visualizadas no monitor oFiltros["01_B8_FILIAL"] := PadR(oFiltros["01_B8_FILIAL"], FWSizeFilial()) cUnMedida := Posicione("SB1",1,xFilial("SB1",oFiltros["01_B8_FILIAL"])+cCodProd,"B1_UM") //Query com os filtros para buscar as informações e apresentar no monitor cQuery += " SELECT " cQuery += " SB8.B8_PRODUTO CODIGO_PRODUTO, " cQuery += " SUM(SB8.B8_SALDO) SALDO, " cQuery += " COUNT(SB8.R_E_C_N_O_) QUANTIDADE_LOTES " cQuery += " FROM "+RetSqlName("SB8")+" SB8 " cQuery += " WHERE SB8.B8_FILIAL = '" + xFilial("SB8",oFiltros["01_B8_FILIAL"]) + "' " cQuery += " AND SB8.B8_PRODUTO = '" + cCodProd + "' " cQuery += " AND SB8.B8_DTVALID BETWEEN '"+DTOS(ddatabase)+"' AND '"+DTOS(dFilterDat)+"' " cQuery += " AND SB8.B8_SALDO > 0 " cQuery += " AND SB8.D_E_L_E_T_ = ' ' " cQuery += " GROUP BY SB8.B8_FILIAL,SB8.B8_PRODUTO " dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cAliasQry,.F.,.F.) If (cAliasQry)->(!Eof()) cCodProd := AllTrim((cAliasQry)->CODIGO_PRODUTO) nLotes := (cAliasQry)->QUANTIDADE_LOTES nSaldo := (cAliasQry)->SALDO End (cAliasQry)->(dbCloseArea()) If oFiltros["04_TIPOSEMAFORO"] == "L" nQuant := nLotes cTxtPrc := cValToChar(nLotes) cTxtSec := cValToChar(nSaldo) + " " + cUnMedida Else nQuant := nSaldo cTxtPrc := cValToChar(nSaldo) cTxtSec := cValToChar(nLotes) + IIF(nLotes > 1, " Lotes", " Lote") EndIf //Adiciona as linhas de informação no monitor If nLotes > 0 oStyleSec["color"] := "white" oJSonRet["corFundo"] := IIF(nQuant < nValSemaf1,"rgb(38,186,65)",IIF(nQuant < nValSemaf2,"rgb(255,207,1)","rgb(245,0,49)") If oJSonRet["corFundo"] == "rgb(255,207,1)" oStyleSec["color"] := "black" oJsonRet["corTitulo"] := "black" EndIf oStylePrc["font-weight"] := "bold" oStylePrc["font-size"] := "120px" oStylePrc["line-height"] := "130px" oStylePrc["text-align"] := "center" oStylePrc["color"] := oStyleSec["color"] oStylePrc["cursor"] := "pointer" PCPMonitorUtils():AdicionaLinhaInformacao(oJsonRet["linhas"],@nIndLinha,cTxtPrc,"po-sm-12",oStylePrc:ToJson(),.T.) PCPMonitorUtils():AdicionaLinhaInformacao(oJsonRet["linhas"],@nIndLinha,cTxtSec,"po-font-title po-text-center po-sm-12 po-pt-1 bold-text",oStyleSec:ToJson()) Else oJsonRet["corFundo"] := "rgb(38,186,65)" PCPMonitorUtils():AdicionaLinhaInformacao(oJsonRet["linhas"],@nIndLinha,"Nenhum lote do produto vencerá no período selecionado.","po-font-text-large-bold po-text-center po-sm-12 po-pt-4",oStyleSec:ToJson()) EndIf //Adiciona tags ao monitor PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPos,"po-icon-calendar",cValToChar(ddatabase) + " - " + cValToChar(dFilterDat)) PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPos,"po-icon-bar-code",cCodProd) If oFiltros["04_TIPOSEMAFORO"] == "Q" PCPMonitorUtils():AdicionaTagMonitor(oJsonRet["tags"],@nPos,"po-icon-weight",""Un. Medida: "+ cUnMedida) EndIf cJsonDados := oJsonRet:toJson() FwFreeArray(aSemaforo) FreeObj(oJsonRet) Return cJsonDados |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas