Так как для бухгалтерского учета разделение касс было не нужно, проводки делались по забалансовому, вспомогательному счету. Сначала необходимо для документов «Приходной кассовый ордер» и «Расходной кассовый ордер» создать реквизит «Изм_Подразделение» (Тип: СправочникСсылка.ПодразделенияОрганизаций) и соответственно вывести их на ФормуДокумента. В справочник «ПодразделенияОрганизаций» добавить реквизиты: «Изм_Префикс»(Тип: Строка. Длина: 2) , «Изм_Бухгалтер»(Тип: СправочникСсылка.ФизическиеЛица) и «Изм_Кассир»(Тип: СправочникСсылка.ФизическиеЛица) и соответственно вывести на формуЭлемента.
Создать новый СчетУчета
КодСчета: К50
Код быстрого выбора: К50
Наименование: Кассы организации
Вид счета: Активный
Не подчинен.
«Заболансовый» — Да.
Счет является группой — Нет
В видах учета: Поставить галку только напротив «Учет по подразделениям».
Виды учета по субконто: добавить «Статьи движения денежных средств»(выбрать из списка, он там есть), Только обороты — Нет, Суммовой — Да.
Далее в документе «Приходной кассовый ордер» в конец процедуры «Процедура ДвиженияПоРегистрам»
//ИЗМ ** начало
Проводка = Проводки.Добавить();
Проводка.Период = ДатаДок;
Проводка.Организация = Организация;
Проводка.ПодразделениеДТ = Изм_Подразделение;
Проводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду(«К50»);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, «СтатьиДвиженияДенежныхСредств», РасшифровкаПлатежа[0].СтатьяДвиженияДенежныхСредств);
Проводка.Содержание = СодержаниеПроводки;
Проводка.Сумма = СуммаДокумента;
//ИЗМ ** окончание
Далее в документе «Расходной кассовый ордер» в конец процедуры «Процедура ДвиженияПоРегистрам»
//ИЗМ ** начало
Проводка = Проводки.Добавить();
Проводка.Период = Дата;
Проводка.Организация = Организация;
Проводка.ПодразделениеКТ = Изм_Подразделение;
Проводка.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду(«К50»);
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, «СтатьиДвиженияДенежныхСредств», РасшифровкаПлатежа[0].СтатьяДвиженияДенежныхСредств);
Проводка.Содержание = СодержаниеПроводки;
Проводка.Сумма = СуммаДокумента;
//ИЗМ ** окончание
Осталось немного))))
В процедуру «Процедура ПриУстановкеНовогоНомераДокумента» из общего модуля «ОбщегоНазначения» добавить в конец процедуры:
//ИЗМ ** начало
Если ТипЗнч(Источник) = Тип(«ДокументОбъект.ПриходныйКассовыйОрдер») или ТипЗнч(Источник) = Тип(«ДокументОбъект.РасходныйКассовыйОрдер») Тогда
Если НЕ Источник.Изм_Подразделение.Пустая() Тогда
Префикс = СокрЛП(Источник.Изм_Подразделение.Изм_Префикс);
КонецЕсли;
КонецЕсли;
//ИЗМ ** окончани
Вот и все!!! За 15 минут мы с Вами сделали все изменения необходимые для работы этой внешней кассовой книги. Если вы все сделали правильно, то все будет работать.
P.S. Спасибо за разработку yuri76
Удачи Вам в работе и интересных задач!!!
Такая же ситуация была, писали кассовую книгу, правда делали указание подразделения через Доп. реквизиты (первое требование заказчика, чтобы все через подписки, никакого ломания форм), а вывод данных по остаткам и движениям по кассе подразделения посадили через новый регистр накопления (запрос был дикий). Вот увидев, данную обработку решил посмотреть — один ли результат будет (ну дабы наш запрос еще раз проверить). Решение с забалансовым счетом — Тема!)
.
а вот так не проще? не надо конфу менять, все на автомате самой системы.
и как Вы уважаемый собираетесь начальные и конечные остатки по книге собирать, ежели включили только обороты=истина??? что мы и видим в начало и конец дня.
Извиняюсь описался. Точнее сам протупил. Действительно счет не «Только обороты»
Не работает пишет «Нарушение прав доступа»! Почему про регистр сведений ничего не упомянуто в описании?
Я ее запускал всегда под полными правами, на пользователе не тестил. Будет время посмотрю. На какой регистр сведений?
Вот этот регистр Вы добавили, про него ничего не сказали.
Номера = РегистрыСведений.Изм_НомераЛистовКассовойКниги.СоздатьНаборЗаписей();
Номера.Отбор.Организация.Установить(Организация);
Номера.Отбор.ПлатежныйАгент.Установить(ПлатежныйАгент);
// {ОбособленныеПодразделения
Номера.Отбор.ПодразделениеОрганизации.Установить(ПодразделениеОрганизации);
// }ОбособленныеПодразделения
Номера.Прочитать();
Номера.Очистить();
Номера.Записать();
Извиняюсь, запамятовал.
мне больше этот вариант нравится, чем по статьям ДДС делить.
А регистр аналогичный типовому будет + Измерение «Подразделение организации»?
ДА!!!
Пользуемся около полугода=все ровно! спасибо огромное!!!
Народ!!!! Нумерация в разрезе подразделений!!! Кто как выкутился?
1) Решена ли проблема с тем, что кассовые ордера в типовой имеют сквозную нумерацию независимо от кассы (подразделения)? По закону должна быть отдельная по каждой кассе.
2) Реализован ли в вашем отчете типовой корректный учет номеров ЛИСТОВ Кассовой книги при печати несколько раз в год?
3) Запустится ли без ошибок отчет на релизах 2017 года, на 3.0.49.17 например, или он устарел?
(12)День добрый. Данной отчет реализован для ред. 2.0
Для 3.0 доработка типового механизма для подразделений делается намного проще.