Histórico da Página

(Obrigatório)

Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

Objetivo

A plataforma GoodData possibilita a criação e consulta de dados dos ERPs do segmento Agroindústria da TOTVS por meio de gráfico, tabelas e indicadores.

Pode-se elaborar reports, que são relatórios que expressam informações e valores de diferentes módulos das aplicações Agro. Tais reports podem ser incorporados como elementos de dashboards, que são relatórios gerenciais que centralizam diferentes relatórios com base em um conceito e/ou escopo.

Este documento de especificação apresenta todos os passos para a criação do projeto GoodData para Agroindústria

Definição da Regra de Negócio

 1.     Criação do modelo do projeto no CloudConnect

Para criar o modelo do projeto no CloudConnect é necessário:

1. Na estrutura do projeto do CloudConnect, clique no botão direito do mouse na pasta Model > New > Logical Data Model

 2. Na janela “New Logical Data Model”  informe o diretório para o modelo  no campo “Folder” e o título do modelo no campo “Title”. Para finalizar a criação do modelo clique no botão “Finish”;

3. Observe na estrutura do projeto do CloudConnect a criação do arquivo do modelo. A extensão do arquivo modelo é .ldm

Para criação das Dimensões e das Fatos no modelo utilize “Add Dataset”

O Dataset permite adicionar atributo  e fator

Para criação da dimensão de Data/Período utilize “Add Date”:

Exemplo de dimensão

Observação: Para definir a chave da dimensão, selecione o tipo do atributo como “Connection Point”.

Exemplo de fato

Exemplo de modelo completo

 2.     Publicação do modelo na nuvem GoodData

 Para publicar o modelo do projeto GoodData na nuvem é necessário:

1. Abra o modelo do projeto;

2. No modelo,  clique no botão direito do mouse e selecione a opção Publish model do server;

 3. Caso solicitado, selecione o projeto Good Data referente ao modelo e clique no botão “OK”

4. A janela “Publish model to server” lista as mudanças realizadas no modelo do projeto e a esturtura de dados será publicada no servidor  GoodData após clicar no botão “Publish”.

 5. Caso a atualização do modelo seja realizada com sucesso uma pop up é exibida informando que as mudanças foram aplicadas.

3.     Criação do gráfico do projeto no CloudConnect

Para criar o gráfico do projeto no CloudConnect é necessário:

1. Na estrutura do projeto do CloudConnect, clique no botão direito do mouse na pasta graph > New > Graph;

 2. Na janela “New Graph Wizard” espefique o nome do gráfico no campo “Name” e a descrição no campo “Description”. Em seguida, clique no botão “Next”;

3. Para finalizar a criação do arquivo do gráfico, clique no botão “Finish”. A extensão do gráfico é .GRF

4. Na estrutura do projeto do CloudConnect, observe o arquivo de gráfico criado.

4.     Criação da conexão com a base de dados no projeto no CloudConnect

Para criar a conexão com a base de dados do projeto no CloudConnect é necessário:

1. Selecionar o arquivo de gráfico.
2. Na guia “Outline”, clique no botão direto do mouse em  Connections > Connections > Create DB connection

 3. Na janela “Database connection”, especifique o JDBC e as propriedades necessária para a criação da conexão com a base de dados. Para testar a conexão clique no botão “Validate connection”. Com a conexão validada com sucesso clique no botão “Finish”.

Observação: O CloudConnect possibilita várias conexões.

TOTVS Agroindústria

Dimensões

Instância

SQL Query:

 SELECT INSTANCIA, DE_INSTANCIA FROM PMINSTANCIAS ORDER BY INSTANCIA

Unidade Industrial

 SQL Query:

SELECT CD_UNID_IND, DE_UNID_IND FROM UNIDIND ORDER BY CD_UNID_IND

Empresa

SQL Query:

 SELECT CD_EMPRESA, DE_EMPRESA FROM EMPRESAS ORDER BY CD_EMPRESA

Fazenda

 SQL Query:

 SELECT CD_UPNIVEL1, DE_UPNIVEL1 FROM UPNIVEL1 ORDER BY CD_UPNIVEL1

Tipo de Propriedade

SQL Query:

SELECT CD_TP_PROPR, DE_TP_PROPR FROM TIPOPROPRI ORDER BY CD_TP_PROPR

 Ocupação

SQL Query:

 SELECT CD_OCUP, DE_OCUP FROM OCUPACAO ORDER BY CD_OCUP

Variedade 

SQL Query:

SELECT CD_VARIED, DE_VARIED FROM VARIEDADES ORDER BY CD_VARIED

Estágio

 SQL Query:

 SELECT CD_ESTAGIO, DE_ESTAGIO FROM ESTAGIOS ORDER BY CD_ESTAGIO

Sistema de Colheita

 SQL Query:

SELECT CD_SIST_COLH, DE_SIST_COLH FROM SISTCOLH ORDER BY CD_SIST_COLH

Frente de Transporte

SQL Query:

 SELECT CD_FREN_TRAN, DE_FREN_TRAN FROM FRENTRANSP ORDER BY CD_FREN_TRAN

  Fornecedor 

SQL Query:

SELECT CD_FORNEC, DE_FORNEC FROM FORNECS ORDER BY CD_FORNEC

Grupo Operativo

SQL Query:

SELECT CD_GRUPO_OP, DE_GRUPO_OP FROM GRUOPERATI ORDER BY CD_GRUPO_OP

Marca

SQL Query:

SELECT CD_MARCA, DE_MARCA FROM MARCAS ORDER BY CD_MARCA

Modelo

SQL Query:

SELECT CD_MODELO, DE_MODELO, CD_GRUPO_OP, CD_MARCA FROM MODELOS ORDER BY CD_MODELO

Categoria Operacional

SQL Query:

SELECT CD_CATEG_OPER, DE_CATEG_OPER FROM CATEG_OPER ORDER BY CD_CATEG_OPER

Equipamento

SQL Query:

SELECT CD_EQUIPTO, FG_TP_EQUIP, CD_MODELO, CD_CATEG_OPER FROM EQUIPTOS

ORDER BY CD_EQUIPTO

Composição

SQL Query:

SELECT CD_TP_COMPO, DE_TP_COMPO, FG_VEICULO FROM TPCOMPOSI ORDER BY CD_TP_COMPO

Recurso

SQL Query:

SELECT CD_TP_RECURSO, DE_EQUIPTO, DE_OPERADOR FROM NUM_RECURSO ORDER BY CD_TP_RECURSO

Classe de Manutenção

SQL Query:

SELECT CD_CLASMANU, DE_CLASMANU FROM CLASMANU ORDER BY CD_CLASMANU

