(UTC)
  1С++ users forum › 1С++ и прочие расширения v7 › Прямые запросы к БД › Обновить реквизит документа!!!
(Группа Модераторов: 1c++ moderator)
‹ Предыдущая Тема | Следующая Тема ›
Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Обновить реквизит документа!!! (число прочтений - 2577 )
sv_stas_sv
Junior Member
**
Отсутствует


1с++ lamer

Сообщений: 46
Зарегистрирован: 19. Июля 2006
Обновить реквизит документа!!!
20. Декабря 2006 :: 05:41
Печать  
Существует задача,с помощью 1С++ установить реквизит документа РасходнаяНакладная, реквизит ПринятНаСклад =1.
Подскажите как? Печаль
  
Наверх
 
IP записан
 
Славко
Senior Member
****
Отсутствует



Сообщений: 467
Местоположение: Украина, г. Днепропетровск
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Обновить реквизит документа!!!
Ответ #1 - 20. Декабря 2006 :: 07:26
Печать  
Вы чо прикалываетесь один и теже темы подыамать?  Ужас
  
Ламер, самый обычный ламер...    сначала мы ...   а потом мы ...
Наверх
wwwICQ  
IP записан
 
orefkov
1c++ developer
1c++ moderator
Отсутствует


I Love YaBB 2!

Сообщений: 896
Зарегистрирован: 20. Мая 2006
Re: Обновить реквизит документа!!!
Ответ #2 - 21. Декабря 2006 :: 07:59
Печать  
докРн = СоздатьОбъект("Документ.РасходнаяНакладная");
докРн.НайтиДокумент(НужныйДок);
Если докРн.Блокировка(1)=0 Тогда
    Предупреждение("Не удалось заблокировать документ. Возможно он кем-то открыт", 10);
    Возврат;
КонецЕсли;
запрос.УстановитьТекстовыйПараметр("ТекДок", НужныйДок);
запрос.ВыполнитьСкалярный("
|update $Документ.РасходнаяНакладная
|set $Документ.РасходнаяНакладная.ПринятНаСклад = 1
|where iddoc = :ТекДок
");
  
Наверх
 
IP записан
 
sv_stas_sv
Junior Member
**
Отсутствует


1с++ lamer

Сообщений: 46
Зарегистрирован: 19. Июля 2006
Re: Обновить реквизит документа!!!
Ответ #3 - 21. Декабря 2006 :: 08:02
Печать  
Спасибо за ответ!!!
  
Наверх
 
IP записан
 
Quan
1c++ donor
1c++ power user
Отсутствует


I'm old, bald and ugly.

Сообщений: 273
Местоположение: Новосибирск -- Москва
Зарегистрирован: 20. Мая 2006
Пол: Мужской
Re: Обновить реквизит документа!!!
Ответ #4 - 28. Декабря 2006 :: 09:19
Печать  
orefkov писал(а) 21. Декабря 2006 :: 07:59:
докРн = СоздатьОбъект("Документ.РасходнаяНакладная");
докРн.НайтиДокумент(НужныйДок);
Если докРн.Блокировка(1)=0 Тогда
   Предупреждение("Не удалось заблокировать документ. Возможно он кем-то открыт", 10);
   Возврат;
КонецЕсли;
запрос.УстановитьТекстовыйПараметр("ТекДок", НужныйДок);
запрос.ВыполнитьСкалярный("
|update $Документ.РасходнаяНакладная
|set $Документ.РасходнаяНакладная.ПринятНаСклад = 1
|where iddoc = :ТекДок
");


Я бы еще добавил для полноты картины
докРн.Блокировка(0)
  
А для тех, кто не хотел учить SQL, господь сотворил курсоры
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать
‹ Предыдущая Тема | Следующая Тема ›
 
  « Главная ‹ Раздел Вверх  



Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge