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

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

       If getfirst Totsail2 where (( do_nrec == Totsail2.cbasedoc )) <> tsOK then
           If insert in Totsail2<>tsOK then
              {
               message('Не удалось добавить запись в структуру Totsail2');
               exit;
              }
           if spsopr.price <> 0 then 
           {
	    set Totsail2.SUMNDS   := Totsail2.SUMNDS + spdocnal.summa;
  	    set Totsail2.SUMMA    := Totsail2.SUMMA + spsopr.kolfact*spsopr.price + spdocnal.summa;
           }
           update current Totsail2;