Motivo de Entrada

SQL Query:

SELECT CD_MOTENTR, DE_MOTENTR FROM MOTIVOENTR ORDER BY CD_MOTENTR

Período Entressafra

SQL Query:

SELECT INSTANCIA || '***' || CD_SAFRA ID_ENTRES_PER, INSTANCIA, CD_SAFRA, DE_SAFRA, DT_INICIO, DT_FIM

FROM MNF_ENTRES_PER ORDER BY INSTANCIA, CD_SAFRA

Ramo

Agrupador por tipo de centro de custo, por exemplo – industria, agricola e administrativo.

SQL Query:

SELECT CD_RAMO, DE_RAMO FROM RAMOCUSTO ORDER BY CD_RAMO

Fase

Agrupador de processos, por exemplo - formação de lavoura, colheita, administração de colheita, administração geral, fabricação de açúcar, fabricação de álcool e cogeração de energia.

SQL Query:

SELECT CD_FASE, DE_FASE FROM FASES ORDER BY CD_FASE

Tipo de Centro de Custo

SQL Query:

SELECT FG_TP_CCUSTO CD_TP_CCUSTO,

   CASE

     WHEN FG_TP_CCUSTO = '1' THEN 'Produtivo'

     WHEN FG_TP_CCUSTO = '2' THEN 'Auxiliar'

     WHEN FG_TP_CCUSTO = '3' THEN 'Administrativo'

     WHEN FG_TP_CCUSTO = '4' THEN 'Comercial'

     ELSE 'N/A'

   END DE_TP_CCUSTO

 FROM (SELECT DISTINCT FG_TP_CCUSTO FROM CC_CSTG)

ORDER BY FG_TP_CCUSTO

Componente

Agrupador de recursos, por exemplo - equipamentos, insumos e mão de obra.

SQL Query:

SELECT CD_COMPO, DE_COMPO, CD_UNIMED FROM COMPONEN

UNION

SELECT -1 CD_COMPO, '' DE_COMPO, '' CD_UNIMED FROM DUAL ORDER BY CD_COMPO

Operação

SQL Query:

SELECT CD_OPERACAO, DE_OPERACAO, CD_UNIMED FROM OPERACOES ORDER BY CD_OPERACAO

Conta

SQL Query:

SELECT CD_CONTA, DE_CONTA FROM CTA_CSTO

UNION

SELECT '-1' CD_CONTA, ' ' DE_CONTA FROM DUAL ORDER BY CD_CONTA

Centro de Custo

SQL Query:

SELECT CD_CCUSTO, DE_CCUSTO, FG_INTERP, FG_TP_CCUSTO, CD_RAMO, CD_FASE, CD_EMPRESA

FROM CC_CSTG ORDER BY CD_CCUSTO

Centro de Custo de Origem

SQL Query:

SELECT CD_CCUSTO, DE_CCUSTO, FG_INTERP, FG_TP_CCUSTO, CD_RAMO, CD_FASE, CD_EMPRESA

 FROM CC_CSTG

Centro de Custo de Destino

 SQL Query:

SELECT CD_CCUSTO, DE_CCUSTO, FG_INTERP, FG_TP_CCUSTO, CD_RAMO, CD_FASE, CD_EMPRESA

FROM CC_CSTG

Base de Rateio

SQL Query:

SELECT BR.CD_BRATEIO, BR.DE_BRATEIO, BR.FG_TIPO, DECODE(BR.CD_COMPO, NULL, -1, BR.CD_COMPO) CD_COMPO

FROM BRATE_HE BR

 UNION

SELECT -1, ' ' DE_BRATEIO, ' ' FG_TIPO, -1 CD_COMPO FROM DUAL

Centro de Custo e Base de Rateio

SQL Query:

SELECT TO_NUMBER(TO_CHAR(PERIODO.DT_HISTORI, 'MMYYYY') || TO_CHAR(CB.CD_CCUSTO)) RELAC,

   CB.CD_CCUSTO, PERIODO.DT_HISTORI, DECODE(CB.CD_BRAT_FX, NULL, -1, CB.CD_BRAT_FX) CD_BRATEIO

 FROM (

   SELECT CC2.CD_CCUSTO, CB2.DT_REFER, CB2.CD_BRAT_FX

   FROM CC_CSTG CC2

  LEFT OUTER JOIN CC_BRATE CB2 ON CC2.CD_CCUSTO = CB2.CD_CCUSTO

   ) CB

 LEFT OUTER JOIN (

   SELECT CC.CD_CCUSTO, MAX(P.DT_HISTORI) DT_HISTORI

   FROM PLCPRDOP P, CC_CSTG CC

   GROUP BY CC.CD_CCUSTO, TO_CHAR(P.DT_HISTORI, 'MM/YYYY')

   ) PERIODO

ON CB.CD_CCUSTO = PERIODO.CD_CCUSTO

 WHERE (

   CB.DT_REFER = (

   SELECT MAX(CC1.DT_REFER)

   FROM CC_BRATE CC1

   WHERE CC1.CD_CCUSTO = PERIODO.CD_CCUSTO

   AND CC1.DT_REFER <= PERIODO.DT_HISTORI

   ) OR CB.DT_REFER IS NULL)

Fatos – Custos Agroindustriais

Custo Primário e Custo de Rateio

SQL Query:

SELECT TO_NUMBER(TO_CHAR(DT_HISTORI, 'MMYYYY') || TO_CHAR(CD_CCUSTO)) CD_RELAC,

  CD_CCUSTO,

  CD_CONTA,

  CD_CCDE,

  DT_HISTORI,

  SUM(VL_CONSUM0) VL_CONSUM0

FROM

   (SELECT P.CD_CCUSTO,

     P.CD_CONTA,

     -1 AS CD_CCDE,

     MAX(P.DT_HISTORI) AS DT_HISTORI,

     SUM(P.VL_DIRE) VL_CONSUM0

   FROM PLCPRIM P  

   WHERE P.FG_PLA_CST = 'C'

   GROUP BY P.CD_CCUSTO,

     P.CD_CONTA,

     TO_CHAR(P.DT_HISTORI, 'MM/YYYY')

   UNION

   SELECT P.CD_CCPARA CD_CCUSTO,

   '-1' AS CD_CONTA,

    P.CD_CCDE,

    MAX(P.DT_HISTORI) AS DT_HISTORI,

    SUM(P.VL_CONSUM) VL_CONSUM0

  FROM PLCRAT P    

  WHERE P.FG_PLA_CST = 'C'

  GROUP BY P.CD_CCPARA,

     P.CD_CCDE,

     TO_CHAR(P.DT_HISTORI, 'MM/YYYY')

   )

 WHERE VL_CONSUM0 != 0

 GROUP BY TO_NUMBER(TO_CHAR(DT_HISTORI, 'MMYYYY') || TO_CHAR(CD_CCUSTO)),

   CD_CCUSTO,

   CD_CONTA,

   CD_CCDE,

   DT_HISTORI

 RDER BY CD_CCUSTO,

   DT_HISTORI

