Подскажите как сделать так чтобы поле сотрудник заполнялось само текущим пользователем(Для этого установлен параметр сеанса текущий пользователь)
Вот код
//////////////////////////////
Возможно ли добавлять товар в документ в из табличной части справочника
В справочники "ВИДЫ СКИДОК" в табличной части содержатся товары на которые распространяется скидка
////////////////////
в документе запись на занятия необходимо при выборе услуги указывать (помещать в реквизит Объект.КоличествоЕдиниц) ее стоимость
код
Общий модуль
/////////////////
необходимо в справочник клиенты в поле сумма покупки поместить сумму всех покупок клиента
и при каждой новой покупке ее перерасчитывать автоматически
Вот код
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//Объект.Сотрудник=ПараметрыСеанса.ТекущийПользователь.Наименование;
КонецПроцедуры//////////////////////////////
Возможно ли добавлять товар в документ в из табличной части справочника
В справочники "ВИДЫ СКИДОК" в табличной части содержатся товары на которые распространяется скидка
////////////////////
в документе запись на занятия необходимо при выборе услуги указывать (помещать в реквизит Объект.КоличествоЕдиниц) ее стоимость
код
&НаКлиенте
Процедура УслугаПриИзменении(Элемент)
Объект.КоличествоЕдиниц=ЦеныТоваровИУслуг.РозничнаяЦенаЕдиницы(Объект.Дата,Объект.Услуга);
КонецПроцедуры Общий модуль
Функция РозничнаяЦенаЕдиницы(АктуальнаяДата, ЭлементТовары) Экспорт
Отбор = Новый Структура("ТоварИУслуга", ЭлементТовары);
ЗначенияРесурсов=РегистрыСведений.ЦеныТоваровИУслуг.ПолучитьПоследнее(АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов.КоличествоЕдиниц;
КонецФункции/////////////////
необходимо в справочник клиенты в поле сумма покупки поместить сумму всех покупок клиента
&НаСервере
Функция ПолучитьСуммуПокупок () Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(ПродажиКлиентам.Сумма, 0) КАК Сумма
|ИЗ
| РегистрНакопления.ПродажиКлиентам КАК ПродажиКлиентам
|ГДЕ
| ПродажиКлиентам.Клиент = &Клиент";
Запрос.УстановитьПараметр("Клиент", Объект.Наименование);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
СуммаП=0;
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
СуммаП=СуммаП+ВыборкаДетальныеЗаписи.Сумма;
Сообщить(""+ СуммаП +"");
КонецЦикла;
Возврат СуммаП;
КонецФункции
Показатьи при каждой новой покупке ее перерасчитывать автоматически
&НаКлиенте
Процедура ОбработкаЗаписиНового(НовыйОбъект, Источник, СтандартнаяОбработка)
СуммаПокупок=ПолучитьСуммуПокупок ();
Если СуммаПокупок < 10000 Тогда
Объект.СкидкаКлиента=0;
ИначеЕсли СуммаПокупок<10000 Тогда
Объект.СкидкаКлиента=5;
КонецЕсли;
КонецПроцедуры
ПоказатьПо теме из базы знаний
- Часто встречающиеся ошибки 1С и общие способы их решения
- Повышение качества разработки. Статья 3. Ошибки программы
- Управление качеством кода
- Повышение качества разработки. Статья 4. Почему код становится плохим, и как с этим бороться
- Результаты ревью кода 1500+ решений каталога Инфостарт: наиболее частые ошибки разработчиков в коде
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Объект.Сотрудник=ПараметрыСеанса.ТекущийПользователь; //Это тип Ссылка
КонецПроцедуры
только в этом случае при каждом создании формы объект будет изменяться, а это не есть гут((((
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Объект.Сотрудник=ПараметрыСеанса.ТекущийПользователь; //Это тип Ссылка
КонецПроцедуры
только в этом случае при каждом создании формы объект будет изменяться, а это не есть гут((((
А что можно сделать чтобы только при создании нового объекта процедура запускалась? И к тому же у меня ошибок не выдает конфигурация но и имя сотрудника не подставляет.
Процедура РозничнаяЦенаЕдиницы(АктуальнаяДата, ЭлементТовары) Экспорт
Отбор = Новый Структура("ТоварИУслуга", ЭлементТовары);
ЗначенияРесурсов=РегистрыСведений.ЦеныТоваровИУслуг.ПолучитьПоследнее(АктуальнаяДата, Отбор);
ЭлементТовары.КоличествоЕдиниц = ЗначенияРесурсов.КоличествоЕдиниц;
КонецПроцедуры//Примечание: Применимо только для периодических регистров сведений. РегистрыСведений.ЦеныТоваровИУслуг должен содержать измерение ТоварИУслуга тип Ссылка на услугу
а как мне ее вызывать в модуле формы это ведь процедура а не функция
вот функцию вызываю
а что делать если процедура?
вот функцию вызываю
Объект.КоличествоЕдиниц=ЦеныТоваровИУслуг.РозничнаяЦена(Объект.Дата,Объект.Услуга);
а что делать если процедура?
он ругается и пишет что ошибка в общем модуле
а ЭлементТовары.КоличествоЕдиниц что значит эта строка, после равно я поняла, а вот до.
{ОбщийМодуль.ЦеныТоваровИУслуг.Модуль(21)}: Поле объекта не обнаружено (КоличествоЕдиниц)
ЭлементТовары.КоличествоЕдиниц = ЗначенияРесурсов.КоличествоЕдиниц;
а ЭлементТовары.КоличествоЕдиниц что значит эта строка, после равно я поняла, а вот до.
значит в РегистрыСведений.ЦеныТоваровИУслуг нет ресурса КоличествоЕдиниц.... (может проще самому все ТЗ выполнить, чем открывать начальные курсы по 1С))))))
Значит ЭлементТовары не содержит поле(реквизит) КоличествоЕдиниц
поставьте точку останова на строке ЭлементТовары.КоличествоЕдиниц = ЗначенияРесурсов.КоличествоЕдиниц; и тестируйте - увидите чего не хватает
поставьте точку останова на строке ЭлементТовары.КоличествоЕдиниц = ЗначенияРесурсов.КоличествоЕдиниц; и тестируйте - увидите чего не хватает
я протестировала, но он не выявил ошибок, кроме отсутствия некоторых документов, и незаполненных реквизитов
(16) Emiliya_Emili,
?
я протестировала, но он не выявил ошибок
И что у вас в "ОбщийМодуль.ЦеныТоваровИУслуг.Модуль(21)" содержится в "ЗначенияРесурсов", если поставить стоп на
ЭлементТовары.КоличествоЕдиниц = ЗначенияРесурсов.КоличествоЕдиниц;
у меня есть строка в модуле документа на получение единиц из регистра
и она прекрасно работает
почему тоже самое но в реквизит перестает работать?
ТекущаяСтрока.ЦенаВЕдиницах=ЦеныТоваровИУслуг.РозничнаяЦенаЕдиницы(Объект.Дата,ТекущаяСтрока.Товар);
и она прекрасно работает
Функция РозничнаяЦенаЕдиницы(АктуальнаяДата, ЭлементТовары) Экспорт
Отбор = Новый Структура("ТоварИУслуга", ЭлементТовары);
ЗначенияРесурсов=РегистрыСведений.ЦеныТоваровИУслуг.ПолучитьПоследнее(АктуальнаяДата, Отбор);
Возврат ЗначенияРесурсов.КоличествоЕдиниц;
КонецФункции
почему тоже самое но в реквизит перестает работать?
(24) Emiliya_Emili, что возвращается в перед непосредственно ошибкой? Там не "РегистрыСведений.ЦеныТоваровИУслуг". Там что-то другое.
ЗначенияРесурсов=РегистрыСведений.ЦеныТоваровИУслуг.ПолучитьПоследнее(АктуальнаяДата, Отбор);
вот весь код
&НаСервере
Процедура РозничнаяЦена(АктуальнаяДата, ЭлементТовары) Экспорт
Отбор = Новый Структура("ТоварИУслуга", ЭлементТовары);
ЗначенияРесурсов=РегистрыСведений.ЦеныТоваровИУслуг.ПолучитьПоследнее(АктуальнаяДата, Отбор);
ЭлементТовары.КоличествоЕдиниц = ЗначенияРесурсов.КоличествоЕдиниц;
КонецПроцедуры
по подсчету суммы вот код что уже имеется
&НаСервере
Функция ПолучитьСуммуПокупок () Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(ПродажиКлиентам.Сумма, 0) КАК Сумма
|ИЗ
| РегистрНакопления.ПродажиКлиентам КАК ПродажиКлиентам
|ГДЕ
| ПродажиКлиентам.Клиент = &Клиент";
Запрос.УстановитьПараметр("Клиент", Объект.Наименование);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
СуммаП=0;
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
СуммаП=СуммаП+ВыборкаДетальныеЗаписи.Сумма;
Сообщить(""+ СуммаП +"");
КонецЦикла;
Возврат СуммаП;
КонецФункции
&НаКлиенте
Процедура КорпоративныйПриИзменении(Элемент)
Если Объект.Корпоративный = Истина Тогда
Элементы.ГруппаОКомпании.Доступность= Истина;
Иначе
Элементы.ГруппаОКомпании.Доступность= Ложь;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
СуммаПокупок=ПолучитьСуммуПокупок ();
Если СуммаПокупок < 10000 Тогда
Объект.СкидкаКлиента=0;
ИначеЕсли СуммаПокупок<10000 Тогда
Объект.СкидкаКлиента=5;
КонецЕсли;
КонецПроцедуры
Показать
(36) AlexO, в отчете он выводит список документов вместе с суммой по ним, а когда я пытаюсь сделать подсчет суммы по всем документам клиента он этого не делает, проблема в том чтобы заставить программу посчитать значения в колонке сумма (на картинке)
Прикрепленные файлы:
(39) AlexO, я в отчет вставила сам запрос чтобы убедится что он рабочий, а так все процессы у меня происходят в справочнике,
итог я не могу использовать по той причине что мне надо будет рассчитать скидку клиента, а она полностью зависит от суммы покупки
итог я не могу использовать по той причине что мне надо будет рассчитать скидку клиента, а она полностью зависит от суммы покупки
(40) Emiliya_Emili, непонятно, что вы выводите в форму. Если это отчет СКД - воспользуйтесь итогами СКД по ресурсам. Если просто ТЗ - воспользуйтесь Итог по ТЗ...
В общем, у вас итог не рассчитан, вы пока просто получили итоговую сумму, но не указали программе, куда её вставить.
В общем, у вас итог не рассчитан, вы пока просто получили итоговую сумму, но не указали программе, куда её вставить.
у меня в строке ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
появляется ошибка
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); {(1,52)}: Ошибка в выражении
появляется ошибка
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); {(1,52)}: Ошибка в выражении
(41) Emiliya_Emili,
Объект.Наименование
нужно
Объект.Ссылка
появляется ошибка
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); {(1,52)}: Ошибка в выражении
правильно, потому что вместо ссылки на Клиента - даете в запрос его описание:
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); {(1,52)}: Ошибка в выражении
Запрос.УстановитьПараметр("Клиент", Объект.Наименование);нужно
Запрос.УстановитьПараметр("Клиент", Объект.Ссылка);
(43) AlexO, сумма вывелась, спасибо, а что делать со скидкой?
какое свойство выбрать чтобы скидка постоянно обновлялась, ведь не открывать же клиента чтобы скидку обновить
пока при открытии а как лучше?
какое свойство выбрать чтобы скидка постоянно обновлялась, ведь не открывать же клиента чтобы скидку обновить
пока при открытии а как лучше?
&НаКлиенте
Процедура ПриОткрытии(Отказ)
СуммаПокупок=ПолучитьСуммуПокупок ();
Если СуммаПокупок < 10000 Тогда
Объект.СкидкаКлиента=0;
ИначеЕсли СуммаПокупок<10000 Тогда
Объект.СкидкаКлиента=5;
КонецЕсли;
КонецПроцедуры
Показать
(45) AlexO, сумма и нужна была для скидки, от ее значения будет зависеть скидка
мне нужно чтобы после каждой покупки клиента, данные о нем обновлялись, но я при этом не должна ничего лишнего нажимать или заходить куда-либо
я провела документ, а в программе (в справочнике клиенты) все пересчиталось
мне нужно чтобы после каждой покупки клиента, данные о нем обновлялись, но я при этом не должна ничего лишнего нажимать или заходить куда-либо
я провела документ, а в программе (в справочнике клиенты) все пересчиталось
(47) Emiliya_Emili,
сумма и нужна была для скидки, от ее значения будет зависеть скидка
А с какой частотой хотели менять/проверять скидку? Какие условия?
мне нужно чтобы после каждой покупки клиента
тогда это нужно ПередЗаписью РТиУ проверять (хотите - в подписке, хотите - в событии ПередЗаписью объекта), писать реквизит Скидка, и делать проведение.
(51) Emiliya_Emili,
Можете подпиской, можете - прямо в событие объекта.
Пишите все, чтобы искалась сумма, и сохранялся результат в реквизит скидка.
Главное - это ДО записи/проведения, иначе получите цикл.
А почему Передзаписью, а не, например, ПриОткрытии - событие ПередЗаписью является "закрывающим" клиентские изменения (получены все клиентские изменения документа), и предваряющее дальнейшую обработку объекта платформой.
Если у вас УФ - вам придется разруливать еще и вызов клиент-сервер для поиска суммы и скидки.
а в какое событие их лучше поместить?
ПередЗаписью.
Можете подпиской, можете - прямо в событие объекта.
а перед записью много писать?
Это уже вам решать ))
Пишите все, чтобы искалась сумма, и сохранялся результат в реквизит скидка.
Главное - это ДО записи/проведения, иначе получите цикл.
А почему Передзаписью, а не, например, ПриОткрытии - событие ПередЗаписью является "закрывающим" клиентские изменения (получены все клиентские изменения документа), и предваряющее дальнейшую обработку объекта платформой.
Если у вас УФ - вам придется разруливать еще и вызов клиент-сервер для поиска суммы и скидки.
(52) AlexO, а как мне поместить скидку в справочник?
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
СуммаПокупок=ПолучитьСуммуПокупок ();
СкидкаКлиента=Справочники.Клиенты.Выбрать();
Если СуммаПокупок < 3500 Тогда
СкидкаКлиента=0;
ИначеЕсли СуммаПокупок>3500 Тогда
СкидкаКлиента=5;
КонецЕсли;
КонецПроцедуры
Показать
(53) Emiliya_Emili, представьте, что Вы разговариваете с компьютером. Вот что у Вас получается:
Попробуйте обычным языком написать, что Вы хотите получить и сделать.
&НаКлиенте //будем выполнять это на клиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) //используем предопределенную процедуру
СуммаПокупок=ПолучитьСуммуПокупок (); //в результате этой функции получим чего-то, хорошо если знаем что...
СкидкаКлиента=Справочники.Клиенты.Выбрать(); //хочу ссылки на все элементы справочника "Клиенты". (Правда это не работает на клиенте)
Если СуммаПокупок < 3500 Тогда //если чего-то меньше 3500 тогда
СкидкаКлиента=0; // массиву не полученных ссылок на все элементы справочника "Клиенты" присвоим 0.
ИначеЕсли СуммаПокупок>3500 Тогда // и т.д.
СкидкаКлиента=5;
КонецЕсли;
КонецПроцедуры ПоказатьПопробуйте обычным языком написать, что Вы хотите получить и сделать.
(67) Emiliya_Emili,
Что с его помощью хотите сделать? И я не работал с этим планировщиком, он мне не нужен )).
А понадобится - я найду возможность изучить его. Найду обсуждения.
Вот, если хотите ознакомится - вот статья:
в версии 8.3.6 появилась опция планировщик
А вам-то он пошто сдался? ))
Что с его помощью хотите сделать? И я не работал с этим планировщиком, он мне не нужен )).
А понадобится - я найду возможность изучить его. Найду обсуждения.
Вот, если хотите ознакомится - вот статья:
(69) Emiliya_Emili,
Тогда открывайте 1С, создавайте Планировщик, и с помощью справки попробуйте его "оживить". Только помните, что в 8.3.х немерянно глюков, для баловства - подходит, для серьезной работы - нет ))
это я уже читала только нужных ответов так и не нашла
Не удивительно. тут вообще мало исчерпывающих статей ))
Тогда открывайте 1С, создавайте Планировщик, и с помощью справки попробуйте его "оживить". Только помните, что в 8.3.х немерянно глюков, для баловства - подходит, для серьезной работы - нет ))
(69) Emiliya_Emili, Вообще, это неуклюжая попытка 1С разработать еще один из элементов управления по типу "библиотек элементов" того же Дельфи. А т.к. нет ОПП, и не предвидится, все так и останется на уровне "поиграек" и недоделанного ЭУ.
(72) Emiliya_Emili,
Зато сразу поймете, на каком уровне 1С разрабатывает свои продукты ))
а потом уже буду изучать как строить расписание вручную
Ну если так хочется - создавайте объект, и пробуйте с ним работать. Больше вариантов нет.
Зато сразу поймете, на каком уровне 1С разрабатывает свои продукты ))
Внимание! Тема сдана в архив
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот