Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 16:39

Регистр учёта операций выбытия имущества

Автор Antares, 26 окт 2010, 13:44

0 Пользователей и 1 гость просматривают эту тему.

Antares

Прошу сильно не пинать, я ещё новичок в этом деле. Так вот, при поступлении денег от столовой организации составлялся акт, в форме заполнения акта есть возможность поставить галочку "от услуг столовой" (кто и как добавил такую возможность не знаю ). В столовой установили кассовый аппарат, и теперь нужно оформлять приходный кассовый ордер, как можно добавить такую же возможность в форму приходного кассового ордера. Это нужно для формирования регистра учёта операций выбытия имущества непосредственно по столовой. На вкладке "Виды дохода" в окне "Регистр учёта операция выбытия имущества, работ услуг прав", есть пункт "Выручка от услуг столовой".

prog1c7.7

посмотри на обработку проведения акта, примерно так же будет и в модуле проведения  ПКО
в форме добавь галку. (но это если ооочень поверхностно объяснять)

Antares

Цитата: prog1c7.7 от 26 окт 2010, 14:30
посмотри на обработку проведения акта, примерно так же будет и в модуле проведения  ПКО
в форме добавь галку. (но это если ооочень поверхностно объяснять)


Вот, нашёл в модуле документа "оказание услуг" упоминание об услугах столовой.

Если (ВыручкаБезНалогов > 0) и (глНовыеПравилаВеденияНУ(ДатаДок) = 1) и (ТаблицаРеализации.ВидНоменклатуры.ТипНоменклатуры <> Перечисление.ТипыНоменклатуры.УслугаЕНВД) Тогда
Операция.НоваяПроводка();
Операция.НомерЖурнала = "НУ";
Операция.СодержаниеПроводки = "Выручка от реализации";
Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Если УслСтоловой=1 Тогда
Операция.Кредит.Счет = СчН06_12;
Иначе Операция.Кредит.Счет = СчН06_01;
КонецЕсли;

Операция.Кредит.Номенклатура = ТаблицаРеализации.Услуга;
Операция.Кредит.УсловияПоступленияИВыбытия = Перечисление.УсловияПоступленияИВыбытия.ЗаПлату;
Операция.Кредит.Основание = Договор;
Операция.Сумма = ВыручкаБезНалогов - СуммоваяРазница;

глОтражениеСуммовыхРазницВНаловомУчете(Контекст, СуммоваяРазница, 0);
КонецЕсли;

prog1c7.7

Если УслСтоловой=1 Тогда
Операция.Кредит.Счет = СчН06_12;

Видимо у тебя  флажок  "УслСтоловой"  на форме висит ?
ну вот в эту сторону и покури.

prog1c7.7


Antares


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск