Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )




>  Помогите исправить ошибку
kanibal23
Отправлено: 20.06.18, 6:30


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


Vofka @ Вчера, 17:00 * ,

Спасибо роботоет
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142709 · Ответов: 2 · Просмотров: 5311
 

>  Помогите исправить ошибку
kanibal23
Отправлено: 19.06.18, 14:58


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


есть процедура СписокПриАктивизацииСтроки

Она формирует мини отчет
строка повібору

&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)
    ТекСтрока = Элементы.Список.ТекущаяСтрока;    
    Если ТекСтрока = Неопределено   Тогда         
        Возврат;
    Иначе
        СписокПриАктивизацииСтрокиНаСервере(ТабДок, ТекСтрока);
    КонецЕсли;    
КонецПроцедуры


И сам код для отчета заполнения ТабДок

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

    ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
    
    ТабДок.Очистить();
    ТабДок.НачатьАвтогруппировкуСтрок();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
        ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень());
    КонецЦикла;
    
    ТабДок.ЗакончитьАвтогруппировкуСтрок();

КонецПроцедуры


Работает почти как часики но загвоздка в том что если в списке стоит группировка и при выборе строки группировки выдоит ошибку

{ОбщаяФорма.УчетМастерской.Форма(128)}: Ошибка при вызове метода контекста (Выполнить)
РезультатЗапроса = Запрос.Выполнить();
по причине:
{(43, 35)}: Неверные параметры в операции сравнения. Нельзя сравнивать поля
неограниченной длины и поля несовместимых типов.
ДокументПриёмОборудования.Ссылка <<?>>= &Ссылка

как и где что добавить что б этой ошибки не было что бы оно не обращало внимание на строку группировки
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142684 · Ответов: 2 · Просмотров: 5311
 

>  Обновления списка пользователей с записью в регистр сведений
kanibal23
Отправлено: 11.06.18, 7:07


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


andr_andrey @ 08.06.18, 12:30 * ,
МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
РегистрСведений= РегистрыСведений.АктивныеПользователиЧата.СоздатьНаборЗаписей();
УстановитьПривилегированныйРежим(Истина);
РегистрСведений .Прочитать();
Для каждого Соединение Из МассивСоединений Цикл    
    //Сообщить("Имя: "+Соединение.Пользователь.Имя+"/ приложение "+Соединение.ИмяПриложения);
    Если ЛЕВ(Соединение.ИмяПриложения,4)="1CV8"  Тогда   //НЕ ПредставлениеПриложения(Соединение.ИмяПриложения)= "Конфигуратор" И НЕ Соединение.ИмяПриложения = "BackgroundJob"
    НоваяЗапись = РегистрСведений.Добавить();
    НоваяЗапись.Пользователь = Справочники.Пользователи.НайтиПоНаименованию(Соединение.Пользователь.Имя, Истина);
КонецЕсли;

КонецЦикла;
РегистрСведений.Записать(Истина);
УстановитьПривилегированныйРежим(Ложь);


тогда во так уж


ААА верхняя часть нужна чтобы стереть записи и не было конфликта одинаковых имён
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142405 · Ответов: 16 · Просмотров: 2851
 

>  Обновления списка пользователей с записью в регистр сведений
kanibal23
Отправлено: 07.06.18, 14:17


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


НаборЗаписей = РегистрыСведений.АктивныеПользователиЧата.СоздатьНаборЗаписей();
    НаборЗаписей.Прочитать();
    НаборЗаписей.Очистить();
    НаборЗаписей.Записать();

МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
РегистрСведений= РегистрыСведений.АктивныеПользователиЧата.СоздатьНаборЗаписей();
УстановитьПривилегированныйРежим(Истина);
РегистрСведений .Прочитать();
Для каждого Соединение Из МассивСоединений Цикл    
    Сообщить("Имя: "+Соединение.Пользователь.Имя+"/ приложение "+ПредставлениеПриложения(Соединение.ИмяПриложения));
    Если НЕ ПредставлениеПриложения(Соединение.ИмяПриложения)= "Конфигуратор"  Тогда         
    НоваяЗапись = РегистрСведений.Добавить();
    НоваяЗапись.Пользователь = Справочники.Пользователи.НайтиПоНаименованию(Соединение.Пользователь.Имя, Истина);
    КонецЕсли;
