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

24.11.14

Учетные задачи - Кассовые операции

В бухгалтерии 3.0 ПРОФ потребовалась вести кассу по подразделениям. Прочитав много статей, я поняла, что можно перейти на КОРП, либо переделать конфигурацию, на КОРП переход насчитали около 25000, решила переделать конфигурацию, но чтобы изменения в основных объектах были минимальны. Может, кому пригодится, а может, кто-то найдет у меня ошибки или прокомментирует)

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Отчет кассовая книга по подразделениям
.erf 26,59Kb
50
50 Скачать (1 SM) Купить за 1 850 руб.

1. Добавляю в ПКО и РКО реквизиты сПодразделениеКТ и СПодразделениеДТ

зачем в ПКО добавила сПодразделениеКТ  не знаю, на всякий случай видимо, в РКО СПодразделениеДТ добавила для перемещения между кассами сделала

 

   Выводим на форму документа ПКО реквизит сПодразделениеДТ

Выводим на форму документа РКО реквизиты сПодразделениеКт и с ПодразделениеДТ

2. Создаем регистр накоплений сКассоваяКнига

3. Для того, чтобы при проведении ПКО и РКО данные этих документов попадали в регистр, создаем Подписку на событие

и общий модуль со следующей процедурой

 

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


4. В регистр сведений НомераЛистовКассовойКниги добавляем реквизит Подразделение

5. создаем новый отчет КассоваяКнигаПоПодразделениям (прилагается в файле)

Теперь посмотрим как выглядит это в базе 

Выбираем дату отсчета и вводим с помощью ПКО и Корректировки и ручной корректировки движений начальные остатки по подразделениям

далее заполняя ПКО и РКО указываем подразделение, при проведении движение записываются в регистр КассоваяКнига

для перемещения м/у кассами выбираем вид операции Прочий расход, счет БУ 5001 и склад в который приходуются деньги

Кассовая книга выглядит так

 

Вот такое решение, впервые работаю с 1С Бухгалтерией 8.3

См. также

ККМ Кассовые операции Розничная торговля Системный администратор Программист Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия 1.6 1С:Бухгалтерия автономного учреждения Россия Платные (руб)

Универсальная обработка для обслуживания любых фискальных регистраторов (ККТ), в том числе Веб сервер АТОЛ. Работает в соответствии с 54-ФЗ. (ФФД 1.0, ФФД 1.05, ФФД 1.1, ФФД 1.2). Подключайте любую онлайн кассу к практически любой конфигурации на обычных формах. Нет необходимости обновлять 1С. Можно бесплатно скачать и протестировать. Может работать одновременно с несколькими онлайн-кассами, либо одной с разных рабочих мест. (через RDP, TCP\IP или веб-сервер) Позволяет разделить один чек сразу на несколько ККТ или на несколько систем налогообложения. Поддерживает разрешительный режим и маркировку. Поддерживает локальный модуль честного знака для офлайн проверки. Можно настроить собственный шаблонов чека. Можно использовать эквайринг там, где он не поддерживается. Работает на LINUX и Windows

6000 руб.

27.02.2017    816563    5207    9785    

2950

ККМ Кассовые операции Розничная торговля Системный администратор Программист Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия автономного учреждения Россия Платные (руб)

Обработка осуществляет обслуживание ККТ АТОЛ, Штрих, Вики Принт и Меркурий для конфигураций "УТ 10.3", "КА 1.1", "УПП 1.3", "Розница 1.0", "БП 2.0" и других отраслевых решений, построенных на основе указанных выше конфигурациях. Поддерживает возможность параллельно пробития чеков на одной ККМ несколькими пользователями. Поддерживает Веб-сервер Атол. Соответствует требованиям 54-ФЗ. Поддерживает ФФД 1.0, 1.05, 1.1 и 1.2. Разделяет чеки по нескольким СНО. Поддерживает механизмы подключения ККТ по TCP/IP, для работы через RDP или интернет. Поддержка маркировки и разрешительного режима. Поддержка пробития чеков с новыми ставками НДС 5% и НДС 7%.

7900 руб.

25.05.2015    342398    2068    3121    

1086

ККМ Кассовые операции Розничная торговля Программист Бухгалтер Пользователь Бухгалтерский учет Оперативный учет Управляемые формы 1С:Розница 2 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Расширение для типовых конфигураций для Управляемых форм позволяет выполнять печать кассовых чеков на одну ККМ 54-ФЗ с нескольких рабочих мест. НИКАКИХ НАСТРОЕК В РАЗРАБОТКЕ - ПОДКЛЮЧИЛ И ПЕЧАТАЙ. Если у вас несколько отделов и одна ККМ - печатайте на одной ККМ! Если у вас две ККМ и одна поломалась - печатайте на одной ККМ, пока ремонтируете другую!

