Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

8.1: УТ 10.3 "Установка типов цен по группам номенклатуры для покупателей" ОШИБКА!

Re:аниматор
читатель
офлайн
Дата регистрации: 17.05.2008
Сообщений: 55
Пост №1
 
24.01.2010 10:25

"Столкнулся с проблемой не могу провести документ "Установка типов цен по группам номенклатуры для покупателей", выдает сообщение что "Найдены записи о типах цен для групп, которые уже действуют в выбранном периоде:" именно когда Вид операции "по номенклатурным группам"<br><br>хотя условия закрыты по дату формирования нового документа, вот модуль от 1С <br><br>Процедура ПроверитьПересекающиесяДокументы(Отказ, Заголовок)<br><br> Запрос = Новый Запрос;<br><br> Запрос.УстановитьПараметр("ДокументСсылка", Ссылка);<br> Запрос.УстановитьПараметр("ПустойТипЦен", Справочники.ТипыЦенНоменклатуры.ПустаяСсылка());<br> Запрос.УстановитьПараметр("Дата", ДатаНачала);<br> Запрос.УстановитьПараметр("Контрагент", Контрагент);<br><br> Запрос.Текст = "<br> |ВЫБРАТЬ РАЗЛИЧНЫЕ<br> | Док.НоменклатурнаяЦеноваяГруппа КАК Группа,<br> | РегТипыДляПокупателей.ТипЦен КАК ТипЦен,<br> | РегТипыДляПокупателей.Период КАК ДатаНачала,<br> | РегТипыДляПокупателей.Регистратор КАК Регистратор<br> |ИЗ<br> | Документ.УстановкаТиповЦенПоГруппамНоменклатурыДляПокупател­ей.НоменклатурныеЦеновыеГруппы КАК Док<br> |СОЕДИНЕНИЕ Справочник.Номенклатура КАК СпрНоменклатура<br> |ПО Док.Ссылка = &ДокументСсылка<br> |И (СпрНоменклатура.НоменклатурнаяГруппа = Док.НоменклатурнаяЦеноваяГруппа<br> |ИЛИ СпрНоменклатура.ЦеноваяГруппа = Док.НоменклатурнаяЦеноваяГруппа)<br> |СОЕДИНЕНИЕ РегистрСведений.ТипыЦенПоГруппамНоменклатурыДляПокупателей КАК РегТипыДляПокупателей<br> |ПО (СпрНоменклатура.НоменклатурнаяГруппа = РегТипыДляПокупателей.НоменклатурнаяЦеноваяГруппа<br> |ИЛИ СпрНоменклатура.ЦеноваяГруппа = РегТипыДляПокупателей.НоменклатурнаяЦеноваяГруппа)<br> |И Контрагент = &Контрагент<br> |УПОРЯДОЧИТЬ ПО Период Возр, Группа Возр, ТипЦен Убыв<br> |";<br><br> ТЗ = Запрос.Выполнить().Выгрузить();<br><br> ТЗ.Колонки.Добавить("ДатаОкончания");<br> ТЗ.ЗаполнитьЗначения('00010101' ,"ДатаОкончания");<br><br> КоличествоСтрок = ТЗ.Количество() - 1;<br> Для Тмп = 0 По КоличествоСтрок Цикл<br>       СтрокаТЗ = ТЗ[КоличествоСтрок - Тмп];<br><br>       Если НЕ ЗначениеЗаполнено(СтрокаТЗ.ТипЦен) Тогда<br>            Для Тмп1 = 0 По ТЗ.Количество() -1 Цикл<br>             СтрокаПоиска = ТЗ[Тмп];<br><br>             Если СтрокаПоиска.Группа = СтрокаТЗ.Группа<br>                   И НЕ ЗначениеЗаполнено(СтрокаПоиска.ДатаОкончания) Тогда<br>                   СтрокаПоиска.ДатаОкончания = СтрокаТЗ.ДатаНачала;<br>                   ТЗ.Удалить(СтрокаТЗ);<br>                   Прервать;<br>             КонецЕсли;<br>            КонецЦикла;<br>       КонецЕсли;<br> КонецЦикла;<br><br> СтрокаДокументовПересечений = """";<br> Для Каждого СтрокаТЗ Из ТЗ Цикл<br>       Если НЕ ЗначениеЗаполнено(ДатаОкончания) Тогда<br>            Если СтрокаТЗ.ДатаОкончания > Дата Или НЕ ЗначениеЗаполнено(СтрокаТЗ.ДатаОкончания) Тогда<br>             СтрокаДокументовПересечений = СтрокаДокументовПересечений + Символы.ПС + СтрокаТЗ.Группа +": " + СтрокаТЗ.Регистратор;<br>            КонецЕсли;<br>       Иначе<br>            Если (ДатаНачала >= СтрокаТЗ.ДатаНачала И ДатаОкончания <= СтрокаТЗ.ДатаОкончания)<br>             Или (ДатаНачала <= СтрокаТЗ.ДатаНачала И ДатаОкончания >= СтрокаТЗ.ДатаОкончания)<br>             Или (ДатаНачала <= СтрокаТЗ.ДатаНачала И ДатаОкончания >= СтрокаТЗ.ДатаНачала)<br>             Или (ДатаНачала <= СтрокаТЗ.ДатаОкончания И ДатаОкончания >= СтрокаТЗ.ДатаОкончания) Тогда<br>             СтрокаДокументовПересечений = СтрокаДокументовПересечений + Символы.ПС + СтрокаТЗ.Группа +": " + СтрокаТЗ.Регистратор;<br>            КонецЕсли;<br>       КонецЕсли;<br> КонецЦикла;<br><br> Если НЕ ПустаяСтрока(СтрокаДокументовПересечений) Тогда<br>       ОбщегоНазначения.СообщитьОбОшибке("Найдены записи о типах цен для групп, которые уже действуют в выбранном периоде:" + СтрокаДокументовПересечений, Отказ, Заголовок);<br>       Отказ = Истина;<br> КонецЕсли;<br><br>КонецПроцедуры //ПроверитьПересекающиесяДокументы() <br><br>как мне думается, но пропустили цифру 1 или задумка от 1С? <br><br>...<br> КоличествоСтрок = ТЗ.Количество() - 1;<br> Для Тмп = 0 По КоличествоСтрок Цикл<br>       СтрокаТЗ = ТЗ[КоличествоСтрок - Тмп];<br><br>       Если НЕ ЗначениеЗаполнено(СтрокаТЗ.ТипЦен) Тогда<br>            Для Тмп1 = 0 По ТЗ.Количество() -1 Цикл<br>             СтрокаПоиска = ТЗ[Тмп1]; // RR 24.01.2010<br><br>             Если СтрокаПоиска.Группа = СтрокаТЗ.Группа<br>                   И НЕ ЗначениеЗаполнено(СтрокаПоиска.ДатаОкончания) Тогда<br>                   СтрокаПоиска.ДатаОкончания = СтрокаТЗ.ДатаНачала;<br>                   ТЗ.Удалить(СтрокаТЗ);<br>                   Прервать;<br>             КонецЕсли;<br>            КонецЦикла;<br>       КонецЕсли;<br> КонецЦикла;<br>... <br><br>СтрокаПоиска = ТЗ[Тмп1];<br><br>после такого тюнинга модуля все заработало. ошибка это или нет?<br><br>тестировалось на релизе "Управление торговлей", редакция 10.3 (10.3.9.4) "

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация