gifts2017

Кассовая книга по подразделениям для Бухгалтерия предприятия 2.0.

Опубликовал Роман Сошкин (jsuh) в раздел Отчеты - Бухгалтерские

Разработка делалась для организации с 1С:Бухгалтерия 8 ПРОф. В один момент открылся филиал и появилась необходимость формировать отдельную кассовую книгу. Переходить на КОРП версию они не стали, и решили что оба офиса будут работать в одной базе. Вот и пришлось делать такой внешний отчет. Но для работы этого отчета необходимо сделать небольшие изменения конфигурации.

Так как для бухгалтерского учета разделение касс было не нужно, проводки делались по забалансовому, вспомогательному счету. Сначала необходимо для документов "Приходной кассовый ордер" и "Расходной кассовый ордер" создать реквизит    "Изм_Подразделение"    (Тип: СправочникСсылка.ПодразделенияОрганизаций) и соответственно вывести их на ФормуДокумента. В справочник "ПодразделенияОрганизаций" добавить реквизиты: "Изм_Префикс"(Тип: Строка. Длина: 2) , "Изм_Бухгалтер"(Тип: СправочникСсылка.ФизическиеЛица) и "Изм_Кассир"(Тип: СправочникСсылка.ФизическиеЛица) и соответственно вывести на формуЭлемента.

Создать новый СчетУчета

КодСчета: К50

Код быстрого выбора: К50

Наименование: Кассы организации

Вид счета: Активный

Не подчинен.

"Заболансовый" - Да.

Счет является группой - Нет

В видах учета: Поставить галку только напротив "Учет по подразделениям".

Виды учета по субконто: добавить "Статьи движения денежных средств"(выбрать из списка, он там есть), Только обороты - Нет, Суммовой - Да.

Далее в документе "Приходной кассовый ордер" в конец процедуры "Процедура ДвиженияПоРегистрам"

 


    //ИЗМ ** начало

   
Проводка                 = Проводки.Добавить();

   
Проводка.Период          = ДатаДок;

   
Проводка.Организация     = Организация;

   
Проводка.ПодразделениеДТ = Изм_Подразделение;

   
Проводка.СчетДт          = ПланыСчетов.Хозрасчетный.НайтиПоКоду("К50");

   
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "СтатьиДвиженияДенежныхСредств"РасшифровкаПлатежа[0].СтатьяДвиженияДенежныхСредств);

   
Проводка.Содержание      = СодержаниеПроводки;

   
Проводка.Сумма           = СуммаДокумента;

   
//ИЗМ ** окончание

Далее в документе "Расходной кассовый ордер" в конец процедуры "Процедура ДвиженияПоРегистрам"


  //ИЗМ ** начало

   
Проводка = Проводки.Добавить();

   
Проводка.Период          = Дата;

   
Проводка.Организация     = Организация;

   
Проводка.ПодразделениеКТ = Изм_Подразделение;

   
Проводка.СчетКт          = ПланыСчетов.Хозрасчетный.НайтиПоКоду("К50");

   
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, "СтатьиДвиженияДенежныхСредств"РасшифровкаПлатежа[0].СтатьяДвиженияДенежныхСредств);

   
Проводка.Содержание      = СодержаниеПроводки;

   
Проводка.Сумма           = СуммаДокумента;

   
//ИЗМ ** окончание

 

Осталось немного))))

В процедуру "Процедура ПриУстановкеНовогоНомераДокумента" из общего модуля "ОбщегоНазначения" добавить в конец процедуры:


//ИЗМ ** начало

   
Если ТипЗнч(Источник) = Тип("ДокументОбъект.ПриходныйКассовыйОрдер") или ТипЗнч(Источник) = Тип("ДокументОбъект.РасходныйКассовыйОрдер") Тогда

        Если НЕ
Источник.Изм_Подразделение.Пустая() Тогда

           
Префикс = СокрЛП(Источник.Изм_Подразделение.Изм_Префикс);

        КонецЕсли;

    КонецЕсли;

   
//ИЗМ ** окончани

Вот и все!!! За 15 минут мы с Вами сделали все изменения необходимые для работы этой внешней кассовой книги. Если вы все сделали правильно, то все будет работать.

 

P.S. Спасибо за разработку yuri76

Удачи Вам в работе и интересных задач!!!


 


 

Скачать файлы

Наименование Файл Версия Размер
Кассовая книга 53
.erf 31,36Kb
13.02.13
53
.erf 31,36Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Phoenix F (Lordemar) 28.02.13 21:02
Такая же ситуация была, писали кассовую книгу, правда делали указание подразделения через Доп. реквизиты (первое требование заказчика, чтобы все через подписки, никакого ломания форм), а вывод данных по остаткам и движениям по кассе подразделения посадили через новый регистр накопления (запрос был дикий). Вот увидев, данную обработку решил посмотреть - один ли результат будет (ну дабы наш запрос еще раз проверить). Решение с забалансовым счетом - Тема!)
2. max maxx (motorkuzbassa.it) 01.03.13 11:05
http://infostart.ru/public/173191/.
а вот так не проще? не надо конфу менять, все на автомате самой системы.
и как Вы уважаемый собираетесь начальные и конечные остатки по книге собирать, ежели включили только обороты=истина??? что мы и видим в начало и конец дня.
3. Роман Сошкин (jsuh) 11.03.13 13:08
Извиняюсь описался. Точнее сам протупил. Действительно счет не "Только обороты"
4. Yevgeniy Захаров (evgen.a) 03.04.13 10:22
Не работает пишет "Нарушение прав доступа"! Почему про регистр сведений ничего не упомянуто в описании?
5. Роман Сошкин (jsuh) 08.04.13 11:47
Я ее запускал всегда под полными правами, на пользователе не тестил. Будет время посмотрю. На какой регистр сведений?
6. Артем Талицкий (Atal) 11.05.13 21:20
Вот этот регистр Вы добавили, про него ничего не сказали.

Номера = РегистрыСведений.Изм_НомераЛистовКассовойКниги.СоздатьНаборЗаписей();
Номера.Отбор.Организация.Установить(Организация);
Номера.Отбор.ПлатежныйАгент.Установить(ПлатежныйАгент);
// {ОбособленныеПодразделения
Номера.Отбор.ПодразделениеОрганизации.Установить(ПодразделениеОрганизации);
// }ОбособленныеПодразделения
Номера.Прочитать();
Номера.Очистить();
Номера.Записать();
pvl_mksv; +1 Ответить
7. Роман Сошкин (jsuh) 15.05.13 00:48
Извиняюсь, запамятовал.
8. Алена Андреевна (00alenka00) 21.05.13 15:53
мне больше этот вариант нравится, чем по статьям ДДС делить.
А регистр аналогичный типовому будет + Измерение "Подразделение организации"?
9. Роман Сошкин (jsuh) 13.08.13 15:52
10. Оля Иванова (ulili2012) 05.12.13 10:39
Пользуемся около полугода=все ровно! спасибо огромное!!!
11. Павел Мокосеев (pvl_mksv) 23.04.14 19:24
Народ!!!! Нумерация в разрезе подразделений!!! Кто как выкутился?