9500 руб.

27.08.2018    125802    671    603    

897

ККМ Кассовые операции Розничная торговля Системный администратор Программист Пользователь Платформа 1С v8.3 1C:Бухгалтерия Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Платные (руб)

«Сервер ККМ» позволяет приложениям работать с фискальными регистраторами по локальной сети или интернет, организовать печать на одном ККМ с нескольких рабочих мест с поддержкой очереди печати. Поддерживаются ВСЕ ревизии требований фирмы 1С к разработке драйверов ККТ от 2.2 до 4.4. В поставке есть драйверы для операционных систем Linux, Android, MacOs и Windows. Поддержка драйверов Атол, Штрих и 1С-совместимых драйверов для ККТ ревизии 4.4. Поддержка 54-ФЗ и разрешительного режима, ФФД 1.05,1.1,1.2. Подключается к 1С Торговля и склад 7.7, 1С:УТ 10/11, 1С:УНФ 1.6/3, 1С:Розница 1/2/3, 1С:БП 2/3, 1С КА 1/2., 1С:ERP, УПП. Ускоряет печать из терминального сеанса Windows. Работает с разрешительным режимом даже из старых конфигураций. Предоставляет REST API для печати через веб-сервис. Поддерживаются новые ставки НДС 5% и 7%.

5000 руб.

02.09.2016    139995    203    196    

197

Кассовые операции Файловый обмен (TXT, XML, DBF), FTP ЭДО и ОФД Программист Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Бухгалтерский учет Налоговый учет Управленческий учет Платные (руб)

Специализированные обработки для загрузки кассовых чеков в локальных базах: 1С:БП 3.0, 1С:УНФ 3.0, 1С:КА. 2.5, 1С:ERP Управление предприятием 2.5 и 1С:УТ 11.5. Вы просто сканируете QR коды с бумажных и электронных чеков c помощью мобильного приложения ФНС и чеки автоматически (без ручного ввода) загружаются в документы 'Авансовый отчет', 'Расходы предпринимателя', 'Путевой лист', 'Приходная накладная', 'Поступление (акты, накладные, УПД)', 'Приобретение товаров и услуг', 'Отчет о розничных продажах' и 'Поступление денежных документов'. Обработка будет работать на любой версии конфигурации: базовой, ПРОФ или КОРП.

19.08.2020    71251    228    delta    86    

233

Кассовые операции ККМ Пользователь Платформа 1С v8.3 1С:Управление торговлей 11 Розничная и сетевая торговля (FMCG) Россия Управленческий учет Платные (руб)

Расширение для 1С:Управление торговлей 11.5, которое позволяет пробивать чеки ККМ и списывать товар с разных складов. Склад списание товара можно указывать в табличной части рабочего места кассира (РМК).

5880 руб.

12.04.2023    10950    61    3    

50

Кассовые операции ЭДО и ОФД Бухгалтер Платформа 1С v8.3 Бухгалтерский учет 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Бухгалтерский учет Платные (руб)

Согласно 54-ФЗ по правилам ведения кассовых операций необходимо оформлять приходные кассовые ордера (ПКО) и расходные кассовые ордера (РКО) на основании чеков ККМ. Все данные о чеках, можно взять на сайте оператора фискальных данных (ОФД). Обработка загрузки данных из ОФД в 1С сделает за вас в 1С - ПКО и РКО, Операции по платежным картам или Отчет о розничных продажах (может создать номенклатуру в 1С, указать налоги и др. реквизиты в документах в зависимости от налогообложения ККМ в торговой точке).

7200 руб.

09.08.2017    154636    922    372    

564

ККМ Кассовые операции Розничная торговля Ценообразование, анализ цен Системный администратор Платформа 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Можно ли в 1С:Розница подключить несколько касс на одно рабочее место? Теперь это возможно! Решение позволяет подключать неограниченное количество касс к одному рабочему месту и выбирать, на какой кассе пробивать чек в зависимости от необходимости. Публикация состоит из двух файлов: одно из них — расширение конфигурации для ПРОФ-версии, второе — внешняя обработка РМК для базовой версии.

4560 руб.

07.08.2018    78034    511    359    

