По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(4)ОСВ мне придется сильно перебрать и переработать. а тут стоит конкретная и противоположная задача
1. Получить остатки по субконто1 = номенклатура, Организация = организация.
2. Перебрать полученную выборку и получить счета учета этой выборки.
на языке 8.3 это в пару минут можно сделать.
На языке 7.7. требуется помощь, совет, как это можно реализовать.
1. Получить остатки по субконто1 = номенклатура, Организация = организация.
2. Перебрать полученную выборку и получить счета учета этой выборки.
на языке 8.3 это в пару минут можно сделать.
На языке 7.7. требуется помощь, совет, как это можно реализовать.
(5)
Или вообще оставить его пустым, если невозможно знать все варианты.
Ну, а потом через ВыбратьСчета() и ПолучитьСчет() в цикле получаете результаты.
P.S. Или использовать специалиста-семерочника. :)
Перебрать полученную выборку и получить счета учета этой выборки.
Смотрите не ОСВ, а "ОСВ по счету". Только в запрос к бухитогам надо передавать не конкретный счет, а список значений (или строку) из всех возможных счетов.
Или вообще оставить его пустым, если невозможно знать все варианты.
Ну, а потом через ВыбратьСчета() и ПолучитьСчет() в цикле получаете результаты.
Организация = организация
А что такое "Организация"? У вас многофирменный учет в 7.7? Тогда надо использовать РазделительУчета.
P.S. Или использовать специалиста-семерочника. :)
навоял, спасибо все)
Процедура ПросчитатьСчетаОстатка(ТекОрганизация, ТекНоменклатура, ДатаОстатка)
РазделительУчета = ТекОрганизация;
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
ВидСубконто = ВидыСубконто.Номенклатура;
Ит.ИспользоватьРазделительУчета(РазделительУчета);
Ит.ИспользоватьСубконто(ВидСубконто, ТекНоменклатура,2 , 1);
Если Ит.ВыполнитьЗапрос(ДатаОстатка, ДатаОстатка, ,,,,) = 0 Тогда
Возврат;
Иначе
Ит.ВЫбратьСубконто();
Пока Ит.ПолучитьСубконто() = 1 Цикл
СальдоКт = Ит.СКК();
СальдоДт = Ит.СКД();
Если СальдоКт<>0 Тогда
СуммаОстаток = - СальдоКт;
Иначе
СуммаОстаток = СальдоДт;
КонецЕсли;
СчетДт = Ит.Счет;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
//*******************************************
Процедура Сформировать()
СпрНом = СоздатЬОбъект("Справочник.Номенклатура");
СпрНом.ВыбратьЭлементы();
Пока СпрНом.ПолучитьЭлемент()=1 цикл
Если СпрНом.Код = "КР000477" Тогда
ТекНом = СпрНом.ТекущийЭлемент();
Прервать;
КонецЕсли;
КонецЦикла;
СпрОрг = СоздатЬОбъект("Справочник.СвоиЮрЛица");
СпрОрг.ВыбратьЭлементы();
Пока СпрОрг.ПолучитьЭлемент()=1 цикл
Если СпрОрг.Код = "ЕС001" Тогда
ТекОрг = СпрОрг.ТекущийЭлемент();
Прервать;
КонецЕсли;
КонецЦикла ;
ПросчитатьСчетаОстатка(ТекОрг, ТекНом, КонГода(Дата(2016, 12, 31)));
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот