1C-PRO - Форум по 1С > Формирование отчета по неиспользованым материалам

Помощь - Поиск - Пользователи - Календарь

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

1C-PRO - Форум по 1С > Форумы по платформе "1С:Предприятие 7.7" > (7.7) Отчеты и обработки для платформы "1С:Предприятие 7.7"

Анисия

31.3.2008, 18:46

Формирование отчета по неиспользованым материалам за определенный промежуток времени. Такое ощущение что, что-то делаю не то.

Код

Процедура Сформировать()
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Сформировать");
	Ит = СоздатьОбъект("БухгалтерскиеИтоги"); 

	//Таб.ВывестиСекцию("Шапка");
	Таб.Опции(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);
	Таб.Показать("Сформировать",""); 
	
КонецПроцедуры

Объясните неразумной что делаю не так???

Stado_adama

1.4.2008, 10:03

ну вот это строчка точно не правильная:

Код


ВыбСчет="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.4.2008, 17:41

Тогда как мне указать в запросе выбор счета по 10, кроме субсчета 10.15??

Vlad

2.4.2008, 6:35

Цитата(Анисия @ 1.4.2008, 20:41)

Тогда как мне указать в запросе выбор счета по 10, кроме субсчета 10.15??

Что-нибудь типа такого. Это я у себя в Журнале-ордере по субконто так делал. Работает.

Код

	Ит.ВключатьСубсчета(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);
//ВВП нач
	КонецЕсли;
//ВВП кон

Seeker

12.4.2008, 9:05

Цитата(Анисия @ 31.3.2008, 18:46)

Код

Процедура Сформировать()
    Таб = СоздатьОбъект(\"Таблица\");
    Таб.ИсходнаяТаблица(\"Сформировать\");
    Ит = СоздатьОбъект(\"БухгалтерскиеИтоги\"); 

    //Таб.ВывестиСекцию(\"Шапка\");
    Таб.Опции(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);
    Таб.Показать(\"Сформировать\",\"\"); 
    
КонецПроцедуры

Объясните неразумной что делаю не так???

Интересно бы услышать, что же не так происходит при работе описанного кода? По виду - все нормально (и счета можно строкой задавать, можно...), но только по-моему это будут все материалы. Если предполагалось только неиспользуемые (да и как понимать "неиспользуемые"?), то должно быть что-нить другое

Seeker

12.4.2008, 9:13

Еще - чуть не забыл. В строке перечень кодов счетов попробуй разделить запятыми, а не "точка с запятой"

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.