drop view VIEWPEDIDODOC;

create view VIEWPEDIDODOC( CODIGOEMP, CODIGOUNIDADE, PEDIDO, TIPOCLIENTE, CODIGOCLIENTE, REPRESENTANTE, CONDPAG, PERCDESC, DATAPREV, LINHA, TIPOITEM, DESTINOITEM, CODITEM, APLICACAO, CATEGORIA, PARCELA, STATUSPAR, PERCCOMIS, MOEDA, EMABERTO) AS 
   SELECT 
      VNDAPECD.APECD_EMPRESA,
      VNDAPECD.APECD_UNIDADE,
      VNDAPECD.APECD_PEDIDO,
      VNDAPECD.APECD_TIPO_CLI,
      VNDAPECD.APECD_CLIENTE,
      VNDAPECD.APECD_REPRE,
      VNDAPECD.APECD_COND_PGTO,
      VNDAPECD.APECD_DESCONTO,
      VNDAPEPC.APEPC_DATA_PREV,
      VNDAPEIT.APEIT_LINHA,
      CSTADCIT.ADCIT_TIPO_ITEM, 
      CSTADCIT.ADCIT_DESTINO, 
      VNDADFIT.ADFIT_COD_ITEM, 
      VNDAPEIT.APEIT_APLICACAO, 
      GRLAFAVE.AFAVE_DESEMBOLSO,
      VNDAPEPC.APEPC_PARCELA,
      VNDAPEPC.APEPC_STATUS,
      VNDAPEPC.APEPC_PERC_COMI,
      VNDAPEPC.APEPC_MOEDA, 
     ((VNDAPEPC.APEPC_QTD_PEDIDA-VNDAPEPC.APEPC_QTD_ENTREGUE)*
      (VNDAPEPC.APEPC_VALOR_ENC-VNDAPEPC.APEPC_VLR_DESCONTO)) AS EMABERTO 
   FROM  VNDAPEPC, VNDAPEIT, VNDAPECD, VNDADFIT, GRLAFAVE, CSTADCIT, INFOCREDCFT, SITUACAOCRED
   WHERE VNDAPECD.APECD_EMPRESA = VNDAPEPC.APEPC_EMPRESA AND
         VNDAPECD.APECD_UNIDADE = VNDAPEPC.APEPC_UNIDADE AND
         VNDAPECD.APECD_PEDIDO  = VNDAPEPC.APEPC_PEDIDO AND 
         VNDAPEIT.APEIT_EMPRESA = VNDAPEPC.APEPC_EMPRESA AND
         VNDAPEIT.APEIT_UNIDADE = VNDAPEPC.APEPC_UNIDADE AND
         VNDAPEIT.APEIT_PEDIDO  = VNDAPEPC.APEPC_PEDIDO AND 
         VNDAPEIT.APEIT_LINHA   = VNDAPEPC.APEPC_LINHA AND 
         VNDAPEIT.APEIT_COD_ITEM  = VNDADFIT.ADFIT_COD_ITEM AND
         VNDADFIT.ADFIT_FAM_VENDA = GRLAFAVE.AFAVE_CODIGO AND
         CSTADCIT.ADCIT_EMPRESA = VNDAPEIT.APEIT_EMPRESA AND
         CSTADCIT.ADCIT_UNIDADE = VNDAPEIT.APEIT_UNIDADE AND
         CSTADCIT.ADCIT_COD_ITEM  = VNDAPEIT.APEIT_COD_ITEM AND 
         VNDAPEPC.APEPC_STATUS    <> 'C' AND         
         VNDAPEPC.APEPC_STATUS    <> 'E' AND  
         VNDAPEPC.APEPC_DATA_CANCEL = '00000000'  AND
        (VNDAPEPC.APEPC_QTD_PEDIDA-VNDAPEPC.APEPC_QTD_ENTREGUE) > 0 AND
         INFOCREDCFT.TIPOEMPRESA   =  VNDAPECD.APECD_TIPO_CLI AND
         INFOCREDCFT.CODIGOEMPRESA =  VNDAPECD.APECD_CLIENTE AND
         INFOCREDCFT.SITUACAOCRED  = SITUACAOCRED.CODIGO AND
         SITUACAOCRED.PERMITENFF   = 'S' AND
         EXISTS (SELECT * FROM UNIDADE WHERE
             UNIDADE.CODIGOEMP = VNDAPECD.APECD_EMPRESA AND
             UNIDADE.CODIGO = VNDAPECD.APECD_UNIDADE) AND
         EXISTS (SELECT * FROM CATEGORIA WHERE
             CATEGORIA.CODIGO = GRLAFAVE.AFAVE_DESEMBOLSO AND
             CATEGORIA.GRUPO = 'R') AND
         NOT EXISTS (SELECT * FROM VNDAPEEV WHERE
             VNDAPEEV.APEEV_EMPRESA = VNDAPECD.APECD_EMPRESA AND
             VNDAPEEV.APEEV_UNIDADE = VNDAPECD.APECD_UNIDADE AND
             VNDAPEEV.APEEV_PEDIDO  = VNDAPECD.APECD_PEDIDO );

COMMENT ON VIEW VIEWPEDIDODOC IS "Pedidos de Venda para gerao de Titulo a Receber";