Как Запретить Проведение Документа?

@shytsyodrokbo · Регистрация: 22.07.2012

Студворк — интернет-сервис помощи студентам

Есть Документ ВводНачальныхОстатков, который позволяет вносить нач. остатки в регистр накопления вручную. Есть также документ КассовыйЧек. Необходимо запретить проведение документа КассовыйЧек, если дата проведения его раньше даты документа ВВодНачальныхОстатков. Надеюсь поняли, что я имею ввиду..

@ottyxyy · 07.08.2012, 10:29

Используйте подписку на событие. Объек - ваш чек, событие Обработка проведения

@shytsyodrokbo · 07.08.2012, 10:59

а с кодом не посоветуете как быть?

@ottyxyy · 07.08.2012, 11:23

Как то так

Код ( (Unknown Language)):
Процедура ПодпискаНаСобытие1ОбработкаПроведения(Ис точник, Отказ, РежимПроведения) Экспорт
Если Источник.Дата< "Здесь ваша дата" Тогда
Отказ = Истина;
КонецЕсли;

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

@shytsyodrokbo · 07.08.2012, 11:24

я бы отправил сюда то, что сам написал, но думаю, что вы будете смеяться

@ottyxyy · 07.08.2012, 11:30

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

@shytsyodrokbo · 07.08.2012, 11:35

Хорошо сказано. Источником у меня является Документ КассовыйЧек, а как получить дату Документа ВводНачальныхОстатков? Запросом?

@ottyxyy · 07.08.2012, 11:39

Да.Выбираете запросом 1 дату документа с условием сортировки даты по возрастанию.

@shytsyodrokbo · 07.08.2012, 11:42

я только как недели две начал изучать программирование на 1с

@shytsyodrokbo · 07.08.2012, 11:53

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

Если Источник.Дата < Тогда
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = "Нельзя проводить";
Сообщение.Сообщить();
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры

ВСе равно с датой проблемы у меня, не знаю как быть.

@umkmowm181538 · 07.08.2012, 13:06

Если Выборка.Следующий() Тогда
Если Источник.Дата <Выборка.Дата Тогда
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = "Нельзя проводить";
Сообщение.Сообщить();
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
КонецЕсли;

Только уточните, с каким из документов надо сравнивать? Документа ввода остатков разными датами введены или он один вообще?

Кстати, если конфигурация типовая, рекоменюую обратить внимание на процедуру ОбщегоНазначенияКлиентСервер.СообщитьПол ьзователю()

@shytsyodrokbo · 07.08.2012, 13:23

вроде как один

Добавлено: мне нужно, если запись в документе ВводНачальныхОстатков, например, 8.08.2012, тогда проводить документ КассовыйЧек раньше чем 8 число нельзя, а позже можно, хоть на секунду позже

@shytsyodrokbo · 07.08.2012, 15:43

вроде получилось так как я хотел, спасибо большое за совет. Очень выручили.

@shytsyodrokbo · 11.08.2012, 11:57

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

Добавлено: Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
| <записи регистра>
|ИЗ
| <из регистра накопления>
|УПОРЯДОЧИТЬ ПО
| Период УБЫВ";

также можно? как думаете?

@umkmowm181538 · 11.08.2012, 12:06

Сообщение от chelseadrogba

также можно? как думаете?

да. Так можно.

@shytsyodrokbo · 11.08.2012, 12:14

а какой источник посоветуете для изучения программирования на 1С?

@shytsyodrokbo · 11.08.2012, 19:09

а не подскажете? У меня в регистре накопления содержится измерение Касса, мне необходимо для соответствующей кассы получить последнюю запись? как это будет выглядеть? вложенный запрос или как?

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@shytsyodrokbo 0 / 0 / 0 Регистрация: 22.07.2012 Сообщений: 26

	Как Запретить Проведение Документа? 07.08.2012, 10:10. Показов 11798. Ответов 16 Метки нет (Все метки) Есть Документ ВводНачальныхОстатков, который позволяет вносить нач. остатки в регистр накопления вручную. Есть также документ КассовыйЧек. Необходимо запретить проведение документа КассовыйЧек, если дата проведения его раньше даты документа ВВодНачальныхОстатков. Надеюсь поняли, что я имею ввиду.. 0

@ottyxyy 0 / 0 / 0 Регистрация: 27.04.2008 Сообщений: 371
	07.08.2012, 10:29
	Используйте подписку на событие. Объек - ваш чек, событие Обработка проведения 0

@shytsyodrokbo 0 / 0 / 0 Регистрация: 22.07.2012 Сообщений: 26
	07.08.2012, 10:59
	а с кодом не посоветуете как быть? 0

