Показано с 1 по 5 из 5
Комбинированный просмотр
-
04.07.2016, 09:19 #1
- Регистрация
- 29.01.2010
- Сообщений
- 1212
- Сказал(а) спасибо
- 30
- Поблагодарили 261 раз(а) в 245 сообщениях
Re: Поле агрегатного объекта не обнаружено
Что мне делать?
1. Открыть конфигуратор.
2. Найти и открыть модуль объекта Документ.ПротоколСчет
3. Посмотреть самому, а если непонятно, то скопировать сюда что же находится в области 382 строки и в области 481 (желательно "захватить" куски кода побольше)
-
04.07.2016, 11:20 #2
- Регистрация
- 02.07.2016
- Сообщений
- 2
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
Re: Поле агрегатного объекта не обнаружено
Я смотрю, но не знаю что мне искать. Как оно должно правильно выглядеть.
Процедура Печать1()
таб=СоздатьОбъект("ТАБЛИЦА" );
таб.ИсходнаяТаблица("СчФак" );
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
ИтСуБНДС=0;
Пока ПолучитьСтроку()>0 Цикл
Если (Партия.Выбран()=1) и (ПустаяСтрока(Партия.Стран� �Происхождения)=0) Тогда
СтранПР = ", "+СокрП(СокрЛ(Партия.Страна� �роисхождения));
ИначеЕсли ПустаяСтрока(Товар.СтранаП роисхождения)=0 Тогда
СтранПР = ", "+СокрП(СокрЛ(Товар.СтранаП� �оисхождения));
Иначе
СтранПР="";
КонецЕсли;
ЦенаПер=ЦенаИзготовителя;
СумбНДС=Окр(ЦенаОтп*Количе� �тво,0,0);
ИтСуБНДС=СумбНДС+ИтСуБНДС;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Итого");
Таб.ВывестиСекцию("Дно");
Таб.ВывестиСекцию("Дно1");
Таб.ВывестиСекцию("Дно2");
Таб.ПараметрыСтраницы(1,,,5,5, 5,,,,1);
Таб.Опции(0,0,0,0);
Таб.Показать() ;
КонецПроцедуры
Процедура ОбработкаПодбора(ВыбрТова� �)
Кол = 1;
Спис = СоздатьОбъект("СписокЗначе ний");
Спис.ДобавитьЗначение(Выбр Товар,"Товар");
Если ПустоеЗначение(ТекущийДок� �мент()) = 1 Тогда //документ еще не записан
//Тогда передаем дату документа
Спис.ДобавитьЗначение(Дата Док,"Док");
Иначе
//иначе позицию документа
Спис.ДобавитьЗначение(Теку щийДокумент(),"Док");
КонецЕсли;
Спис.ДобавитьЗначение(Мест оХранения,"Склад");
ОткрытьФормуМодально("Обра ботка.ПодборПартий",Спис);
Если ВвестиЧисло(Кол, "Введите количество", 14, 3) = 0 Тогда
Возврат;
ИначеЕсли Кол = 0 Тогда
Возврат;
КонецЕсли;
НоваяСтрока();
Товар = ВыбрТовар;
Партия = Спис.Получить("Партия");
Прейскурант=Партия.Прейску рант;
Сертификат=Партия.Сертифик ат;
ПредпрИзготовитель=Товар.П редприятиеИзготовитель;
СтранаПроисхождения=Товар. СтранаПроисхождения;
//Единица=Товар.ЕдиницаИзмер ения;
Количество = Кол;
НдСПр=Товар.СтавкаНДС.Полу� �ить(ДатаДок).Ставка;
Если партия.выбран()=1 Тогда
Если партия.ПервыйИмпортер=1 Тогда
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наОтп;
ЦенаОтп=Партия.ЦенаОтп;
Иначе
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наИзготовителя;
ЦенаОтп=Партия.ЦенаОтп;
КонецЕсли;
//Надб=Партия.Надб;
//НадбавкаДругая=Партия.Надб авкаДругая;
Пересчет("Товар");
Пересчет2(); //Расчет надбавок
Иначе
//Себ=0;
//Если ВвестиЧисло(Себ, "Введите Себестоимость", 16, 2) = 0 Тогда
// Себестоимость=Себ;
//Иначе
Себестоимость=0;
//КонецЕсли;
//ЦенаИз=0;
//Если ВвестиЧисло(ЦенаИз, "Введите Цену Изготовителя", 16, 2) = 0 Тогда
// ЦенаИзготовителя=ЦенаИз;
//Иначе
ЦенаИзготовителя=0;
//КонецЕсли;
//ЦенаОп=0;
//Если ВвестиЧисло(ЦенаОп, "Введите Цену Оптовую", 16, 2) = 0 Тогда
// ЦенаОптовая=ЦенаОп;
//Иначе
ЦенаОптовая=0;
//КонецЕсли;
//НадбДр=0;
//НадбДр=0;
КонецЕсли;
---------- Post added at 09:19 ---------- Previous post was at 09:18 ----------
Я смотрю, но не знаю что мне искать. Как оно должно правильно выглядеть.
Процедура Печать1()
таб=СоздатьОбъект("ТАБЛИЦА" );
таб.ИсходнаяТаблица("СчФак" );
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
ИтСуБНДС=0;
Пока ПолучитьСтроку()>0 Цикл
Если (Партия.Выбран()=1) и (ПустаяСтрока(Партия.Стран� �Происхождения)=0) Тогда
СтранПР = ", "+СокрП(СокрЛ(Партия.Страна� �роисхождения));
ИначеЕсли ПустаяСтрока(Товар.СтранаП роисхождения)=0 Тогда
СтранПР = ", "+СокрП(СокрЛ(Товар.СтранаП� �оисхождения));
Иначе
СтранПР="";
КонецЕсли;
ЦенаПер=ЦенаИзготовителя;
СумбНДС=Окр(ЦенаОтп*Количе� �тво,0,0);
ИтСуБНДС=СумбНДС+ИтСуБНДС;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Итого");
Таб.ВывестиСекцию("Дно");
Таб.ВывестиСекцию("Дно1");
Таб.ВывестиСекцию("Дно2");
Таб.ПараметрыСтраницы(1,,,5,5, 5,,,,1);
Таб.Опции(0,0,0,0);
Таб.Показать() ;
КонецПроцедуры
Процедура ОбработкаПодбора(ВыбрТова� �)
Кол = 1;
Спис = СоздатьОбъект("СписокЗначе ний");
Спис.ДобавитьЗначение(Выбр Товар,"Товар");
Если ПустоеЗначение(ТекущийДок� �мент()) = 1 Тогда //документ еще не записан
//Тогда передаем дату документа
Спис.ДобавитьЗначение(Дата Док,"Док");
Иначе
//иначе позицию документа
Спис.ДобавитьЗначение(Теку щийДокумент(),"Док");
КонецЕсли;
Спис.ДобавитьЗначение(Мест оХранения,"Склад");
ОткрытьФормуМодально("Обра ботка.ПодборПартий",Спис);
Если ВвестиЧисло(Кол, "Введите количество", 14, 3) = 0 Тогда
Возврат;
ИначеЕсли Кол = 0 Тогда
Возврат;
КонецЕсли;
НоваяСтрока();
Товар = ВыбрТовар;
Партия = Спис.Получить("Партия");
Прейскурант=Партия.Прейску рант;
Сертификат=Партия.Сертифик ат;
ПредпрИзготовитель=Товар.П редприятиеИзготовитель;
СтранаПроисхождения=Товар. СтранаПроисхождения;
//Единица=Товар.ЕдиницаИзмер ения;
Количество = Кол;
НдСПр=Товар.СтавкаНДС.Полу� �ить(ДатаДок).Ставка;
Если партия.выбран()=1 Тогда
Если партия.ПервыйИмпортер=1 Тогда
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наОтп;
ЦенаОтп=Партия.ЦенаОтп;
Иначе
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наИзготовителя;
ЦенаОтп=Партия.ЦенаОтп;
КонецЕсли;
//Надб=Партия.Надб;
//НадбавкаДругая=Партия.Надб авкаДругая;
Пересчет("Товар");
Пересчет2(); //Расчет надбавок
Иначе
//Себ=0;
//Если ВвестиЧисло(Себ, "Введите Себестоимость", 16, 2) = 0 Тогда
// Себестоимость=Себ;
//Иначе
Себестоимость=0;
//КонецЕсли;
//ЦенаИз=0;
//Если ВвестиЧисло(ЦенаИз, "Введите Цену Изготовителя", 16, 2) = 0 Тогда
// ЦенаИзготовителя=ЦенаИз;
//Иначе
ЦенаИзготовителя=0;
//КонецЕсли;
//ЦенаОп=0;
//Если ВвестиЧисло(ЦенаОп, "Введите Цену Оптовую", 16, 2) = 0 Тогда
// ЦенаОптовая=ЦенаОп;
//Иначе
ЦенаОптовая=0;
//КонецЕсли;
//НадбДр=0;
//НадбДр=0;
КонецЕсли;
---------- Post added at 09:20 ---------- Previous post was at 09:19 ----------
Я смотрю, но не знаю что мне искать. Как оно должно правильно выглядеть.
Процедура Печать1()
таб=СоздатьОбъект("ТАБЛИЦА" );
таб.ИсходнаяТаблица("СчФак" );
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
ИтСуБНДС=0;
Пока ПолучитьСтроку()>0 Цикл
Если (Партия.Выбран()=1) и (ПустаяСтрока(Партия.Стран� �Происхождения)=0) Тогда
СтранПР = ", "+СокрП(СокрЛ(Партия.Страна� �роисхождения));
ИначеЕсли ПустаяСтрока(Товар.СтранаП роисхождения)=0 Тогда
СтранПР = ", "+СокрП(СокрЛ(Товар.СтранаП� �оисхождения));
Иначе
СтранПР="";
КонецЕсли;
ЦенаПер=ЦенаИзготовителя;
СумбНДС=Окр(ЦенаОтп*Количе� �тво,0,0);
ИтСуБНДС=СумбНДС+ИтСуБНДС;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Итого");
Таб.ВывестиСекцию("Дно");
Таб.ВывестиСекцию("Дно1");
Таб.ВывестиСекцию("Дно2");
Таб.ПараметрыСтраницы(1,,,5,5, 5,,,,1);
Таб.Опции(0,0,0,0);
Таб.Показать() ;
КонецПроцедуры
Процедура ОбработкаПодбора(ВыбрТова� �)
Кол = 1;
Спис = СоздатьОбъект("СписокЗначе ний");
Спис.ДобавитьЗначение(Выбр Товар,"Товар");
Если ПустоеЗначение(ТекущийДок� �мент()) = 1 Тогда //документ еще не записан
//Тогда передаем дату документа
Спис.ДобавитьЗначение(Дата Док,"Док");
Иначе
//иначе позицию документа
Спис.ДобавитьЗначение(Теку щийДокумент(),"Док");
КонецЕсли;
Спис.ДобавитьЗначение(Мест оХранения,"Склад");
ОткрытьФормуМодально("Обра ботка.ПодборПартий",Спис);
Если ВвестиЧисло(Кол, "Введите количество", 14, 3) = 0 Тогда
Возврат;
ИначеЕсли Кол = 0 Тогда
Возврат;
КонецЕсли;
НоваяСтрока();
Товар = ВыбрТовар;
Партия = Спис.Получить("Партия");
Прейскурант=Партия.Прейску рант;
Сертификат=Партия.Сертифик ат;
ПредпрИзготовитель=Товар.П редприятиеИзготовитель;
СтранаПроисхождения=Товар. СтранаПроисхождения;
//Единица=Товар.ЕдиницаИзмер ения;
Количество = Кол;
НдСПр=Товар.СтавкаНДС.Полу� �ить(ДатаДок).Ставка;
Если партия.выбран()=1 Тогда
Если партия.ПервыйИмпортер=1 Тогда
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наОтп;
ЦенаОтп=Партия.ЦенаОтп;
Иначе
Себестоимость=Партия.Себес тоимость;
ЦенаИзготовителя=Партия.Це наИзготовителя;
ЦенаОтп=Партия.ЦенаОтп;
КонецЕсли;
//Надб=Партия.Надб;
//НадбавкаДругая=Партия.Надб авкаДругая;
Пересчет("Товар");
Пересчет2(); //Расчет надбавок
Иначе
//Себ=0;
//Если ВвестиЧисло(Себ, "Введите Себестоимость", 16, 2) = 0 Тогда
// Себестоимость=Себ;
//Иначе
Себестоимость=0;
//КонецЕсли;
//ЦенаИз=0;
//Если ВвестиЧисло(ЦенаИз, "Введите Цену Изготовителя", 16, 2) = 0 Тогда
// ЦенаИзготовителя=ЦенаИз;
//Иначе
ЦенаИзготовителя=0;
//КонецЕсли;
//ЦенаОп=0;
//Если ВвестиЧисло(ЦенаОп, "Введите Цену Оптовую", 16, 2) = 0 Тогда
// ЦенаОптовая=ЦенаОп;
//Иначе
ЦенаОптовая=0;
//КонецЕсли;
//НадбДр=0;
//НадбДр=0;
КонецЕсли;
-
04.07.2016, 18:55 #3
- Регистрация
- 29.01.2010
- Сообщений
- 1212
- Сказал(а) спасибо
- 30
- Поблагодарили 261 раз(а) в 245 сообщениях
Re: Поле агрегатного объекта не обнаружено
Я смотрю, но не знаю что мне искать. Как оно должно правильно выглядеть.
Как я понимаю, у тебя проблемы со строками:
Если (Партия.Выбран()=1) и (ПустаяСтрока(Партия.Стран� �Происхождения)=0) Тогда
Если партия.ПервыйИмпортер=1 Тогда
Вот ставишь на них точки останова и смотришь, а что же у тебя находится в "Партия"
Судя по коду у тебя должны быть значения и Партия.СтранаПроисхождени� � и партия.ПервыйИмпортер
А судя по диагностике программа таких свойств у Партии "не знает".
-
04.07.2016, 21:33 #4
- Регистрация
- 29.01.2010
- Сообщений
- 1212
- Сказал(а) спасибо
- 30
- Поблагодарили 261 раз(а) в 245 сообщениях
Re: Поле агрегатного объекта не обнаружено
Я смотрю, но не знаю что мне искать. Как оно должно правильно выглядеть.
Как я понимаю, у тебя проблемы со строками:
Если (Партия.Выбран()=1) и (ПустаяСтрока(Партия.Стран� �Происхождения)=0) Тогда
Если партия.ПервыйИмпортер=1 Тогда
Вот ставишь на них точки останова и смотришь, а что же у тебя находится в "Партия"
Судя по коду у тебя должны быть значения и Партия.СтранаПроисхождени� � и партия.ПервыйИмпортер
А судя по диагностике программа таких свойств у Партии "не знает".
Похожие темы
-
Ошибка: поле агрегатного объекта не обнаружено
от Витек_новый в разделе 1С - Предприятие 7.7Ответов: 2Последнее сообщение: 16.04.2014, 06:40 -
Заполнение документа. Поле объекта не обнаружено
от Dr_ES в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 0Последнее сообщение: 15.03.2013, 12:54
Социальные закладки