Показано с 1 по 1 из 1
Тема: Ошибка
Древовидный режим
-
07.03.2014, 09:21 #1
- Регистрация
- 07.03.2014
- Сообщений
- 1
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
Ошибка
Есть связка Операция и процесс, В модуле операции все норм считает при отладке, в модуле процесса не считает, все показатели 0, помогите голову сломал уже...
Модуль процесса такой:
ОбщееКолвоВидов = РазмерСписка(ПарамВиз);
ТиражЛистов = Список();
КолИздНаЛист = Список();
КолХ = Список();
КолУ = Список();
СписВсп = Список();
К_Полноцветные = Константа("УФ_печать");
// Разместим карточки на бумаге
А = 0;
Пока А < ОбщееКолвоВидов Цикл
Изделие = ЭлементСписка(ПарамВиз, А);
ФорматИзделияВсп = ПолучитьЗначениеПоля(Изде� �ие, "ФорматИзделия");
ХаркаБумагиВсп = ПолучитьЗначениеПоля(Изде� �ие, "ХаркаБумаги");
ФорматБум = ПараметрХарактеристикиНом енклатуры(ХаркаБумагиВсп, "Формат");
ДлинаБум = Реквизит(ФорматБум, "Длина");
ШиринаБум = Реквизит(ФорматБум, "Ширина");
Если Строка(ФорматИзделияВсп)="П роизвольный" тогда
ШиринаВсп = ПолучитьЗначениеПоля(Изде� �ие, "ШиринаИзделияПроизв");
ДлинаВсп = ПолучитьЗначениеПоля(Изде� �ие, "ДлинаИзделияПроизв");
Иначе
ШиринаВсп = Реквизит(ФорматИзделияВсп, "Ширина");
ДлинаВсп = Реквизит(ФорматИзделияВсп, "Длина");
КонецЕсли;
СписВсп = РасОптНаЛист(ДлинаВсп, ШиринаВсп, ДлинаБум, ШиринаБум);
КолНаЛист = ЭлементСписка(СписВсп, 0);
КолХВсп = ЭлементСписка(СписВсп, 1);
КолУВсп = ЭлементСписка(СписВсп, 2);
ТиражВсп = ПолучитьЗначениеПоля(Изде� �ие, "Тираж");
Итог = ОкрВВЕРХ(ТиражВсп/КолНаЛист);
ДобавитьВСписок(ТиражЛист� �в, Итог);
ДобавитьВСписок(КолХ, КолУВсп);
ДобавитьВСписок(КолУ, КолХВсп);
ДобавитьВСписок(КолИздНаЛ� �ст, КолХВсп * КолУВсп);
ОчиститьСписок(СписВсп);
А = А + 1;
КонецЦикла;
// Определим параметры для "Уф-печать"
КолвоВидов1 = 0;
ТиражБумаг = Список();
ТиражБум1 = Список();
ЦветностьОб1 = Список();
ЦветностьЛ1 = Список();
Площадь1 = Список();
ПАРТИЯ1 = Список();
БумагаХАРП1 = Список();
БумагаНОМП1 = Список();
ТиражБум2 = Список();
БумагаХАР2 = Список();
БумагаНОМ2 = Список();
ПосРезХАР2 = Список();
ПосРезНОМ2 = Список();
КолвоВидов2 = 0;
КолПоДлин2 = Список();
КолПоШир2 = Список();
ТиражИзд2 = Список();
КолНаЛист2 = Список();
Толщина2 = Список();
ПАРТИЯ2 = Список();
КолвоВидов1 = ОбщееКолвоВидов;
КолвоВидов2 = ОбщееКолвоВидов;
А = 0;
Пока А < ОбщееКолвоВидов Цикл
Изделие = ЭлементСписка(ПарамВиз, А);
ВидВизВсп = ПолучитьЗначениеПоля(Изде� �ие, "ВидВиз");
ДобавитьВСписок(ТиражБум1, ЭлементСписка(ТиражЛистов, А));
ТиражВсп0 = ПолучитьЗначениеПоля(Изде� �ие, "Тираж");
ДобавитьВСписок(ТиражБума� �, ТиражВсп0);
ПлощадьВсп = ПолучитьЗначениеПоля(Изде� �ие, "Площадь");
ДобавитьВСписок(Площадь1, ПлощадьВсп);
БумагаВсп = ПолучитьЗначениеПоля(Изде� �ие, "Бумага");
ХаркаВсп = ПолучитьЗначениеПоля(Изде� �ие, "ХаркаБумаги");
ДобавитьВСписок(БумагаХАР� �1, ХаркаВсп);
ДобавитьВСписок(БумагаНОМ� �1, БумагаВсп);
ДобавитьВСписок(ПАРТИЯ1, А+1);
ЦветностьВсп = ПолучитьЗначениеПоля(Изде� �ие, "Цветность");
Если (ЦветностьВсп = Константа("КонстантаCMYK")) тогда
ДобавитьВСписок(Цветность� �1, Константа("КонстантаCMYK"));
ДобавитьВСписок(Цветность� �б1, Константа("Константа0"));
КонецЕсли;
Если (ЦветностьВсп = Константа("КонстантаCMYKWhite")) тогда
ДобавитьВСписок(Цветность� �1, Константа("КонстантаCMYKWhite")) ;
ДобавитьВСписок(Цветность� �б1, Константа("Константа0"));
КонецЕсли;
Если (ЦветностьВсп = Константа("КонстантаCMYK_CMYK")) тогда
ДобавитьВСписок(Цветность� �1, Константа("КонстантаCMYK"));
ДобавитьВСписок(Цветность� �б1, Константа("КонстантаCMYK"));
КонецЕсли;
Если (ЦветностьВсп = Константа("КонстантаCMYKWhite_CM YKWhite")) тогда
ДобавитьВСписок(Цветность� �1, Константа("КонстантаCMYKWhite")) ;
ДобавитьВСписок(Цветность� �б1, Константа("КонстантаCMYKWhite")) ;
КонецЕсли;
ДобавитьВСписок(КолПоДлин2 , ЭлементСписка(КолХ, А));
ДобавитьВСписок(КолПоШир2, ЭлементСписка(КолУ, А));
ТиражВсп = ПолучитьЗначениеПоля(Изде� �ие, "Тираж");
ДобавитьВСписок(ТиражИзд2, ТиражВсп);
ДобавитьВСписок(КолНаЛист2 , ЭлементСписка(КолИздНаЛис� �, А));
ДобавитьВСписок(ТиражБум2, ЭлементСписка(ТиражЛистов, А));
ДобавитьВСписок(БумагаХАР2 , ХаркаВсп);
ДобавитьВСписок(БумагаНОМ2 , БумагаВсп);
ДобавитьВСписок(Толщина2, ПХН(ХаркаВсп, "Толщина"));
ДобавитьВСписок(ПАРТИЯ2, А+1);
ДобавитьВСписок(ПосРезНОМ2 , Константа("В_К"));
ДобавитьВСписок(ПосРезХАР2 , К_Полноцветные);
А = А + 1;
КонецЦикла;
Модуль операциии такой:ВремяПечати = 0;
ВремяВыполненияПрогонаСПС = Список();
КолвоПрогонов = 0;
СоотПрогонов = Список();
//Нормативы
СкоростьПечатиЦмик = Норматив("СкоростьПечатиЦм ик");
СкоростьПечатиВайт = Норматив("СкоростьПечатиВа йт");
//Определяем скорость печати машины //Определяем количество краски на заказ
А = 0;
Пока А < КолвоВидов Цикл
Если (Цветность = Константа("КонстантаCMYK")) и (Цветность2 = Константа("Константа0")) тогда
ВремяВыполненияПрогона = СкоростьПечатиЦмик * Площадь;
КолвоПрогоновТир = Площадь * 0.0028 * Тираж;
ВремяПечати = ВремяПечати + ВремяВыполненияПрогона * Тираж;
КонецЕсли;
Если (Цветность = Константа("КонстантаCMYKWhite")) и (Цветность2 = Константа("Константа0")) тогда
ВремяВыполненияПрогона = (СкоростьПечатиЦмик + СкоростьПечатиВайт) * ЭлементСписка(Площадь, А);
КолвоПрогоновТир = ЭлементСписка(Площадь, А) * 0.0056 * ЭлементСписка(Тираж, А);
ВремяПечати = ВремяПечати + ВремяВыполненияПрогона * ЭлементСписка(Тираж, А);
КонецЕсли;
Если (Цветность = Константа("КонстантаCMYK")) и (Цветность2 = Константа("КонстантаCMYK")) тогда
ВремяВыполненияПрогона = СкоростьПечатиЦмик * ЭлементСписка(Площадь, А) * 2;
КолвоПрогоновТир = ЭлементСписка(Площадь, А) * 0.0056 * ЭлементСписка(Тираж, А);
ВремяПечати = ВремяПечати + ВремяВыполненияПрогона * ЭлементСписка(Тираж, А);
КонецЕсли;
Если (Цветность = Константа("КонстантаCMYKWhite")) и (Цветность2 = Константа("КонстантаCMYKWhite")) тогда
ВремяВыполненияПрогона = (СкоростьПечатиЦмик + СкоростьПечатиВайт) * ЭлементСписка(Площадь, А) * 2;
КолвоПрогоновТир = ЭлементСписка(Площадь, А) * 0.0112 * ЭлементСписка(Тираж, А);
ВремяПечати = ВремяПечати + ВремяВыполненияПрогона * ЭлементСписка(Тираж, А);
КонецЕсли;
Если (Цветность = Константа("КонстантаCMYK")) и (Цветность2 = Константа("КонстантаCMYKWhite")) тогда
ВремяВыполненияПрогона = (2 * СкоростьПечатиЦмик + СкоростьПечатиВайт) * ЭлементСписка(Площадь, А);
КолвоПрогоновТир = ЭлементСписка(Площадь, А) * 0.0084 * ЭлементСписка(Тираж, А);
ВремяПечати = ВремяПечати + ВремяВыполненияПрогона * ЭлементСписка(Тираж, А);
КонецЕсли;
Если (Цветность = Константа("КонстантаCMYKWhite")) и (Цветность2 = Константа("КонстантаCMYK")) тогда
ВремяВыполненияПрогона = (2 * СкоростьПечатиЦмик + СкоростьПечатиВайт) * ЭлементСписка(Площадь, А);
КолвоПрогоновТир = ЭлементСписка(Площадь, А) * 0.0084 * ЭлементСписка(Тираж, А);
ВремяПечати = ВремяПечати + ВремяВыполненияПрогона * ЭлементСписка(Тираж, А);
КонецЕсли;
ДобавитьВСписок(ВремяВыпо� �ненияПрогонаСПС, ВремяВыполненияПрогона);
КолвоПрогонов = Тираж;
ДобавитьВСписок(СоотПрого� �ов, КолвоПрогоновТир);
А = А + 1;
КонецЦикла;
Социальные закладки