Текущая версия на 11:44, 14 октября 2019

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

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

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

@@ Строка 1: / Строка 1: @@
 [[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]]