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
>
>
>
>
>
>
>
>
>