7.7 Формирование отчета по неиспользованым материалам

Тема в разделе "Отчеты и обработки для "1С:Предприятие 7.7"", создана пользователем roalang, 31 мар 2008.

  1. TopicStarter Overlay
    roalang
    Offline

    roalang Опытный в 1С

    Регистрация:
    31 мар 2008
    Сообщения:
    50
    Симпатии:
    0
    Баллы:
    26
    Формирование отчета по неиспользованым материалам за определенный промежуток времени. Такое ощущение что, что-то делаю не то. :unsure:
    Код:
    Процедура Сформировать()
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");
    Ит = СоздатьОбъект("БухгалтерскиеИтоги"); 
    
    //Таб.ВывестиСекцию("Шапка");
    Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); 
    
    Ит.ИспользоватьСубконто(ВидыСубконто.материалы);  
    Ит.ИспользоватьСубконто(ВидыСубконто.местахранения);  
    
    ВыбСчет="10.01;10.02;10.03;10.04;10.05;10.06;10.08;10.09;10.10.01;10.10.02;10.14";    
    
    Ит.ВыполнитьЗапрос(Дата1, Дата2, ВыбСчет,,, 14); 
    Ит.ВыбратьСубконто(ВидыСубконто.материалы);     
    Пока Ит.ПолучитьСубконто(ВидыСубконто.материалы)=1 Цикл     
    Итог=ит.ПредставлениеСубконто(,);	
    
    Таб.ВывестиСекцию("секция_3");        	
    конеццикла;	                         
    
    //Таб.ВывестиСекцию("Подвал");
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Сформировать",""); 
    
    КонецПроцедуры
    
    Объясните неразумной что делаю не так???
  2. Stado_adama
    Offline

    Stado_adama Модераторы Модератор

    Регистрация:
    27 ноя 2007
    Сообщения:
    1.086
    Симпатии:
    0
    Баллы:
    26
    ну вот это строчка точно не правильная:
    Код:
    ВыбСчет="10.01;10.02;10.03;10.04;10.05;10.06;10.08;10.09;10.10.01;10.10.02;10.14";
    
  3. TopicStarter Overlay
    roalang
    Offline

    roalang Опытный в 1С

    Регистрация:
    31 мар 2008
    Сообщения:
    50
    Симпатии:
    0
    Баллы:
    26
    Тогда как мне указать в запросе выбор счета по 10, кроме субсчета 10.15??
  4. Vlad
    Offline

    Vlad Модераторы Команда форума Модератор

    Регистрация:
    16 авг 2006
    Сообщения:
    3.517
    Симпатии:
    19
    Баллы:
    29
    Что-нибудь типа такого. Это я у себя в Журнале-ордере по субконто так делал. Работает.

    Код:
    	Ит.ВключатьСубсчета(0, ДанныеПоСубсчетам);
    //ВВП нач
    Если Счет = СчетПоКоду("10") Тогда
    СчетС = СоздатьОбъект("СписокЗначений");
    СчетС.ДобавитьЗначение(СчетПоКоду("10.1"));
    СчетС.ДобавитьЗначение(СчетПоКоду("10.2"));
    СчетС.ДобавитьЗначение(СчетПоКоду("10.4"));
    СчетС.ДобавитьЗначение(СчетПоКоду("10.5"));
    СчетС.ДобавитьЗначение(СчетПоКоду("10.6"));
    СчетС.ДобавитьЗначение(СчетПоКоду("10.7"));
    СчетС.ДобавитьЗначение(СчетПоКоду("10.8"));
    СчетС.ДобавитьЗначение(СчетПоКоду("10.9"));
    СчетС.ДобавитьЗначение(СчетПоКоду("10.10"));
    СчетС.ДобавитьЗначение(СчетПоКоду("10.11.1"));
    СчетС.ДобавитьЗначение(СчетПоКоду("10.11.2"));
    Ит.ВыполнитьЗапрос(Дата1, Дата2, СчетС,, ?(ПоВалюте = 1, Валюта, ""), 3);
    Иначе
    //ВВП кон	
    Ит.ВыполнитьЗапрос(Дата1, Дата2, Счет,, ?(ПоВалюте = 1, Валюта, ""), 3);
    //ВВП нач
    КонецЕсли;
    //ВВП кон
    
  5. Seeker
    Offline

    Seeker

    Регистрация:
    10 апр 2008
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1
    Интересно бы услышать, что же не так происходит при работе описанного кода? По виду - все нормально (и счета можно строкой задавать, можно...), но только по-моему это будут все материалы. Если предполагалось только неиспользуемые (да и как понимать "неиспользуемые"?), то должно быть что-нить другое
  6. Seeker
    Offline

    Seeker

    Регистрация:
    10 апр 2008
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1
    Еще - чуть не забыл. В строке перечень кодов счетов попробуй разделить запятыми, а не "точка с запятой"

Поделиться этой страницей