Olá Pedro!

Tente o código abaixo:

Select Distinct T1.Codigo From Tabela As T1, Tabela As T2 ;
  Where T2.NumCliente = T1.NumCliente And T2.NumDoc = T1.NumDoc ;
  And T1.Codigo <> T2.Codigo

Faça testes com mais dados, pois só utilizei os que você passou.
Até mais.