Имя: Пароль:
1C
1С v8
выбор документов
0 Kurbash
 
28.09.13
10:55
такая засада-нужно выбрать непроведенные доки ПРинятие к учету ОС и поставить там срок полезного использования. Документы созданы датой 27.09.2013 00.00.00.

вот код:

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

    Результат=Запрос.Выполнить().Выбрать();
    Пока результат.Следующий() цикл
     ДокументОС=Документы.ПринятиеКУчетуОС.НайтиПоНомеру(Результат.Номер).ПолучитьОбъект();
     если Документос.Проведен=Ложь тогда
    Документос.СрокПолезногоИспользованияБУ=30;
     Документос.СрокПолезногоИспользованияНУ=30;
     Документос.СрокПолезногоИспользованияУУ=30;

     Конецесли;
    ДокументОС.Записать();
    сч=сч+1;
    Сообщить(сч);
    конеццикла;

результат выходит пустой, даты задаю 27.09.2013 00.00.00 и 28.09.2013 00.00.00. В чем может быть затыка?
1 Нууф-Нууф
 
28.09.13
10:57
жесть
2 Kurbash
 
28.09.13
10:57
чего?
3 Нууф-Нууф
 
28.09.13
10:59
сч=0;
    Запрос=новый запрос;
    запрос.Текст="ВЫБРАТЬ
                 |    ПринятиеКУчетуОС.Номер КАК номер,
                 |    ПринятиеКУчетуОС.Ссылка КАК Ссылка
                 |ИЗ
                 |    Документ.ПринятиеКУчетуОС КАК ПринятиеКУчетуОС
                 |ГДЕ
                 |    ПринятиеКУчетуОС.Организация = &Орг
                 |    И ПринятиеКУчетуОС.Дата МЕЖДУ &Дата1 И &Дата2";
                 Запрос.УстановитьПараметр("Орг",Документ);
                 Запрос.УстановитьПараметр("Дата1",началоДня(ПолеВвода1));    
                 Запрос.УстановитьПараметр("Дата2",КонецДня(ПолеВвода2));    

    Результат=Запрос.Выполнить().Выбрать();
    Пока результат.Следующий() цикл
     ДокументОС=Результат.Ссылка.ПолучитьОбъект();
     если Документос.Проведен=Ложь тогда
    Документос.СрокПолезногоИспользованияБУ=30;
     Документос.СрокПолезногоИспользованияНУ=30;
     Документос.СрокПолезногоИспользованияУУ=30;

     Конецесли;
    ДокументОС.Записать();
    сч=сч+1;
    Сообщить(сч);
    конеццикла;
4 Нууф-Нууф
 
28.09.13
10:59
и в качестве факультатива - у метода НайтиПоНомеру есть еще один параметр, без которого он не работает
5 Kurbash
 
28.09.13
11:01
блин вот я протупил...фиг ли уже замотался-всю ночь перед 1с-кой не ложился даже..а что за параметр?