if (:ACAO IN ('ABRIR','C','CANCELAR','CT','CANCELARTUDO')) then
   begin
       -- ESTORNAR ESTOQUE  --
        for select vendas_itens.idproduto,  SUM(vendas_itens.quantidade) as QTDE from vendas_itens where vendas_itens.codigo=:NVENDA group by vendas_itens.idproduto
          into :FIDPRODUTO,  :FQTDE do
        begin
         UPDATE CAD_PRODUTOS SET CAD_PRODUTOS.ESTOQUESALDO=CAD_PRODUTOS.ESTOQUESALDO + :FQTDE
         WHERE
           CAD_PRODUTOS.EMPRESA=:NEMPRESA
         AND
           CAD_PRODUTOS.CODIGO=:FIDPRODUTO;
        end

        ------------------------------------------------------------------------
        --  DELETAR LAN?AMENTO NO CAIXA (caso exista)
        ------------------------------------------------------------------------
       delete from ctrl_caixa
       where
          ctrl_caixa.documento='VNB-' || cast(:NVENDA as varchar(30))
       and
          ctrl_caixa.data=(select  FIRST 1 EMISSAO            from vendas       where  codigo=:NVENDA);


       ------------------------------------------------------------------------
       --  DELETAR DO CONTAS A RECEBER
       ------------------------------------------------------------------------
       delete from FIN_CTARECEBER
       where
          FIN_CTARECEBER.NOTAFISCAL=(select  FIRST 1 NOTAFISCAL from vendas       where  codigo=:NVENDA)
       and
          FIN_CTARECEBER.cliente=(select  FIRST 1 cliente    from vendas       where  codigo=:NVENDA)
       and
          FIN_CTARECEBER.data=(select  FIRST 1 EMISSAO       from vendas       where  codigo=:NVENDA);


       ------------------------------------------------------------------------
       --  REABRIR PEDIDO
       ------------------------------------------------------------------------
       update PEDIDOS set STATUS='N'
       where
          CODIGO=(select  FIRST 1 PEDIDO from vendas       where  codigo=:NVENDA)   and   CODIGO>0;

       ------------------------------------------------------------------------
       --  DELETAR COMISS?O DO CONTAS A PAGAR
       ------------------------------------------------------------------------
       delete from FIN_CTAPAGAR
       where
          FIN_CTAPAGAR.NOTAFISCAL=(select  FIRST 1 NOTAFISCAL from vendas       where  codigo=:NVENDA)
       and
          FIN_CTAPAGAR.FORNECEDOR=(select  FIRST 1 VENDEDOR    from vendas       where  codigo=:NVENDA);


      ------------------------------------------------------------------------
      --  DELETAR COMISS?O DO CONTAS A PAGAR
      ------------------------------------------------------------------------
      delete from FIN_COMISSOES
      where
         FIN_COMISSOES.EMPRESA=:NEMPRESA
      and
         FIN_COMISSOES.NOTAFISCAL=(select  FIRST 1 NOTAFISCAL  from vendas       where  codigo=:NVENDA)
      and
         FIN_COMISSOES.VENDEDOR=(select    FIRST 1 VENDEDOR    from vendas       where  codigo=:NVENDA)
      and
         FIN_COMISSOES.CLIENTE=(select     FIRST 1 CLIENTE     from vendas       where  codigo=:NVENDA);

       ------------------------------------------------------------------------
       -- INFORMAR "C=CANCELADO" NA VENDA
       ------------------------------------------------------------------------
       update VENDAS set STATUS='C',
                         VLR_RECEBIDO=0,
                         VLR_CAIXA=0
      where
          CODIGO=:NVENDA;

   end -- if (:ACAO IN ('C','CANCELAR'))
   ------------------------------------------------------------------------
   -- EXCLUIR VENDA
   ------------------------------------------------------------------------
   if (:ACAO='EXCLUIR') then
   begin

       ------------------------------------------------------------------------
       -- DELETAR LAN?AMENTO NO CAIXA (caso exista)
       ------------------------------------------------------------------------
      delete from ctrl_caixa
      where
         ctrl_caixa.documento='VNB-' || cast(:NVENDA as varchar(30))
         and
         ctrl_caixa.data=(select  FIRST 1 EMISSAO            from vendas       where  codigo=:NVENDA);

      ------------------------------------------------------------------------
      -- DELETAR DO CONTAS A RECEBER
      ------------------------------------------------------------------------
      delete from FIN_CTARECEBER
      where
         FIN_CTARECEBER.NOTAFISCAL=(select  FIRST 1 NOTAFISCAL from vendas       where  codigo=:NVENDA)
         and
         FIN_CTARECEBER.cliente=(select  FIRST 1 cliente    from vendas       where  codigo=:NVENDA)
         and
         FIN_CTARECEBER.data=(select  FIRST 1 EMISSAO       from vendas       where  codigo=:NVENDA);


      ------------------------------------------------------------------------
      --  REABRIR PEDIDO
      ------------------------------------------------------------------------
      update PEDIDOS set STATUS='N'
      where
         CODIGO=(select  FIRST 1 PEDIDO from vendas       where  codigo=:NVENDA)
      and
         CODIGO>0;



      ------------------------------------------------------------------------
      --  DELETAR COMISS?O DO CONTAS A PAGAR
      ------------------------------------------------------------------------
      delete from FIN_CTAPAGAR
      where
         FIN_CTAPAGAR.NOTAFISCAL=(select  FIRST 1 NOTAFISCAL from vendas       where  codigo=:NVENDA)
         and
         FIN_CTAPAGAR.FORNECEDOR=(select  FIRST 1 VENDEDOR    from vendas       where  codigo=:NVENDA);


      ------------------------------------------------------------------------
      --  DELETAR COMISS?O DO CONTAS A PAGAR
      ------------------------------------------------------------------------
      delete from FIN_COMISSOES
      where
         FIN_COMISSOES.EMPRESA=:NEMPRESA
      and
         FIN_COMISSOES.NOTAFISCAL=(select  FIRST 1 NOTAFISCAL  from vendas       where  codigo=:NVENDA)
      and
         FIN_COMISSOES.VENDEDOR=(select    FIRST 1 VENDEDOR    from vendas       where  codigo=:NVENDA)
      and
         FIN_COMISSOES.CLIENTE=(select     FIRST 1 CLIENTE     from vendas       where  codigo=:NVENDA);


      ------------------------------------------------------------------------
      -- REABRIR VENDA
      ------------------------------------------------------------------------
      delete from  VENDAS
      where
         CODIGO=:NVENDA;