Управляемая форма обработки

@killovat25 · Регистрация: 07.03.2016

Author24 — интернет-сервис помощи студентам

Есть обработка (не внешняя, а в конфигурации), есть её форма. 2 процедуры:

1C

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    ПриОткрытииНаСервере();
    
    Пока Результат.Следующий() Цикл   
        
        Строка = Объект.ТЗ1.Добавить():
        Строка.Документ = Результат.Чек;
        Строка.ДисконтнаяКарта = Результат.ДисконтнаяКарта;    
 
    КонецЦикла;
    
КонецПроцедуры
 
&НаСервере
Процедура ПриОткрытииНаСервере()
    Запрос = Новый Запрос;
    Запрос.Текст = "
        |ВЫБРАТЬ
        |   ЧекККМ.Ссылка КАК Чек,
        |   ЧекККМ.ДисконтнаяКарта.КодКарты КАК ДисконтнаяКарта
        |ИЗ
        |   Документ.ЧекККМ КАК ЧекККМ
        |ГДЕ
        |   ЧекККМ.Проведен = Истина
        |   И ЧекККМ.ДисконтнаяКарта.КодКарты = &КодКарты";
    КодКарты = 890000000;
    Запрос.УстановитьПараметр("КодКарты", КодКарты);
    Результат = Запрос.Выполнить().Выбрать();
    
    Возврат Результат;
КонецПроцедуры

1. Как вернуть значение "Результат" в Процедуру НаКлиенте? Насколько я знаю, процедура этого сделать не может, но я уверен есть типовое решение, т.к. это используется повсеместно в 1С. (Запрос на сервере, добавление строк на клиенте)
P.S. Раньше не сталкивался с управляемыми формами.

2. На этот код

1C

1	Строка = Объект.ТЗ1.Добавить():

ругается: Неопознанный оператор. Как я понял нужно обратиться к ТЗ несколько по-другому.

3. Совсем не понятная ошибка:

{Обработка.ДисконтнаяКартаТовары.Форма.Форма.Форма(12,2)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>КонецЦикла; (Проверка: Тонкий клиент)

Tklwegsd · 07.08.2016, 15:54

Сделай так:

1C

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    ПриОткрытииНаСервере();
КонецПроцедуры
 
&НаСервере
Процедура ПриОткрытииНаСервере()
    Запрос = Новый Запрос;
    Запрос.Текст = "
        |ВЫБРАТЬ
        |   ЧекККМ.Ссылка КАК Чек,
        |   ЧекККМ.ДисконтнаяКарта.КодКарты КАК ДисконтнаяКарта
        |ИЗ
        |   Документ.ЧекККМ КАК ЧекККМ
        |ГДЕ
        |   ЧекККМ.Проведен = Истина
        |   И ЧекККМ.ДисконтнаяКарта.КодКарты = &КодКарты";
    КодКарты = 890000000;
    Запрос.УстановитьПараметр("КодКарты", КодКарты);
    Результат = Запрос.Выполнить().Выбрать();
    
    Пока Результат.Следующий() Цикл 
        
        Строка = Объект.ТЗ1.Добавить();
        Строка.Документ = Результат.Чек;
        Строка.ДисконтнаяКарта = Результат.ДисконтнаяКарта; 
 
    КонецЦикла;
КонецПроцедуры

@killovat25 · 07.08.2016, 16:28 **[ТС]**

Tklwegsd,
Сделал, ошибки 2,3 по-прежнему имеют место быть

Tklwegsd · 07.08.2016, 18:56

Сообщение от killovat25

2. На этот код
1CВыделить код
1
Строка = Объект.ТЗ1.Добавить():
ругается: Неопознанный оператор. Как я понял нужно обратиться к ТЗ несколько по-другому.

В конце строки стоит двоеточие, а нужна точка с запятой.

@killovat25 · 07.08.2016, 23:10 **[ТС]**

Tklwegsd,
Извиняюсь, пойду зрение проверю что ли...

@killovat25 0 / 0 / 0 Регистрация: 07.03.2016 Сообщений: 16
	07.08.2016, 16:28 [ТС]	3
	Tklwegsd, Сделал, ошибки 2,3 по-прежнему имеют место быть 0

Tklwegsd 843 / 606 / 211 Регистрация: 24.07.2013 Сообщений: 2,102
	07.08.2016, 18:56	4
	Сообщение от killovat25 2. На этот код 1CВыделить код 1 Строка = Объект.ТЗ1.Добавить(): ругается: Неопознанный оператор. Как я понял нужно обратиться к ТЗ несколько по-другому. В конце строки стоит двоеточие, а нужна точка с запятой. 0

@killovat25 0 / 0 / 0 Регистрация: 07.03.2016 Сообщений: 16
	07.08.2016, 23:10 [ТС]	5
	Tklwegsd, Извиняюсь, пойду зрение проверю что ли... 0

Опции темы