| 1 |
Слово = СокрЛП(ВРЕГ(ОбрабатываемыйТекст)); |
| 2 |
Для каждого Строка1 из тзДанные Цикл |
| 3 |
Счет = Счет + 1; |
| 4 |
КонецЦикла; |
| 5 |
Если Проведен Тогда |
| 6 |
Отказ = Истина; |
| 7 |
КонецЕсли; |
| 8 |
Если не ЗначениеЗаполнено(Номенклатура) Тогда |
| 9 |
Сообщить("Не указана номенклатура"); |
| 10 |
Запрос = Новый Запрос("выбрать т.Ссылка из Справочник.Организации как т где т в (&МассивОрганизации)"); |
| 11 |
Элементы.Контрагент.ТолькоПросмотр = Ложь; |
| 12 |
Выборка = Запрос.Выполнить().Выбрать(); |
| 13 |
Процедура РассчитатьОтклонение(СтрокаОтчета) |
| 14 |
КонецПроцедуры |
| 15 |
Функция ПолучитьИсходныеДанные(ПараметрыОтчета) Экспорт |
| 16 |
ИсходныеДанные = Новый Структура; |
| 17 |
тзОтчета = Запрос.Выполнить().Выгрузить(); |
| 18 |
ИсходныеДанные.Вставить("тзОтчета", тзОтчета); |
| 19 |
Возврат тзОтчета; |
| 20 |
КонецФункции |
| 21 |
ЗаполнитьЗначенияСвойств(Строка2, Строка1); |
| 22 |
СтрокаРасчет = тзРасчет.Добавить(); |
| 23 |
Запрос.Параметры.Вставить("Подразделение", ПараметрыОтчета.Подразделение); |
| 24 |
Пока Выборка.Следующий() Цикл |
| 25 |
ИначеЕсли ТипЗнч(Строка1.Документ) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда |
| 26 |
ВызватьИсключение "Не найдена строка"; |
| 27 |
Если ЗначениеЗаполнено(СтрокаРасчет.ДатаУтверждения) и СтрокаРасчет.ДатаУтверждения <= КонецМесяца(Месяц) Тогда СтрокаРасчет.Утверждена = Истина; |
| 28 |
РеализацияОбъект = СтрокаДокумент.Реализация.ПолучитьОбъект(); |
| 29 |
тзСправочник.Индексы.Добавить("Ссылка"); |
Комментарии