Имя: Пароль:
1C
1С v8
Редактирование с сохранением поддержки
0 TAA
 
05.07.11
07:14
Здравствуйте необходимо поправить код:

Выборка = Запрос.Выполнить().Выбрать();
   
   Пока Выборка.Следующий() Цикл
       //Если НЕ ЗначениеЗаполнено(Выборка.ДокументОплаты) Тогда
       //    Продолжить;
       //КонецЕсли;
       //ВходящийНомер = НЕ(Выборка.ДокументОплаты.Метаданные().Реквизиты.Найти("ДатаВходящегоДокумента") = Неопределено);
       //ТекстЗапроса = ?(НЕ ВходящийНомер, СтрЗаменить(НачальныйТекстЗапроса, "ВходящегоДокумента", Символы.НПП), НачальныйТекстЗапроса);
       //ЗапросПоДокументуОплаты.Текст = СтрЗаменить(ТекстЗапроса, "%ИмяТаблицыДокумента%", Выборка.ДокументОплаты.Метаданные().ПолноеИмя());
       //ЗапросПоДокументуОплаты.УстановитьПараметр("Ссылка", Выборка.ДокументОплаты);
       //ВыборкаПоДокументуОплаты = ЗапросПоДокументуОплаты.Выполнить().Выбрать();
       
       Если Выборка.Следующий() Тогда
           НовыйПРД = ДатаНомерДокументовОплаты.Добавить();
           НовыйПРД.ДатаПлатежноРасчетногоДокумента  = Выборка.ДатаВходящегоДокумента;
           НовыйПРД.НомерПлатежноРасчетногоДокумента = Выборка.НомерВходящегоДокумента;
       КонецЕсли;    
   КонецЦикла;
А именно закомментировать или удалить известные строки проблема в том что они находятся в модуле документа Счет-фактура выданный, который в настройках поддержки стоит не редактировать. Но его уже изменял другой программист, как он это делал (изменял с охранением поддержки)?
1 forforumandspam
 
05.07.11
07:22
Мало информации
2 forforumandspam
 
05.07.11
07:23
Таких закоментированных мест и в типовом коде полно. Ты уверен, что это другой программист сделал?
3 TAA
 
05.07.11
07:24
Вообщем хочу изменить модуль конфигурации и вернуть ее на поддержку с сохранением изменений
4 forforumandspam
 
05.07.11
07:26
http://i050.radikal.ru/1107/55/655552fb0368.jpg
Вот тут первые документ не редактируется, второй редактируется с сохранением поддержки.
5 TAA
 
05.07.11
07:34
вот в данный момент СФ не редактируется а изменения есть Как это получается?
6 forforumandspam
 
05.07.11
07:36
Докажи!! Покажи свой документ.
7 TAA
 
