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