Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: БухЗапро по Контрагенту
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
mavrik
25.10.11, 14:29
Помогите написать запрос который выводит по СКД всех Контрагентов.У меня есть какие то размышления но ничего не выходит

        Ит = СоздатьОбъект("БухгалтерскиеИтоги");
    Ит.ВключатьСубсчета(-1);    
    Если ВибГрупа.Выбран()=0 Тогда
        Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенти,,,1); 
        КонецЕсли;
    Ит.ВыполнитьЗапрос(НачПериод, КонПериод,"37,1",,, 1,, "С");
        Ит.СКД("37.1");
nysysimara
25.10.11, 15:21
    
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьПланСчетов(ПланыСчетов.Основной); 
Ит.ВключатьСубсчета(-1); 
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
Ит.ВыполнитьЗапрос(НачПериод,КонПериод,"37,1",,, 1,,"С");  

Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1)=1 Цикл            
    Контр    = Ит.Субконто(1);
    ОстСум    = Ит.СКД("С");
КонецЦикла;


кокто так

КАКто так
mavrik
25.10.11, 15:45
Цитата(nysysimara @ 25.10.11, 16:21) необходимо зарегистрироваться для просмотра ссылки
    
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьПланСчетов(ПланыСчетов.Основной); 
Ит.ВключатьСубсчета(-1); 
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
Ит.ВыполнитьЗапрос(НачПериод,КонПериод,"37,1",,, 1,,"С");  

Ит.ВыбратьСубконто(1);
Пока Ит.ПолучитьСубконто(1)=1 Цикл            
    Контр    = Ит.Субконто(1);
    ОстСум    = Ит.СКД("С");
КонецЦикла;


кокто так

КАКто так


Пасиба большое получилось
nysysimara
25.10.11, 15:46
нема за що
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.