Тема: Помогите разобраться с отчетом

Ответить в теме
Показано с 1 по 4 из 4
  1. Вверх #1

    По умолчанию Помогите разобраться с отчетом

    Доброго времени суток
    Помогите плз разобраться с проблемкой
    Необходимо написать отчет, который будет выдавать информацию о продукции фирмы.
    Остатки товара на начало и конец периода, сколько было произведено\продано товара, товар на Отв.Хранении
    Отчет формируется, но итоги по колонкам Произв, На Отв.хран., Реализация не выводятся
    Ниже привожу кусок текста модуля
    Код:
    //--------------------------------------------------------------------------------
    Перем Бут1, Бут2, Бут3, Бут4, Дал1, Дал2, Дал3, Дал4,
    Бут_1, Бут_2, Бут_3, Бут_4, Дал_1, Дал_2, Дал_3, Дал_4;
    
    
    //*******************************************
    //{{БУХГАЛТЕРСКИЙ ЗАПРОС(Сформировать)
    
    //Данный фрагмент построен конструктором.
    //При повторном использовании конструктора, внесенные вручную изменения будут потеряны!!!
    
    //{{ Схема номер 4
    //{{ ДтКт 1100001
    
    Процедура Сформировать_Колонки(Ит, Таб, Стр)
    	Таб.ВывестиСекцию(Стр+"|Начало");
    	Ит.ВыбратьКорСчета(1, 1);
    	Пока Ит.ПолучитьКорСчет() = 1 Цикл
    		Если Ит.КорСчет.Код="26" Тогда
    			НаименованиеСчета="Произв.";
    		Иначе	
    			НаименованиеСчета=Ит.КорСчет.Наименование;
    		КонецЕсли;
    		Таб.ПрисоединитьСекцию(Стр+"|КорСчет_Дт");
    	КонецЦикла;
    	//	Таб.ПрисоединитьСекцию(Стр+"|Оборот_Дт");
    	
    	Ит.ВыбратьКорСчета(1, 2);
    	Пока Ит.ПолучитьКорСчет() = 1 Цикл
    		Если Ит.КорСчет.Код="26" Тогда
    			НаименованиеСчета="На отв.хран.";
    		ИначеЕсли Ит.КорСчет.Код="90" Тогда
    			НаименованиеСчета="Реализация";
    		ИначеЕсли Ит.КорСчет.Код="94" Тогда                 
    			НаименованиеСчета="Слив";
    		Иначе	
    			НаименованиеСчета=Ит.КорСчет.Наименование;
    		КонецЕсли;
    		
    		Таб.ПрисоединитьСекцию(Стр+"|КорСчет_Кт");
    	КонецЦикла;
    	//	Таб.ПрисоединитьСекцию(Стр+"|Оборот_Кт");
    	Таб.ПрисоединитьСекцию(Стр+"|Конец");
    КонецПроцедуры
    
    Процедура Сформировать()
    	Таб = СоздатьОбъект("Таблица");
    	Таб.ИсходнаяТаблица("Отчет");
    	Ит = СоздатьОбъект("БухгалтерскиеИтоги");
    	Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения, ВыбСубконто1, 2);
    	Ит.ИспользоватьСубконто(ВидыСубконто.ТМЦ, ВыбСубконто2, 1, 1);
    	Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "26",,, 3,, "СК");
    	Таб.ВывестиСекцию("Заголовок");
    	Сформировать_Колонки(Ит, Таб, "Шапка");
    	Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
    	Ит.ВыбратьСубконто(ВидыСубконто.ТМЦ);
    	Бут_1=0;
    	Дал_1=0;
    	Бут_3=0;
    	Дал_3=0;
    	Дал_2=0;
    	Дал_4=0;
    	Пока Ит.ПолучитьСубконто(ВидыСубконто.ТМЦ) = 1 Цикл
    		Если Ит.Субконто(ВидыСубконто.ТМЦ).ЭтоГруппа()=1 Тогда
    			Сформировать_Колонки(Ит, Таб, "Группа");
    		Иначе
    			Бут1=(Ит.СНД(3)-Ит.СНК(3));
    			Дал1=Бут1*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал;
    			Бут3=(Ит.СКД(3)-Ит.СКК(3));
    			Дал3=Бут3*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал;
    			Сформировать_Колонки(Ит, Таб, "Субконто1");
    			Бут_1=Бут_1+Бут1;
    			Дал_1=Дал_1+Дал1;
    			Дал_2=Дал_2+(Ит.КорДО(3)*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал);
    			Бут_3=Бут_3+Бут3;
    			Дал_3=Дал_3+Дал3;
    			Дал_4=Дал_4+(Ит.КорКО(3)*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал);
    		КонецЕсли;
    	КонецЦикла;
    	Сформировать_Колонки(Ит, Таб, "Подвал");
    	Таб.ТолькоПросмотр(1);
    	Таб.Показать("Сформировать","");
    КонецПроцедуры
    //}}БУХГАЛТЕРСКИЙ ЗАПРОС
    
    
    
    
    Процедура ПриОткрытии()
    	
    	//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА(Сформировать)
    	ВыбНачПериода = НачалоПериодаБИ();
    	ВыбКонПериода = КонецПериодаБИ();
    	//{{ИНИЦИАЛИЗАЦИЯ БУХГАЛТЕРСКОГО ЗАПРОСА
    	
    КонецПроцедуры
    
    //--------------------------------------------------------------------------------
    Формы таблицы отчета в конфигураторе и после формирования отчета
    http://foto.retranslator.ru/index.php?cat=10668
    Подскажите плз, что нада сделать, чтоб Дал_2 и Дал_4 корректно вычислялись
    Заранее пасиб

    //малось изменю, а то код чиатить оч неудобно // Mulder_1
    Последний раз редактировалось Mulder_1; 09.08.2006 в 18:41.


  2. Вверх #2
    метод КорДО почемуто срабатывает в таблице без проблем (Ит.КорДО(3),Ит.КорКО(3), если их вписать в ячейки таблицы, работают без проблем, а если их использовать в модуле то значения которые возвращяют эти методы нулевые)
    также, если использовать эти методы, выводится итог по колву бутылок
    тоже с далами, для отдельных ТМЦ они расчитываются без проблем, а вот для итога по колонке получить расчет не удается

  3. Вверх #3
    Модератор Аватар для Mulder_1
    Пол
    Мужской
    Адрес
    Одесса
    Возраст
    46
    Сообщений
    710
    Репутация
    52
    Код:
    Дал_2=Дал_2+(Ит.КорДО(3)*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал);
    Что ожидается получить в этоq строчке ?
    КорДО(3) с кем ? по счету ? по субконто ?

    если по всему - тогда где то так :
    Код:
    Бут1=(Ит.СНД(3)-Ит.СНК(3));
    Дал1=Бут1*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал;
    Бут3=(Ит.СКД(3)-Ит.СКК(3));
    Дал3=Бут3*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал;
    Сформировать_Колонки(Ит, Таб, "Субконто1");
    	Ит.ВыбратьКорСчета(1, 1);
    	Пока Ит.ПолучитьКорСчет() = 1 Цикл
    		Дал_2=Дал_2+(Ит.КорДО(3)*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал);
    		Дал_4=Дал_4+(Ит.КорКО(3)*Ит.Субконто(ВидыСубконто.ТМЦ).ЕмкостьТары.ЕмкостьДал);
    	КонецЦикла;
    	Бут_1=Бут_1+Бут1;
    	Дал_1=Дал_1+Дал1;
    	Бут_3=Бут_3+Бут3;
    	Дал_3=Дал_3+Дал3;
    Последний раз редактировалось Mulder_1; 09.08.2006 в 18:53.
    Кратк. - сестр. тал. !

  4. Вверх #4
    Спасибо огромное!!!

    сорри за такие глупые просьбы о помощи, просто я начинающий))

    Той строчкой, которую Вы процитировали, я пытался получитль сумму по всей колонке. Но видать по незнанию и неопытности несмог реализовать задуманное.
    Еще раз пасиб!

Ответить в теме

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения