powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / Посчитать на серваке и передать на клиент, ТаблицаЗначений
2 сообщений из 2, страница 1 из 1
Посчитать на серваке и передать на клиент, ТаблицаЗначений
    #37437306
asmut
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
1С 8,2, ТонкийКлиент, ВиндаХрюша, УФ



День добрый.

Кто в курсе подскажите, кто знает как это сделать правильно и универсально вообще молодцы.
На форме создал три реквизита типа Булево

Прописал для них код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
//Выбор расчета по строкам ТЧ "Гектар/Тонна"
&НаКлиенте
Процедура ГаТПриИзменении(Элемент)
Если ГаТ = Истина Тогда
ГаГа = Неопределено; // Защита от злобных юзеров нажимающих все подряд
ТТ = Неопределено;  // Аналогия предыдущего
ИначеЕсли ГаГа = Ложь И ГаТ = Ложь И ТТ = Ложь Тогда
Сообщить ("Необходимо выбрать один из видов расчета!");            
КонецЕсли;
КонецПроцедуры


Еще конечно позаботился перед сохранением чтобы проверяло всякие варианты, а то пользователи у меня злобные ломают все что в руки возьмут, конечно это было лишним но на всякий случай.

Теперь я хочу рассчитать данные для всех строк табличной части формы, и вот тут у меня всегда проблема. Я до сих пор не могу понять суть обхода, все упирается в это.

Сделал на Серваке:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
&НаСервере
Функция ТаблЗнач ()

Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ
...
|ИЗ
|      Документ.Наряд.ЗаполняемыеДанные КАК НарядЗаполняемыеДанные";

Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();
  
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
  Если ВыборкаДетальныеЗаписи.ФактГа >  0  Тогда
  Нсм = ВыборкаДетальныеЗаписи.ФактГа / ВыборкаДетальныеЗаписи.НормаВыр;
  ЭтГа = ВыборкаДетальныеЗаписи.Нсм * ВыборкаДетальныеЗаписи.Коэффициент;
  НормаДТ = ВыборкаДетальныеЗаписи.ФактГа * ВыборкаДетальныеЗаписи.ГСМ;
  СуммаЗаДень = ВыборкаДетальныеЗаписи.Расценка * ВыборкаДетальныеЗаписи.ФактГа;
  Иначе 
  СМС = Новый СообщениеПользователю;
  СМС.Текст = "Укажите фактическое количество выполненной работы! Без указания этих данных все расчеты бессмыслены!";  
  СМС.Сообщить();
  КонецЕсли; 
КонецЦикла;
КонецФункции


Ну вот значится сам вопрос: Как передать теперь все на клиент?

Возможно создать реквизит с типом ТаблицаЗначений - почитал бы с радостью как пользоваться ею.

Кто что предложит? Заранее благодарен.
...
Рейтинг: 0 / 0
Посчитать на серваке и передать на клиент, ТаблицаЗначений
    #37440140
asmut
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
asmut,

)) таким макаром я до скончания лет искал бы здесь ответ

Вопрос закрыт, все сделал
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Посчитать на серваке и передать на клиент, ТаблицаЗначений
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]