Дата прописью, работает после 2020 года

05.03.21

Разработка - Универсальные функции

+14 –
>
  • Screenshot_363.jpg
  • Screenshot_30.jpg
Возвращает дату полностью в виде текста, не имеет ограничений по датам.

Скачать исходный код

Наименование Файл Версия Размер
Дата прописью, работает после 2020 года:
.epf 6,25Kb
55
.epf 6,25Kb 55 Скачать бесплатно

Раньше в печатной форме договоров пользовались всем давно известной функцией, но она работает до 2020 года включительно и вот наступил 2021, и меня озадачили.

Готового ничего не нашел, старался использовать наиболее свежие встроенные возможности платформ.

У самого платформа 8.3.18.1289, но должно работать начиная от 8.3.14.

Это первая публикация - не судите строго).

&НаСервере
Функция УниверсальнаяДатаПрописью(Дата) Экспорт
	// Функция Универсальная дата прописью
	// Параметры:
	// Дата - Дата
	// Возвращаемое значение:
	// дата прописью
	// 
	// Модификация для v8.3: Чопоров Денис


	прописьДата = "";
	
	
	прописьДень=СтрЗаменить(
	СтрСоединить(
	ПолучитьСклоненияСтрокиПоЧислу("число",День(Дата),,"ЧС=Порядковое","ПЧ=ЧислоПрописью"),
				),
	"число","");
	
		
	прописьМесяц=СтрСоединить(
	ПолучитьСклоненияСтроки(
		Формат(Дата,"ДФ=ММММ"),
		,
		"ПД=Родительный"),
		);
	
	прописьГод=СтрСоединить(
	ПолучитьСклоненияСтрокиПоЧислу(
		"год",
		Год(Дата),
		,"ЧС=Порядковое",
		"ПД=Родительный; ПЧ=ЧислоПрописью"),
		);    
	
	
		прописьДата=НРег(прописьДень+прописьМесяц+" "+прописьГод);
	Возврат прописьДата;
КонецФункции

 

дата прописью

+14 –

См. также

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    2893    2    John_d    11    

56

GUID в 1С 8.3 - как с ними быть

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    5049    atdonya    22    

51

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    4103    ke.92@mail.ru    16    

62

Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Конфигурации 1cv8 Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023    8273    YA_418728146    8    

104

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    9388    YA_418728146    6    

143

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2236    25    progmaster    8    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16357    142    sapervodichka    112    

130

Система контроля ведения учета [БСП]

Универсальные функции Механизмы типовых конфигураций БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7355    quazare    8    

110
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. metatron_rus 12.03.21 11:15 Сейчас в теме
Доброго времени суток.
Версия платформы 8.3.14.1565
Решил протестировать вашу обработку. Без "ПД=Именительный" не отображается число прописью. Хоть в контекстной подсказке и написано: "ПД (CS) – Падеж. Если не указан, то выполняется только согласование и возвращается форма именительного падежа."
+ –
2. user1248331 14 12.03.21 14:58 Сейчас в теме
Возможно, знающие люди уже сделали замечание, что тестирование на крайних версиях Платформы мало продуктивно, т.к. массово они не применяются, но я все же решился поделиться универсальным способом, т.к. день потратил на поиски готового решения и не нашел.
+ –
3. kirillbul 12.01.23 12:26 Сейчас в теме
На 8.3.21.1624 работает, спасибо автору!
Можно еще вынести описание функции за саму функцию
+ –
4. STivO 60 09.03.23 18:25 Сейчас в теме
Спасибо за решение. Немного рефакторинга внес от себя: 

Функция ДатаПрописью(Дата) 
	Возврат СтрШаблон("%1 %2 %3", 
				ДеньПрописью(День(Дата)), 
				НРег(МесяцПрописью(Месяц(Дата), "Родительный")), 
				НРег(ГодПрописью(Год(Дата), "Родительный"))
			);
КонецФункции

Функция ДеньПрописью(День)
	Результат = "";
	
	Если День > 0 Тогда
		Результат = ПолучитьСклоненияСтрокиПоЧислу("число", День,, "ЧС=Порядковое", "ПЧ=ЧислоПрописью")[0];
		Результат = СтрЗаменить(Результат, " число", ""); 
	КонецЕсли;
	
	Возврат Результат;
КонецФункции

Функция МесяцПрописью(Месяц, Падеж = "Именительный")
	Результат = "";
	
	Если Месяц >= 1 И Месяц <= 12 Тогда
		Результат = ПолучитьСклоненияСтроки(Формат(Дата(1, Месяц, 1), "ДФ=ММММ"),, "ПД=" + Падеж)[0];	
	КонецЕсли;
		
	Возврат Результат;
КонецФункции

Функция ГодПрописью(Год, Падеж = "Именительный")	
	Результат = "";
	
	Если Год > 0 Тогда
		Результат = ПолучитьСклоненияСтрокиПоЧислу("год", Год,, "ЧС=Порядковое", "ПЧ=ЧислоПрописью; ПД=" + Падеж)[0];  
	КонецЕсли;
	
	Возврат Результат;
КонецФункции
Показать
+ –
Оставьте свое сообщение