05.07.11
07:47
вот полный код процедуры в модуле сф
Процедура ЗаполнитьДатуИНомерВходящегоДокумента(ОбрабатываемыйДокументОснование = Неопределено) Экспорт
   
   //Запрос = Новый Запрос;
   //Запрос.Текст =
   //"ВЫБРАТЬ
   //|    РасчетыПоРеализацииВУсловныхЕдиницахОрганизации.Документ КАК ДокументОплаты
   //|ИЗ
   //|    РегистрНакопления.РасчетыПоРеализацииВУсловныхЕдиницахОрганизации КАК РасчетыПоРеализацииВУсловныхЕдиницахОрганизации
   //|ГДЕ
   //|    РасчетыПоРеализацииВУсловныхЕдиницахОрганизации.Регистратор В(&СписокОснований)
   //|    И РасчетыПоРеализацииВУсловныхЕдиницахОрганизации.ВидДвижения = ЗНАЧЕНИЕ(ВидДвиженияНакопления.Расход)
   //|    И РасчетыПоРеализацииВУсловныхЕдиницахОрганизации.Документ <> РасчетыПоРеализацииВУсловныхЕдиницахОрганизации.Регистратор";
   //              
   //Запрос.УстановитьПараметр("СписокОснований", ОбщегоНазначения.УдалитьПовторяющиесяЭлементыМассива(ДокументыОснования.ВыгрузитьКолонку("ДокументОснование"),Истина));
   //Запрос.УстановитьПараметр("КонецПериода", Новый Граница(КонецДня(Дата),ВидГраницы.Включая));

   //ЗапросПоДокументуОплаты = Новый Запрос;
   //НачальныйТекстЗапроса =
   //"ВЫБРАТЬ
   //|    ДокументОплаты.НомерВходящегоДокумента КАК Номер,
   //|   ДокументОплаты.ДатаВходящегоДокумента КАК Дата
   //|ИЗ
   //|   %ИмяТаблицыДокумента% КАК ДокументОплаты
   //|ГДЕ
   //|   ДокументОплаты.Ссылка = &Ссылка";
    //абс см 41271
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    ЕСТЬNULL(РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты.Регистратор.НомерВходящегоДокумента, РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты.Регистратор.Номер) КАК НомерВходящегоДокумента,
                  |    ЕСТЬNULL(РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты.Регистратор.ДатаВходящегоДокумента, РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты.Регистратор.Дата) КАК ДатаВходящегоДокумента
                  |ИЗ
                  |    РегистрНакопления.РасчетыПоРеализацииВУсловныхЕдиницахОрганизации.Обороты(, , Регистратор, Документ В (&СписокОснований)) КАК РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты
                  |ГДЕ
                  |    (РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты.Регистратор ССЫЛКА Документ.ПлатежноеПоручениеВходящее
                  |            ИЛИ РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты.Регистратор ССЫЛКА Документ.ПлатежныйОрдерПоступлениеДенежныхСредств
                  |            ИЛИ РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты.Регистратор ССЫЛКА Документ.ПриходныйКассовыйОрдер)
                  |
                  |ОБЪЕДИНИТЬ ВСЕ
                  |
                  |ВЫБРАТЬ
                  |    РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты.Документ.НомерВходящегоДокумента,
                  |    РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты.Документ.ДатаВходящегоДокумента
                  |ИЗ
                  |    РегистрНакопления.РасчетыПоРеализацииВУсловныхЕдиницахОрганизации.Обороты(
                  |            ,
                  |            ,
                  |            Регистратор,
                  |            Документ ССЫЛКА Документ.ПлатежноеПоручениеВходящее
                  |                ИЛИ Документ ССЫЛКА Документ.ПлатежныйОрдерПоступлениеДенежныхСредств
                  |            ИЛИ Документ ССЫЛКА Документ.ПриходныйКассовыйОрдер
                  |) КАК РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты
                  |ГДЕ
                  |    РасчетыПоРеализацииВУсловныхЕдиницахОрганизацииОбороты.Регистратор В(&СписокОснований)"
                  ;
   // Абс_АК КОНЕЦ ИЗМЕНЕНИЙ
   
   Если ОбрабатываемыйДокументОснование = Неопределено Тогда
       Запрос.УстановитьПараметр("СписокОснований", ОбщегоНазначения.УдалитьПовторяющиесяЭлементыМассива(ДокументыОснования.ВыгрузитьКолонку("ДокументОснование"),Истина));
   Иначе
       Запрос.УстановитьПараметр("СписокОснований", ОбрабатываемыйДокументОснование);
   КонецЕсли;
   
   Запрос.УстановитьПараметр("КонецПериода", Новый Граница(КонецДня(Дата),ВидГраницы.Включая));
   // Абс_ГАИ НАЧАЛО ИЗМЕНЕНИЙ
   ДатаНомерДокументовОплаты.Очистить();
   //\\ Абс_ГАИ КОНЕЦ ИЗМЕНЕНИЙ
   
   Выборка = Запрос.Выполнить().Выбрать();
   
   Пока Выборка.Следующий() Цикл
       //Если НЕ ЗначениеЗаполнено(Выборка.ДокументОплаты) Тогда
       //    Продолжить;
       //КонецЕсли;
       //ВходящийНомер = НЕ(Выборка.ДокументОплаты.Метаданные().Реквизиты.Найти("ДатаВходящегоДокумента") = Неопределено);
       //ТекстЗапроса = ?(НЕ ВходящийНомер, СтрЗаменить(НачальныйТекстЗапроса, "ВходящегоДокумента", Символы.НПП), НачальныйТекстЗапроса);
       //ЗапросПоДокументуОплаты.Текст = СтрЗаменить(ТекстЗапроса, "%ИмяТаблицыДокумента%", Выборка.ДокументОплаты.Метаданные().ПолноеИмя());
       //ЗапросПоДокументуОплаты.УстановитьПараметр("Ссылка", Выборка.ДокументОплаты);
       //ВыборкаПоДокументуОплаты = ЗапросПоДокументуОплаты.Выполнить().Выбрать();
       
       Если Выборка.Следующий() Тогда
           НовыйПРД = ДатаНомерДокументовОплаты.Добавить();
           НовыйПРД.ДатаПлатежноРасчетногоДокумента  = Выборка.ДатаВходящегоДокумента;
           НовыйПРД.НомерПлатежноРасчетногоДокумента = Выборка.НомерВходящегоДокумента;
       КонецЕсли;    
   КонецЦикла;
       
КонецПроцедуры
8 forforumandspam
 
05.07.11
07:56
(7) картинку как в (4) покажи.
9 PuhUfa
 
05.07.11
07:57
Просто включить редактирование не предлогать?
10 forforumandspam
 
05.07.11
08:00
(9) Автор уверен, что редактирование ключили, потом выключили, теперь спрашивает, как ему так-же сделать.
11 TAA
 
05.07.11
11:31
12 Armin
 
18.07.11
12:28
А кто знает, как возможно установить возможность изменения элемента конфигурации, если он остался заблокированным после включения общего режима изменения с сохранением поддержки, и сама база подключена к хранилищу?
Ключевое слово: к хранилищу =)
AdBlock убивает бесплатный контент. 1Сергей