Обработка "Конструктор форматной строки - Число прописью"

13.01.09

Разработка - Инструментарий разработчика

Обработка формирования форматной строки - число прописью.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		Бесплатно
Число прописью .1231832201 10,04Kb 634	634	Скачать бесплатно

Данная обработка посвящается тем, кому лень самому описывать форматную строку "число прописью". Указывайте параметры, и обработка построит для вас форматную строку, которую вы можете использовать в своем программном коде.

+37 –

См. также

SALE! 15%

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Программист Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

10000 руб.

02.09.2020 160123 882 399

866

SALE! 15%

Database Compression Tool (DCT) Универсальный инструмент сжатия, свертки и конвертации баз данных 1С

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

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP и т.д.). Поддерживаются управляемые и обычные формы. Может выполнять свертку сразу нескольких баз данных и выполнять их автоматически без непосредственного участия пользователя.

~~8400~~ 7140 руб.

20.08.2024 8061 60 28

OneDebugger - инструмент для отладки кода в 1С без использования конфигуратора

Инструментарий разработчика Программист Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Инструмент для написания и отладки кода в режиме «1С:Предприятие». Представляет собой консоль кода с возможностью пошаговой отладки, просмотра значений переменных любых типов, использования процедур и функций, просмотра стека вызовов, вычисления произвольных выражений на встроенном языке в контексте точки останова, синтаксического контроля и остановки по ошибке. В консоли используется удобный редактор кода с подсветкой, контекстной подсказкой, возможностью вызова конструкторов запроса и форматной строки.

9360 руб.

17.05.2024 23622 69 45

117

SALE! 15%

Infostart PrintWizard (конструктор печатных форм)

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

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

~~22200~~ 19980 руб.

06.10.2023 15497 36 7

SALE! 15%

Infostart DataFormWizard: Управление данными и формами 1С 8.3

Инструменты администратора БД Инструментарий разработчика Роли и права Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

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

~~10000~~ 8500 руб.

10.11.2023 10532 37 27

SALE! 35%

PowerTools: Инструменты администратора 1С 8.3

Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

~~4800~~ 3120 руб.

14.01.2013 188178 1141 0

912

SALE! 15%

Бустер Конвертации данных 3 (Infostart Toolkit)

Инструментарий разработчика Программист 8.3.14 1С:Конвертация данных Россия Платные (руб)

Расширение для конфигурации “Конвертация данных 3”. Добавляет подсветку синтаксиса, детальную контекстную подсказку, глобальный поиск по коду.

~~15000~~ 12750 руб.

07.10.2021 17355 6 32

Менеджер конфигураций 1С

Инструментарий разработчика Программист Платные (руб)

Менеджер конфигураций 1С — альтернативный стартер информационных баз 1С:Предприятие.

1800 руб.

21.02.2023 7754 8 35

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. luns 13.01.09 12:43 Сейчас в теме

Гуд.

2. combatxp 88 13.01.09 12:50 Сейчас в теме

Удобная обработка и необходимая.

3. Leoway 166 13.01.09 13:37 Сейчас в теме

Спс. Нужная вещь

4. Serj1C 483 13.01.09 15:56 Сейчас в теме

Напоминает Типовая Бухгалтерия 1.6, Справочник.Валюты

5. magvay_k 64 13.01.09 15:59 Сейчас в теме

(4) За основу была взята форма из данной конфигурации.

6. GSoft 2237 13.01.09 16:10 Сейчас в теме

а выложите скрин, а то под рукой нет 8ки - не посмотреть

7. magvay_k 64 13.01.09 16:25 Сейчас в теме

(6) Выложил скрин.

8. GSoft 2237 13.01.09 17:18 Сейчас в теме

пасиба, но вижу только надпись Рис. 2646 .

9. magvay_k 64 13.01.09 19:49 Сейчас в теме

(8) Загрузил новую картинку, с той какой то глюк.

10. GSoft 2237 14.01.09 02:32 Сейчас в теме

так то понятней))
как-то делал похожее в семерке - только там лишь деньги прописью
http://infostart.ru/projects/1693/ Рис. 2652 . Деньги прописью
большего просто не нужно было

11. uzerdv 13 16.07.09 06:23 Сейчас в теме

Очень пригодилась

12. NCCSOFT 56 17.02.10 13:13 Сейчас в теме

