доброго времени суток, попала мне в наследство модуль. Я никак не могу понять в чем дело.
Значить так: нужно было внести изменения задним числом, и после их внесения, во время формирования нарядов, непонятная ситуацыя.
Нужно чтобы система проверяла только данные на РабочуюДату. а оно гребёт все последующии дни за которые есть записи.
Можете сказать что заставляет модуль так себя вести?))))
Вот код:
Если Фневиходи=1 Тогда
М = СоздатьОбъект("Справочник.Маршруты");
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Сп = СоздатьОбъект("СписокЗначений");
Ит.ИспользоватьСубконто(ВидыСубконто.ПричиныНевыходов,,1,);
Ит.ИспользоватьКорСубконто(ВидыСубконто.Сотрудники,,1,);
Ит.ВыполнитьЗапрос(РабочаяДата(),РабочаяДата(),СчетПоКоду("04"),,,,,);
КолСтрок = 0;
Стр = Симв(27)+"M"+Симв(27)+"x0"+Симв(27)+"W0"+Симв(27)+Симв(18);
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I"));
М.ПорядокКодов();
М.ВыбратьЭлементы();
Пока М.ПолучитьЭлемент()=1 Цикл
Если ПустаяСТрока(Фмаршрут)=0 Тогда //В розрезе марщрутов
Если м.ТекущийЭлемент()<>Фмаршрут Тогда Продолжить; КонецЕсли;
КонецЕсли;
КолСтрок = 0;
Стр = Симв(27)+"M"+Симв(27)+"x0"+Симв(27)+"W0"+Симв(27)+Симв(18);
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I"));
Стр = " "+"НЕВИХОДИ на "+ РабочаяДата();
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I")); КолСтрок = КолСтрок+1;
ПустаяСтрочка(2);
Стр = " "+М.ТекущийЭлемент();
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I")); КолСтрок = КолСтрок+1;
ШапкаНевихода();
Ит.ВыбратьСубконто();
Пока Ит.ПолучитьСубконто()=1 Цикл
Сп.УдалитьВсе();
Ит.ВыбратьКорСубконто();
Пока Ит.ПолучитьКорСубконто()=1 Цикл
Если Ит.КорСубконто().Маршрут.Получить(РабочаяДата())=М.ТекущийЭлемент() Тогда
Сп.Установить(Прав(" "+Строка(Ит.КорСубконто().Код),6),Ит.КорСубконто());
КонецЕсли;
КонецЦикла;
Если Сп.РазмерСписка()>0 Тогда
Стр = "";
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I")); КолСтрок = КолСтрок+1;
Стр = " "+Строка(Ит.СубКонто());
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I")); КолСтрок = КолСтрок+1;
Стр = "--------------------------------------------------------------------------------";
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I")); КолСтрок = КолСтрок+1;
Сп.СортироватьПоПредставлению();
Для НомПП=1 По Сп.РазмерСписка() Цикл
Сотрудник = Сп.ПолучитьЗначение(НомПП);
Стр = Формат(НомПП,"С5")+Формат(Сотрудник.Код,"Ч9")+" "+
Формат(ФИО(Сотрудник.Наименование),"С30")+" "+
Формат(Сотрудник.Должность.Получить(РабочаяДата()),"С14")+" ";
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I")); КолСтрок = КолСтрок+1;
Если КолСтрок+8>КоличествоСтрок Тогда
ДоконцаСтраницы();
КолСТрок = 0;
Стр = Симв(27)+"M"+Симв(27)+"x0"+Симв(27)+"W0"+Симв(27)+Симв(18);
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I"));
Стр = " "+Строка(Ит.СубКонто());
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I")); КолСтрок = КолСтрок+1;
Стр="--------------------------------------------------------------------------------";
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I")); КолСтрок = КолСтрок+1;
КонецЕсли;
КонецЦикла;
ПустаяСтрочка(4);
КонецЕсли;
КонецЦикла;
Стр = " НАРЯДНИК _________________________________";
Текст.ДобавитьСтроку(СтрЗаменить(СтрЗаменить(Стр,"і","i"),"І","I")); КолСтрок = КолСтрок+1;
ПустаяСтрочка(1);
Если КолСтрок>55 Тогда
ДоконцаСтраницы();
КолСТрок = 0;
КонецЕсли;
КонецЦикла;
Если КолСТрок<>0 Тогда
ДоконцаСтраницы();
КолСТрок = 0;
КонецЕсли;
КонецЕсли