Quantidade de Notas de Vendas faturadas de um Pedido de Vendas

SELECT DISTINCT
  CAB.NUNOTA AS PEDIDO,
--QUANTIDADE DE NOTAS
  (SELECT
     COUNT(DISTINCT V.NUNOTA)
   FROM
     TGFVAR V
   WHERE
     V.NUNOTAORIG = CAB.NUNOTA) QTD_NOTAS,
--LISTA DE NRO.UNICOS
  (SELECT DISTINCT
     RTRIM(REGEXP_REPLACE((listagg(V.NUNOTA,'-') WITHIN GROUP (ORDER BY V.NUNOTA) OVER ()),'([^-]*)(-\1)+($|-)','\1\3'),'-')
   FROM
     TGFVAR V
   WHERE
     V.NUNOTAORIG = CAB.NUNOTA) LISTA_NUNOTA
FROM
  TGFVAR VAR INNER JOIN TGFCAB CAB ON VAR.NUNOTAORIG = CAB.NUNOTA
WHERE
  CAB.CODTIPOPER = 201
ORDER BY
  CAB.NUNOTA DESC