Как скопировать запись?

[Mechanizm]

Имеется некая таблица XXX. Надо создать в X++'е копию некой текущей записи, и затем заапдейтить в ней несколько полей.

Логично написать:

XXX.Field1 = XXX.Field1;
XXX.Field2 = XXX.Field2;
XXX.Field3 = XXX.Field3;
XXX.insert();
ну и потом прописать апдейт, какой потребуется, уже по новой записи

Но проблема в том, что в этой таблице 90 полей, и выписывать такой код анриал.

Можно сделать это как-нибудь по-другому? Причём именно средствами X++'а.
Хорошо бы пройтись чем-то по коллекции всех полей, имеющихся у данной таблицы. С помощью tablenum, fieldnum можно прочитать названия (только названия) полей, а как их запихать в какие-то операторы присвоения вроде XXX.FieldX = XXX.FieldX ?

[Андре]

Не совсем то, но может натолкнет на мысли:

PHP код:

CustTable ct1, ct2; 
; 
ttsbegin; 
ct1=CustTable::find("1"); 
ct2.clear(); 
ct2 = ct1.data(); 
ct2.custaccount="2"; 
ct2.insert(); 
ttscommit; 


[mazzy]

Global::buf2buf()

[Ned]

XXX.data(YYY);

[Ned]

Пример из "родного" кода:

PHP код:

server static void copy(
    Common _from,
    Common _to
    )
{
    DocuRef docuRef;
    DocuRef newDocuRef;

    ttsBegin;

    while select docuRef
        index RefIdx
        where docuRef.refCompanyId  == _from.dataAreaId &&
              docuRef.refTableId    == _from.tableId    &&
              docuRef.refRecId      == _from.recId
    {
        newDocuRef.data(docuRef);
        newDocuRef.refCompanyId  = _to.dataAreaId;
        newDocuRef.refTableId    = _to.tableId;
        newDocuRef.refRecId      = _to.recId;
        newDocuRef.insert();
    }

    ttsCommit;

}