/*
-- ========================================================================== --
-- SUBGRUSEMA
-- ========================================================================== --
*/
CREATE OR REPLACE VIEW SUBGRUSEMA(CDFILIAL,CDCIA,CDMANCIA,CDSERVICO,CDCLASSE,
                                  CDCICLO,CDSUBGRU,TXCOMSUMA,
                                  VRPELOADSUMA,NRORDSUMA,DTAPRESUMA,
                                  DSPELOADSUMA,NMFOTOSUMA,/*NMFTSUBMOMA,*/
                                  CDSUBGRUPRI,DTEFETSUMA,DTREVISUMA, DSSUBGRUPO,
                                  /* campos novos */
                                  DSSUBGRU,CDSUBARV,DSSERVICO,IDSERVICO,
                                  DSSUBGRUES,DSSUBGRUIN,
                                  /* chave COMPPROD */
                                  CDPRODUTO,CDESPEPROD,CDTIPOCOMP,CDPRODINSUMO,
                                  CDOPERADOR,CDSETORRES,DTVALESPEPRO,CDESPEPRODSG
)
AS
SELECT EP.CDFILIAL,P1.CDCIA,EP.CDMANCIA,CP.CDPRODUTO,P1.CDCLASSE,
       P1.CDCICLO,CP.CDPRODINSUMO,CP.TXCOMITCOMP,
       CP.VRLOADCOMP,CP.NRORDCOMP,EP.DTAPRESENTA,
       CP.DSLOADCOMP,EP.NMFOTOESP,
       EP.CDPRODUTOPRI,EP.DTEFETIVA,EP.DTREVISAO, NVL(EP.DSSUBGRUPO, P2.NMPRODUTO) DSSUBGRUPO,
       /* campos novos */
       P2.NMPRODUTO,P2.CDARVPROD,P1.NMPRODUTO,P1.IDSERVICO,
       P2.NMPRODESPANH,P2.NMPRODINGLES,
       /* chave COMPPROD */
       CP.CDPRODUTO,CP.CDESPEPROD,CP.CDTIPOCOMP,CP.CDPRODINSUMO,
       EP.CDOPERADOR,P2.CDSETOR,EP.DTVALESPEPRO,CP.CDESPPRODAUX
FROM COMPPROD CP, ESPEPROD EP, TCOMPPRO TC, PRODUTO P1, PRODUTO P2
WHERE (EP.CDPRODUTO    = CP.CDPRODUTOAUX) AND
      (EP.CDESPEPROD   = CP.CDESPPRODAUX) AND
      (EP.IDTPMANUAL   = 'M'            ) AND
      --(EP.IDCOMPPADRAO = 'P'            ) AND
      (TC.CDPRODUTO    = CP.CDPRODUTO   ) AND
      (TC.CDESPEPROD   = CP.CDESPEPROD  ) AND
      (TC.CDTIPOCOMP   = CP.CDTIPOCOMP  ) AND
      (TC.IDTCOMPPROC  = 'S'            ) AND
      (P1.CDPRODUTO    = CP.CDPRODUTO   ) AND
      (P1.IDPRODCOMISS = '1'            ) AND
      (P2.CDPRODUTO    = CP.CDPRODINSUMO) AND
      (P2.IDPRODCOMISS = '2'            )
/

-- VERSAO --
BEGIN ATUVEROBJ('SUBGRUSEMA','4.11.126'); END;
/

