Имя: Пароль:
1C
 
Документ таб часть
0 azeml
 
15.08.14
13:33
Здравствуйте! Такой вопрос надо выбрать из документа поступления товаров из переработки количество и номенклатуру и дату документа и номер. С датой ясно, вот как номенклатуру и количество

Заранее спасибо!

Процедура КнопкаВыполнитьНажатие(Кнопка)
    
    Польз = ПользователиИнформационнойБазы.ТекущийПользователь();
    НайтиКор =  Справочники.Пользователи.НайтиПоНаименованию(Користувач);
    Дата1 = НачалоДня(ТекущаяДата());
    Дата2 = КонецДня(ТекущаяДата());
    ПомУд = Ложь;
    запрос = Новый Запрос;
    запрос.УстановитьПараметр("Дата1",Дата1);
    запрос.УстановитьПараметр("Дата2",Дата2);
    запрос.УстановитьПараметр("Пом",ПомУд);
    запрос.Текст =
    
     "ВЫБРАТЬ
     |    ПоступлениеТоваровИзПереработки.Ссылка,
     |    ПоступлениеТоваровИзПереработки.Номер,
     |    ПоступлениеТоваровИзПереработки.Дата,
     |    ПоступлениеТоваровИзПереработки.Проведен,
     |    ПоступлениеТоваровИзПереработки.Ответственный,
     |    ПоступлениеТоваровИзПереработки.Ответственный.Наименование,
     |    ПоступлениеТоваровИзПереработки.Продукция.(
     |        Количество,
     |        Номенклатура
     |    )
     |ИЗ
     |    Документ.ПоступлениеТоваровИзПереработки КАК ПоступлениеТоваровИзПереработки
     |ГДЕ
     |    ПоступлениеТоваровИзПереработки.Дата МЕЖДУ &Дата1 И &Дата2
     |    И ПоступлениеТоваровИзПереработки.ПометкаУдаления = &Пом";
    реззап = запрос.Выполнить().Выбрать();
    Пр = Ложь;
    Пока реззап.Следующий() Цикл
         польз = Справочники.Пользователи.НайтиПоНаименованию(реззап.ОтветственныйНаименование);
                Если польз.Код = НайтиКор.Код Тогда
                    Пр = Истина;
                    ДатаДок = реззап.Дата;
                    ПользДок = реззап.ОтветственныйНаименование;
                    НомерДок = реззап.Номер;
                 КонецЕсли;
       КонецЦикла;
    
    
Сообщить(реззап.Продукция.Колонки.Количество);    
    

    КонецПроцедуры
1 rendez-vous
 
15.08.14
13:36
(0) Делай запрос к таб. части. Дату и номер получишь по ссылке.
2 Wobland
 
15.08.14
13:37
а ну нажми шифт+7. может, у меня такая клавиатура ущербная
3 azeml
 
15.08.14
14:18
(1) дату беру так реззап.дата
4 azeml
 
15.08.14
14:19
как так же з номенклатуру и количество ???
5 salvator
 
15.08.14
14:20
(4) Прочитай еще раз сообщение (1). И еще раз, до просветления.
6 Крошка Ру
 
15.08.14
14:25
(5) Вот так запостишь что-нибудь, а там глядь - твоим постом все просветляются...
"Миста: Прокачай свои навыки духовного лидера!"
7 azeml
 
16.08.14
01:38
(1) спасибо!!!
8 GreatOne
 
16.08.14
02:01
вообще такой код надо срочно выбросить и написать все заново. И кстати он не выполняется, здесь ругается 100%:
НайтиКор =  Справочники.Пользователи.НайтиПоНаименованию(Користувач);