Custo

SQL Query:

SELECT CD_CCUSTO,

   CD_OPERAC,

   CD_COMPO,

   TO_DATE('01/'|| TO_CHAR(DT_HISTORI, 'MM/yyyy'), 'dd/MM/yyyy') DT_HISTORI,

   VL_CONSUM AS VALOR_CONSUMO,

   SUM(QT_CONSUM) AS QT_CONSUMIDA

FROM PLCOPER

WHERE FG_PLA_CST = 'C'

AND CD_OPERAC != 0

AND CD_COMPO != 0

GROUP BY CD_CCUSTO,

  CD_OPERAC,

  CD_COMPO,

  VL_CONSUM,

  TO_CHAR(DT_HISTORI, 'MM/yyyy')

Produção da Operação

SQL Query:

SELECT P.CD_CCUSTO,

  P.CD_OPERAC,

  MAX(P.DT_HISTORI) AS DT_HISTORI,

  SUM(P.QT_PRODUC) QT_PRODUCAO_OPER

 FROM PLCPRDOP P

WHERE P.FG_PLA_CST = 'C'

 AND P.CD_COMPO = 0

 GROUP BY P.CD_CCUSTO,

   P.CD_OPERAC,

   TO_CHAR(P.DT_HISTORI, 'MM/YYYY')

Produção do Componente

SQL Query:

SELECT P.CD_CCUSTO,

  P.CD_OPERAC,

  P.CD_COMPO,

  TO_DATE('01/'|| TO_CHAR(P.DT_HISTORI, 'MM/yyyy'), 'dd/MM/yyyy') AS DT_HISTORI,

  SUM(NVL(P.QT_PRD_INS,0)) QT_PRODUCAO_COMPO

FROM PLCOPER P

INNER JOIN COMPONEN CO ON CO.CD_COMPO = P.CD_COMPO

 WHERE P.FG_PLA_CST = 'C'

 AND P.CD_OPERAC != 0

 AND CO.FG_TP_COMP = 'I'

GROUP BY P.CD_CCUSTO,

  P.CD_OPERAC,

  P.CD_COMPO,

  TO_CHAR(P.DT_HISTORI, 'MM/yyyy')

 UNION

 SELECT P.CD_CCUSTO,

   P.CD_OPERAC,

   P.CD_COMPO,

   TO_DATE('01/'|| TO_CHAR(P.DT_HISTORI, 'MM/yyyy'), 'dd/MM/yyyy') AS DT_HISTORI,

  SUM(NVL(PL.QT_PRODUCAO,0)) QT_PRODUCAO

 FROM (

  (SELECT CD_CCUSTO,

    CD_OPERAC,

    CD_COMPO,

    MAX(DT_HISTORI) AS DT_HISTORI

  FROM PLCOPER

  WHERE FG_PLA_CST = 'C'

   AND CD_OPERAC != 0

   GROUP BY CD_CCUSTO,

     CD_OPERAC,

    CD_COMPO,

     TO_CHAR(DT_HISTORI, 'MM/yyyy')

   ) P INNER JOIN COMPONEN CO ON CO.CD_COMPO = P.CD_COMPO AND CO.FG_TP_COMP != 'I')

 LEFT OUTER JOIN

   (SELECT CD_CCUSTO,

     CD_OPERAC,

     TO_CHAR(DT_HISTORI, 'MM/yyyy') DT_HISTORI,

    SUM(NVL(QT_PRODUC,0)) QT_PRODUCAO

  FROM PLCPRDOP

  WHERE FG_PLA_CST = 'C'

  AND CD_COMPO = 0

  GROUP BY CD_CCUSTO,

    CD_OPERAC,

    TO_CHAR(DT_HISTORI, 'MM/yyyy')

  ) PL

 ON PL.CD_CCUSTO = P.CD_CCUSTO

 AND PL.CD_OPERAC = P.CD_OPERAC

 AND TO_CHAR(P.DT_HISTORI, 'MM/yyyy') = PL.DT_HISTORI

 GROUP BY P.CD_CCUSTO,

   P.CD_OPERAC,

   P.CD_COMPO,

   TO_CHAR(P.DT_HISTORI, 'MM/yyyy')

Produção do Centro de Custo Produtivo

SQL Query:

SELECT TO_NUMBER(TO_CHAR(P.DT_HISTORI, 'MMyyyy') || TO_CHAR(P.CD_CCUSTO)) CD_RELAC,

  P.CD_CCUSTO,

  OP.CD_UNIMED,

  MAX(P.DT_HISTORI) AS DT_HISTORI,

  SUM(P.QT_PRODUC) QT_PRODUCAO

FROM PLCPRDOP P,

  OPERACOES OP

WHERE P.FG_PLA_CST = 'C'

AND P.CD_COMPO = 0

AND (P.INSTANCIA, P.CD_CCUSTO, P.CD_OPERAC) IN

(SELECT INSTANCIA, CD_CCUSTO, CD_OP_PROD FROM CC_PROD)

AND OP.CD_OPERACAO = P.CD_OPERAC

GROUP BY TO_CHAR(P.DT_HISTORI, 'MMyyyy') || TO_CHAR(P.CD_CCUSTO),

  P.CD_CCUSTO,

  OP.CD_UNIMED,

  TO_CHAR(P.DT_HISTORI, 'MM/yyyy')

UNION

SELECT TO_NUMBER(TO_CHAR(TO_DATE('01/' || D.DATA_PROD, 'dd/MM/yyyy'), 'MMyyyy')

|| TO_CHAR(CC.CD_CCUSTO)),

  CC.CD_CCUSTO,

  ' ' CD_UNIMED,

  TO_DATE('01/' || D.DATA_PROD, 'dd/MM/yyyy') DT_HISTORI,

  0 QT_PRODUCAO

FROM CC_CSTG CC,

  (SELECT DISTINCT TO_CHAR(DT_HISTORI, 'MM/yyyy') DATA_PROD

  FROM PLCPRDOP

  WHERE FG_PLA_CST = 'C'

  ) D

WHERE CC.FG_TP_CCUSTO = '1'

AND CC.FG_INTERP = 'S'

