Ошибка инициализации модуля: Документ.ОказаниеУслуг.МодульОбъекта по причине:

1. user724265 01.04.17 21:30 Сейчас в теме
Помогите пожалуйста
При создании "оказание услуг" в "оказание услуг" выдает ошибку:
Ошибка инициализации модуля: Документ.ОказаниеУслуг.МодульОбъекта
по причине:
{Документ.ОказаниеУслуг.МодульОбъекта(16,26)}: Пропущен символ '"' (двойная кавычка)
| КАК ВидНоменклатуры,"";<<?>>
{Документ.ОказаниеУслуг.МодульОбъекта(16,26)}: Ожидается символ ';'
| КАК ВидНоменклатуры,"";<<?>>
{Документ.ОказаниеУслуг.МодульОбъекта(17,48)}: Неопознанный оператор
ОказаниеУслугиПереченьНоменклатуры.НаборСвойств<<?>>,
{Документ.ОказаниеУслуг.МодульОбъекта(31,36)}: Ожидается идентификатор
ОказаниеУслугиПереченьНоменклатуры.<<?>>НаборСвойств";
{Документ.ОказаниеУслуг.МодульОбъекта(31,49)}: Неопознанный оператор
ОказаниеУслугиПереченьНоменклатуры.НаборСвойств"<<?>>;
{Документ.ОказаниеУслуг.МодульОбъекта(40,26)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
| НоменклатураДокумента."<<?>>ВидНоменклатуры";
{Документ.ОказаниеУслуг.МодульОбъекта(75,38)}: Ошибка в выражении
РезультатЗапроса = Запрос2.Выполнить(<<?>>);
{Документ.ОказаниеУслуг.МодульОбъекта(139,29)}: Ожидается ключевое слово 'КонецЕсли' ('EndIf')
| ОстаткиМатериаловОстатки."<<?>>Материал",
{Документ.ОказаниеУслуг.МодульОбъекта(164,12)}: Обнаружено логическое завершение исходного текста модуля
КонецЦикла;<<?>>


#Область НоменклатураДокумента
Запрос = Новый Запрос;
// Укажем, какой менеджер временных таблиц использует этот запрос
Запрос.МенеджерВременныхТаблиц = МенеджерВТ;
Запрос.Текст =
"ВЫБРАТЬ
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры
| КАК ВидНоменклатуры,
ОказаниеУслугиПереченьНоменклатуры.НаборСвойств,
| СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество)
| КАК КоличествоВДокументе,
| СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе
|ПОМЕСТИТЬ НоменклатураДокумента
|ИЗ
| Документ.ОказаниеУслуги.ПереченьНоменклатуры
| КАК ОказаниеУслугиПереченьНоменклатуры
|ГДЕ
| ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры";
ОказаниеУслугиПереченьНоменклатуры.НаборСвойств";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
РезультатЗапроса = Запрос.Выполнить();
#КонецОбласти
Показать
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. spacecraft 01.04.17 22:19 Сейчас в теме
(1) пропущен символ продолжения строки. Нужно так:
Запрос.Текст = 
"ВЫБРАТЬ 
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура, 
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры 
| КАК ВидНоменклатуры, 
| ОказаниеУслугиПереченьНоменклатуры.НаборСвойств, 
| СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) 
| КАК КоличествоВДокументе, 
| СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе 
|ПОМЕСТИТЬ НоменклатураДокумента 
|ИЗ 
| Документ.ОказаниеУслуги.ПереченьНоменклатуры 
| КАК ОказаниеУслугиПереченьНоменклатуры 
|ГДЕ 
| ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка 
| 
|СГРУППИРОВАТЬ ПО 
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура, 
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры"; 
Показать
3. user724265 01.04.17 22:55 Сейчас в теме
(2)Ошибка инициализации модуля: Документ.ОказаниеУслуг.МодульОбъекта
по причине:
{Документ.ОказаниеУслуг.МодульОбъекта(31,36)}: Ожидается идентификатор
ОказаниеУслугиПереченьНоменклатуры.<<?>>НаборСвойств";
{Документ.ОказаниеУслуг.МодульОбъекта(31,49)}: Неопознанный оператор
ОказаниеУслугиПереченьНоменклатуры.НаборСвойств"<<?>>;
{Документ.ОказаниеУслуг.МодульОбъекта(40,26)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
| НоменклатураДокумента."<<?>>ВидНоменклатуры";
{Документ.ОказаниеУслуг.МодульОбъекта(75,38)}: Ошибка в выражении
РезультатЗапроса = Запрос2.Выполнить(<<?>>);
{Документ.ОказаниеУслуг.МодульОбъекта(139,29)}: Ожидается ключевое слово 'КонецЕсли' ('EndIf')
| ОстаткиМатериаловОстатки."<<?>>Материал",
{Документ.ОказаниеУслуг.МодульОбъекта(164,12)}: Обнаружено логическое завершение исходного текста модуля
КонецЦикла;<<?>>

#Область НоменклатураДокумента
Запрос = Новый Запрос;
// Укажем, какой менеджер временных таблиц использует этот запрос
Запрос.МенеджерВременныхТаблиц = МенеджерВТ;
Запрос.Текст =
"ВЫБРАТЬ
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура, 
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры 
| КАК ВидНоменклатуры, 
| ОказаниеУслугиПереченьНоменклатуры.НаборСвойств, 
| СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) 
| КАК КоличествоВДокументе, 
| СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе 
|ПОМЕСТИТЬ НоменклатураДокумента 
|ИЗ 
| Документ.ОказаниеУслуги.ПереченьНоменклатуры 
| КАК ОказаниеУслугиПереченьНоменклатуры 
|ГДЕ 
| ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка 
| 
|СГРУППИРОВАТЬ ПО 
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура, 
| ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры"; 
ОказаниеУслугиПереченьНоменклатуры.НаборСвойств";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
РезультатЗапроса = Запрос.Выполнить();
#КонецОбласти
Показать
4. user724265 02.04.17 00:45 Сейчас в теме
Нашла ответ


