Показать сообщение отдельно
Старый 18.05.2004, 15:49   #5  
Ned is offline
Ned
Lean Six Sigma
 
680 / 99 (5) ++++
Регистрация: 29.12.2002
Адрес: самолёт
Пример из "родного" кода:

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;