|   |   | 
| 
 | Редактирование с сохранением поддержки | ☑ | ||
|---|---|---|---|---|
| 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 | 
        А кто знает, как возможно установить возможность изменения элемента конфигурации, если он остался заблокированным после включения общего режима изменения с сохранением поддержки, и сама база подключена к хранилищу?
  Ключевое слово: к хранилищу =) | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |