Riportare righe di un documento in altro documento

Salve, dovrei creare da un preventivo un documento di trasporto, e trasportare nello stesso le righe del preventivo. ho provato con la seguente formula, ma mi cancella le righe nel primo documento.

let de := (create 'Documenti emessi');
let gest := 'Gestore impianto - cliente';
let mp := 'Modalità di pagamento';
let int := Intestatario;
let rif := 'Tipo documento' + " Nr." + " " + 'Numero preventivo' + " Del" + " " + Data;
de.('Tipo documento' := 2);
de.('Gestore impianto - cliente' := gest);
de.('Modalità di pagamento' := mp);
de.(Intestatario := int);
de.('Riferimento altro documento' := rif);
for i in 'Dettaglio righe documento' do
let d := 'Dettaglio righe documento';
let mypezz := i.Pezzi;
let aa := 'Dettaglio righe documento';
aa.(Articolo := i.Articolo.Id);
aa.(Pezzi := mypezz);
aa.(documento := de.ID)
end;
popupRecord(de)