|
Запрос | ☑ | ||
|---|---|---|---|---|
|
0
deringpavel
30.07.13
✎
19:05
|
Здравствуйте. Вопрос такой - имеется конфа Управление торговлей, версия 10.3. Имеется документ "план работ по ИТС", его вид прилагается в скриншоте.
Нужно сделать так, чтобы данные из колонок (номенклатура, ответственный, рег.номер и т.д.) остались без изменения, а добавились лишь только виды подписки (Проф, техно и т.д.). Где может быть ошибка? [code] Процедура КоманднаяПанель1Обновить(Кнопка) ЗапросПодписокИТС = Новый Запрос; ЗапросПодписокИТС.УстановитьПараметр("ТекДата",ЭтотОбъект.Дата); ЗапросПодписокИТС.Текст = "ВЫБРАТЬ | _2Н_ПодпискиИТССрезПоследних.Период, | _2Н_ПодпискиИТССрезПоследних.Регистратор, | _2Н_ПодпискиИТССрезПоследних.НомерСтроки, | _2Н_ПодпискиИТССрезПоследних.Активность, | _2Н_ПодпискиИТССрезПоследних.Контрагент, | _2Н_ПодпискиИТССрезПоследних.Номенклатура, | _2Н_ПодпискиИТССрезПоследних.РегистрационныйНомер, | _2Н_ПодпискиИТССрезПоследних.ДатаНачалаПодписки, | _2Н_ПодпискиИТССрезПоследних.ДатаОкончанияПодписки, | _2Н_ПодпискиИТССрезПоследних.СрокПодписки, | _2Н_ПодпискиИТССрезПоследних.ВидПодпискиИТС КАК ВидПодписки |ИЗ | РегистрСведений._2Н_ПодпискиИТС.СрезПоследних(&ТекДата, ) КАК _2Н_ПодпискиИТССрезПоследних |ГДЕ | _2Н_ПодпискиИТССрезПоследних.ДатаОкончанияПодписки > &ТекДата"; ВыборкаПодписокИТС = ЗапросПодписокИТС.Выполнить().Выбрать(); Пока ВыборкаПодписокИТС.Следующий() Цикл Если ЭтотОбъект.Работы.Найти(ВыборкаПодписокИТС.РегистрационныйНомер,"РегистрационныйНомер") = Неопределено Тогда НоваяСтр = ЭтотОбъект.Работы.Добавить(); ЗаполнитьЗначенияСвойств(НоваяСтр,ВыборкаПодписокИТС); КонецЕсли; КонецЦикла; КонецПроцедуры [/code] |
|||
|
1
deringpavel
30.07.13
✎
19:06
|
| Форум | Правила | Описание | Секции | Поиск |