PORTA.ru - on-line магазин ПОРТАтивной техники.PORTA.ru - on-line магазин ПОРТАтивной техники.

Новости
Мои разработки
FAQ
Ссылки
Форум

Оборотно-сальдовая ведомость: исправление 1

// Исправление ОСВ для счетов, на которых на одном из субконто не ведётся суммовой учёт.
// Эти исправления делаются для того, чтобы в Оборотке не показывались пустые строки - субконто,
// по которым нет ни сальдо ни оборотов.
// Все исправления это 3 строки - две добавлены и одна исправлена. См.ниже:
Процедура Сформировать(Ручн = 0, ФлагЗакрытияФормы = 0)
     // ...
     Ит.ИспользоватьРазделительУчета(РазделительУчета);
     КолПоСчету = 0;
     СумПоСчету = 1; // Добавляем
     Заголовок1 = "";
     Для А=1 По 3 Цикл
          Если ОтборСубконто[А] <> 3 Тогда
               Ит.ИспользоватьСубконто(ВидСубконто[А], Субконто[А], ОтборСубконто[А], ПоГруппам[А]);
               Если А <> 1 Тогда
                    Заголовок1 = Заголовок1+"; ";
               КонецЕсли;
               Заголовок1 = Заголовок1+ВидСубконто[А];
               Если ОтборСубконто[А] = 2 Тогда
                    Заголовок1 = Заголовок1+": "+Субконто[А];
                    КолПоСчету = Счет.УчетПоКоличеству(А);
               КонецЕсли;
          КонецЕсли;
          СумПоСчету = СумПоСчету * Счет.УчетПоСумме(А);  // Добавляем
     КонецЦикла;
     Ит.ВключатьСубсчета(ДанныеПоСубсчетам);
     Если Ит.ВыполнитьЗапрос(Дата1, Дата2, Счет,,,,,?(СумПоСчету=1,5,4)) = 0 Тогда  // Изменяем
          Возврат;
     КонецЕсли;
     // ...
КонецПроцедуры


- Наверх -

В качестве благодарности за решение проблемы, щелкните здесь.
Поддержите развитие сайта.
Спасибо!
Автор и разработчик: Кайгородов Андрей aka mszsuz. mszsuz@online.sinor.ru ICQ#33993114. Дата последнего обновления страницы: Friday 09.04.2004 16:52
1C:TOP-100 Рейтинг ресурсов 1С
Hosted by uCoz