Имя: Пароль:
1C
 
Карточка материального учета
0 Study_1с
 
09.11.10
09:56
Подскажите, пожалуйста, как сделать карточку материального учета. Складской учет был сделан по аналогии с Простым складом, представленным здесь... Только в регистр ОстаткиТовара добавлена Цена, т.к. мне нужно чтобы цена заносилась приходной накладной. В итоге модуль карточки материального учета выглядит так(МР-материальные ресурс (товар)):
Процедура Сформировать()
   Рег=СоздатьОбъект("Регистр.ОстаткиМР");  
   РегРас=СоздатьОбъект("Регистр.ОстаткиМР");  
   Таб=СоздатьОбъект("Таблица");  
   Таб.ВывестиСекцию("Шапка");
   Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
   Рег.УстановитьЗначениеФильтра("МР",ВыбМР,2);
   Рег.ВыбратьДвижения(ДатаН,ДатаК);
   РегРас.ВременныйРасчет(1);
   РассчитатьРегистрыНа(ДатаН,);
       
   Пока Рег.ПолучитьДвижение()=1 Цикл
        ТМР  = Рег.МР;
        Цена = Рег.Цена;
        Таб.ВывестиСекцию("Строка");прервать;
   КонецЦикла;
Пока Рег.ПолучитьДвижение()=1 Цикл
        ТМР=Рег.МР;
        ДатаДока   = Рег.Партия.ДатаДок;
        НомерДок   = Рег.Партия.НомерДок;
        Контрагент = Рег.Партия.Контрагент;
        Цена        = Рег.Цена;
        КонОстат   = Рег.СводныйОстаток(,ТМР,,"Количество");
       Таб.ВывестиСекцию("Детально|МРВерт");
       Таб.ПрисоединитьСекцию("Детально|Контрагент");

       Если Рег.Приход=1 тогда
           Количество=Рег.Количество;
           Таб.ПрисоединитьСекцию("Детально|Приход");
           Количество="";
           Таб.ПрисоединитьСекцию("Детально|Расход");
       КонОстат=Рег.СводныйОстаток(,ТМР,,"Количество");
       КонОстаток=КонОстат+Количество;
       Таб.ПрисоединитьСекцию("Детально|КонОстаток");

       Иначе                                      
           Количество="";
           Таб.ПрисоединитьСекцию("Детально|Приход");
           Количество=Рег.Количество;
           Таб.ПрисоединитьСекцию("Детально|Расход");
       КонОстат=Рег.СводныйОстаток(,ТМР,,"Количество");
       КонОстаток=КонОстат-Количество;
       Таб.ПрисоединитьСекцию("Детально|КонОстаток");
       КонецЕсли;

   КонецЦикла;
 
   Таб.ТолькоПросмотр(1);
   Таб.Показать();
КонецПроцедуры

но выводит этот отчет  правильно только приходные данные (НомерДок, ДатаДок, приход),а остаток уже неправильно. И из расходного документа этот отчет показывает количество расхода правильно, но дату и номер документа не показывает и кому передан товар тоже не показывает.
Подскажите ,что можно сделать ,чтобы этот отчет работал как надо??
1 Gavrinev
 
09.11.10
10:15
Попробуй написать через запрос или простым перебором документов...
2 Study_1с
 
09.11.10
12:44
Через запрос по выбранному материалу(товару)суммируются все столбцы ,а потом только выдает на просмотр... а как написать "простым перебором документов.."?
3 Study_1с
 
09.11.10
12:50
мне нужно что бы выводилась стандартная карточка складского учета материалов...Все движения отображались: сколько пришло, сколько ушло, куда ушло и сколько осталось, номера и даты документов, на основании которых произошло движение..., остаток на каждый день, когда произошло движение...Как это можно правильно реализовать?