Жизнь замечательных грибов
Попробовал поработать в 1С в конфигураторе и в релизе под Ubuntu 18.4 Давно хотел, да всё собраться не мог. Ну что могу сказать? Сыровато.. Рандомно вылетает конфигуратор с не сохраненной работой. Теряется фокус окон. Иногда не открывается меню. В редакторе конфигуратора иногда курсор становится не видимым. И это спустя сколько лет как работу под Linux озвучили?
Работать конечно можно…. при нужде.
Казалось бы простой вопрос, а гуглить пришлось чтобы сделать примерно то что мне нужно порядка часа.
Создаем реквизит с типом «Список значений»
Код модуля:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
&НаКлиенте Процедура КатегорииТовараНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) ПараметрыПодбора = Новый Структура; ПараметрыПодбора.Вставить("ЗакрыватьПриВыборе", Истина); ПараметрыПодбора.Вставить("МножественныйВыбор", Истина); ПараметрыПодбора.Вставить("ВыборГруппИЭлементов", ИспользованиеГруппИЭлементов.ГруппыИЭлементы); ОткрытьФорму("Справочник.Номенклатура.ФормаВыбора", ПараметрыПодбора, Элементы.КатегорииТовара); КонецПроцедуры &НаСервере Процедура ИтоговаяТаблицаОбработкаВыбораНаСервере(ВыбранноеЗначение) Для Каждого вЗнч Из ВыбранноеЗначение Цикл нстр=объект.КатегорииТовара.Добавить(вЗнч); КонецЦикла; КонецПроцедуры &НаКлиенте Процедура КатегорииТовараОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; ИтоговаяТаблицаОбработкаВыбораНаСервере(ВыбранноеЗначение); КонецПроцедуры |
Результат:
Если документ проведен, то денежки идут на регистры «Расчеты с контрагентами» и «Продажи по платежным картам», вне зависимости от того, прошла оплата по карточке или нет. Т.е. например типичная ситуация:
Создали документ «Эквайринговая операция», провели его, попробовали оплатить с карты — не прошло. Клиенту «ну тогда платите наличкой». Документ закрыли, но 1С по регистрам будет считать, что деньги то поступили не в кассу! Хотя по факту вообще они могут никуда не поступить.
И в отчете «Продажи по платежным картам» мы тоже ничего не увидим!! Дурдом.
Единственный вариант — писать свой отчет по продажам, в котором проверять на true поле «Оплата прошла».
Задача: по расписанию формировать файл отчета СКД и отправлять его по электронной почте.
Решение:
1. Формируем файл
|
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 27 28 29 30 |
таб1=новый ТабличныйДокумент(); СКД=Отчеты.ПрибыльЗаПериод.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных"); Настройки=СКД.НастройкиПоУмолчанию; Дата1=Настройки.ПараметрыДанных.Элементы.Найти("Дата1"); Дата1.Значение=НачалоМесяца(ТекущаяДата()); Дата2=Настройки.ПараметрыДанных.Элементы.Найти("Дата2"); Дата2.Значение=КонецДня(ТекущаяДата()); ВидЦены=Настройки.ПараметрыДанных.Элементы.Найти("ВидЦены"); ВидЦены.Значение=Справочники.ВидыЦен.НайтиПоНаименованию("Основная цена закупки"); Магазин=Настройки.ПараметрыДанных.Элементы.Найти("Магазин"); Магазин.Значение=Справочники.Магазины.НайтиПоНаименованию("Вологда Торговля"); Расшифровка = Новый ДанныеРасшифровкиКомпоновкиДанных; КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; //Передаем в макет компоновки схему, настройки и данные расшифровки МакетКомпоновки = КомпоновщикМакета.Выполнить(СКД, Настройки, Расшифровка); ВнешниеПараметры = Новый Структура; //Выполним компоновку с помощью процессора компоновки ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеПараметры, Расшифровка); //Выводим результат в табличный документ ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент; ПроцессорВывода.УстановитьДокумент(таб1); ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина); таб1.Записать("c:\temp\моржа.xls",ТипФайлаТабличногоДокумента.XLS); |
2.Отправляем его по почте
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
ПараметрыПочты = новый ИнтернетПочтовыйПрофиль; ПараметрыПочты.АдресСервераSMTP = пснмп; ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию; ПараметрыПочты.ПользовательSMTP = плогин; ПараметрыПочты.ПарольSMTP=ппароль; Письмо=новый ИнтернетПочтовоеСообщение; Письмо.Тема="Комплексный отчет по продажам в магазине Вологда Торговля"; Письмо.ИмяОтправителя="1С отправка отчетов"; Письмо.Отправитель=побратный; Письмо.Получатели.Добавить(пполучатель); Письмо.Получатели.Добавить("blabla@mail.ru"); Письмо.Тексты.Добавить("Комплексный отчет по продажам в магазине Вологда Торговля"); Письмо.Вложения.Добавить("c:\temp\моржа.xls"); Подключение=новый ИнтернетПочта; Попытка Подключение.Подключиться(ПараметрыПочты); Подключение.Послать(Письмо); |
Задача: разрешить пользователям проводить документы только внутри разрешенных им складов.
Частично данная задача успешно решается при помощи RLE и соответствующих ролей. Но! не полностью. Во всяком случае в конфигурации 1С Розница 2.2 нет возможности ограничить пользователя (без изменения конфигураци)…ну например реализовывать товар с «чужого» склада/Магазина, делать перемещение товаров на «чужие» склады (ограничения работают только для Ордеров???).
Решение: используем относительно новую фичу от 1С — подписка на события. А именно на событие «Запись». Данные по которым будем проверять можно пользователю записывать данный документ или нет, будем брать из специально созданного справочника.
