CREATE PLAN RECEPT P

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

CREATE_PLAN_RECEPT_P - это программа из справочника R266 

Сформировать плановую рецептуру для ПЕКО

CREATE_PLAN_RECEPT_P()

Текст

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_Recept_2( aa[i] )
next

Message( 'По выбранным изделиям рецептура 21 скопирована в рецептуру номер 99' )

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

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

Функции Delphi

Источник — «https://wiki.sftserv.ru/index.php?title=CREATE_PLAN_RECEPT_P&oldid=22466»