Помилка при підборі номенклатури у документ зі сканера шк!

Заказы на доработку 1С (сервис удаленной работы)	Хранилище	База знаний
Неназначенных незавершенных заказов: 2	Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С	Статьи, описание работы, методики по работе с 1С

Форум ПРАВИЛА ВОЙНА с РОССИЕЙ Обратная связь Поиск

Здравствуйте, гость ( Вход | Зарегистрироваться )

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 » Программисту » Программирование в 1С Предприятие 8.1 (8.0)

Помилка при підборі номенклатури у документ зі сканера шк!

Опции

Sempark

15.12.09, 16:13

Сообщение #1

Молчаливый

Группа: Пользователи
Сообщений: 6
Спасибо сказали: 0 раз
Рейтинг: 0

{Документ.ПоступлениеТоваровУслуг.Форма.ФормаДокумента(1783)}: Занадто багато фактичних параметрів
СтруктураПодбора = РаботаСТорговымОборудованием.СформироватьСтруктуруПодбора(Дата, Номенклатура, Характеристика,

не розумію в чому проблема. Сканер підключений в розрив клавіатури!

Ответить Цитировать выделенное

awp

15.12.09, 16:22

Сообщение #2

Почти ветеран
Иконка группы

Группа: Местный
Сообщений: 522
Спасибо сказали: 70 раз
Рейтинг: 0

Цитата(Sempark @ 15.12.09, 17:13)

Полный код в студию.
1. РаботаСТорговымОборудованием.СформироватьСтруктуруПодбора(????????)
2. место вызова

Бухгалтер - это не профессия! Это диагноз!

Ответить Цитировать выделенное

Sempark

15.12.09, 16:32

Сообщение #3

Молчаливый

Группа: Пользователи
Сообщений: 6
Спасибо сказали: 0 раз
Рейтинг: 0

Функция СформироватьСтруктуруПодбора(Знач Номенклатура, Знач Характеристика, Знач Серия,
Знач Качество, Знач Единица, Знач Количество, Знач Валюта,
Знач СерийныйНомер, Знач СкладыВТЧ, Знач ТипЦен,
Знач Контрагент = Неопределено,
Знач Договор = Неопределено) Экспорт

Результат = Новый Структура();

Если ЗначениеЗаполнено(СерийныйНомер) Тогда
Номенклатура = СерийныйНомер.Владелец;
Единица = Номенклатура.ЕдиницаХраненияОстатков;
Характеристика = Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка();
Серия = Справочники.СерииНоменклатуры.ПустаяСсылка();
Качество = Справочники.Качество.Новый;
Количество = 1;
Результат.Вставить("СерийныйНомер", СерийныйНомер);
КонецЕсли;

Цена = 0;
Если ТипЦен <> Неопределено Тогда
Если Контрагент = Неопределено Тогда
Цена = Ценообразование.ПолучитьЦенуНоменклатуры(Номенклатура, Характеристика, ТипЦен, Неопределено, Единица, Валюта);
Иначе
Цена = Ценообразование.ПолучитьЦенуКонтрагента(Номенклатура, Характеристика, Контрагент, ТипЦен, Неопределено, Единица, Валюта, , , Договор);
КонецЕсли;
КонецЕсли;

Результат.Вставить("СпособЗаполненияЦен", Перечисления.СпособыЗаполненияЦен.ПоЦенамНоменклатуры);
Результат.Вставить("ВалютаЦены", Валюта);
Результат.Вставить("Номенклатура", Номенклатура);
Результат.Вставить("ЕдиницаИзмерения", Единица);
Результат.Вставить("Количество", Количество);
Результат.Вставить("Цена", Цена);
Результат.Вставить("Характеристика", Характеристика);
Результат.Вставить("Серия", Серия);
Результат.Вставить("Качество", Качество);
Результат.Вставить("ЕстьСкладВТабличнойЧасти", СкладыВТЧ);
Результат.Вставить("Команда", "ПодборВТабличнуюЧасть");

Возврат Результат;

КонецФункции // СформироватьСтруктуруПодбора()

место вызова Поступление Товаров и Услуг(да и другие документы)

Ответить Цитировать выделенное

Sempark

15.12.09, 16:33

Сообщение #4

Молчаливый

Группа: Пользователи
Сообщений: 6
Спасибо сказали: 0 раз
Рейтинг: 0



Функция СформироватьСтруктуруПодбора(Знач Номенклатура, Знач Характеристика, Знач Серия,
                                     Знач Качество, Знач Единица, Знач Количество, Знач Валюта,
                                     Знач СерийныйНомер, Знач СкладыВТЧ, Знач ТипЦен,
                                     Знач Контрагент = Неопределено,
                                     Знач Договор = Неопределено) Экспорт

	Результат = Новый Структура();

	Если ЗначениеЗаполнено(СерийныйНомер) Тогда
		Номенклатура   = СерийныйНомер.Владелец;
		Единица        = Номенклатура.ЕдиницаХраненияОстатков;
		Характеристика = Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка();
		Серия          = Справочники.СерииНоменклатуры.ПустаяСсылка();
		Качество       = Справочники.Качество.Новый;
		Количество     = 1;
		Результат.Вставить("СерийныйНомер", СерийныйНомер);
	КонецЕсли;

	Цена = 0;
	Если ТипЦен <> Неопределено Тогда
		Если Контрагент = Неопределено Тогда
			Цена = Ценообразование.ПолучитьЦенуНоменклатуры(Номенклатура, Характеристика, ТипЦен, Неопределено, Единица, Валюта);
		Иначе
			Цена = Ценообразование.ПолучитьЦенуКонтрагента(Номенклатура, Характеристика, Контрагент, ТипЦен, Неопределено, Единица, Валюта, , , Договор);
		КонецЕсли;
	КонецЕсли;

	Результат.Вставить("СпособЗаполненияЦен",      Перечисления.СпособыЗаполненияЦен.ПоЦенамНоменклатуры);
	Результат.Вставить("ВалютаЦены",               Валюта);
	Результат.Вставить("Номенклатура",             Номенклатура);
	Результат.Вставить("ЕдиницаИзмерения",         Единица);
	Результат.Вставить("Количество",               Количество);
	Результат.Вставить("Цена",                     Цена);
	Результат.Вставить("Характеристика",           Характеристика);
	Результат.Вставить("Серия",                    Серия);
	Результат.Вставить("Качество",                 Качество);
	Результат.Вставить("ЕстьСкладВТабличнойЧасти", СкладыВТЧ);
	Результат.Вставить("Команда",                  "ПодборВТабличнуюЧасть");

	Возврат Результат;

КонецФункции // СформироватьСтруктуруПодбора()

Ответить Цитировать выделенное

Ardi Просмотр профиля Найти сообщения пользователя	15.12.09, 20:09 Сообщение #5
Живет на форуме Группа: Пользователи Сообщений: 4121 Из: Киев Спасибо сказали: 957 раз Рейтинг: 0	"Дата" выглядит лишней. Услуги 1С программиста 8.2, 7.7 (Плохо, дорого, очередь). Киев.

Ответить Цитировать выделенное

awp

20.12.09, 22:52

Сообщение #6

Почти ветеран
Иконка группы

Группа: Местный
Сообщений: 522
Спасибо сказали: 70 раз
Рейтинг: 0

Цитата(Sempark @ 15.12.09, 17:13)

СтруктураПодбора = РаботаСТорговымОборудованием.СформироватьСтруктуруПодбора(Дата, - Это куда?

Бухгалтер - это не профессия! Это диагноз!

Ответить Цитировать выделенное

logist

21.12.09, 19:27

Сообщение #7

Про1С-ник

Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2539 раз
Рейтинг: 0

Цитата(awp @ 20.12.09, 23:52)

СтруктураПодбора = РаботаСТорговымОборудованием.СформироватьСтруктуруПодбора(Дата, - Это куда?

Вобще интересно о какой конфигурации идет речь? К примеру в УТП параметр "Дата" все же присутствует, и используется для получения цены на эту дату.

Т.е. в коде сообщения №4, при получении цен, отсутствует параметр по которой определяется дата цены. В УТП применение даты выглядит следующим образом:



	Если Склад <> Неопределено И Склад.ВидСклада = Перечисления.ВидыСкладов.Розничный Тогда
		Цена = УправлениеРозничнойТорговлей.ПолучитьПродажнуюЦену(ДатаЦен, Номенклатура,
		   Характеристика, Склад, УсловиеПродаж);
	Иначе
		Если ТипЦен <> Неопределено Тогда
			Если Контрагент = Неопределено Тогда
				Цена = Ценообразование.ПолучитьЦенуНоменклатуры(Номенклатура, Характеристика, ТипЦен, ДатаЦен, Единица, Валюта, , , , Договор, УсловиеПродаж);
			Иначе
				Цена = Ценообразование.ПолучитьЦенуКонтрагента(Номенклатура, Характеристика, Контрагент, ТипЦен, ДатаЦен, Единица, Валюта, , , Договор, УсловиеПродаж);
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;

Личные бесплатные консультации не даю, для этого есть форум!

Ответить Цитировать выделенное

awp

23.12.09, 13:14

Сообщение #8

Почти ветеран
Иконка группы

Группа: Местный
Сообщений: 522
Спасибо сказали: 70 раз
Рейтинг: 0

Какая разница в конфигурации - у него есть функция СформироватьСтруктуруПодбора которая принимает 12 параметров- Причем первый параметр НОМЕНКЛАТУРА - Он же вызывая ее тулит туда на 1 параметр больше, а именно ДАТА



СформироватьСтруктуруПодбора(Знач Номенклатура, Знач Характеристика, Знач Серия,
									 Знач Качество, Знач Единица, Знач Количество, Знач Валюта,
									 Знач СерийныйНомер, Знач СкладыВТЧ, Знач ТипЦен,
									 Знач Контрагент = Неопределено,
									 Знач Договор = Неопределено) Экспорт

вызов функции



РаботаСТорговымОборудованием.СформироватьСтруктуруПодбора(Дата, Номенклатура, Характеристика,

Бухгалтер - это не профессия! Это диагноз!

Ответить Цитировать выделенное

Не нашли ответа на свой вопрос?

Зарегистрируйтесь и задайте новый вопрос.

« Предыдущая тема · Программирование в 1С Предприятие 8.1 (8.0) · Следующая тема »

Ответить Новая тема

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

Текстовая версия

Сейчас: 16.06.25, 0:51

1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!