Запрос

[Dethmontt]

Да это не его запрос )

А чей?

[GRADUS]

Он там уже был до него


П.С. попробовал запустить кс сервер без роутера, в сети (интеренет сеть, не видно у кс клиента) его всеравно не видно

[Dethmontt]

Статический ip ?
По какому порту работает сервер кс?

[GRADUS]

да

27015

Люди могут заходить по внешнему IP, но не видят в поиске, мастер сервера добавляются корректно.

[deringpavel]

При нажатии кнопки "обновить" см.скриншот.
Код такой:

Код Выделить Развернуть


ЗапросПодписокИТС = Новый Запрос;
ЗапросПодписокИТС.УстановитьПараметр("ТекДата",ЭтотОбъект.Дата);
ЗапросПодписокИТС.Текст = "ВЫБРАТЬ
                          | _2Н_ПодпискиИТССрезПоследних.Период,
                          | _2Н_ПодпискиИТССрезПоследних.Регистратор,
                          | _2Н_ПодпискиИТССрезПоследних.НомерСтроки,
                          | _2Н_ПодпискиИТССрезПоследних.Активность,
                          | _2Н_ПодпискиИТССрезПоследних.Контрагент,
                          | _2Н_ПодпискиИТССрезПоследних.Номенклатура,
                          | _2Н_ПодпискиИТССрезПоследних.РегистрационныйНомер,
                          | _2Н_ПодпискиИТССрезПоследних.ДатаНачалаПодписки,
                          | _2Н_ПодпискиИТССрезПоследних.ДатаОкончанияПодписки,
                          | _2Н_ПодпискиИТССрезПоследних.СрокПодписки,
                          | _2Н_ПодпискиИТССрезПоследних.ВидПодпискиИТС
                          |ИЗ
                          | РегистрСведений._2Н_ПодпискиИТС.СрезПоследних(&ТекДата, ) КАК _2Н_ПодпискиИТССрезПоследних
                          |ГДЕ
                          | _2Н_ПодпискиИТССрезПоследних.ДатаОкончанияПодписки > &ТекДата";

   
ВыборкаПодписокИТС = ЗапросПодписокИТС.Выполнить().Выбрать();

Для Каждого Стр Из ЭтотОбъект.Работы Цикл
Пока ВыборкаПодписокИТС.Следующий() Цикл
Если ЭтотОбъект.Работы.Найти(ВыборкаПодписокИТС.ВидПодпискиИТС) = Неопределено Тогда
//НоваяСтр = ЭтотОбъект.Работы.Добавить();
//ЗаполнитьЗначенияСвойств(НоваяСтр,ВыборкаПодписокИТС);
Стр.ВидПодписки = ВыборкаПодписокИТС.ВидПодпискиИТС;
КонецЕсли;
КонецЦикла;
ВыборкаПодписокИТС.Сбросить();
    КонецЦикла;


[Dethmontt]

Не правильно!

[deringpavel]

Попробовал сделать следующим образом:

Код Выделить Развернуть


  ЗапросПодписокИТС = Новый Запрос;
ЗапросПодписокИТС.УстановитьПараметр("ТекДата",ЭтотОбъект.Дата);
ЗапросПодписокИТС.Текст = "ВЫБРАТЬ
                          | _2Н_ПодпискиИТССрезПоследних.Период,
                          | _2Н_ПодпискиИТССрезПоследних.Регистратор,
                          | _2Н_ПодпискиИТССрезПоследних.НомерСтроки,
                          | _2Н_ПодпискиИТССрезПоследних.Активность,
                          | _2Н_ПодпискиИТССрезПоследних.Контрагент,
                          | _2Н_ПодпискиИТССрезПоследних.Номенклатура,
                          | _2Н_ПодпискиИТССрезПоследних.РегистрационныйНомер,
                          | _2Н_ПодпискиИТССрезПоследних.ДатаНачалаПодписки,
                          | _2Н_ПодпискиИТССрезПоследних.ДатаОкончанияПодписки,
                          | _2Н_ПодпискиИТССрезПоследних.СрокПодписки,
                          | _2Н_ПодпискиИТССрезПоследних.ВидПодпискиИТС КАК ВидПодписки
                          |ИЗ
                          | РегистрСведений._2Н_ПодпискиИТС.СрезПоследних(&ТекДата, ) КАК _2Н_ПодпискиИТССрезПоследних
                          |ГДЕ
                          | _2Н_ПодпискиИТССрезПоследних.ДатаОкончанияПодписки > &ТекДата";

   
ВыборкаПодписокИТС = ЗапросПодписокИТС.Выполнить().Выбрать();

Для Каждого Стр Из ЭтотОбъект.Работы Цикл
//Сообщить(" Павел    " + стр.Контрагент);
//Если ЭтотОбъект.Работы.Найти(Стр.ВидПодписки) = Неопределено Тогда

Пока ВыборкаПодписокИТС.Следующий() Цикл
//ЗаполнитьЗначенияСвойств(Стр,ВыборкаПодписокИТС);
Стр.ВидПодписки = ВыборкаПодписокИТС.ВидПодписки;
Сообщить (" Павел " + Стр.ВидПодписки);
КонецЦикла;
//КонецЕсли;
КонецЦикла;


Вопрос такой - почему виды подписки выводятся в сообщение, а в строку табличной части - нет?

[GRADUS]

Код Выделить Развернуть

ВыборкаПодписокИТС = ЗапросПодписокИТС.Выполнить().Выбрать();
   
    Пока ВыборкаПодписокИТС.Следующий() Цикл
       Строка = ЭтотОбъект.Работы.Найти(ВыборкаПодписокИТС.Контрагент,"Контрагент"); // обращаю внимание, что я не знаю условий задачи и не знаю критерий поиска, возможно прийдется использовать "найи строки"
       Если ЗначениеЗаполнено(Строка) Тогда
              Строка.ВидПодписки = ВыборкаПодписокИТС.ВидПодписки;
       КонецЕсли;
    КонецЦикла;

[deringpavel]

Работает Спасибо!

Добавлено: 05 авг 2013, 08:37

А вот такой вариант:

Код Выделить Развернуть


Для Каждого Стр Из ЭтотОбъект.Работы Цикл
Строка = ЭтотОбъект.Работы.Найти(Стр.Контрагент,"Контрагент");
Если ЗначениеЗаполнено(Строка) Тогда
Стр.ВидПодписки = Перечисления.ВидыПодписокИТС;
КонецЕсли;
КонецЦикла;

что здесь может не хватать?

Добавлено: 05 авг 2013, 08:38

ап

Добавлено: 05 авг 2013, 09:49

апп

[Dethmontt]

что здесь может не хватать?

Мозгов...

Ты перебираешь таблицу и в ей же ищешь!!! Смысл какой?
проще уж так:

Код Выделить Развернуть

Для Каждого Стр Из ЭтотОбъект.Работы Цикл
   Стр.ВидПодписки = Перечисления.ВидыПодписокИТС;
КонецЦикла;