Так как для бухгалтерского учета разделение касс было не нужно, проводки делались по забалансовому, вспомогательному счету. Сначала необходимо для документов "Приходной кассовый ордер" и "Расходной кассовый ордер" создать реквизит "Изм_Подразделение" (Тип: СправочникСсылка.ПодразделенияОрганизаций) и соответственно вывести их на ФормуДокумента. В справочник "ПодразделенияОрганизаций" добавить реквизиты: "Изм_Префикс"(Тип: Строка. Длина: 2) , "Изм_Бухгалтер"(Тип: СправочникСсылка.ФизическиеЛица) и "Изм_Кассир"(Тип: СправочникСсылка.ФизическиеЛица) и соответственно вывести на формуЭлемента.
Создать новый СчетУчета
КодСчета: К50
Код быстрого выбора: К50
Наименование: Кассы организации
Вид счета: Активный
Не подчинен.
"Заболансовый" - Да.
Счет является группой - Нет
В видах учета: Поставить галку только напротив "Учет по подразделениям".
Виды учета по субконто: добавить "Статьи движения денежных средств"(выбрать из списка, он там есть), Только обороты - Нет, Суммовой - Да.
Далее в документе "Приходной кассовый ордер" в конец процедуры "Процедура ДвиженияПоРегистрам"
//ИЗМ ** начало
Проводка = Проводки.Добавить();
Проводка.Период = ДатаДок;
Проводка.Организация = Организация;
Проводка.ПодразделениеДТ = Изм_Подразделение;
Проводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("К50");
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетДт, Проводка.СубконтоДт, "СтатьиДвиженияДенежныхСредств", РасшифровкаПлатежа[0].СтатьяДвиженияДенежныхСредств);
Проводка.Содержание = СодержаниеПроводки;
Проводка.Сумма = СуммаДокумента;
//ИЗМ ** окончание
Далее в документе "Расходной кассовый ордер" в конец процедуры "Процедура ДвиженияПоРегистрам"
//ИЗМ ** начало
Проводка = Проводки.Добавить();
Проводка.Период = Дата;
Проводка.Организация = Организация;
Проводка.ПодразделениеКТ = Изм_Подразделение;
Проводка.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("К50");
БухгалтерскийУчет.УстановитьСубконто(Проводка.СчетКт, Проводка.СубконтоКт, "СтатьиДвиженияДенежныхСредств", РасшифровкаПлатежа[0].СтатьяДвиженияДенежныхСредств);
Проводка.Содержание = СодержаниеПроводки;
Проводка.Сумма = СуммаДокумента;
//ИЗМ ** окончание
Осталось немного))))
В процедуру "Процедура ПриУстановкеНовогоНомераДокумента" из общего модуля "ОбщегоНазначения" добавить в конец процедуры:
//ИЗМ ** начало
Если ТипЗнч(Источник) = Тип("ДокументОбъект.ПриходныйКассовыйОрдер") или ТипЗнч(Источник) = Тип("ДокументОбъект.РасходныйКассовыйОрдер") Тогда
Если НЕ Источник.Изм_Подразделение.Пустая() Тогда
Префикс = СокрЛП(Источник.Изм_Подразделение.Изм_Префикс);
КонецЕсли;
КонецЕсли;
//ИЗМ ** окончани
Вот и все!!! За 15 минут мы с Вами сделали все изменения необходимые для работы этой внешней кассовой книги. Если вы все сделали правильно, то все будет работать.
P.S. Спасибо за разработку yuri76
Удачи Вам в работе и интересных задач!!!
