CREATE PLAN RECEPT P — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 5: | Строка 5: | ||
local i, aa | local i, aa | ||
| − | aa := [[ChoiceRefr]]( 'R11', "[[GrpRecord]]( 'KOD' )", { 'KOD', 'PNAME' },; | + | aa := [[ChoiceRefr]]( '[[R11]]', "[[GrpRecord]]( 'KOD' )", { 'KOD', 'PNAME' },; |
~Title := 'Выберите изделия ( Alt+F1 или Alt+F2 )' ) | ~Title := 'Выберите изделия ( Alt+F1 или Alt+F2 )' ) | ||
| Строка 21: | Строка 21: | ||
[[Message]]( 'По выбранным изделиям рецептура 21 скопирована в рецептуру номер 99' ) | [[Message]]( 'По выбранным изделиям рецептура 21 скопирована в рецептуру номер 99' ) | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 15:47, 30 мая 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' )
