Как-то просматривая журнал событий в операционной системе Windows 2003, я обнаружил ошибку:
Windows не удалось записать в журнал состояние сеанса RSoP. Попытка подключения к WMI не удалась. Дальнейшее протоколирование RSoP не будет выполняться для этого применения политики.
Дополнительные сведения можно найти в центре справки и поддержки, в «http://go.microsoft.com/fwlink/events.asp».
Далее методом поиска в решения в Интернет, нашел выход:
Читать далее…
Что же приступим к первой статье описывающей работу конфигурации для мебельщиков. В этой конфигурации есть много полезных вещей для создания моделей мебельной промышленности. Прорисовав в сторонней программе объемные модели будущей мебели клиента, мебельщик может просчитать итоговую стоимость всего своего труда. Вводя поочередно все составляющие проекта, а это могут быть изделия, которые состоят из самых разных материалов, дизайнер на выходе получит полную картинку того, так во сколько же обойдется весь заказ покупателю по продажной цене и дизайнеру по закупочной.
Многие используют ручной метод просчета, но в наше время компьютерных технологий это становится старомодным и непрактичным. так как приходится порой одни и те же вещи перерисовывать и пересчитывать по несколько раз для разных клиентов. Для чего это делать, если всю рутинную работу можно свалить на неутомимые плечи компьютера, а он в свою очередь сможет все просчитать, пересчитать, увеличить стоимость или её уменьшить стоимость проекта в зависимости от Ваших предпочтений?
Читать далее…
Странно, но лишь через несколько лет я обратил внимание на то, как сворачивается код в запросах. Там есть такая конструкция, которая позволяет свернуть закомментированный код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
//{{Функция СуммаСтолешенРаскроя() // СуммаВсехСтолешен = 0; // Для каждого ТекРаскрой Из ТЗРаскрои Цикл // Если ТекРаскрой.ВидРаскроя = "Торговое" Тогда // // СписокИзделий = ТекРаскрой.ДокРаскрой.Изделия; // Для каждого ТекИзделие Из СписокИзделий Цикл // Если ТекИзделие.Флаг Тогда // // СписокДеталировок = КритерииОтбора.ОтборПодчиненныхДетИздТоргового.Найти(ТекИзделие.Изделие); // Для каждого ТекДет Из СписокДеталировок Цикл // Если ТекДет.Метаданные().Имя = "РСтолешня" Тогда // СуммаВсехСтолешен = СуммаВсехСтолешен+(ТекДет.ЦенаДеталировки*ТекИзделие.Количество); // КонецЕсли; // КонецЦикла; // // КонецЕсли; // КонецЦикла; // // КонецЕсли; // КонецЦикла; // // Возврат СуммаВсехСтолешен; //}}КонецФункции |
Такой код даже будучи закомментированным — свернется и не будет портить эстетичный вид в модуле формы. 🙂
Именно знаки: {{ и }} помогают в этом…
Была у меня пару месяцев назад проблема: на сервере под управлением Windows Server 2008 возникала ошибка при подключении через удаленный рабочий стол. Проблема была в кеше лицензии удаленного рабочего стола… Поискав на просторах Интернета решение пришел к выводу, что много всего написано:
Когда нелицензированный клиент впервые подключается к серверу терминалов, сервер терминалов высылает клиенту временный маркер клиентской лицензии (Client Access License, CAL) сервера терминалов. После того как пользователь подключается к сеансу, сервер терминалов дает указание серверу лицензий считать временный маркер клиентской лицензии сервера терминалов удостоверенным. При следующем подключении клиента совершается попытка заменить удостоверенный маркер временной клиентской лицензии сервера терминалов полноценным маркером клиентской лицензии сервера терминалов. В случае отсутствия маркеров лицензии временный маркер клиентской лицензии сервера терминалов остается действительным в течение 90 дней. Лицензия сохраняется в реестре клиента.
32-разрядные клиенты клиенты RDP сохраняют лицензию в разделе реестра HKEY_LOCAL_MACHINE\Software\Microsoft\MSLicensing.
Инфо: http://support.microsoft.com/kb/187614/ru
По простому говоря, надо было удалить этот кешированный ключ лицензии на машине клиента, этим самым заставив выдать новый ключ сервера.
После запуска специального reg-файла вся проблема канула в лету. 🙂
http://www.yarsort.com.ua/files/DeleteMSLicensing.reg
Проблема: не отправляются письма с файлами обмена из 1С Предприятия 8,2.
Причина: закончилась лицензия антивируса Eset Nod32 Antivirus. Программа требует сменить логи и пароль.
Решение проблемы: удаление и перенастройка антивируса. Письма начали отправляться сразу же после перезагрузки.
Итог: странно, что антивирус отображал нормальную работу, но в то же время — блокировал работу протокола SMTP и POP3.
В дочернем окне пишем в процедуре закрытия окна:
|
//Оповестим форму заказа, о том, что закрыт документ раскроя только в тот заказ, который является его основанием. НазваниеСобытия = "ЗакрытРаскрой"+Строка(ДокОснование.Номер); ИмяСобытия = НазваниеСобытия; ПараметрВызова = Неопределено; ФормаИсточник = "РаскройУслуги"; Оповестить(ИмяСобытия,ПараметрВызова,ФормаИсточник); |
В процедуре ОбработкаОповещения() родительского окна:
|
НазваниеСобытия = "ЗакрытРаскрой"+Строка(Номер); Если ИмяСобытия = НазваниеСобытия Тогда ПересчетСуммыТоргового(); ПересчетСуммыМеталла(); ПересчетСуммыУслуг(); КонецЕсли; |
Насколько я понял режим модальности (невозможность открыть окно на полный экран) программа 1С переносит и на дочерние окна. Например, если в модальном окне сформировать и открыть табличный документ, то такой документ Вы не сможете просмотреть в полном размере на весь экран, из-за модальности… Разве что вручную увеличить размер окна до размеров экрана. Грустно. 🙂
Первая запись посвящена ознакомлению будущих статей. В моих следующих статьях буду освящать весь процесс разработки.