AND (CC.CD_CCUSTO, D.DATA_PROD) NOT IN

  (SELECT DISTINCT P.CD_CCUSTO,

    TO_CHAR(P.DT_HISTORI, 'MM/yyyy')

  FROM PLCPRDOP P

  WHERE P.FG_PLA_CST = 'C'

  AND P.CD_COMPO = 0

  AND (P.INSTANCIA, P.CD_CCUSTO, P.CD_OPERAC) IN

(SELECT INSTANCIA, CD_CCUSTO, CD_OP_PROD FROM CC_PROD)

  )

Produção do Centro de Custo Auxiliar

SQL Query:

SELECT TO_NUMBER(TO_CHAR(P.DT_HISTORI, 'MMYYYY') || TO_CHAR(P.CD_CCUSTO)) CD_RELAC,

  P.CD_CCUSTO,

  CO.CD_UNIMED,

  MAX(P.DT_HISTORI) AS DT_HISTORI,

  SUM(QT_CONSUM) CONSUMO,

  SUM(DECODE(CO.FG_TP_COMP, 'Q', QT_CONSUM2, 0)) CONSUMO2

FROM PLCCCEQ P

INNER JOIN COMPONEN CO ON P.CD_COMPO = CO.CD_COMPO

WHERE P.FG_PLA_CST = 'C'

GROUP BY TO_CHAR(P.DT_HISTORI, 'MMYYYY') || TO_CHAR(P.CD_CCUSTO),

  P.CD_CCUSTO,

  CO.CD_UNIMED,

  TO_CHAR(P.DT_HISTORI, 'MM/YYYY')

UNION

SELECT TO_NUMBER(TO_CHAR(TO_DATE('01/' || P.DT_HISTORI, 'DD/MM/YYYY'), 'MMYYYY') ||

TO_CHAR(CC.CD_CCUSTO)) CD_RELAC,

  CC.CD_CCUSTO,

  DECODE(CO.CD_UNIMED, NULL, ' ', CO.CD_UNIMED) CD_UNIMED,

  TO_DATE('01/' || P.DT_HISTORI, 'DD/MM/YYYY') AS DT_HISTORI,

  0 CONSUMO,

  0 CONSUMO2

FROM CC_CSTG CC

LEFT OUTER JOIN COMPONEN CO ON CC.CD_CCUSTO = CO.CD_CCUSTO,

  (SELECT TO_CHAR(P.DT_HISTORI, 'MM/YYYY') DT_HISTORI

  FROM PLCCCEQ P

  WHERE P.FG_PLA_CST = 'C'

  ) P

WHERE CC.FG_TP_CCUSTO = '2'

AND (CC.CD_CCUSTO, P.DT_HISTORI) NOT IN

  (SELECT P.CD_CCUSTO, TO_CHAR(P.DT_HISTORI,'MM/YYYY')

  FROM PLCCCEQ P

  INNER JOIN COMPONEN CO ON P.CD_COMPO = CO.CD_COMPO

  WHERE P.FG_PLA_CST = 'C'

  )

Rateio

SQL Query:

SELECT DT_HISTORI, CD_CCDE, CD_CCPARA, VL_TAXA, VL_CONSUM

FROM PLCRAT

WHERE FG_PLA_CST = 'C' AND FG_FX_VR = 'V'

Fatos – Manutenção de Frota

Curva S de Entressafra

SQL Query:

SELECT INSTANCIA || '***' || CD_SAFRA ID_ENTRES_PER,

  CD_EQUIPTO,

  DATA,

  NVL( SUM( QT_HR_PLAN ), 0 ) QT_HR_PLAN,

  NVL( SUM( QT_HR_REAL ), 0 ) QT_HR_REAL

FROM

  (SELECT MEM.INSTANCIA,

    MEM.CD_SAFRA,

    MEM.CD_EQUIPTO,

    MEM.DT_PREV_EXEC DATA,

    ROUND( NVL( SUM( MEM.HR_FIM_FUNC - MEM.HR_INICIO_FUNC ) * 24, 0 ), 2 ) QT_HR_PLAN,

    NULL QT_HR_REAL

  FROM MNF_MEMCALC_PV_ENTRES MEM

  INNER JOIN ( EQUIPTOS EQU

  INNER JOIN ( MODELOS MOD INNER JOIN GRUOPERATI GRU ON MOD.CD_GRUPO_OP = GRU.CD_GRUPO_OP ) ON EQU.CD_MODELO = MOD.CD_MODELO

  INNER JOIN CATEG_OPER CAT

  ON EQU.CD_CATEG_OPER = CAT.CD_CATEG_OPER )

  ON MEM.CD_EQUIPTO = EQU.CD_EQUIPTO

  WHERE MEM.FG_GRAVADO = 'S'

  AND MEM.NO_OS IS NOT NULL

  GROUP BY MEM.INSTANCIA,

    MEM.CD_SAFRA,

    MEM.CD_EQUIPTO,

    MEM.DT_PREV_EXEC

  UNION ALL

  SELECT MEM.INSTANCIA,

    MEM.CD_SAFRA,

    HE.CD_EQUIPTO,

    DE.DT_OPER_INI DATA,

    NULL QT_HR_PLAN,

    ROUND( NVL( SUM( DE.HR_OPER_FIN - DE.HR_OPER_INI ) * 24, 0 ), 2 ) QT_HR_REAL

  FROM APT_OS_HE HE

  INNER JOIN ( APT_OS_DE DE

  INNER JOIN

    (SELECT MEM.INSTANCIA,

      MEM.CD_SAFRA,

      MEM.NO_OS,

      PL.CD_OPERACAO

    FROM MNF_MEMCALC_PV_ENTRES MEM

    INNER JOIN ( EQUIPTOS EQU

    INNER JOIN ( MODELOS MOD

    INNER JOIN GRUOPERATI GRU

    ON MOD.CD_GRUPO_OP = GRU.CD_GRUPO_OP )

    ON EQU.CD_MODELO = MOD.CD_MODELO

    INNER JOIN CATEG_OPER CAT

    ON EQU.CD_CATEG_OPER = CAT.CD_CATEG_OPER )

    ON MEM.CD_EQUIPTO = EQU.CD_EQUIPTO

    INNER JOIN MNF_PM_ENTRES PL

    ON ( MEM.NO_IDENTIF  = PL.NO_IDENTIF

    AND MEM.NO_SEQ = PL.NO_SEQ )

    WHERE MEM.FG_GRAVADO = 'S'

    AND MEM.NO_OS IS NOT NULL

    GROUP BY MEM.INSTANCIA,

      MEM.CD_SAFRA,

      MEM.NO_OS,

      PL.CD_OPERACAO

    ) MEM ON ( DE.INSTANCIA = MEM.INSTANCIA

  AND DE.NO_BOLETIM = MEM.NO_OS

  AND DE.CD_OPERACAO = MEM.CD_OPERACAO ) ) ON ( HE.INSTANCIA = DE.INSTANCIA

  AND HE.NO_BOLETIM = DE.NO_BOLETIM )

  WHERE HE.FG_OBJETO = '1'

  GROUP BY MEM.INSTANCIA,

    MEM.CD_SAFRA,

    HE.CD_EQUIPTO,

    DE.DT_OPER_INI

  )