Процедура ОбработкаПроведения(Отказ, Режим) 
	Движения.ОстаткиМатериалов.Записывать = Истина; 
	Движения.СтоимостьМатериалов.Записывать = Истина; 
	Движения.Продажи.Записывать = Истина;
  // Создать менеджер временных таблиц 
  МенеджерВТ = Новый МенеджерВременныхТаблиц; 
  
  #Область НоменклатураДокумента 
  Запрос = Новый Запрос; 
  // Укажем, какой менеджер временных таблиц использует этот запрос 
  Запрос.МенеджерВременныхТаблиц = МенеджерВТ; 
  Запрос.Текст =   
  "ВЫБРАТЬ  
  | ОказаниеУслугиПереченьНоменклатуры.Номенклатура,  
  | ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры   
  |         КАК ВидНоменклатуры,  
  | СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество)   
  |         КАК КоличествоВДокументе,  
  | СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе  
  |ПОМЕСТИТЬ НоменклатураДокумента  
  |ИЗ  
  | Документ.ОказаниеУслуги.ПереченьНоменклатуры   
  |      КАК ОказаниеУслугиПереченьНоменклатуры  
  |ГДЕ  
  | ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка  
  |  СГРУППИРОВАТЬ ПО  
  | ОказаниеУслугиПереченьНоменклатуры.Номенклатура,  
  | ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры"; 
  Запрос.УстановитьПараметр("Ссылка", Ссылка); 
  РезультатЗапроса = Запрос.Выполнить(); 
  #КонецОбласти
  #Область ДвиженияДокумента 
  Запрос2 = Новый Запрос; 
  Запрос2.МенеджерВременныхТаблиц = МенеджерВТ;
  Запрос2.Текст = "ВЫБРАТЬ                 
  | НоменклатураДокумента.Номенклатура,                 
  | НоменклатураДокумента.ВидНоменклатуры,                 
  | НоменклатураДокумента.КоличествоВДокументе,                 
  | НоменклатураДокумента.СуммаВДокументе,                 
  | ЕСТЬNULL(СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость,                 
  | ЕСТЬNULL(ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество                 
  |ИЗ                 
  | НоменклатураДокумента КАК НоменклатураДокумента                 
  |  ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(                 
  |    ,                 
  |    Материал В                 
  |     (ВЫБРАТЬ                 
  |      НоменклатураДокумента.Номенклатура                 
  |     ИЗ                 
  |      НоменклатураДокумента))                  
  |       КАК СтоимостьМатериаловОстатки                 
  |  ПО НоменклатураДокумента.Номенклатура =                  
  |       СтоимостьМатериаловОстатки.Материал                 
  |  ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(                 
  |    ,                 
  |    Материал В                 
  |     (ВЫБРАТЬ                 
  |      НоменклатураДокумента.Номенклатура                 
  |     ИЗ                 
  |      НоменклатураДокумента))                  
  |        КАК ОстаткиМатериаловОстатки                 
  |  ПО НоменклатураДокумента.Номенклатура =                  
  |       ОстаткиМатериаловОстатки.Материал";      
  // Установим необходимость блокировки данных в регистрах СтоимостьМатериалов  
  // и ОстаткиМатериалов 
  Движения.СтоимостьМатериалов.БлокироватьДляИзменения = Истина; 
  Движения.ОстаткиМатериалов.БлокироватьДляИзменения = Истина; 
  // Запишем пустые наборы записей, чтобы читать остатки без учета данных в документе 
  Движения.СтоимостьМатериалов.Записать(); 
  Движения.ОстаткиМатериалов.Записать();      
  РезультатЗапроса = Запрос2.Выполнить();    
  // ТЗ = РезультатЗапроса.Выгрузить(); 
  ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); 
  Пока ВыборкаДетальныеЗаписи.Следующий() Цикл  
	  Если ВыборкаДетальныеЗаписи.Количество = 0 Тогда   
		  СтоимостьМатериала = 0;  
	  Иначе   
		  СтоимостьМатериала = ВыборкаДетальныеЗаписи.Стоимость          
		  / ВыборкаДетальныеЗаписи.Количество;  
	  КонецЕсли;  
	  Если ВыборкаДетальныеЗаписи.ВидНоменклатуры =        
		  Перечисления.ВидыНоменклатуры.Материал Тогда 
  // Регистр ОстаткиМатериалов Расход   
  Движение = Движения.ОстаткиМатериалов.Добавить();   
  Движение.ВидДвижения = ВидДвиженияНакопления.Расход;   
  Движение.Период = Дата;   
  Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;   
  Движение.Склад = Склад;   
  Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;     
  // Регистр СтоимостьМатериалов Расход   
  Движение = Движения.СтоимостьМатериалов.Добавить();   
  Движение.ВидДвижения = ВидДвиженияНакопления.Расход;   
  Движение.Период = Дата;   
  Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;   
  Движение.Стоимость = ВыборкаДетальныеЗаписи.КоличествоВДокументе             
  * СтоимостьМатериала;  
КонецЕсли;

   // Регистр Продажи   
   Движение = Движения.Продажи.Добавить();  
   Движение.Период = Дата;  
   Движение.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;  
   Движение.Клиент = Клиент;  
   Движение.Мастер = Мастер;  
   Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;  
   Движение.Выручка = ВыборкаДетальныеЗаписи.СуммаВДокументе;  
   Движение.Стоимость = СтоимостьМатериала *         
   ВыборкаДетальныеЗаписи.КоличествоВДокументе; 
  КонецЦикла;
  
  Движения.Записать(); 
  #КонецОбласти
  #Область КонтрольОстатков 
  Если Режим = РежимПроведенияДокумента.Оперативный Тогда  
	  // Проверить отрицательные остатки  
	  Запрос3 = Новый Запрос;  
	  Запрос3.МенеджерВременныхТаблиц = МенеджерВТ;  
	  Запрос3.Текст = "ВЫБРАТЬ                  
	  | ОстаткиМатериаловОстатки.Материал,                  
	  | ОстаткиМатериаловОстатки.КоличествоОстаток                  
	  |ИЗ                  
	  | РегистрНакопления.ОстаткиМатериалов.Остатки(                  
	  |   ,                  
	  |   Материал В                  
	  |     (ВЫБРАТЬ                  
	  |      НоменклатураДокумента.Номенклатура                  
	  |     ИЗ                  
	  |      НоменклатураДокумента)                  
	  |    И Склад = &Склад) КАК ОстаткиМатериаловОстатки                  
	  |ГДЕ                  
	  | ОстаткиМатериаловОстатки.КоличествоОстаток < 0";        
	  Запрос3.УстановитьПараметр("Склад", Склад);
	  РезультатЗапроса = Запрос3.Выполнить();  
	  ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();  
	  Пока ВыборкаДетальныеЗаписи.Следующий() Цикл   
		  Сообщение = Новый СообщениеПользователю();   
		  Сообщение.Текст = "Не хватает " + Строка(-      
		  ВыборкаДетальныеЗаписи.КоличествоОстаток) +      
		  " единиц материала  """ + ВыборкаДетальныеЗаписи.Материал + """";   
		  Сообщение.Сообщить();   
		  Отказ = Истина;  
	  КонецЦикла; 
  КонецЕсли; 
  #КонецОбласти
 КонецПроцедуры
Показать
5. user2112512 04.11.24 07:42 Сейчас в теме
Здравствуйте,
а у меня ошибка такая:

Ошибка инициализации модуля: Документ.ОказаниеУслуг.МодульОбъекта
по причине:
{Документ.ОказаниеУслуг.МодульОбъекта(36,11)}: Процедура или функция с указанным именем уже определена (ОбработкаПроведения)
Процедура <<?>>ОбработкаПроведения(Отказ, Режим)
[ОшибкаКомпиляцииВстроенногоЯзыка]

Подскажите как можно исправть
6. user2112515 04.11.24 08:37 Сейчас в теме
(5)
Процедура или функция с указанным именем уже определена (ОбработкаПроведения)

Удалить из кода одну лишнюю процедуру с именем ОбработкаПроведения?
Да ну, бред какой-то.
7. user2107184 04.11.24 08:48 Сейчас в теме
(6) надо на 1С ошибку зарегать.
8. user2112512 04.11.24 09:37 Сейчас в теме
(6) все решила проблему. Два раза продублировала код по невнимательности. Спасибо всем
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот