Имя: Пароль:
1C
1С v8
Признак учета Валютный
0 Начинающий_13
 
18.03.14
11:51
Здравствуйте
Имею Регистры бухгалтерии
Измерение
Валюта (Запрет незаполнных значение = ИСТИНА, Признак учета = ВАЛЮТНЫЙ)

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