Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: 1С для программиста

  Все выпуски  

RusFAQ.ru: 1С для программиста


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 264
от 03.08.2006, 11:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 258, Экспертов: 29
В номере:Вопросов: 4, Ответов: 6


Вопрос № 50425: Добрый день господа эксперты. У меня конфигурация для ломбарда, обороты каждый день большие - в день по 40-50 билетов выдается, много погашений, в общем движения немаленькие. Так вот, есть журнал выданных билетов, куда заносятся все выданные билеты, ...
Вопрос № 50428: Добрый день, уважаемые эксперты. Подскажите, как можно принудительно завершить сеансы пользователей? 1С версии 7.7, SQL....
Вопрос № 50433: Здравствуйте, 1с-Предприятие ред4,5 релиз 473, база SQL. При записи нового Пл.Поручения ошибка "cannot insert duplicate kye row in object "_1soper" with unigue index "docid", и программа вылетает с сообщением "невосс...
Вопрос № 50487: Как в таблице значений создать колонку, которая будет содержать флажки?...

Вопрос № 50.425
Добрый день господа эксперты. У меня конфигурация для ломбарда, обороты каждый день большие - в день по 40-50 билетов выдается, много погашений, в общем движения немаленькие. Так вот, есть журнал выданных билетов, куда заносятся все выданные билеты, много билетов уже просрочено или выкуплено. Можно ли как нибудь в журнале документов отфильтровать билеты чтоб при выборе документа (при выкупе залога) оставались только билеты, у которых реквизит ("Состояние") равен "Взалоге" или "продлен"?
Отправлен: 28.07.2006, 09:57
Вопрос задал: Pavelll (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Manserg
Здравствуйте, Pavelll!
Посмотрите в типовой конфигурации например ТиС, сделайте аналогичный отбор, создав этот реквизит и отбирая по нему.
Как пример:
Процедура ПриВыбореАвтора()

Если АвторДляОтбора.Выбран()>0 Тогда
УстановитьОтбор("Автор", АвторДляОтбора);
АвторДляОтбора = АвторДляОтбора.ТекущийЭлемент();
Иначе
УстановитьОтбор("");
КонецЕсли;

КонецПроцедуры // ПриВыбореАвтора()
Ответ отправил: Manserg (статус: 3-ий класс)
Ответ отправлен: 28.07.2006, 10:12


Вопрос № 50.428
Добрый день, уважаемые эксперты.
Подскажите, как можно принудительно завершить сеансы пользователей? 1С версии 7.7, SQL.
Отправлен: 28.07.2006, 10:00
Вопрос задал: Александр Шевченко (статус: Студент)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Manserg
Здравствуйте, Александр Шевченко!
1) Написать свой обработчик событий для завершения сеанса (ОбработкаОжидания("ОбработчикВыходаПользователей", ПериодОпросаСобытий)).
2) Использовать SQL менеджер для отключения сеансов.
Ответ отправил: Manserg (статус: 3-ий класс)
Ответ отправлен: 28.07.2006, 10:09

Отвечает: Besker
Здравствуйте, Александр Шевченко!
Для начала создайте константу например НужноВыйти - тип число.
Затем в глобальном модуле пропишите след. строки.

Перем ОсталосьСекунд;

Процедура ОбработкаОжидания() //основная система сообщений
Если ОсталосьСекунд>0 Тогда
ОсталосьСекунд=ОсталосьСекунд-4;
Если ОсталосьСекунд<=0 Тогда
ОсталосьСекунд=-10;
ЗавершитьРаботуСистемы(0);
КонецЕсли;
Иначе
Если Константа.НужноВыйти>0 Тогда
ОсталосьСекунд=Константа.НужноВыйти;
Текст="Сис. Админ просит выйти из систем 1С. Иначе через "+Строка(ОсталосьСекунд)+" секунд 1С автоматически завершит работу. И все ваши данне будут утеряна, кто не успел я не виноват!";
Сообщить(" "+Текст,"!!!");
Предупреждение(Текст,30);// установите время
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Процедура ПриНачалеРаботыСистемы() //Вызов процедуры обработки сообщений
Если МонопольныйРежим() = 1 Тогда
Константа.НужноВыйти = 0;
КонецЕсли;
ОсталосьСекунд=0;
Если СокрЛП(ИмяПользователя())<>"Админ" Тогда //ваше ИмяПользователя
ОбработкаОжидания("ОбработкаОжидания",3);
КонецЕсли;
КонецПроцедуры
Процедура ПриЗавершенииРаботыСистемы()
Если ОсталосьСекунд>(-10) Тогда
КонецЕсли;
Конецпроцедуры

