Проблема с 1с, кафе-бар
22.07.2009
21:54
#1
"Стоит 1с 7.70.027, Кафе-Бар. При закрытии стола высвечивает ошибку:
Регистр.Деньги.ДвижениеПриходВыполнить();
{Документ.Заказ.Модуль Документа(14)}: Движения регистров не могут выполняться у данного объекта.
и стол не закрывается.
Вот код:
Процедура ОбработкаПроведения()
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Если СокрЛП(Продукт.Подразделение) = "БАР-2" Тогда
Регистр.Деньги.СуммаБар2 = СуммаСоСкидкой;
Иначе
Регистр.Деньги.Сумма = СуммаСоСкидкой;
КонецЕсли;
Регистр.Деньги.Статья = Константа.ОсновнаяДеятельность;
Регистр.Деньги.Официант = Официант;
Регистр.Деньги.ДвижениеПриходВыполнить();
КонецЦикла;
Константа.ДокументОткрыт = 0;
//Списание
ВыбратьСтроки();
Спр = СоздатьОбъект("Справочник.КалькуляционнаяКарта");
Пока ПолучитьСтроку() = 1 Цикл
Спр.ИспользоватьВладельца(Продукт);
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
Если Спр.ПометкаУдаления() = 0 Тогда
Регистр.ДвижениеТоваров.Ингридиент = Спр.Ингридиент;
Регистр.ДвижениеТоваров.Подразделение = Продукт.Подразделение;
Регистр.ДвижениеТоваров.Количество = Спр.Брутто*Кво;
Регистр.ДвижениеТоваров.Продукт = Продукт;
Регистр.ДвижениеТоваров.ДвижениеРасходВыполнить();
КонецЕсли;
КонецЦикла;
КонецЦикла
КонецПроцедуры"
Регистр.Деньги.ДвижениеПриходВыполнить();
{Документ.Заказ.Модуль Документа(14)}: Движения регистров не могут выполняться у данного объекта.
и стол не закрывается.
Вот код:
Процедура ОбработкаПроведения()
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Если СокрЛП(Продукт.Подразделение) = "БАР-2" Тогда
Регистр.Деньги.СуммаБар2 = СуммаСоСкидкой;
Иначе
Регистр.Деньги.Сумма = СуммаСоСкидкой;
КонецЕсли;
Регистр.Деньги.Статья = Константа.ОсновнаяДеятельность;
Регистр.Деньги.Официант = Официант;
Регистр.Деньги.ДвижениеПриходВыполнить();
КонецЦикла;
Константа.ДокументОткрыт = 0;
//Списание
ВыбратьСтроки();
Спр = СоздатьОбъект("Справочник.КалькуляционнаяКарта");
Пока ПолучитьСтроку() = 1 Цикл
Спр.ИспользоватьВладельца(Продукт);
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл
Если Спр.ПометкаУдаления() = 0 Тогда
Регистр.ДвижениеТоваров.Ингридиент = Спр.Ингридиент;
Регистр.ДвижениеТоваров.Подразделение = Продукт.Подразделение;
Регистр.ДвижениеТоваров.Количество = Спр.Брутто*Кво;
Регистр.ДвижениеТоваров.Продукт = Продукт;
Регистр.ДвижениеТоваров.ДвижениеРасходВыполнить();
КонецЕсли;
КонецЦикла;
КонецЦикла
КонецПроцедуры"
23.07.2009
17:13
#5
это то я знаю)
я не знаю в каком документе, все обмотрел, у меня вообще такого пункта нет чтоб галочку поставить
я не знаю в каком документе, все обмотрел, у меня вообще такого пункта нет чтоб галочку поставить
23.07.2009
17:14
#6
Ничего не напоминает :
> Документ.Заказ.Модуль Документа(14)}: Движения регистров не могут выполняться у данного объекта.
> Документ.Заказ.Модуль Документа(14)}: Движения регистров не могут выполняться у данного объекта.
Читают тему
(гостей: 1)