GROUP BY INSTANCIA,

  CD_SAFRA,

  CD_EQUIPTO,

  DATA

ORDER BY INSTANCIA,

  CD_SAFRA,

  CD_EQUIPTO,

  DATA

Métrica:

Sumário de Ordem de Serviço

SQL Query:

SELECT INSTANCIA,

  FG_ORIGEM,

  DECODE(FG_ORIGEM, 'I', 'Interna', 'C', 'Campo', 'T', 'Terceiro', 'E', 'Concessionária', NULL) DE_ORIGEM,

  CD_CLASMANU,

  CD_MOTENTR,

  DT_ENTRADA,

  DT_SAIDA,

  COUNT(NO_BOLETIM) QUANTIDADE

FROM APT_OS_HE

GROUP BY INSTANCIA,

  FG_ORIGEM,

  CD_CLASMANU,

  CD_MOTENTR,

  DT_ENTRADA,

  DT_SAIDA

ORDER BY INSTANCIA,

  FG_ORIGEM,

  CD_CLASMANU,

  CD_MOTENTR,

  DT_ENTRADA,

  DT_SAIDA

Métrica:

Índice de Planejamento

SQL Query:

SELECT INSTANCIA,

   CD_EQUIPTO,

   DATA,

   NVL( SUM( QT_OS_TOT ), 0 ) QT_OS_TOT,

  NVL( SUM( QT_OS_PLAN ), 0 ) QT_OS_PLAN

FROM

   (SELECT INSTANCIA,

    CD_EQUIPTO,

    DT_ENTRADA DATA,

    COUNT( NO_BOLETIM ) QT_OS_TOT,

    NULL QT_OS_PLAN

  FROM APT_OS_HE

  WHERE FG_OBJETO = '1'

  GROUP BY INSTANCIA,

    CD_EQUIPTO,

    DT_ENTRADA

  UNION ALL

   SELECT HE.INSTANCIA,

     HE.CD_EQUIPTO,

     HE.DT_ENTRADA DATA,

     NULL QT_OS_TOT,

     COUNT( HE.NO_BOLETIM ) QT_OS_PLAN

   FROM APT_OS_HE HE

  WHERE HE.FG_OBJETO = '1'

   AND HE.CD_CLASMANU =

     (SELECT TO_NUMBER( NVL( TRIM( PAR.VALOR ), 0 ) )

    FROM PARAMETROS PAR

    WHERE PAR.INSTANCIA = HE.INSTANCIA

    AND SECAO = 'MNF_MAN'

    AND ENTRADA = 'CD_CLASMANU_COR_PROG'

     )

  GROUP BY HE.INSTANCIA,

     HE.CD_EQUIPTO,

     HE.DT_ENTRADA

   UNION ALL

   SELECT INSTANCIA,

     CD_EQUIPTO,

    TRUNC( DT_PREV_EXEC ) DATA,

    NULL QT_OS_TOT,

    COUNT( DISTINCT NO_OS ) QT_OS_PLAN

  FROM MNF_PANORAMA

  WHERE NO_OS IS NOT NULL

  GROUP BY INSTANCIA,

    CD_EQUIPTO,

    TRUNC( DT_PREV_EXEC )

  UNION ALL

  SELECT INSTANCIA,

     CD_EQUIPTO,

     MIN( TRUNC( DT_PREV_EXEC ) ) DATA,

     NULL QT_OS_TOT,

    COUNT( DISTINCT NO_OS ) QT_OS_PLAN

  FROM MNF_MEMCALC_PV_ENTRES

  WHERE NO_OS IS NOT NULL

  GROUP BY INSTANCIA,

    CD_EQUIPTO,

     NO_OS

  )

 GROUP BY INSTANCIA,

   CD_EQUIPTO,

   DATA

ORDER BY INSTANCIA,

   CD_EQUIPTO,

  DATA

Métrica:

Dimensões – Processo Industrial

Empresa

SQL Query:

SELECT E.EMP_CODEMP, E.EMP_DESCRIC FROM MSIEMPRE E ORDER BY E.EMP_CODEMP, E.EMP_DESCRIC

Fonte

*FON_STATUS: [A – Ativo]; [I - Inativo]

SQL Query:

SELECT F.EMP_CODEMP || '***' || F.FON_CODIGO ID_PROFONTE,

   F.EMP_CODEMP,

   F.FON_CODIGO,

   F.FON_DESCRI,

   F.FON_ORDEM,

   F.FON_STATUS 

 FROM PROFONTE F

 ORDER BY ID_PROFONTE,

   F.EMP_CODEMP,

   F.FON_CODIGO,

   F.FON_DESCRI,

   F.FON_ORDEM,

   F.FON_STATUS

Subfonte

SQL Query:

SELECT S.EMP_CODEMP || '***' || S.FON_CODIGO || '***' || S.SUF_CODIGO ID_PROSUFON,

  S.EMP_CODEMP || '***' || S.FON_CODIGO ID_PROFONTE,

   S.EMP_CODEMP,

   S.SUF_CODIGO,

   S.SUF_DESCRI

FROM PROSUFON S

ORDER BY ID_PROSUFON,

  ID_PROFONTE,

  S.EMP_CODEMP,

  S.SUF_CODIGO,

  S.SUF_DESCRI

Variável

SQL Query:

SELECT V.EMP_CODEMP || '***' || V.VAR_CODIGO ID_PROVARIA,

  V.EMP_CODEMP || '***' || V.FON_CODIGO ID_PROFONTE,

   V.EMP_CODEMP,

  V.VAR_CODIGO,

  V.VAR_DESCRI

 FROM PROVARIA V

 INNER JOIN PROORREL R ON (R.EMP_CODEMP = V.EMP_CODEMP AND R.VAR_CODIGO = V.VAR_CODIGO)

 WHERE R.REL_CODIGO = '999'

 AND V.VAR_CODIGO != ('00TEXTOREL')

 GROUP BY V.EMP_CODEMP || '***' || V.VAR_CODIGO,

   V.EMP_CODEMP || '***' || V.FON_CODIGO,

  V.EMP_CODEMP,

  V.VAR_CODIGO,

  V.VAR_DESCRI

Fatos – Processo Industrial

Valores de Processo Industrial

 *Identificador da Fonte: EMP_CODEMP "***" FON_CODIGO

 *Identificador da Subfonte: EMP_CODEMP "***" FON_CODIGO "***" SUF_CODIGO

 *Identificador da Variável: EMP_CODEMP "***" VAR_CODIGO

SQL Query:

SELECT G.EMP_CODEMP,

                 G.REL_CODIGO,

                G.ORR_COLUNA,

                G.VAR_CODIGO,

                G.FON_CODIGO,

                G.SUF_CODIGO,

                G.ORR_ORDEM,

                G.GDATA,

 G. LAN_VALOR,

                 G.META

 FROM PROGOODDATA01 G

Package:

CREATE OR REPLACE PACKAGE PK_GOODDATA AS

V_IP VARCHAR2(20) := FIP;

PROCEDURE PR_GOODDATA01(PV_RELATORIO IN VARCHAR2, PD_DATA IN DATE, PN_DIAS IN NUMBER);

PROCEDURE PR_GOODDATA02;

 FUNCTION F_METADIA(PC_EMP_CODEMP IN CHAR, PC_VAR_CODIGO IN CHAR, PC_SUF_CODIGO IN CHAR, PD_DATA IN DATE) RETURN NUMBER;

 END PK_GOODDATA;

CREATE OR REPLACE PACKAGE BODY PK_GOODDATA AS

    PROCEDURE PR_GOODDATA01(PV_RELATORIO IN VARCHAR2, PD_DATA IN DATE, PN_DIAS IN NUMBER) IS

       D_DATAF DATE;

       CURSOR CEMPRESA IS

         SELECT EMP_CODEMP FROM MSIEMPRE ORDER BY EMP_CODEMP;

         RCEMPRESA CEMPRESA%ROWTYPE;

      CURSOR CRELATORIO IS

          SELECT R.EMP_CODEMP,

                 R.REL_CODIGO,

                 R.ORR_COLUNA,

                 R.VAR_CODIGO,

                R.FON_CODIGO,

                 R.SUF_CODIGO,

                 R.ORR_ORDEM,

                 BUSCAMEDREL(R.EMP_CODEMP, D_DATAF, R.VAR_CODIGO, R.SUF_CODIGO,'XXXX') VALOR,

                 F_METADIA(R.EMP_CODEMP, R.VAR_CODIGO, R.SUF_CODIGO, D_DATAF) META

          FROM PROORREL R,

              PROVARIA V

          WHERE R.EMP_CODEMP = V.EMP_CODEMP

         AND R.VAR_CODIGO = V.VAR_CODIGO

          AND V.VAR_TIPOVAR IN ('M','E','C','N')

          AND V.VAR_STATUS = 'A'

          AND R.ORR_INATIVA = 'A'

         AND R.REL_CODIGO = PV_RELATORIO

          AND R.EMP_CODEMP = RCEMPRESA.EMP_CODEMP

          ORDER BY R.ORR_ORDEM;

         RCRELATORIO CRELATORIO%ROWTYPE;

      BEGIN     

          DELETE PROGOODDATA01 WHERE REL_CODIGO = PV_RELATORIO;

          OPEN CEMPRESA;

         LOOP

             FETCH CEMPRESA INTO RCEMPRESA;

             EXIT WHEN CEMPRESA%NOTFOUND;

            D_DATAF := PD_DATA - CASE WHEN PN_DIAS < 0 THEN 0 WHEN PN_DIAS > 100 THEN 0 ELSE PN_DIAS END;

              LOOP

                EXIT WHEN D_DATAF > PD_DATA;

                DELETE PROCALCULO WHERE CAL_IP = V_IP;

               INSERT INTO PROCALCULO

                 (EMP_CODEMP, CAL_IP, CAL_TIPO, CAL_DATA, CAL_HORA, SUF_CODIGO, CAL_DATAF, CAL_PERIODO)

               VALUES

                 (RCEMPRESA.EMP_CODEMP, V_IP, 'C', D_DATAF, 'XXXX', '01', D_DATAF, 'D');

               OPEN CRELATORIO;

                  LOOP

                     FETCH CRELATORIO INTO RCRELATORIO; 

                     EXIT WHEN CRELATORIO%NOTFOUND;

 INSERT INTO PROGOODDATA01

                        (EMP_CODEMP, REL_CODIGO, ORR_COLUNA, VAR_CODIGO, FON_CODIGO, SUF_CODIGO,

                         LAN_VALOR, ORR_ORDEM, GDATA, META)

                      VALUES

                        (RCRELATORIO.EMP_CODEMP, RCRELATORIO.REL_CODIGO, RCRELATORIO.ORR_COLUNA,

                         RCRELATORIO.VAR_CODIGO, RCRELATORIO.FON_CODIGO, RCRELATORIO.SUF_CODIGO,

                         RCRELATORIO.VALOR, RCRELATORIO.ORR_ORDEM, D_DATAF, RCRELATORIO.META);

                   END LOOP;

               CLOSE CRELATORIO;

               D_DATAF := D_DATAF + 1;

             END LOOP;

          END LOOP;

         DELETE PROCALCULO WHERE CAL_IP = V_IP;

          COMMIT;

          CLOSE CEMPRESA;

      EXCEPTION

          WHEN OTHERS THEN BEGIN

             ROLLBACK;

            IF CEMPRESA%ISOPEN THEN

                CLOSE CEMPRESA;

             END IF;

             IF CRELATORIO%ISOPEN THEN

                CLOSE CRELATORIO;

             END IF;

          END;

       END PR_GOODDATA01;

   -- X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X

   PROCEDURE PR_GOODDATA02 IS

       D_DATAF DATE := TO_DATE('02/10/2009','DD/MM/YYYY') - 1;

       N_LAN_VALOR NUMBER(20,8) := 0;

       I NUMBER(2) := 0;

       D_DATAI DATE;

      CURSOR CEMPRESA IS

         SELECT EMP_CODEMP FROM MSIEMPRE ORDER BY EMP_CODEMP;

         RCEMPRESA CEMPRESA%ROWTYPE;

      BEGIN

          DELETE PROGOODDATA02;

          OPEN CEMPRESA;

         LOOP

             FETCH CEMPRESA INTO RCEMPRESA;

             EXIT WHEN CEMPRESA%NOTFOUND;

             D_DATAI := D_DATAF - 10;

             WHILE D_DATAI <= D_DATAF LOOP

                DELETE PROCALCULO WHERE CAL_IP = V_IP;

                 INSERT INTO PROCALCULO

                  (EMP_CODEMP, CAL_IP, CAL_TIPO, CAL_DATA, CAL_HORA, SUF_CODIGO, CAL_DATAF, CAL_PERIODO)

                VALUES

                  (RCEMPRESA.EMP_CODEMP, V_IP, 'C', D_DATAI, 'XXXX', '01', D_DATAI, 'D');

               SELECT BUSCAMEDREL(RCEMPRESA.EMP_CODEMP, D_DATAI, '000CANMOI1', '01','XXXX')

                INTO N_LAN_VALOR FROM DUAL;

               INSERT INTO PROGOODDATA02 (EMP_CODEMP, VAR_CODIGO, LAN_DATA, LAN_VALOR)

               VALUES(RCEMPRESA.EMP_CODEMP, '000CANMOI1', D_DATAI, NVL(N_LAN_VALOR,0));

                D_DATAI := D_DATAI + 1;

            END LOOP;

         END LOOP;

         COMMIT;

         CLOSE CEMPRESA;

      EXCEPTION

         WHEN OTHERS THEN BEGIN

            ROLLBACK;

            IF CEMPRESA%ISOPEN THEN

               CLOSE CEMPRESA;

            END IF;

         END;

      END PR_GOODDATA02;

      -- X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X

      FUNCTION F_METADIA(PC_EMP_CODEMP IN CHAR, PC_VAR_CODIGO IN CHAR, PC_SUF_CODIGO IN CHAR, PD_DATA IN DATE) RETURN NUMBER IS

         NRET NUMBER := 0;

         CURSOR CMETA IS

            SELECT NVL(DIA_DIARIO, 0) META_DIA

              FROM PRODIAGNOSTICO

             WHERE EMP_CODEMP = PC_EMP_CODEMP

               AND VAR_CODIGO = LPAD(PC_VAR_CODIGO,10,'0')

               AND SUF_CODIGO = PC_SUF_CODIGO

               AND DIA_DATA = (SELECT MAX(DIA_DATA)

                                 FROM PRODIAGNOSTICO

                                 WHERE EMP_CODEMP = PC_EMP_CODEMP

                                 AND VAR_CODIGO = LPAD(PC_VAR_CODIGO,10,'0')

                                 AND SUF_CODIGO = PC_SUF_CODIGO

                                 AND DIA_DATA  <= PD_DATA);

            RCMETA CMETA%ROWTYPE;

      BEGIN

         OPEN CMETA;

         FETCH CMETA INTO RCMETA;

         IF CMETA%FOUND THEN

            NRET := RCMETA.META_DIA;

         END IF;

         CLOSE CMETA;

         RETURN NRET;

      EXCEPTION

         WHEN OTHERS THEN BEGIN

            IF CMETA%ISOPEN THEN

               CLOSE CMETA;

            END IF;

            RETURN NRET;

         END;

      END F_METADIA;

END PK_GOODDATA;

Parâmetros:

O arquivo “parametrosfatovaloresprocessoindustrial.prm” contêm os parâmetros:

• CODIGO_RELATORIO: Parâmetro responsável por definir o código do relatório do processo industrial a ser executado.

• QUANTIDADE_DIAS_ANTERIORES: Parâmetro responsável por definir a quantidade de dias anteriores à data atual o relatório do processo industrial deve carregar.

DB Execute:

Executa a procedure  “PR_GOODDATA01” pertencente ao pacote “PK_GOODDATA” passando como parâmetros o código do relatório (${CODIGO_RELATORIO}), a data atual (SYSDATE)e a quantidade de dias anteriores a data atual (${QUANTIDADE_DIAS_ANTERIORES}), para carregar os dados para a fato de valores de processo industrial.

CALL PK_GOODDATA.PR_GOODDATA01 (

${CODIGO_RELATORIO},

SYSDATE,

${QUANTIDADE_DIAS_ANTERIORES}

)

Dimensões – Manutenção Industrial

Empresa

SQL Query:

SELECT E.EMP_CODEMP, E.EMP_DESCRIC FROM MCPEMPRE E ORDER BY E.EMP_CODEMP, E.EMP_DESCRIC

Setor

SQL Query:

SELECT S.SET_CODSET, S.SET_DESSET FROM MCPSETOR S ORDER BY S.SET_CODSET, S.SET_DESSET

Área

SQL Query:

SELECT A.SET_CODSET || '***' || A.ARE_CODIGO ID_AREA, A.ARE_CODIGO, A.ARE_DESCRI

FROM MCPAREA A

ORDER BY ID_AREA, A.ARE_CODIGO, A.ARE_DESCRI

Causa

SQL Query:

SELECT C.CAU_CODIGO, C.CAU_DESCRI FROM MCPCAUSA C ORDER BY C.CAU_CODIGO, C.CAU_DESCRI

Equipamento

SQL Query:

SELECT E.ID_EQPTO, E.EQP_CODEQP, E.EQP_DESCRI

FROM MCPEQPTO E

ORDER BY E.ID_EQPTO, E.EQP_CODEQP, E.EQP_DESCRI

Conjunto

SQL Query:

SELECT C.ID_CONJU, C.CON_CODIGO, C.CON_DESCRI

FROM MCPCONJUNTO C

ORDER BY C.ID_CONJU, C.CON_CODIGO, C.CON_DESCRI

Subconjunto

            * Identificador do Conjunto: [ID_CONJU || '***' || ID_SUBCONJU]

SQL Query:

SELECT S.ID_CONJU || '***' || S.ID_SUBCONJU ID_SUBCONJU, S.SUB_DESCRI

FROM MCPSUBCONJUNTO S

ORDER BY ID_CONJU, S.SUB_DESCRI

Modalidade de Equipe

SQL Query:

SELECT M.MOD_CODMOD, M.MOD_DESMOD FROM MCPMODAL M ORDER BY M.MOD_CODMOD, M.MOD_DESMOD

Modalidade de Defeito

SQL Query:

SELECT M.MOD_CODMODDEF, M.MOD_DESMODI FROM MCPMODALDEF M ORDER BY M.MOD_CODMODDEF, M.MOD_DESMODI

Modalidade de Manutenção Preventiva

            SQL Query:

SELECT M.MOD_CODMODPER, M.MOD_DESMOD

FROM MCPMODPERIOD M

ORDER BY M.MOD_CODMODPER, M.MOD_DESMOD

Ordem de Serviço

            *Tipo de Ordem de Serviço: [R – Registro de Serviços]; [P - Preventiva e Preditiva]; [M-Manutenção Corretiva];

[X – Serviços Externos]; [E - Entressafra];

*Status da Ordem de Serviço: [4 – Encerrada]; [5 -Cancelada]; [ != 4 e != 5 - Pendente];

SQL Query:

