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

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