Далее в режиме предприятия ставите значение константы например 20, то ч/з 20 сек. работа системы завершится при этом пользователям выйдет сообщение о необходимости завершения. Кроме того доступ к константе без админских прав будет запрещен.

---------
Жизнь игра, а настоящая игра - МАНИЯ.
Ответ отправил: Besker (статус: Студент)
Ответ отправлен: 28.07.2006, 12:10
Оценка за ответ: 5
Комментарий оценки:
Большое спасибо!


Вопрос № 50.433
Здравствуйте, 1с-Предприятие ред4,5 релиз 473, база SQL.
При записи нового Пл.Поручения ошибка "cannot insert duplicate kye row in object "_1soper" with unigue index "docid", и программа вылетает с сообщением "невосстановимая ошибка БД". Подскажите, что сделать.
Отправлен: 28.07.2006, 11:25
Вопрос задала: Elena (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Manserg
Здравствуйте, Elena!
Сообщается о невозможности записи дубля идентификатора строки документа в таблице операций. Самое простое и надежное: Выгрузка и обратная загрузка базы данных + тестирование и исправление.
Ответ отправил: Manserg (статус: 3-ий класс)
Ответ отправлен: 28.07.2006, 11:33
Оценка за ответ: 5
Комментарий оценки:
Тестированиеи исправление помогло.


Вопрос № 50.487
Как в таблице значений создать колонку, которая будет содержать флажки?
Отправлен: 28.07.2006, 22:06
Вопрос задал: Prog (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лазурко Владимир
Здравствуйте, Prog!
Программно идентификатор флажка списка значений называется Пометка.
для того, чтобы он показывался на форме, нужно в свойствах списка на вкладке Дополнительно включить флажок "Список с пометками"
-------- из Синтакс-помощника ---------
Пометка(<?>,)
Синтаксис:
Пометка(<Позиция>,<Пометка>)
Назначение:
Пометить значение списка. Возвращает: значение метки до выполнения метода. Число: 1 - отметка установлена; 0 - отметка не установлена.
Параметры:
<Позиция> - номер позиции выбранного значения в списке.
<Пометка> - необязательный параметр. Число: 1 - установить отметку; 0 - снять отметку. Если данный параметр опущен, то отметка значения списка не изменяется.
----------------------------------------
пример:
На форму поместите 2 списка один с идентификатором Сп, другой НовыйСп. В свойствах первого на вкладке Дополнительно установите флажок "Список с пометками".
Поместите на форму кнопку с заголовком "Пернос" и формулой Перенести().
Теперь в модуль вставьте код из приложения:

Приложение:

---------
Доброе отношение к людям может изменить твою жизнь

Ответ отправил: Лазурко Владимир (статус: 3-ий класс)
Ответ отправлен: 29.07.2006, 09:03

Отвечает: Краюшкин Игорь Валерьевич
Здравствуйте, Prog!

Флажки получится использовать только если таблица значений вставлена в форму (отчета, документа и т.п.) и в свойствах таблицы в закладке картинка вставить картинку, содержащую изображение флажка без пометки и флажка с пометкой.
В модуле формы в процедуре ПриОткрытии() необходимо дать команду ТаблицаЗначений.ВыводитьПиктограммы(<Колонка>,<Пиктограма>) (формат комманды смотрите в синтакс-помощнике)
Картинка должна быть формата .bmp, содержать все пиктограммы для этой таблицы значений и состоять из последовательности пиктограмм размером 16х15 пикселей. Пиктограммы будут выбираться из картинки по номеру, взятому из числового значения данной колонки в текущей строке.
Ответ отправил: Краюшкин Игорь Валерьевич (статус: 3-ий класс)
Ответ отправлен: 29.07.2006, 16:39


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.35 от 27.07.2006
Яндекс Rambler's Top100

В избранное