SELECT O.EMP_CODEMP || '***' || O.ORD_CODOS ID_ORDEM,

O.ORD_CODOS, O.ORD_DESCRI, O.ORD_TIPO, O.ORD_STATUS

FROM MCPORDEM O

ORDER BY O.EMP_CODEMP, O.ORD_CODOS, O.ORD_DESCRI, O.ORD_TIPO, O.ORD_STATUS

Defeito

SQL Query:

SELECT D.DEF_CODIGO, D.DEF_DESCRICAO FROM MCPDEFEITO D ORDER BY D.DEF_CODIGO, D.DEF_DESCRICAO

Funcionário

SQL Query:

SELECT F.ID_FUNCI,

  F.FUN_NOME,

  F.FUN_CRACHA 

FROM MCPFUNCI F

INNER JOIN MCPMOGASTA G ON (G.EMP_CODEMP = F.EMP_CODEMP AND G.ID_FUNCI = F.ID_FUNCI)

GROUP BY F.ID_FUNCI, F.FUN_NOME, F.FUN_CRACHA

ORDER BY F.FUN_NOME

Equipe

* EQU_STATUS: [1 – Ativa]; [0 - Inativa];

* EQU_ATUA: [S - Safra]; [E - Entressafra]

SQL Query:

SELECT E.ID_EQUIPE,

  E.EQU_CODIGO,

  E.EQU_DESCRI,

  DECODE ( E.EQU_STATUS, 0, 'Inativa', 1, 'Ativa') EQU_STATUS,

  DECODE ( E.EQU_ATUA,'S', 'Safra', 'E', 'Entressafra', ' ') EQU_ATUA

FROM MCPEQUIPE E

ORDER BY E.EQU_CODIGO

Conta

* ID_CONTA: C.EMP_CODEMP || '***' || C.CAL_SAFRA || '***' || C.ID_CONTA;

SQL Query:

SELECT C.EMP_CODEMP || '***' || C.CAL_SAFRA || '***' || C.ID_CONTA ID_CONTA,

  C.CON_CONTA,

  C.CON_DESCRI

FROM MCPCONTA C

ORDER BY ID_CONTA,

  C.CON_CONTA,

  C.CON_DESCRI

Subcusto

SQL Query:

SELECT SC.ID_SCUSTO, SC.SUB_CODIGO, SC.SUB_DESCRI

FROM MCPSUBCUSTO SC

ORDER BY SC.SUB_CODIGO, SC.SUB_DESCRI

Lubrificante

SQL Query:

SELECT DISTINCT M.MAT_CODIGO,

  M.MAT_DESCRI,

  NVL (M.UNM_CODUNM, 'N/A') UNM_CODUNM

FROM MCPMATERIAL M

INNER JOIN VW_RELCONSLUB VW on (VW.MAT_CODIGO = M.MAT_CODIGO)

ORDER BY M.MAT_CODIGO, M.MAT_DESCRI, UNM_CODUNM

M.I.S. (Máquina, Instalação e Sistema)

SQL Query:

SELECT M.ID_MIS, M.MIS_CODIGO, M.MIS_DESCRI

FROM MCPMIS M

ORDER BY M.MIS_CODIGO, M.MIS_DESCRI

Fatos – Manutenção Industrial

Disponibilidade de Funcionário

SQL Query:

SELECT F.EMP_CODEMP,

  F.ID_FUNCI,

  TRUNC ( NVL ( ( SUM(MOG_MINUTO) / 60 ), '0') / NVL( FDISPMOPERFUNCI ( F.ID_FUNCI, TO_DATE (

    ( SELECT DISTINCT S.CAL_INIANOSAFRA

      FROM MCPCALENSAFRA S

      WHERE S.CAL_SAFRA = (SELECT MAX (CAL_SAFRA) FROM MCPCALENSAFRA)

    ), 'DD/MM/YYYY'),

  SYSDATE

  ), '0') * 100 , 0) "%APROV"

FROM MCPMOGASTA G

INNER JOIN MCPFUNCI F ON (F.ID_FUNCI = G.ID_FUNCI)

LEFT JOIN MCPEQUIPE E ON (E.ID_EQUIPE = G.ID_EQUIPE)

LEFT JOIN MCPMODAL M ON (M.MOD_CODMOD = E.MOD_CODMOD)

INNER JOIN MCPORDEM O ON (O.EMP_CODEMP = G.EMP_CODEMP AND O.ORD_CODOS = G.ORD_CODOS)

LEFT JOIN MCPSUBCUSTO SC ON (SC.ID_SCUSTO = O.ID_SCUSTO)

WHERE E.MOD_CODMOD IS NOT NULL

AND G.MOG_DATA >= TO_DATE (

  (

    SELECT DISTINCT S.CAL_INIANOSAFRA

    FROM MCPCALENSAFRA S

    WHERE S.CAL_SAFRA = (SELECT MAX (CAL_SAFRA) FROM MCPCALENSAFRA)

  ), 'DD/MM/YYYY')

AND G.MOG_DATA <= SYSDATE

GROUP BY F.EMP_CODEMP,

  F.ID_FUNCI,

  F.FUN_CRACHA,

  F.FUN_NOME,

  F.FUN_TIPO

ORDER BY F.EMP_CODEMP,

  F.ID_FUNCI

Backlog de Equipe

SQL Query:

SELECT EMP_CODEMP,

  ID_EQUIPE,

  MOD_CODMOD,

  FBACKLOGDIA(EMP_CODEMP, RECURSO, SUM(NHH * (100 - NPROGRESSO) / 100)) BACKLOG

FROM

  (SELECT O.EMP_CODEMP,

    E.MOD_CODMOD,

    E.ID_EQUIPE,

    E.EQU_ATUA,

    FRECURSO(O.ID_EQUIPE) RECURSO,

    (FHORCENT(O.SER_DURPREV) * O.SER_NUMPESSOAS) NHH,

    FPROGRESSO(O.ID_SEROS, O.SER_DURPREV, O.SER_NUMPESSOAS, O.SER_STATUS) NPROGRESSO

  FROM MCPSEORD O

  INNER JOIN MCPEQUIPE E ON (E.ID_EQUIPE = O.ID_EQUIPE)

  INNER JOIN MCPMODAL M ON (M.MOD_CODMOD   = E.MOD_CODMOD)

  WHERE E.EQU_STATUS = '1'

  AND O.SER_STATUS < '4'

  )

GROUP BY EMP_CODEMP,

  ID_EQUIPE,

  MOD_CODMOD,

  RECURSO,

  EQU_ATUA

ORDER BY EMP_CODEMP,

  ID_EQUIPE,

  BACKLOG

Backlog de Modalidade de Equipe