Olá Pedro !

Conforme o exemplo que mostrou, você deve usar scan (melhor que do while) e concatenar os campos!

select tabela2
scan
    if seek(numdoc,'tabela1')
       replace incluido whith alltrim(incluido) + numrec +',' in tabela1
    endif
endscan

Neste caso vc deverá ter um tamanho de campo (incluido) razoável, conforme previsão de registros incluído por documento.

Não sei para que fim vc precisa disso, mas espero ter ajudado !

>Pessoal
>
>Tenho Tabela1 campos NumDoc , TipoDoc , Incluido
>
>Tabela2 campos NumDoc , TipoDoc, NumRec
>
>cada registo da tabela1 , pode corresponder a vários na tabela2
>
>eu quero preencher o campo Incluido da Tabela1 , com o NumRec da tabela2 de todos os registos que correspondem à tabela1 .
>Confuso ?
>
>

>
>Exemplo
>
>Tabela1
>NumDoc       TipoDoc     Incluido
>1              "CCC"
>2              "ABC"
>3              "BBB"
>
>
>Tabela2
>NumDoc    TipoDoc     NumRec
>1          "CCC"         1
>1          "CCC"         2
>1          "CCC"         3
>2          "ABC"         4
>
>Tabela Resultado
>
>NumDoc       TipoDoc     Incluido
>1             "CCC"      "1, 2 , 3"
>2             "ABC"       "4"
>3             "BBB"
>
>

>
>Muito obrigado
>
>
>
>
>
>
>
>
>