SELECT CodigoProduto,DescProduto
FROM tblProdVendido where CodigoVenda=503 and situacao in ('Gravado','IncluidoCupom')
group by CodigoProduto, DescProduto
except
SELECT CodigoProduto,DescProduto
FROM tblPagamentoParcial where CodigoVenda=503 and situacao in ('Pago')
group by CodigoProduto, DescProduto


SELECT CodigoProduto,DescProduto, ValorUnitario,sum(QuantProduto / 2)as QuantProduto, sum(ValorTotal / 2) as ValorTotal
FROM tblProdVendido where CodigoVenda=503 and CodigoProduto in('312','84') and situacao in ('Gravado','IncluidoCupom')
group by CodigoProduto, DescProduto, ValorUnitario


Select
  TA.CodigoProduto,
  TA.DescProduto,TA.ValorUnitario,
  Quant = IsNull(TS.QuantSaidaTotal, 0) - IsNull(TA.QuantEntradaTotal, 0),
  valor = IsNull(TS.valorAReceber, 0) - IsNull(TA.valorPagoParcial, 0)
From (Select CodigoProduto, DescProduto, ValorUnitario=(VrUnit),
QuantEntradaTotal = SUM(QuantProduto / 2),
  valorPagoParcial = SUM(VrTotal / 2)
   From tblPagamentoParcial where CodigoVenda=503 and situacao in ('Pago') 
   Group by CodigoProduto, DescProduto, VrUnit) TA Left Join
  (Select CodigoProduto, DescProduto,ValorUnitario=(ValorUnitario), 
  QuantSaidaTotal   = SUM(QuantProduto /2),
  valorAReceber = SUM(ValorTotal / 2)
     From tblProdVendido where CodigoVenda=503 and situacao in ('Gravado','IncluidoCupom') 
     Group by CodigoProduto, DescProduto, ValorUnitario) TS
  on (TS.CodigoProduto = TA.CodigoProduto)
  
SELECT CodigoProduto,DescProduto
        FROM tblProdVendido where CodigoVenda = '" & lblNumeroVenda.Text & "' and situacao in ('Gravado','IncluidoCupom')
        group by CodigoProduto, DescProduto
        except
        SELECT CodigoProduto,DescProduto
        FROM tblPagamentoParcial where CodigoVenda = '" & lblNumeroVenda.Text & "' and situacao in ('Pago')
        group by CodigoProduto, DescProduto