Две функции печати: вес прописью "в тоннах", а "кг" числом и объем в кубах с округлением до четвертей и третей :-)

Делал для себя (основываясь на примере автора), но зато проще, и можно вызывать в формах ТТН или ТОРГ-12:

//******************************************************************************
Функция глВесВТоннахПрописьюКгЧислом(Сумма) Экспорт
	
	КоличествоТонн = Цел(Сумма);
	КоличествоКг   = Цел((Сумма - КоличествоТонн)*1000);
     
    Правило=СоздатьОбъект("СписокЗначений");
	Правило.ДобавитьЗначение("тонна");
	Правило.ДобавитьЗначение("тонны");
	Правило.ДобавитьЗначение("тонн");
	Правило.ДобавитьЗначение("");
	Правило.ДобавитьЗначение("");
	Правило.ДобавитьЗначение("");
	Правило.ДобавитьЗначение("F"); //Женский род "F" (Мужской род "M")
	                                                          
	СПЛ=СоздатьОбъект("СписокЗначений");                                    
	СПЛ.ДобавитьЗначение(Правило); 
	   
	Пропись(СПЛ);
	Стр=Формат(КоличествоТонн,"ЧПД");
	Пропись("");	  
	  
	Если КоличествоКг<>0 Тогда
    	Стр=Стр+" "+Строка(КоличествоКг)+" кг";			
	КонецЕсли;	

	Возврат Стр;
	
КонецФункции 

//******************************************************************************
Функция глОбъемВКубахПрописью(Сумма) Экспорт
	
	КоличествоКубМ    = Цел(Сумма);
	КоличествоКубДоля = Сумма - КоличествоКубМ;

	Если      (КоличествоКубДоля>=0)     И(КоличествоКубДоля<0.1458) Тогда
		СтрД=""; //Ноль
		СтрН="Ноль куб.метров"; 
	ИначеЕсли (КоличествоКубДоля>=0.1458)И(КоличествоКубДоля<0.2917) Тогда 
		СтрД=" с четвертью";    
		СтрН="Четверть куб.метра"; 
	ИначеЕсли (КоличествоКубДоля>=0.2917)И(КоличествоКубДоля<0.3542) Тогда		
	    СтрД=" с третью";          
		СтрН="Треть куб.метра"; 
	ИначеЕсли (КоличествоКубДоля>=0.3542)И(КоличествоКубДоля<0.6458) Тогда			
	    СтрД=" с половиной";    
		СтрН="Половина куб.метра"; 
	ИначеЕсли (КоличествоКубДоля>=0.6458)И(КоличествоКубДоля<0.7083) Тогда
		СтрД=" с двумя третью";    
		СтрН="Две третих куб.метра"; 
	ИначеЕсли (КоличествоКубДоля>=0.7083)И(КоличествоКубДоля<0.8542) Тогда
		СтрД=" с тремя четвертями";  
		СтрН="Три четверти куб.метра"; 
	ИначеЕсли (КоличествоКубДоля>=0.8542)И(КоличествоКубДоля<1) Тогда
        СтрД=""; //Единица
		СтрН=""; 
		КоличествоКубМ = КоличествоКубМ + 1;
	КонецЕсли;	

	Если КоличествоКубМ>0 Тогда
    	Правило=СоздатьОбъект("СписокЗначений");
		Правило.ДобавитьЗначение("куб.метр");
		Правило.ДобавитьЗначение("куб.метра");
		Правило.ДобавитьЗначение("куб.метров");
		Правило.ДобавитьЗначение("");
		Правило.ДобавитьЗначение("");
		Правило.ДобавитьЗначение("");
		Правило.ДобавитьЗначение("M"); //Женский род "F" (Мужской род "M")
		СПЛ=СоздатьОбъект("СписокЗначений");                                    
		СПЛ.ДобавитьЗначение(Правило); 
		Пропись(СПЛ);
		Стр=Формат(КоличествоКубМ,"ЧПД");
		Пропись("");
		                 
		Поз = Найти(Стр,"куб.");
		Если (СтрД<>"")И(Поз>1) Тогда
			Стр = Сред(Стр,1,Поз-2)+СтрД+Сред(Стр,Поз-1,СтрДлина(Стр)-Поз+2);
		КонецЕсли;
		
	Иначе
		Стр = СтрН;
	КонецЕсли;	
                
	Возврат Стр;
	
КонецФункции

Показать