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

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

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