КонецЦикла;
РегистрСведений.Записать(Истина);
УстановитьПривилегированныйРежим(Ложь);


Кабы работает но первые несколько минут
Потом появляются Фоновые задания и тогда записывает пустого пользователя как их отсеч

Победил вдруг кому пригладится
&НаСервереБезКонтекста
Процедура ОбновитьПользователей()
    НаборЗаписей = РегистрыСведений.АктивныеПользователиЧата.СоздатьНаборЗаписей();
    НаборЗаписей.Прочитать();
    НаборЗаписей.Очистить();
    НаборЗаписей.Записать();

МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
РегистрСведений= РегистрыСведений.АктивныеПользователиЧата.СоздатьНаборЗаписей();
УстановитьПривилегированныйРежим(Истина);
РегистрСведений .Прочитать();
Для каждого Соединение Из МассивСоединений Цикл    
    Сообщить("Имя: "+Соединение.Пользователь.Имя+"/ приложение "+Соединение.ИмяПриложения);
    Если НЕ ПредставлениеПриложения(Соединение.ИмяПриложения)= "Конфигуратор" И НЕ Соединение.ИмяПриложения = "BackgroundJob"  Тогда  
    НоваяЗапись = РегистрСведений.Добавить();
    НоваяЗапись.Пользователь = Справочники.Пользователи.НайтиПоНаименованию(Соединение.Пользователь.Имя, Истина);
КонецЕсли;

КонецЦикла;
РегистрСведений.Записать(Истина);
УстановитьПривилегированныйРежим(Ложь);
КонецПроцедуры
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142303 · Ответов: 16 · Просмотров: 2851
 

>  Обновления списка пользователей с записью в регистр сведений
kanibal23
Отправлено: 06.06.18, 15:24


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


Цитата(sava1 @ 06.06.18, 15:28) *
Для "оно" пофиг скоко и чего находится в системе - для "оно" важно, как Вы с "им" работаете.

далеко не пофиг даже вручную добавить вторую такую же запись не возможно

Правда если записывать так

МенеджерЗаписиАктивныеПользователи = РегистрыСведений.АктивныеПользователиЧата.СоздатьМенеджерЗаписи();
    УстановитьПривилегированныйРежим(Истина);
    МенеджерЗаписиАктивныеПользователи.Пользователь = ПараметрыСеанса.ТекущийПользователь;
    Попытка
        МенеджерЗаписиАктивныеПользователи.Записать();
    Исключение
    КонецПопытки;
    УстановитьПривилегированныйРежим(Ложь);


И удалять так

МенеджерЗаписи = РегистрыСведений.АктивныеПользователиЧата.СоздатьМенеджерЗаписи();
        УстановитьПривилегированныйРежим(Истина);
    МенеджерЗаписи.Пользователь = ПараметрыСеанса.ТекущийПользователь;
    МенеджерЗаписи.Прочитать();
    МенеджерЗаписи.Удалить();
    УстановитьПривилегированныйРежим(Ложь);


все работает
Но это стоит при старте и закрытий формы
Но бывает если я всех кикаю из базы пользователи остаются в чате активными вот и хачю сделать модуль обновления списка
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142276 · Ответов: 16 · Просмотров: 2851
 

>  Обновления списка пользователей с записью в регистр сведений
kanibal23
Отправлено: 06.06.18, 13:12


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


От ошибки избавился

&НаСервереБезКонтекста
Процедура ОбновитьПользователей()
    НаборЗаписей = РегистрыСведений.АктивныеПользователиЧата.СоздатьНаборЗаписей();
    НаборЗаписей.Прочитать();
    НаборЗаписей.Очистить();
    НаборЗаписей.Записать();

МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
РегистрСведений= РегистрыСведений.АктивныеПользователиЧата.СоздатьНаборЗаписей();
УстановитьПривилегированныйРежим(Истина);
РегистрСведений .Прочитать();
Для каждого Соединение Из МассивСоединений Цикл
    Если НЕ ПредставлениеПриложения(Соединение.ИмяПриложения)="Конфигуратор" Тогда
    НоваяЗапись = РегистрСведений.Добавить();
    НоваяЗапись.Пользователь = Соединение.Пользователь.Имя;
    Сообщить("Имя: "+Соединение.Пользователь.Имя);
    КонецЕсли;
