На PORTA.ru
ОГРОМНЫЙ выбор портативной техники:
MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки |
||
Оборотно-сальдовая ведомость: исправление 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 |