@ottyxyy 0 / 0 / 0 Регистрация: 27.04.2008 Сообщений: 371
	07.08.2012, 11:23
	Как то так Код ( (Unknown Language)): Процедура ПодпискаНаСобытие1ОбработкаПроведения(Ис точник, Отказ, РежимПроведения) Экспорт Если Источник.Дата< "Здесь ваша дата" Тогда Отказ = Истина; КонецЕсли; КонецПроцедуры 0

@shytsyodrokbo 0 / 0 / 0 Регистрация: 22.07.2012 Сообщений: 26
	07.08.2012, 11:24
	я бы отправил сюда то, что сам написал, но думаю, что вы будете смеяться 0

@ottyxyy 0 / 0 / 0 Регистрация: 27.04.2008 Сообщений: 371
	07.08.2012, 11:30
	Попытки разобраться в задаче самостоятельно не могут быть смешными. Смешно когда просят за просто так сделать что то серьезное при этом ни приложив со своей стороны усилий. Выкладывайте, покритикуем. 0

@shytsyodrokbo 0 / 0 / 0 Регистрация: 22.07.2012 Сообщений: 26
	07.08.2012, 11:35
	Хорошо сказано. Источником у меня является Документ КассовыйЧек, а как получить дату Документа ВводНачальныхОстатков? Запросом? 0

@ottyxyy 0 / 0 / 0 Регистрация: 27.04.2008 Сообщений: 371
	07.08.2012, 11:39
	Да.Выбираете запросом 1 дату документа с условием сортировки даты по возрастанию. 0

@shytsyodrokbo 0 / 0 / 0 Регистрация: 22.07.2012 Сообщений: 26
	07.08.2012, 11:42
	я только как недели две начал изучать программирование на 1с 0

@shytsyodrokbo 0 / 0 / 0 Регистрация: 22.07.2012 Сообщений: 26
	07.08.2012, 11:53
	Процедура КассовоеПроведениеОбработкаПроведения(Ис точник, Отказ, РежимПроведения) Экспорт Если РежимПроведения = РежимПроведенияДокумента.Оперативный Тогда Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ \| ВводНачальныхОстатков.Дата \|ИЗ \| Документ.ВводНачальныхОстатков КАК ВводНачальныхОстатков \| \|УПОРЯДОЧИТЬ ПО \| Дата"; //Запрос.УстановитьПараметр("Дата", Дата); Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Если Источник.Дата < Тогда Сообщение = Новый СообщениеПользователю(); Сообщение.Текст = "Нельзя проводить"; Сообщение.Сообщить(); Отказ = Истина; КонецЕсли; КонецЕсли; КонецПроцедуры ВСе равно с датой проблемы у меня, не знаю как быть. 0

@umkmowm181538 0 / 0 / 0 Регистрация: 24.12.2008 Сообщений: 1,399
	07.08.2012, 13:06
	Если Выборка.Следующий() Тогда Если Источник.Дата <Выборка.Дата Тогда Сообщение = Новый СообщениеПользователю(); Сообщение.Текст = "Нельзя проводить"; Сообщение.Сообщить(); Отказ = Истина; КонецЕсли; КонецЕсли; КонецПроцедуры КонецЕсли; Только уточните, с каким из документов надо сравнивать? Документа ввода остатков разными датами введены или он один вообще? Кстати, если конфигурация типовая, рекоменюую обратить внимание на процедуру ОбщегоНазначенияКлиентСервер.СообщитьПол ьзователю() 0

@shytsyodrokbo 0 / 0 / 0 Регистрация: 22.07.2012 Сообщений: 26
	07.08.2012, 13:23
	вроде как один Добавлено: мне нужно, если запись в документе ВводНачальныхОстатков, например, 8.08.2012, тогда проводить документ КассовыйЧек раньше чем 8 число нельзя, а позже можно, хоть на секунду позже 0

@shytsyodrokbo 0 / 0 / 0 Регистрация: 22.07.2012 Сообщений: 26
	07.08.2012, 15:43
	вроде получилось так как я хотел, спасибо большое за совет. Очень выручили. 0

@shytsyodrokbo 0 / 0 / 0 Регистрация: 22.07.2012 Сообщений: 26
	11.08.2012, 11:57
	не подскажете? как получить последнюю запись из регистра? запросом или же как - нибудь по другому? Добавлено: Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1 \| <записи регистра> \|ИЗ \| <из регистра накопления> \|УПОРЯДОЧИТЬ ПО \| Период УБЫВ"; также можно? как думаете? 0

@shytsyodrokbo 0 / 0 / 0 Регистрация: 22.07.2012 Сообщений: 26
	11.08.2012, 12:14
	а какой источник посоветуете для изучения программирования на 1С? 0

@shytsyodrokbo 0 / 0 / 0 Регистрация: 22.07.2012 Сообщений: 26
	11.08.2012, 19:09
	а не подскажете? У меня в регистре накопления содержится измерение Касса, мне необходимо для соответствующей кассы получить последнюю запись? как это будет выглядеть? вложенный запрос или как? 0