369
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Димча 135 24.11.14 19:51 Сейчас в теме
Можно установить Константу "ВестиУчетПоПодразделениям" в "Истина".
Для счета "50.01" установить "УчетПоПодразделениям".
Настроить обособленные подразделения в Справочнике "Подразделения".
Тогда будут доступен имеющийся реквизит - "ПодразделениеОрганизации" в ПКО и РКО.
Попробуйте.
user666770_anastasiyatretyakova; xavi; WhiteOwl; +3 Ответить
10. WhiteOwl 448 02.12.14 14:31 Сейчас в теме
(1) ага, и еще разбанить установку значения в менеджере константы, а то там принудительно сбрасывается в "ложь". И ведь работает, только по головному и обособленному отдельно, а это же вроде не то, что нужно автору. А нашим бухам вообще не совсем понятно, что нужно, они и сами не знают :)
2. ssvetusik 9 25.11.14 04:54 Сейчас в теме
Пробовала, может что не так делала, но у меня реквизит то появился в РКО и ПКО, только проводок по подразделениям не было(((
3. AlexeyPapanov 470 25.11.14 08:43 Сейчас в теме
п.3 подписка на событие это лишнее мне кажется. плюс в подписке в том, что один раз описали движения для обеих документов.
еще подумайте, что будет, если вы отмените проведение? из регистра запись уйдет?
правильнее и проще делать в свойствах документа. там указываете, что документ является регистратором для вашего регистра и указываете в конструкторе движения по регистру.
если свойство "удаление движений" = автоматически, то при отмене проведения записи будут удаляться.
4. ssvetusik 9 25.11.14 09:57 Сейчас в теме
при отмене и пометки на удаление документов, запись из регистра уходит)
"...и указываете в конструкторе движения по регистру" вот тут я не поняла, если я вызову конструктор движений у документа в процедуре ОбработкаПроведения все написанное сотрется же?
6. AlexeyPapanov 470 25.11.14 19:10 Сейчас в теме
(4) все равно делается это именно так.
обычно регистр подчиняется документу (-ам) - регистратору, который двигает этот самый регистр.
если процедура ОбработкаПроведения уже есть, просто перед вызовом конструктора скопируйте ее, потом сделайте движение через конструктор и добавьте туда то, что было удалено конструктором..
ну или создание движений вставьте в эту процедуру - неважно в каком порядке.
на ютубе куча клипов про регистры наклопления и их создание. посмотрите.

(5) copti, ну опять философия... считайте эту книгу упр. отчетом. если ставят задачу 1снику, его дело сделать. а про нюансы юридической стороны пусть думают те, кому положено.
7. ssvetusik 9 26.11.14 08:30 Сейчас в теме
(6) при создании регистра я указала каким документам он подчиняется, и в документах ПКо и РКО в движениях автоматом появляется данный регистр, обновляет базу сис админ, и ему проще будет с подпиской, чтобы каждый раз при изменении модуля объекта не вставлять дописанный кусок
з.ы. для себя я всегда пользуюсь способом о котором вы говорите, так проще дописать процедуру ОбработкуПроведения)))
спасибо за комментарии

(5)я не писала что данная кассовая книга ведется для бух. учета. кассовая книга по всей организации никуда не делась и также функционирует
это просто решение которое было необходимо предприятию, для внутренних нужд, и почему я подвожу под штраф? я исполнитель, и выполняю это не потому что мне взбрело в голову)
5. Novomir 103 25.11.14 13:57 Сейчас в теме
На самом деле, не всегда следует делать то, что можете сделать. Дело в том, что бухучет запрещает в одной организации вести несколько кассовых книг. Она должна быть одной по определению. Такими доработками вы подводите ваше предприятие под штраф за нарушение правил ведения кассовых операций по административному кодексу. Гипотетически вы можете заявить на предприятии несколько операционных касс, то только в этом случае придется в налоговой регистрировать несколько лимитов кассовых остатков. Это вряд ли устроит гл.буха. Хотя я встречал учителей русского языка, которые пишут с ошибками, наверно есть и гл.бухи, которые не знакомы с бухучетом...
8. Гость 27.11.14 20:14
Какой релиз платформы 8.3 использовали и какой релиз Бухгалтерии Предприятия 3.0 ?
9. ssvetusik 9 28.11.14 06:48 Сейчас в теме
(8) 1С:Предприятие 8.3 (8.3.5.1088)
Бухгалтерия предприятия, редакция 3.0 (3.0.34.10)
11. Ироида 9 13.01.15 01:42 Сейчас в теме
В общем модуле процедура вся на экран не поместилась, поправьте, пожалуйста
13. ssvetusik 9 15.01.15 04:59 Сейчас в теме
(11), попробую отредактировать чтоб все поместилось
12. Flatra56 10 13.01.15 16:03 Сейчас в теме
Отчеты.сКассоваяКнигаПоПодразделениям.СформироватьОтчет(ПараметрыОтчета, АдресХранилища);