КонецЦикла;
РегистрСведений.Записать(Истина);
УстановитьПривилегированныйРежим(Ложь);
КонецПроцедуры


Но все ровно записывает пустое значение

Цитата(sava1 @ 06.06.18, 13:41) *
это говорит лишь о том, что Вы не установили отбор по измерению.



ААА более о простом подумать не как
Если убрала ошибку
оно не понимала как Администратор находится в системе два раза

  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142271 · Ответов: 16 · Просмотров: 2851
 

>  Обновления списка пользователей с записью в регистр сведений
kanibal23
Отправлено: 06.06.18, 11:30


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


&НаСервереБезКонтекста
Процедура ОбновитьПользователей()
    НаборЗаписей = РегистрыСведений.АктивныеПользователиЧата.СоздатьНаборЗаписей();    
    НаборЗаписей.Записать();

МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
РегистрСведений= РегистрыСведений.АктивныеПользователиЧата.СоздатьНаборЗаписей();
УстановитьПривилегированныйРежим(Истина);
РегистрСведений .Прочитать();
Для каждого Соединение Из МассивСоединений Цикл
    НоваяЗапись = РегистрСведений.Добавить();
    НоваяЗапись.Пользователь = Соединение.Пользователь.Имя;
    Сообщить("Имя: "+Соединение.Пользователь.Имя);     
КонецЦикла;    
РегистрСведений.Записать();
УстановитьПривилегированныйРежим(Ложь);
КонецПроцедуры

&НаКлиенте
Процедура Обновить(Команда)
    ОбновитьПользователей();
КонецПроцедуры


вощим вот полностью последний код


Bernet @ Сегодня, 12:26 * ,
в самом начале очищается
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142266 · Ответов: 16 · Просмотров: 2851
 

>  Обновления списка пользователей с записью в регистр сведений
kanibal23
Отправлено: 06.06.18, 11:23


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


Bernet @ Сегодня, 9:35 * ,
побывал и так
так выпадает ошибка
Запись с такими ключевыми полями существует! : АктивныеПользователиЧата: (Регистр сведений: Активные пользователи чата; Номер строки: 2)
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142264 · Ответов: 16 · Просмотров: 2851
 

>  Обновления списка пользователей с записью в регистр сведений
kanibal23
Отправлено: 06.06.18, 8:27


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


sava1 @ Сегодня, 8:41 * ,
пробовал пустое значение
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142256 · Ответов: 16 · Просмотров: 2851
 

>  Обновления списка пользователей с записью в регистр сведений
kanibal23
Отправлено: 06.06.18, 6:56


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


Типа этого
МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
    РегистрСведений  = РегистрыСведений.АктивныеПользователиЧата.СоздатьНаборЗаписей();
    НоваяЗапись  = РегистрСведений.Добавить();
    Для каждого Соединение Из МассивСоединений Цикл
       РегистрСведений.Отбор.Пользователь.Установить(Соединение.Пользователь.Имя);  
       НоваяЗапись.Пользователь = РегистрСведений.Отбор.Пользователь;
       Сообщить("Имя: "+Соединение.Пользователь.Имя);
    КонецЦикла;
    
     РегистрСведений.Записать();

но вот только записывает одного пустого пользователя

Bernet @ Вчера, 16:47 * ,
тут реально тупнул просто столько раз переписывал что и не заметил
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142254 · Ответов: 16 · Просмотров: 2851
 

>  Обновления списка пользователей с записью в регистр сведений
kanibal23
Отправлено: 05.06.18, 15:03


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


нужно по нажатию кнопки обновить список

код
МассивСоединений = ПолучитьСоединенияИнформационнойБазы();              
    Для каждого Соединение Из МассивСоединений Цикл
    РегистрСведений  = РегистрыСведений.АктивныеПользователиЧата.СоздатьНаборЗаписей();
    //РегистрСведений.Отбор.Пользователь.Установить(Соединение.Пользователь.Имя);

        
        НоваяЗапись  = НаборЗаписей.Добавить();
        НоваяЗапись.Пользователь = Соединение.Пользователь.Имя;
        Сообщить("Имя: "+Соединение.Пользователь.Имя);
    КонецЦикла;
    
     РегистрСведений.Записать();


