0
Начинающий_13
18.03.14
✎
11:51
|
Здравствуйте
Имею Регистры бухгалтерии
Измерение
Валюта (Запрет незаполнных значение = ИСТИНА, Признак учета = ВАЛЮТНЫЙ)
Возможно ли при проведении документа(может в проведении расписать код как нибудь) в поля ВалютаДт,ВалютаКт ВСЕГДА записывать валюту при таких настройках (очень хотелось бы , не хочется убирать признак учета валютный)
Процедура ОбработкаПроведения_РБ_БУ(Отказ, Режим)
Движения.БУ.Записывать = Истина;
Если ФормироватьПроводки Тогда
Для Каждого СтрокаТЧ Из ДвиженияДенежныхСредств Цикл
РБ = Движения.БУ.Добавить();
РБ.Период = Дата;
РБ.Активность = Истина;
РБ.ВалютаДт = Валюта;
РБ.ВалютаКт = Валюта;
РБ.Сумма = СтрокаТЧ.Всего;
РБ.Содержание = "Приход в кассу";
РБ.НомерЖурнала = "КС";
РБ.СчетДт = СчетУчета;
БУ.УстановитьСубконто(РБ.СчетДт, РБ.СубконтоДт, 1,Субконто1);
РБ.СчетКт = СчетЗатрат;
БУ.УстановитьСубконто(РБ.СчетКт, РБ.СубконтоКт, 1,Субконто1);
БУ.УстановитьСубконто(РБ.СчетКт, РБ.СубконтоКт, 2,Субконто2);
БУ.УстановитьСубконто(РБ.СчетКт, РБ.СубконтоКт, 3,Субконто3);
БУ.УстановитьСубконто(РБ.СчетКт, РБ.СубконтоКт, 4,Субконто4);
КонецЦикла;
КонецЕсли;
КонецПроцедуры
|
|