Шаг 375 - А если очень хочется субсчет (на примере выписки)

Давайте посмотрим на примере банковского счета. Конечно, это изврат, но клиент он всегда говорят прав. Итак, нам нужно два субсчета и чтобы банковская выписка работала. Да простит меня минфин с их типовым планом, правим план счетов и делаем два субсчета.

375_1.gif (4007 b)

Но если сейчас попробовать делать банковскую выписку Вы получите сообщение об ошибках. Нам нужно где-то хранить информацию на каком счете находится субсчет. Лучше всего наверно в справочнике "банковские счета". Делаем новый реквизит в справочнике банковские счета.

375_2.gif (7366 b)

И помещаем на форму для заполнения.

375_3.gif (3974 b)

Теперь нужно запустить 1C и заполнить этот реквизит (вообще масло масленное получится, если вдуматься, ну да ладно).

375_4.gif (6384 b)

И исправить код документа выписка. Для этого нужно сделать переменную, она есть просто нужно объявить ее для того, чтобы можно было воспользоваться. Это мы делаем в модуле формы.

Перем Новый;
Перем СписокДействий;    
Перем  ВыбрБанковскийСчет;

//********************

При выборе банковского счета устанавливаем переменную СЧ_51, которая используется для проведения.

Процедура ПриВыбореБанковскогоСчета()
	ВыбрБанковскийСчет = СоздатьОбъект("Справочник.БанковскиеСчета");
	ВыбрБанковскийСчет.НайтиЭлемент(БанковскийСчет);
	Если ВыбрБанковскийСчет.Выбрать("Укажите расчетный счет","ДляВыбора") = 1 Тогда
		БанковскийСчет = ВыбрБанковскийСчет.ТекущийЭлемент();
	КонецЕсли;
	Сч51=ВыбрБанковскийСчет.Сч;
	УстановитьТипВыписки();
КонецПроцедуры

И все. Теперь можно проводить выписку и операции будут распределены по субсчетам.

375_5.gif (12990 b)


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.