RECALCUTHSUM R08 — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 8: Строка 8:
 
   
 
   
 
  ga := [[GetArea]]()
 
  ga := [[GetArea]]()
  sr := SelRows( GetForm( ga ) )
+
  sr := [[SelRows]]( GetForm( ga ) )
 
   
 
   
 
  if IsEmpty( sr )
 
  if IsEmpty( sr )

Версия 08:25, 19 октября 2016

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

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