CREATE PLAN NHC

Материал из Фабиус wiki
Перейти к: навигация, поиск

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

Сформировать плановую рецептуру для Ногинска

Текст

local i, aa
aa := ChoiceRefr( 'R11', "GrpRecord( 'KOD' )", { 'KOD', 'PNAME' }, ~Title := 'Выберите изделия ( Alt+F1 или Alt+F2 )' )
if Empty( aa )
  return
endif
if ValType( aa ) = 'N'
  aa := { aa }
endif
for i := 1 to len( aa )
  CREATE_PLAN_NHC_2( aa[i] )
next
Message( 'Сформирована рецептура номер 10' )

Смотрите также

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

Функции Delphi