Версия 11:28, 6 февраля 2017

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

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