
DROP VIEW VIEWPEDIDOCLI;

create view VIEWPEDIDOCLI( CODIGOEMP, CODIGOUNIDADE, PEDIDO, TIPOCLIENTE, CODIGOCLIENTE, STATUSPAR, EMABERTO, EMATRASO, MOEDA) AS 
   SELECT 
      VNDAPECD.APECD_EMPRESA AS CODIGOEMP,
      VNDAPECD.APECD_UNIDADE AS CODIGOUNIDADE,
      VNDAPECD.APECD_PEDIDO,
      VNDAPECD.APECD_TIPO_CLI AS TIPOCLIENTE,
      VNDAPECD.APECD_CLIENTE AS CODIGOCLIENTE,
      VNDAPEPC.APEPC_STATUS AS STATUSPAR,
      SUM((VNDAPEPC.APEPC_QTD_PEDIDA-VNDAPEPC.APEPC_QTD_ENTREGUE)*
          (VNDAPEPC.APEPC_VALOR_ENC-VNDAPEPC.APEPC_VLR_DESCONTO)) AS EMABERTO,
      0 AS EMATRASO,
      VNDAPEPC.APEPC_MOEDA AS MOEDA
   FROM  VNDAPEPC, VNDAPECD
   WHERE VNDAPECD.APECD_EMPRESA = VNDAPEPC.APEPC_EMPRESA AND
         VNDAPECD.APECD_UNIDADE = VNDAPEPC.APEPC_UNIDADE AND
         VNDAPECD.APECD_PEDIDO  = VNDAPEPC.APEPC_PEDIDO AND 
          (NOW(*) - CAST (VNDAPEPC.APEPC_DATA_PREV AS DATETIME) ) < 1 AND 
         VNDAPEPC.APEPC_STATUS <> 'C'  AND 
        (VNDAPEPC.APEPC_QTD_PEDIDA-VNDAPEPC.APEPC_QTD_ENTREGUE) > 0
   GROUP BY VNDAPECD.APECD_EMPRESA, VNDAPECD.APECD_UNIDADE, 
                           VNDAPECD.APECD_PEDIDO, VNDAPECD.APECD_TIPO_CLI, 
                           VNDAPECD.APECD_CLIENTE, VNDAPEPC.APEPC_STATUS, VNDAPEPC.APEPC_MOEDA
   UNION ALL
   SELECT 
      VNDAPECD.APECD_EMPRESA AS CODIGOEMP,
      VNDAPECD.APECD_UNIDADE AS CODIGOUNIDADE,
      VNDAPECD.APECD_PEDIDO,
      VNDAPECD.APECD_TIPO_CLI AS TIPOCLIENTE,
      VNDAPECD.APECD_CLIENTE AS CODIGOCLIENTE,
      VNDAPEPC.APEPC_STATUS AS STATUSPAR,
      0 AS EMABERTO,
      SUM((VNDAPEPC.APEPC_QTD_PEDIDA-VNDAPEPC.APEPC_QTD_ENTREGUE)*
          (VNDAPEPC.APEPC_VALOR_ENC-VNDAPEPC.APEPC_VLR_DESCONTO)) AS EMATRASO,
      VNDAPEPC.APEPC_MOEDA AS MOEDA
   FROM  VNDAPEPC, VNDAPECD
   WHERE VNDAPECD.APECD_EMPRESA = VNDAPEPC.APEPC_EMPRESA AND
         VNDAPECD.APECD_UNIDADE = VNDAPEPC.APEPC_UNIDADE AND
         VNDAPECD.APECD_PEDIDO  = VNDAPEPC.APEPC_PEDIDO AND 
          (NOW(*) - CAST (VNDAPEPC.APEPC_DATA_PREV AS DATETIME) ) >= 1 AND
         VNDAPEPC.APEPC_STATUS <> 'C' AND 
        (VNDAPEPC.APEPC_QTD_PEDIDA-VNDAPEPC.APEPC_QTD_ENTREGUE) > 0
   GROUP BY VNDAPECD.APECD_EMPRESA, VNDAPECD.APECD_UNIDADE, 
                           VNDAPECD.APECD_PEDIDO, VNDAPECD.APECD_TIPO_CLI, 
                           VNDAPECD.APECD_CLIENTE, VNDAPEPC.APEPC_STATUS, VNDAPEPC.APEPC_MOEDA;

COMMENT ON VIEW VIEWPEDIDOCLI IS "Valor Previsto/Atraso em Pedidos por Empresa, Unidade, Tipo(C/F/R/T), CodigoEmpresa";