Галактика в вопросах и ответах

Код: Выделить всё

  

var KatSopr_nRec:comp;

sqlBindCol(stmt, 6, KatSopr_nRec);
While(sqlFetch(stmt) = TsOk) 
  { 
     _dTransfer:=piExAttr.dGetAttr(coKatSopr,KatSopr_nRec,'Дата акта');

     TempData01._nRecKatSopr:=KatSopr_nRec;
     TempData01._dTransfer:=_dTransfer;
     insert current TempData01;
     update current TempData01;
   }

Код: Выделить всё

_loop TempData01
 {
_dTransfer:=piExAttr.dGetAttr(coKatSopr,TempData01._nRecKatSopr,'Дата акта');
TempData01._dTransfer:=_dTransfer;
update current TempData01;
 }