PDA

Просмотр полной версии : Ошибка



Евгений2292
07.03.2014, 08:21
Есть связка Операция и процесс, В модуле операции все норм считает при отладке, в модуле процесса не считает, все показатели 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_CMYKWhite")) тогда
ДобавитьВСписок(Цветность� �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;
КонецЦикла;