Просмотр исходного текста страницы RECALCUTHSUM R08

[[RECALCUTHSUM_R08]] - это функция из справочника [[R266]]
 Пересчитать цены на сырье по выделенным документам [[UTH]]
[[RECALCUTHSUM_R08]]()
= Текст =
 local ga, sr, i, uth2
 
 ga := [[GetArea]]()
 sr := [[SelRows]]( [[GetForm]]( ga ) )
 
 if [[IsEmpty]]( sr )
   [[Message]]( 'Выберите документы для пересчета цен ( ALT+F1, ALT+F2 )' )
   return
 endif
 
 if ![[YesNo]]( 'Вы уверены, что хотите изменить цены в выбранных накладных?', false )
   return
 endif
 
 for i := 1 to [[Len]]( sr )
   ( ga )->( [[DbGoTo]]( sr[i] ) )
   uth2 := [[OpenChildDoc]]( '[[UTH]]', '2', ( ga )->RGNUM )
   if ( uth2 )->DREFL2 = 'R08 '
     ( uth2 )->ALLPRICE := [[R473PRICE_WO_SUPPL]]( ( uth2 )->DANAL2, ( uth2 )->DATDOC )
   endif
 next
 
 [[MakePrvs]]( ga,, 3 )

= Смотрите также =
[[Полезные функции]]

[[Функции Delphi]]