Сообщения это так для теста - но оно работает аа вот записи нету

Может туповатый вопрос но уже голова пухнит

 ! 

Правила: 5
 
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142235 · Ответов: 16 · Просмотров: 2851
 

>  не работает система оповещения
kanibal23
Отправлено: 31.05.18, 11:29


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


Batchir @ Сегодня, 10:02 * ,
Проще сделал
Ужал временными рамками
Может конечно не верно сделал но работает и не флудит

конечна интересная тема но ставить для мой базы не вижу смысла и самому интересно довести что то до ума
Установка системы взаимодействия
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142082 · Ответов: 6 · Просмотров: 1544
 

>  не работает система оповещения
kanibal23
Отправлено: 31.05.18, 8:41


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


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

     Возврат ТекстСообщения;


Только один нюанс как остановить спам (спамит последнюю запись)
я понимаю что отработку модуля можно поставить и дольше 5 секунд (я предполагал поставить 120) но все ровно нужно чтоб новое сообщение выдавало аа старое нет как тут лучше поступить
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142071 · Ответов: 6 · Просмотров: 1544
 

>  не работает система оповещения
kanibal23
Отправлено: 30.05.18, 15:02


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


sava1 @ Сегодня, 15:26 * ,
по идеи код должин был таким

 |    СообщенияЧата.НачалоПериод <= &ТекущаяДата   
        |    И СообщенияЧата.КонецПериода >= &ТекущаяДата";


Вот только заковырка если так написать то ошибка в ВЫБРАТЬ


если НЕ убрать постоянно спамит пустое сообщение
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142043 · Ответов: 6 · Просмотров: 1544
 

>  не работает система оповещения
kanibal23
Отправлено: 30.05.18, 14:19


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


может кто то скажет почему так происходит

Даю кода

Модуль управляемого приложения
&НаКлиенте
Процедура ОбработатьОжидание()Экспорт    
    
       РезультатПроверкиСообщений = ОбщийМодульЧат.ПроверитьНаличиеСообщенийСервер();
    Если Не РезультатПроверкиСообщений =  "" Тогда
        Сообщить("Сообщение чата " + РезультатПроверкиСообщений);
    КонецЕсли;
КонецПроцедуры


&НаКлиенте
Процедура ПриНачалеРаботыСистемы()
    
    ПодключитьОбработчикОжидания("ОбработатьОжидание",5,);


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

    Возврат ТекстСообщения;  
  
КонецФункции



  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #142040 · Ответов: 6 · Просмотров: 1544
 

>  нужна помощ с динамическим спискам
kanibal23
Отправлено: 29.05.18, 7:09


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


logist @ 25.05.18, 23:45 * ,
для себя в мастерской с реальными пользователями надоело что когда большой наплыв хлама трудно понять что где и что сним
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #141982 · Ответов: 9 · Просмотров: 1423
 

>  нужна помощ с динамическим спискам
kanibal23
Отправлено: 25.05.18, 8:49


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


Batchir @ Сегодня, 9:18 * ,
невозможно провисеть кучю документов как только выдано все документ закрыт
+ правилом запрещены дубликаты

Вощим проблему ришил
Вариант написать запрос так чтобы эти записи не выбирались сильно громоздкий нашло проще решение
Через регистр тоже пробовал, тоже очень тяжёлый запрос ля динамического списка

Вот что получил в итоге отсталость только внешку подредактировать



Тема закрыта
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #141916 · Ответов: 9 · Просмотров: 1423
 

>  нужна помощ с динамическим спискам
kanibal23
Отправлено: 18.05.18, 9:04


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


Vofka @ Вчера, 17:56 * ,
Мне надо убрать пустые поля из видимости
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #141699 · Ответов: 9 · Просмотров: 1423
 

>  нужна помощ с динамическим спискам
kanibal23
Отправлено: 17.05.18, 12:36


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


kanibal23 @ Сегодня, 10:49 * ,


Скрин списка как выглядит
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #141666 · Ответов: 9 · Просмотров: 1423
 

