![]() |
![]() |
walter77 01.10.2004 - 14:35 |
Надо было мне состряпать отчет по Дебиторам - Кредиторам(60,62) БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,,1); БухИт.ИспользоватьСубконто(ВидыСубконто.Договоры ,,1); БухИт.ВыполнитьЗапрос(НачДата,КонДата,Список,,,,3,); БухИт.ВыбратьСубконто(1); Пока БухИт.ПолучитьСубконто(1) = 1 Цикл Если БухИт.СКД()>0 Тогда БухИт.ВыбратьСубконто(2); Пока БухИт.ПолучитьСубконто(2) = 1 Цикл Если БухИт.СКД()>0 Тогда Контрагент = БухИт.Субконто(1); Договор = БухИт.Субконто(2); Сумма = БухИт.СКД(); Дата = БухИт.Операция.Документ.ДатаДок; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; Внутри циклов выводится Контрагент, Договор, Сумма и Дата возникновения задолженности. Вот в ней вся загвоздка. Если Операция была не в отчетном периоде, то дату не узнать. Попробовал в отдельную таблицу значений забить Контрагентов и Договора, а потом перебрать проводки по 60 и 62 счетам, на предмет соответствия этим субконто. Находит все, но очень медленно. И это я только дебиторов перебрал. Можно ли это как-то оптимизировать? |
It is me 1 - 01.10.2004 - 14:45 | Можно добавить третье субконто к счету и в него писать дату. Будет быстрее, чем перебирать проводки с начала времен, но на экзамене такое решение не пройдет - остатки по 3 субконто не будут закрываться. |
walter77 2 - 01.10.2004 - 14:53 | It's you, really? |
walter77 3 - 01.10.2004 - 15:35 | Может, еще у кого будут ценные мысли? |
Sure2 4 - 01.10.2004 - 15:51 |
У нас внедрил Рарус 1С - бухгалтеры настояли на такой расшифровке дебиторской и кредиторской задолженности. Для этого в качестве третьего субконто был введен документ (Акт об оказании услуг либо авансовый платеж). Но при этом дебиторская и кредиторская задолженность может закрываться двумя способами: а) автоматически - пришла оплата - программа ищет самое старое начисление и закрывает его, б) вручную - бухгалтер смотрит и сопоставляет пришедшую оплату с одним из начислений. Увы, это не быстро делается. |