сам метод СформироватьОтчет от типовой книги взят и переписан? а то ругается что нету метода..т.к отчёт внешний..
14. ssvetusik 9 15.01.15 05:00 Сейчас в теме
(12), да все взято из стандартной типовой книги и переписано немного для внесенных изменений
15. mhs 20 16.01.15 04:52 Сейчас в теме
Если не сложно выложите полный текст обработки общего модуля, т.к. не влез полностью на экран
16. mhs 20 16.01.15 05:37 Сейчас в теме
Если не сложно выложите текст процедуры в общем модуле ... не вошел весь
17. simpleday87 07.07.15 05:58 Сейчас в теме
Повторюсь комментарием, выложите пож-та текс процедуры Процедура сПКОПроведениеОбработкаПроведения полностью
18. Dilovar9 50 16.03.17 10:07 Сейчас в теме
Есть более простой способ, сохранение поддержки конфигурации http://forum.infostart.ru/forum8/topic80906/message1759131/#message1759131
19. alegator 57 20.04.17 14:51 Сейчас в теме
Большая просьба (качал обработку - большое спасибо), Пвыложите пож-та текс процедуры Процедура сПКОПроведениеОбработкаПроведения полностью или на почту mov031274@yandex.ru
20. ssvetusik 9 11.06.17 07:22 Сейчас в теме
(19) долго не была на сайте и не видела комментарии
Процедура сПКОПроведениеОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
	Если ТипЗнч(Источник.ссылка) = ТипЗнч(Документы.ПриходныйКассовыйОрдер.ПустаяСсылка()) тогда
		
		
		Если ЗначениеЗаполнено(Источник.сПодразделениеДт) Тогда
			
						
			Движение=Источник.Движения.сКассоваяКнига;
			Движение.Записывать=Истина;
			ДвижениеП=Движение.Добавить();
			ДвижениеП.Период = Источник.Дата;
			
			ДвижениеП.Организация = Источник.Организация;
			ДвижениеП.Валюта = Источник.ВалютаДокумента;
			ДвижениеП.ВидДвижения=ВидДвиженияНакопления.Приход;
			
			
			ДвижениеП.Подразделение = Источник.сПодразделениеДт;
			ДвижениеП.СчетУчета =  Источник.СчетКасса;
			ДвижениеП.Сумма =  Источник.СуммаДокумента;   
		КонецЕсли;
		
	КонецЕсли;
	Если ТипЗнч(Источник.ссылка) = ТипЗнч(Документы.РасходныйКассовыйОрдер.ПустаяСсылка()) тогда
		ДатаР=Источник.Ссылка.Дата;
		Источник.Дата=ДатаР;
		//Источник.Записать();
		Если Источник.Ссылка.ВидОперации=Перечисления.ВидыОперацийРКО.ПрочийРасход Тогда 
			Если ЗначениеЗаполнено(Источник.сПодразделениеКт) И ЗначениеЗаполнено(Источник.сПодразделениеДт) Тогда
				Отказ=Ложь;
				//Проверим остатки на складе
				Запрос=Новый Запрос;
				Запрос.Текст="ВЫБРАТЬ
				|	сКассоваяКнигаОстатки.СуммаОстаток
				|ИЗ
				|	РегистрНакопления.сКассоваяКнига.Остатки(&ДатаОстатка, ) КАК сКассоваяКнигаОстатки
				|ГДЕ
				|	сКассоваяКнигаОстатки.Организация = &Организация
				|	И сКассоваяКнигаОстатки.Подразделение = &Подразделение
				|	И сКассоваяКнигаОстатки.Валюта = &Валюта
				
				|	И сКассоваяКнигаОстатки.СчетУчета = &СчетКасса";
				
				
				Запрос.УстановитьПараметр("ДатаОстатка",Источник.Дата);
				Запрос.УстановитьПараметр("Валюта",Источник.ВалютаДокумента);
				
				Запрос.УстановитьПараметр("Подразделение",Источник.сПодразделениеКт);
				Запрос.УстановитьПараметр("Организация",Источник.Организация);
				Запрос.УстановитьПараметр("СчетКасса",Источник.СчетКасса);
				Выборка=Запрос.Выполнить().Выбрать();
				СуммаОстаток=0;
				Пока Выборка.Следующий() Цикл 
					СуммаОстаток=СуммаОстаток+Выборка.СуммаОстаток;
				КонецЦикла;
				Если СуммаОстаток-Источник.СуммаДокумента<0 Тогда 
					Отказ=Истина;
					Сообщить("Не хватает в кассе денежных средств! Остаток на кассе "+Источник.сПодразделениеКт + " равен "+СуммаОстаток+" руб.");
				КонецЕсли;
				Если Отказ Тогда 
					Возврат;
				КонецЕсли;	
				
				
				Движение=Источник.Движения.сКассоваяКнига;
				Движение.Записывать=Истина;
				ДвижениеП=Движение.Добавить();
				ДвижениеП.Период = Источник.Дата;
				
				ДвижениеП.Организация = Источник.Организация;
				ДвижениеП.Валюта = Источник.ВалютаДокумента;
				ДвижениеП.ВидДвижения=ВидДвиженияНакопления.Расход;
				
				ДвижениеП.Подразделение = Источник.сПодразделениеКт;
				ДвижениеП.СчетУчета =  Источник.СчетКасса;
				ДвижениеП.Сумма =  Источник.СуммаДокумента;  
				
				
				Движение=Источник.Движения.сКассоваяКнига;
				Движение.Записывать=Истина;
				ДвижениеП=Движение.Добавить();
				ДвижениеП.Период = Источник.Дата;
				
				ДвижениеП.Организация = Источник.Организация;
				ДвижениеП.Валюта = Источник.ВалютаДокумента;
				ДвижениеП.ВидДвижения=ВидДвиженияНакопления.Приход;
				
				ДвижениеП.Подразделение = Источник.сПодразделениеДт;
				ДвижениеП.СчетУчета =  Источник.СчетКасса;
				ДвижениеП.Сумма =  Источник.СуммаДокумента; 
				
				
			КонецЕсли;
			
			
		Иначе 
			
			Если ЗначениеЗаполнено(Источник.сПодразделениеКт) Тогда
				Отказ=Ложь;
				//Проверим остатки на складе
				Запрос=Новый Запрос;
				Запрос.Текст="ВЫБРАТЬ
				|	сКассоваяКнигаОстатки.СуммаОстаток
				|ИЗ
				|	РегистрНакопления.сКассоваяКнига.Остатки(&ДатаОстатка, ) КАК сКассоваяКнигаОстатки
				|ГДЕ
				|	сКассоваяКнигаОстатки.Организация = &Организация
				|	И сКассоваяКнигаОстатки.Подразделение = &Подразделение
				|	И сКассоваяКнигаОстатки.Валюта = &Валюта
				
				|	И сКассоваяКнигаОстатки.СчетУчета = &СчетКасса";
				
				
				Запрос.УстановитьПараметр("ДатаОстатка",Источник.Дата);
				Запрос.УстановитьПараметр("Валюта",Источник.ВалютаДокумента);
				
				Запрос.УстановитьПараметр("Подразделение",Источник.сПодразделениеКт);
				Запрос.УстановитьПараметр("Организация",Источник.Организация);
				Запрос.УстановитьПараметр("СчетКасса",Источник.СчетКасса);
				Выборка=Запрос.Выполнить().Выбрать();
				СуммаОстаток=0;
				Пока Выборка.Следующий() Цикл 
					СуммаОстаток=СуммаОстаток+Выборка.СуммаОстаток;
				КонецЦикла;
				Если СуммаОстаток-Источник.СуммаДокумента<0 Тогда 
					Отказ=Истина;
					Сообщить("Не хватает в кассе денежных средств! Остаток на кассе "+Источник.сПодразделениеКт + " равен "+СуммаОстаток+" руб.");
				КонецЕсли;
				Если Отказ Тогда 
					Возврат;
				КонецЕсли;	
			
				
				Движение=Источник.Движения.сКассоваяКнига;
				Движение.Записывать=Истина;
				ДвижениеП=Движение.Добавить();
				ДвижениеП.Период = Источник.Дата;
				
				ДвижениеП.Организация = Источник.Организация;
				ДвижениеП.Валюта = Источник.ВалютаДокумента;
				ДвижениеП.ВидДвижения=ВидДвиженияНакопления.Расход;
				
				ДвижениеП.Подразделение = Источник.сПодразделениеКт;
				ДвижениеП.СчетУчета =  Источник.СчетКасса;
				ДвижениеП.Сумма =  Источник.СуммаДокумента;   
				
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	
	
КонецПроцедуры
Показать

(17)
21. SmArtist 101 11.07.17 09:19 Сейчас в теме
Для сохранения нумерации листов кассовой книги головного подразделения без доработки, можно сделать так: http://infostart.ru/public/645791/
22. finebird 07.11.20 17:19 Сейчас в теме
В отчете "Кассовая книга" отсутствует модуль менеджера и поэтому отчет выдает ошибку
Прикрепленные файлы:
Оставьте свое сообщение