>  нужна помощ с динамическим спискам
kanibal23
Отправлено: 17.05.18, 9:49


Общительный
**

Группа: Пользователи
Сообщений: 20
Регистрация: 10.11.17
Пользователь №: 58604


Может кто подскажит что сделать
Как убрать пустые поля

Запрос
ВЫБРАТЬ
    ДокументПриёмОборудования.Ссылка КАК Ссылка,
    ДокументПриёмОборудования.ПометкаУдаления,
    ДокументПриёмОборудования.Номер,
    ДокументПриёмОборудования.Дата,
    ДокументПриёмОборудования.Проведен,
    ДокументПриёмОборудования.Сотрудник,
    ДокументПриёмОборудования.Инв,
    ДокументПриёмОборудования.МОЛ,
    ДокументПриёмОборудования.Подразделение,
    ДокументПриёмОборудования.МастерскиеСклады,
    ДокументПриёмОборудования.SN,
    ДокументПриёмОборудования.Модель,
    ДокументПриёмОборудования.Паломка,
    ДокументПриёмОборудования.Данные,
    ДокументПриёмОборудования.Помещение,
    ДокументПриёмОборудования.Телефон,
    ДокументПриёмОборудования.НормерЗадачи,
    ДокументПриёмОборудования.Корпус,
    ДокументПриёмОборудования.Телефон1,
    ДокументПриёмОборудования.Телефон2,
    ДокументПриёмОборудования.Керівник,
    ДокументПриёмОборудования.Код,
    ДокументПриёмОборудования.Пользователь,
    ДокументПриёмОборудования.МоментВремени,
    ПриёмОборудования1.ПриОсмотреВыевленоЧчто,
    ЕСТЬNULL(ВыдачаОборудования.Количество, ИСТИНА) КАК выдоно,
    Резерв.Количество КАК Готово,
    РезервСписания.Количество КАК КСписанию,
    ЕСТЬNULL(СписаниеСБ.Количество, ИСТИНА) КАК СписаннСБ,
    ЕСТЬNULL(СписаниеУстоткуванняСписанияОборудования.Количество, ИСТИНА) КАК СписоноОб,
    ВыдачаОборудования.Дата КАК ДатаВыдона,
    Резерв.Дата КАК ДатаГотовности,
    РезервСписания.Дата КАК ДатаГотовности1,
    СписаниеСБ.Дата КАК ДатаВыдона1,
    СписаниеУстоткуванняСписанияОборудования.Ссылка.Дата КАК ДатаВыдона2,
    ДокументПриёмОборудования.Количество КАК Вроботе
ИЗ
    Документ.ПриёмОборудования КАК ДокументПриёмОборудования
        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПриёмОборудования1 КАК ПриёмОборудования1
        ПО ДокументПриёмОборудования.Номер = ПриёмОборудования1.НомерРасписки
        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ВыдачаОборудования КАК ВыдачаОборудования
        ПО ДокументПриёмОборудования.Номер = ВыдачаОборудования.НомерРасписки
        ЛЕВОЕ СОЕДИНЕНИЕ Документ.СписаниеСБ КАК СписаниеСБ
        ПО ДокументПриёмОборудования.Номер = СписаниеСБ.НомерРасписки
        ЛЕВОЕ СОЕДИНЕНИЕ Документ.СписаниеУстоткування.СписанияОборудования КАК СписаниеУстоткуванняСписанияОборудования
        ПО ДокументПриёмОборудования.Номер = СписаниеУстоткуванняСписанияОборудования.НомерРасписки
        ЛЕВОЕ СОЕДИНЕНИЕ Документ.Резерв КАК Резерв
        ПО ДокументПриёмОборудования.Номер = Резерв.НомерРасписки
        ЛЕВОЕ СОЕДИНЕНИЕ Документ.РезервСписания КАК РезервСписания
        ПО ДокументПриёмОборудования.Номер = РезервСписания.НомерРасписки

СГРУППИРОВАТЬ ПО
    ДокументПриёмОборудования.Ссылка,



 ! 

Правила: 8
 
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #141659 · Ответов: 9 · Просмотров: 1423
 


Новые сообщения  Открытая тема (есть новые ответы)
Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

RSS Текстовая версия Сейчас: 28.03.24, 16:03
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!