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

RECALCUTHSUM_R08 - это функция из справочника [[R266]]

Пересчитать цены на сырье по выделенным документам [[UTH]]

= Текст программы =

 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]]

[[Полезные функции]]