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

24.11.14

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

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

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

Наименование Файл Версия Размер
Отчет кассовая книга по подразделениям
.erf 26,59Kb
50
.erf 26,59Kb 50 Скачать

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

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

 

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

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

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

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

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

 

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


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

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

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

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

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

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

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

 

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

См. также

ККТ-ОНЛАЙН 54-ФЗ: Обработка для работы онлайн касс АТОЛ, ШТРИХ, VIKI PRINT и т.д. МАРКИРОВКА + ЭКВАЙРИНГ + БЕСПЛАТНЫЙ ДЕМО

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

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

4800 руб.

27.02.2017    762920    4668    9495    

2781

Печать кассовых чеков на одну ККМ с нескольких рабочих мест для 1С:УТ11.х, КА2.х, Розница 2.х, УНФ, ERP 2.х, БП 3, БГУ2

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

Расширение конфигурации для УТ 11.4, 11.5, КА 2.4, 2.5, Розница 3.0, 2.3 и 2.2, УНФ 1.6, УНФ 3x, ERP 2.4, 2.5, БП 3, БГУ2 (Управляемые формы) позволяет выполнять печать кассовых чеков на одну ККМ 54-ФЗ с нескольких рабочих мест. НИКАКИХ НАСТРОЕК В РАЗРАБОТКЕ - ПОДКЛЮЧИЛ И ПЕЧАТАЙ. Если у вас несколько отделов и одна ККМ - печатайте на одной ККМ! Если у вас две ККМ и одна поломалась - печатайте на одной ККМ, пока ремонтируете другую!

4000 руб.

27.08.2018    115961    978    564    

827

54-ФЗ. Очередь печати для ККМ. Обработки для подключения онлайн-касс к 1С 8 (поддержка Маркировки) + Эмулятор + ФФД 1.2

ККМ Кассовые операции Розничная торговля Платформа 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 или интернет. Поддержка маркировки.

5400 руб.

25.05.2015    316478    1843    3008    

993

SALE! 50%

Загрузка чеков ФНС в документы 1С:БП, 1С:УНФ, 1С:ERP, 1С:КА и 1С:УТ

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

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

12960 9720 руб.

19.08.2020    64904    297    73    

205

Загрузка в 1С:Бухгалтерию 3.0, 1С:КА 2.4, 2.5, УНФ 1.6/3.0 данных из ОФД о денежных поступлениях (чеках)

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

Согласно 54-ФЗ по правилам ведения кассовых операций необходимо оформлять приходные кассовые ордера (ПКО) и расходные кассовые ордера (РКО) на основании чеков ККМ. Все данные о чеках, можно взять на сайте оператора фискальных данных (ОФД). Эта обработка сделает за вас в 1С - ПКО и РКО, Операции по платежным картам или Отчет о розничных продажах (может создать номенклатуру в 1С, указать налоги и др. реквизиты в документах в зависимости от налогообложения ККМ в торговой точке). Проверено на: OFD.RU / Первый ОФД / Такском / Платформа ОФД / Ярус / ОФД Яндекс / ОФД Астрал /ОФД СБИС / Гарант ОФД / КОРУС ОФД / КОНТУР ОФД / ОФД АО Тандер / ИнитПро / Группа Элемент/

3600 руб.

09.08.2017    147839    865    372    

525

Пробитие чека ККМ с разных складов через РМК в УТ 11

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

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

5880 руб.

12.04.2023    7889    26    2    

23

Оплата в РМК через СБП Сбербанк для 1С:УТ, КА, ERP

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

Расширение для программ 1С:УТ, 1С:КА, 1С:ERP Управление предприятием, которое позволяет принимать оплату через СПБ для ПАО Сбербанк. Подключается прозрачно, работает как типовой механизм.

7080 руб.

08.11.2023    829    5    1    

5

Товарный чек вместо фискального (онлайн) чека с печатью QR-кода для 1С:Розница 2.3, 3.0, 1С:УТ/1С:КА

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

Расширение позволяет напечатать товарный чек без необходимости пробивать фискальный (онлайн) чек. При этом в системе данный чек имеет статус "пробитый", а значит попадет в отчет о розничных продажах при закрытии смены, но НЕ попадет в Z-отчет на кассе ККМ. При печати товарного чека ему автоматически подставляется оплата наличными, равная сумме чека.

3600 руб.

22.12.2020    27588    78    119    

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

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

(5)я не писала что данная кассовая книга ведется для бух. учета. кассовая книга по всей организации никуда не делась и также функционирует
это просто решение которое было необходимо предприятию, для внутренних нужд, и почему я подвожу под штраф? я исполнитель, и выполняю это не потому что мне взбрело в голову)
5. Novomir 96 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. Ироида 8 13.01.15 01:42 Сейчас в теме
В общем модуле процедура вся на экран не поместилась, поправьте, пожалуйста
13. ssvetusik 9 15.01.15 04:59 Сейчас в теме
(11), попробую отредактировать чтоб все поместилось
12. Flatra56 9 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 64 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 98 11.07.17 09:19 Сейчас в теме
Для сохранения нумерации листов кассовой книги головного подразделения без доработки, можно сделать так: http://infostart.ru/public/645791/
22. finebird 07.11.20 17:19 Сейчас в теме
В отчете "Кассовая книга" отсутствует модуль менеджера и поэтому отчет выдает ошибку
Прикрепленные файлы:
Оставьте свое сообщение